Mercurial > emacs
annotate lisp/calendar/holidays.el @ 102615:6192629dc5c9
* minibuf.texi (Basic Completion): Note that
read-file-name-completion-ignore-case and
read-buffer-completion-ignore-case can override
completion-ignore-case.
(Minibuffer Completion): Document completing-read changes.
(Completion Commands): Avoid mentioning partial completion mode.
Document minibuffer-completion-confirm changes, and
minibuffer-confirm-exit-commands.
(High-Level Completion): Document new require-match behavior for
read-buffer. Document read-buffer-completion-ignore-case.
(Reading File Names): Document new require-match behavior for
read-file-name.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 17 Mar 2009 04:54:03 +0000 |
parents | 27e9141ce15b |
children | 6cae903fcecf |
rev | line source |
---|---|
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
1 ;;; holidays.el --- holiday functions for the calendar package |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
2 |
67465
a55ee709ec8d
Update copyright pending Emacs 22.
Glenn Morris <rgm@gnu.org>
parents:
65919
diff
changeset
|
3 ;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1997, 2001, 2002, 2003, |
100908 | 4 ;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
6 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
65919
5c09efcfc1d9
Update maintainer email address.
Glenn Morris <rgm@gnu.org>
parents:
64085
diff
changeset
|
7 ;; Maintainer: Glenn Morris <rgm@gnu.org> |
957 | 8 ;; Keywords: holidays, calendar |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
9 |
406 | 10 ;; This file is part of GNU Emacs. |
11 | |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94456
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94456
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94456
diff
changeset
|
15 ;; (at your option) any later version. |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
16 |
406 | 17 ;; GNU Emacs is distributed in the hope that it will be useful, |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
20 ;; GNU General Public License for more details. |
406 | 21 |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
22 ;; You should have received a copy of the GNU General Public License |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94456
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
406 | 24 |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
25 ;;; Commentary: |
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
26 |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
27 ;; See calendar.el. |
406 | 28 |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
29 ;;; Code: |
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
30 |
406 | 31 (require 'calendar) |
93712
59cfcdcb1474
Require loaddef file rather than loading it.
Glenn Morris <rgm@gnu.org>
parents:
93639
diff
changeset
|
32 (require 'hol-loaddefs) |
957 | 33 |
93996
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
34 (defgroup holidays nil |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
35 "Holidays support in calendar." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
36 :group 'calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
37 :prefix "holidays-" |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
38 :group 'local) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
39 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
40 ;; The various holiday variables are autoloaded because people |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
41 ;; are used to using them to set calendar-holidays without having to |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
42 ;; explicitly load this file. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
43 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
44 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
45 (defcustom holiday-general-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
46 '((holiday-fixed 1 1 "New Year's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
47 (holiday-float 1 1 3 "Martin Luther King Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
48 (holiday-fixed 2 2 "Groundhog Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
49 (holiday-fixed 2 14 "Valentine's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
50 (holiday-float 2 1 3 "President's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
51 (holiday-fixed 3 17 "St. Patrick's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
52 (holiday-fixed 4 1 "April Fools' Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
53 (holiday-float 5 0 2 "Mother's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
54 (holiday-float 5 1 -1 "Memorial Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
55 (holiday-fixed 6 14 "Flag Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
56 (holiday-float 6 0 3 "Father's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
57 (holiday-fixed 7 4 "Independence Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
58 (holiday-float 9 1 1 "Labor Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
59 (holiday-float 10 1 2 "Columbus Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
60 (holiday-fixed 10 31 "Halloween") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
61 (holiday-fixed 11 11 "Veteran's Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
62 (holiday-float 11 4 4 "Thanksgiving")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
63 "General holidays. Default value is for the United States. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
64 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
65 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
66 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
67 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
68 (put 'holiday-general-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
69 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
70 (define-obsolete-variable-alias 'general-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
71 'holiday-general-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
72 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
73 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
74 (defcustom holiday-oriental-holidays |
94281
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
75 '((holiday-chinese-new-year) |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
76 (if calendar-chinese-all-holidays-flag |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
77 (append |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
78 (holiday-chinese 1 15 "Lantern Festival") |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
79 (holiday-chinese-qingming) |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
80 (holiday-chinese 5 5 "Dragon Boat Festival") |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
81 (holiday-chinese 7 7 "Double Seventh Festival") |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
82 (holiday-chinese 8 15 "Mid-Autumn Festival") |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
83 (holiday-chinese 9 9 "Double Ninth Festival") |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
84 (holiday-chinese-winter-solstice) |
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
85 ))) |
93996
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
86 "Oriental holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
87 See the documentation for `calendar-holidays' for details." |
94281
0cbedba0ce0d
(holiday-oriental-holidays): Add more holidays.
Glenn Morris <rgm@gnu.org>
parents:
93996
diff
changeset
|
88 :version "23.1" ; added more holidays |
93996
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
89 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
90 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
91 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
92 (put 'holiday-oriental-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
93 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
94 (define-obsolete-variable-alias 'oriental-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
95 'holiday-oriental-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
96 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
97 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
98 (defcustom holiday-local-holidays nil |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
99 "Local holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
100 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
101 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
102 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
103 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
104 (put 'holiday-local-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
105 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
106 (define-obsolete-variable-alias 'local-holidays 'holiday-local-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
107 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
108 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
109 (defcustom holiday-other-holidays nil |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
110 "User defined holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
111 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
112 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
113 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
114 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
115 (put 'holiday-other-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
116 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
117 (define-obsolete-variable-alias 'other-holidays 'holiday-other-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
118 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
119 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
120 (defvar hebrew-holidays-1 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
121 '((holiday-hebrew-rosh-hashanah) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
122 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
123 (holiday-julian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
124 11 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
125 (let ((m displayed-month) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
126 (y displayed-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
127 year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
128 (calendar-increment-month m y -1) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
129 (setq year (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
130 (calendar-julian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
131 (calendar-absolute-from-gregorian (list m 1 y))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
132 (if (zerop (% (1+ year) 4)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
133 22 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
134 21)) "\"Tal Umatar\" (evening)"))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
135 "Component of the old default value of `holiday-hebrew-holidays'.") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
136 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
137 (put 'hebrew-holidays-1 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
138 (make-obsolete-variable 'hebrew-holidays-1 'hebrew-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
139 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
140 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
141 (defvar hebrew-holidays-2 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
142 '((holiday-hebrew-hanukkah) ; respects calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
143 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
144 (holiday-hebrew |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
145 10 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
146 (let ((h-year (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
147 (calendar-hebrew-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
148 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
149 (list displayed-month 28 displayed-year)))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
150 (if (= 6 (% (calendar-hebrew-to-absolute (list 10 10 h-year)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
151 7)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
152 11 10)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
153 "Tzom Teveth")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
154 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
155 (holiday-hebrew 11 15 "Tu B'Shevat"))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
156 "Component of the old default value of `holiday-hebrew-holidays'.") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
157 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
158 (put 'hebrew-holidays-2 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
159 (make-obsolete-variable 'hebrew-holidays-2 'hebrew-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
160 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
161 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
162 (defvar hebrew-holidays-3 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
163 '((if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
164 (holiday-hebrew |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
165 11 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
166 (let* ((m displayed-month) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
167 (y displayed-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
168 (h-year (progn |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
169 (calendar-increment-month m y 1) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
170 (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
171 (calendar-hebrew-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
172 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
173 (list m (calendar-last-day-of-month m y) y)))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
174 (s-s |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
175 (calendar-hebrew-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
176 (if (= 6 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
177 (% (calendar-hebrew-to-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
178 (list 7 1 h-year)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
179 7)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
180 (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
181 6 (calendar-hebrew-to-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
182 (list 11 17 h-year))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
183 (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
184 6 (calendar-hebrew-to-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
185 (list 11 16 h-year)))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
186 (day (calendar-extract-day s-s))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
187 day) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
188 "Shabbat Shirah"))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
189 "Component of the old default value of `holiday-hebrew-holidays'.") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
190 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
191 (put 'hebrew-holidays-3 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
192 (make-obsolete-variable 'hebrew-holidays-3 'hebrew-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
193 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
194 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
195 (defvar hebrew-holidays-4 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
196 '((holiday-hebrew-passover) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
197 (and calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
198 (let* ((m displayed-month) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
199 (y displayed-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
200 (year (progn |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
201 (calendar-increment-month m y -1) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
202 (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
203 (calendar-julian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
204 (calendar-absolute-from-gregorian (list m 1 y))))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
205 (= 21 (% year 28))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
206 (holiday-julian 3 26 "Kiddush HaHamah")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
207 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
208 (holiday-hebrew-tisha-b-av))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
209 "Component of the old default value of `holiday-hebrew-holidays'.") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
210 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
211 (put 'hebrew-holidays-4 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
212 (make-obsolete-variable 'hebrew-holidays-4 'hebrew-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
213 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
214 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
215 (defcustom holiday-hebrew-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
216 '((holiday-hebrew-passover) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
217 (holiday-hebrew-rosh-hashanah) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
218 (holiday-hebrew-hanukkah) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
219 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
220 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
221 (holiday-hebrew-tisha-b-av) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
222 (holiday-hebrew-misc)))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
223 "Jewish holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
224 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
225 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
226 :version "23.1" ; removed dependency on hebrew-holidays-N |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
227 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
228 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
229 (put 'holiday-hebrew-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
230 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
231 (define-obsolete-variable-alias 'hebrew-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
232 'holiday-hebrew-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
233 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
234 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
235 (defcustom holiday-christian-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
236 '((holiday-easter-etc) ; respects calendar-christian-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
237 (holiday-fixed 12 25 "Christmas") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
238 (if calendar-christian-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
239 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
240 (holiday-fixed 1 6 "Epiphany") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
241 (holiday-julian 12 25 "Eastern Orthodox Christmas") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
242 (holiday-greek-orthodox-easter) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
243 (holiday-fixed 8 15 "Assumption") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
244 (holiday-advent 0 "Advent")))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
245 "Christian holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
246 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
247 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
248 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
249 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
250 (put 'holiday-christian-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
251 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
252 (define-obsolete-variable-alias 'christian-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
253 'holiday-christian-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
254 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
255 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
256 (defcustom holiday-islamic-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
257 '((holiday-islamic-new-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
258 (holiday-islamic 9 1 "Ramadan Begins") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
259 (if calendar-islamic-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
260 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
261 (holiday-islamic 1 10 "Ashura") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
262 (holiday-islamic 3 12 "Mulad-al-Nabi") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
263 (holiday-islamic 7 26 "Shab-e-Mi'raj") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
264 (holiday-islamic 8 15 "Shab-e-Bara't") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
265 (holiday-islamic 9 27 "Shab-e Qadr") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
266 (holiday-islamic 10 1 "Id-al-Fitr") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
267 (holiday-islamic 12 10 "Id-al-Adha")))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
268 "Islamic holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
269 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
270 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
271 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
272 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
273 (put 'holiday-islamic-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
274 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
275 (define-obsolete-variable-alias 'islamic-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
276 'holiday-islamic-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
277 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
278 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
279 (defcustom holiday-bahai-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
280 '((holiday-bahai-new-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
281 (holiday-bahai-ridvan) ; respects calendar-bahai-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
282 (holiday-fixed 5 23 "Declaration of the Bab") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
283 (holiday-fixed 5 29 "Ascension of Baha'u'llah") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
284 (holiday-fixed 7 9 "Martyrdom of the Bab") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
285 (holiday-fixed 10 20 "Birth of the Bab") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
286 (holiday-fixed 11 12 "Birth of Baha'u'llah") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
287 (if calendar-bahai-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
288 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
289 (holiday-fixed 11 26 "Day of the Covenant") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
290 (holiday-fixed 11 28 "Ascension of `Abdu'l-Baha")))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
291 "Baha'i holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
292 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
293 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
294 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
295 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
296 (put 'holiday-bahai-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
297 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
298 (define-obsolete-variable-alias 'bahai-holidays 'holiday-bahai-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
299 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
300 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
301 (defcustom holiday-solar-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
302 '((solar-equinoxes-solstices) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
303 (holiday-sexp calendar-daylight-savings-starts |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
304 (format "Daylight Saving Time Begins %s" |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
305 (solar-time-string |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
306 (/ calendar-daylight-savings-starts-time (float 60)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
307 calendar-standard-time-zone-name))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
308 (holiday-sexp calendar-daylight-savings-ends |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
309 (format "Daylight Saving Time Ends %s" |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
310 (solar-time-string |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
311 (/ calendar-daylight-savings-ends-time (float 60)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
312 calendar-daylight-time-zone-name)))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
313 "Sun-related holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
314 See the documentation for `calendar-holidays' for details." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
315 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
316 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
317 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
318 (put 'holiday-solar-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
319 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
320 (define-obsolete-variable-alias 'solar-holidays 'holiday-solar-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
321 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
322 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
323 (defcustom calendar-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
324 (append holiday-general-holidays holiday-local-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
325 holiday-other-holidays holiday-christian-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
326 holiday-hebrew-holidays holiday-islamic-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
327 holiday-bahai-holidays holiday-oriental-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
328 holiday-solar-holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
329 "List of notable days for the command \\[holidays]. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
330 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
331 Additional holidays are easy to add to the list, just put them in the |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
332 list `holiday-other-holidays' in your .emacs file. Similarly, by setting |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
333 any of `holiday-general-holidays', `holiday-local-holidays', |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
334 `holiday-christian-holidays', `holiday-hebrew-holidays', |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
335 `holiday-islamic-holidays', `holiday-bahai-holidays', |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
336 `holiday-oriental-holidays', or `holiday-solar-holidays' to nil in your |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
337 .emacs file, you can eliminate unwanted categories of holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
338 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
339 The aforementioned variables control the holiday choices offered |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
340 by the function `holiday-list' when it is called interactively. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
341 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
342 They also initialize the default value of `calendar-holidays', |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
343 which is the default list of holidays used by the function |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
344 `holiday-list' in the non-interactive case. Note that these |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
345 variables have no effect on `calendar-holidays' after it has been |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
346 set (e.g. after the calendar is loaded). In that case, customize |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
347 `calendar-holidays' directly. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
348 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
349 The intention is that (in the US) `holiday-local-holidays' be set in |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
350 site-init.el and `holiday-other-holidays' be set by the user. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
351 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
352 Entries on the list are expressions that return (possibly empty) lists of |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
353 items of the form ((month day year) string) of a holiday in the |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
354 three-month period centered around `displayed-month' of `displayed-year'. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
355 Several basic functions are provided for this purpose: |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
356 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
357 (holiday-fixed MONTH DAY STRING) is a fixed date on the Gregorian calendar |
97722 | 358 (holiday-float MONTH DAYNAME K STRING &optional DAY) is the Kth DAYNAME |
359 (0 for Sunday, etc.) after/before Gregorian | |
360 MONTH DAY. K<0 means count back from the end | |
361 of the month. Optional DAY defaults to 1 if | |
362 K>0, and MONTH's last day otherwise. | |
93996
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
363 (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
364 (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
365 (holiday-bahai MONTH DAY STRING) a fixed date on the Baha'i calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
366 (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
367 (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
368 in the variable `year'; if it evaluates to |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
369 a visible date, that's the holiday; if it |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
370 evaluates to nil, there's no holiday. STRING |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
371 is an expression in the variable `date'. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
372 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
373 For example, to add Bastille Day, celebrated in France on July 14, add |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
374 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
375 (holiday-fixed 7 14 \"Bastille Day\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
376 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
377 to the list. To add Hurricane Supplication Day, celebrated in the Virgin |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
378 Islands on the fourth Monday in August, add |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
379 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
380 (holiday-float 8 1 4 \"Hurricane Supplication Day\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
381 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
382 to the list (the last Monday would be specified with `-1' instead of `4'). |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
383 To add the last day of Hanukkah to the list, use |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
384 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
385 (holiday-hebrew 10 2 \"Last day of Hanukkah\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
386 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
387 since the Hebrew months are numbered with 1 starting from Nisan. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
388 To add the Islamic feast celebrating Mohammed's birthday, use |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
389 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
390 (holiday-islamic 3 12 \"Mohammed's Birthday\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
391 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
392 since the Islamic months are numbered from 1 starting with Muharram. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
393 To add an entry for the Baha'i festival of Ridvan, use |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
394 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
395 (holiday-bahai 2 13 \"Festival of Ridvan\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
396 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
397 since the Baha'i months are numbered from 1 starting with Baha. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
398 To add Thomas Jefferson's birthday, April 2, 1743 (Julian), use |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
399 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
400 (holiday-julian 4 2 \"Jefferson's Birthday\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
401 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
402 To include a holiday conditionally, use the sexp form or a conditional. For |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
403 example, to include American presidential elections, which occur on the first |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
404 Tuesday after the first Monday in November of years divisible by 4, add |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
405 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
406 (holiday-sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
407 '(if (zerop (% year 4)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
408 (calendar-gregorian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
409 (1+ (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
410 1 (+ 6 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
411 (list 11 1 year))))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
412 \"US Presidential Election\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
413 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
414 or |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
415 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
416 (if (zerop (% displayed-year 4)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
417 (holiday-fixed 11 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
418 (calendar-extract-day |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
419 (calendar-gregorian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
420 (1+ (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
421 1 (+ 6 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
422 (list 11 1 displayed-year))))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
423 \"US Presidential Election\")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
424 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
425 to the list. To include the phases of the moon, add |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
426 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
427 (lunar-phases) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
428 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
429 to the holiday list, where `lunar-phases' is an Emacs-Lisp function that |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
430 you've written to return a (possibly empty) list of the relevant VISIBLE dates |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
431 with descriptive strings such as |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
432 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
433 (((2 6 1989) \"New Moon\") ((2 12 1989) \"First Quarter Moon\") ... )." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
434 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
435 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
436 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
437 (put 'calendar-holidays 'risky-local-variable t) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
438 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
439 ;;; End of user options. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
440 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
441 |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
442 ;; FIXME name that makes sense |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
443 ;;;###diary-autoload |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
444 (defun calendar-holiday-list () |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
445 "Form the list of holidays that occur on dates in the calendar window. |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
446 The holidays are those in the list `calendar-holidays'." |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
447 (let (res h) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
448 (sort |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
449 (dolist (p calendar-holidays res) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
450 (if (setq h (if calendar-debug-sexp |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
451 (let ((stack-trace-on-error t)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
452 (eval p)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
453 (condition-case nil |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
454 (eval p) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
455 (error (beep) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
456 (message "Bad holiday list item: %s" p) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
457 (sleep-for 2))))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
458 (setq res (append h res)))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
459 'calendar-date-compare))) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
460 |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
461 (defvar displayed-month) ; from calendar-generate |
92960
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
462 (defvar displayed-year) |
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
463 |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
464 ;; FIXME name that makes sense |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
465 ;;;###cal-autoload |
101083
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
466 (defun calendar-list-holidays (&optional event) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
467 "Create a buffer containing the holidays for the current calendar window. |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
468 The holidays are those in the list `calendar-notable-days'. |
101083
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
469 Returns non-nil if any holidays are found. |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
470 If EVENT is non-nil, it's an event indicating the buffer position to |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
471 use instead of point." |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
472 (interactive (list last-nonmenu-event)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
473 ;; If called from a menu, with the calendar window not selected. |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
474 (with-current-buffer |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
475 (if event (window-buffer (posn-window (event-start event))) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
476 (current-buffer)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
477 (message "Looking up holidays...") |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
478 (let ((holiday-list (calendar-holiday-list)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
479 (m1 displayed-month) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
480 (y1 displayed-year) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
481 (m2 displayed-month) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
482 (y2 displayed-year)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
483 (if (not holiday-list) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
484 (message "Looking up holidays...none found") |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
485 (calendar-in-read-only-buffer holiday-buffer |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
486 (calendar-increment-month m1 y1 -1) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
487 (calendar-increment-month m2 y2 1) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
488 (calendar-set-mode-line |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
489 (if (= y1 y2) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
490 (format "Notable Dates from %s to %s, %d%%-" |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
491 (calendar-month-name m1) (calendar-month-name m2) y2) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
492 (format "Notable Dates from %s, %d to %s, %d%%-" |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
493 (calendar-month-name m1) y1 (calendar-month-name m2) y2))) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
494 (insert |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
495 (mapconcat |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
496 (lambda (x) (concat (calendar-date-string (car x)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
497 ": " (cadr x))) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
498 holiday-list "\n"))) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
499 (message "Looking up holidays...done")) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
500 holiday-list))) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
501 |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
502 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
503 'list-calendar-holidays 'calendar-list-holidays "23.1") |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
504 |
37631
00c265302412
(holidays): Add an autoload cookie. From Pavel Jank <Pavel@Janik.cz>.
Eli Zaretskii <eliz@gnu.org>
parents:
37001
diff
changeset
|
505 ;;;###autoload |
957 | 506 (defun holidays (&optional arg) |
406 | 507 "Display the holidays for last month, this month, and next month. |
92650 | 508 If called with an optional prefix argument ARG, prompts for month and year. |
406 | 509 This function is suitable for execution in a .emacs file." |
957 | 510 (interactive "P") |
406 | 511 (save-excursion |
957 | 512 (let* ((completion-ignore-case t) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
513 (date (if arg (calendar-read-date t) |
9712
275845a98fa8
Use new form of calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7639
diff
changeset
|
514 (calendar-current-date))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
515 (displayed-month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
516 (displayed-year (calendar-extract-year date))) |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
517 (calendar-list-holidays)))) |
406 | 518 |
84576
1b5ca22699c0
(holiday-list): Rename it back to `list-holidays', but leave
Glenn Morris <rgm@gnu.org>
parents:
84556
diff
changeset
|
519 ;; rms: "Emacs commands to display a list of something generally start |
1b5ca22699c0
(holiday-list): Rename it back to `list-holidays', but leave
Glenn Morris <rgm@gnu.org>
parents:
84556
diff
changeset
|
520 ;; with `list-'. Please make `list-holidays' the principal name." |
17388
5c4602f0c45d
(list-holidays): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
17385
diff
changeset
|
521 ;;;###autoload |
93238
a2947a0dab56
(list-holidays): Make Y2 optional.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93228
diff
changeset
|
522 (defun list-holidays (y1 &optional y2 l label) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
523 "Display holidays for years Y1 to Y2 (inclusive). |
93282 | 524 Y2 defaults to Y1. The optional list of holidays L defaults to |
525 `calendar-holidays'. If you want to control what holidays are | |
526 displayed, use a different list. For example, | |
69373 | 527 |
528 (list-holidays 2006 2006 | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
529 (append holiday-general-holidays holiday-local-holidays)) |
69373 | 530 |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
531 will display holidays for the year 2006 defined in the two |
69373 | 532 mentioned lists, and nothing else. |
533 | |
69352 | 534 When called interactively, this command offers a choice of |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
535 holidays, based on the variables `holiday-solar-holidays' etc. See the |
69352 | 536 documentation of `calendar-holidays' for a list of the variables |
537 that control the choices, as well as a description of the format | |
538 of a holiday list. | |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
539 |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
540 The optional LABEL is used to label the buffer created." |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
541 (interactive |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
542 (let* ((start-year (calendar-read |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
543 "Starting year of holidays (>0): " |
92596 | 544 (lambda (x) (> x 0)) |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
545 (number-to-string (calendar-extract-year |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
546 (calendar-current-date))))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
547 (end-year (calendar-read |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
548 (format "Ending year (inclusive) of holidays (>=%s): " |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
549 start-year) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
550 (lambda (x) (>= x start-year)) |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
551 (number-to-string start-year))) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
552 (completion-ignore-case t) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
553 (lists |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
554 (list |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
555 (cons "All" calendar-holidays) |
93228
3f12945a840c
(list-holidays): Assume atan always bound.
Glenn Morris <rgm@gnu.org>
parents:
93024
diff
changeset
|
556 (cons "Equinoxes/Solstices" |
3f12945a840c
(list-holidays): Assume atan always bound.
Glenn Morris <rgm@gnu.org>
parents:
93024
diff
changeset
|
557 (list (list 'solar-equinoxes-solstices))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
558 (if holiday-general-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
559 (cons "General" holiday-general-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
560 (if holiday-local-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
561 (cons "Local" holiday-local-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
562 (if holiday-other-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
563 (cons "Other" holiday-other-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
564 (if holiday-christian-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
565 (cons "Christian" holiday-christian-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
566 (if holiday-hebrew-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
567 (cons "Hebrew" holiday-hebrew-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
568 (if holiday-islamic-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
569 (cons "Islamic" holiday-islamic-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
570 (if holiday-bahai-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
571 (cons "Baha'i" holiday-bahai-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
572 (if holiday-oriental-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
573 (cons "Oriental" holiday-oriental-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
574 (if holiday-solar-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
575 (cons "Solar" holiday-solar-holidays)) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
576 (cons "Ask" nil))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
577 (choice (capitalize |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
578 (completing-read "List (TAB for choices): " lists nil t))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
579 (which (if (string-equal choice "Ask") |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
580 (eval (read-variable "Enter list name: ")) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
581 (cdr (assoc choice lists)))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
582 (name (if (string-equal choice "Equinoxes/Solstices") |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
583 choice |
17643
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
584 (if (member choice '("Ask" "")) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
37631
diff
changeset
|
585 "Holidays" |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
586 (format "%s Holidays" choice))))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
587 (list start-year end-year which name))) |
93238
a2947a0dab56
(list-holidays): Make Y2 optional.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93228
diff
changeset
|
588 (unless y2 (setq y2 y1)) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
589 (message "Computing holidays...") |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
590 (let ((calendar-holidays (or l calendar-holidays)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
591 (title (or label "Holidays")) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
592 (s (calendar-absolute-from-gregorian (list 2 1 y1))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
593 (e (calendar-absolute-from-gregorian (list 11 1 y2))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
594 (displayed-month 2) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
595 (displayed-year y1) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
596 holiday-list) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
597 (while (<= s e) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
598 (setq holiday-list (append holiday-list (calendar-holiday-list))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
599 (calendar-increment-month displayed-month displayed-year 3) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
600 (setq s (calendar-absolute-from-gregorian |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
601 (list displayed-month 1 displayed-year)))) |
17643
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
602 (save-excursion |
93024
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
603 (calendar-in-read-only-buffer holiday-buffer |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
604 (calendar-set-mode-line |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
605 (if (= y1 y2) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
606 (format "%s for %s" title y1) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
607 (format "%s for %s-%s" title y1 y2))) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
608 (insert |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
609 (mapconcat |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
610 (lambda (x) (concat (calendar-date-string (car x)) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
611 ": " (cadr x))) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
612 holiday-list "\n"))) |
17643
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
613 (message "Computing holidays...done")))) |
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
614 |
86294
7962d9c627d8
(holiday-list): Add autoload cookie.
Glenn Morris <rgm@gnu.org>
parents:
84606
diff
changeset
|
615 ;;;###autoload |
84576
1b5ca22699c0
(holiday-list): Rename it back to `list-holidays', but leave
Glenn Morris <rgm@gnu.org>
parents:
84556
diff
changeset
|
616 (defalias 'holiday-list 'list-holidays) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
617 |
92842
aa76c7bffc0d
(hol-loaddefs): Load this rather than explicit autoloads.
Glenn Morris <rgm@gnu.org>
parents:
92650
diff
changeset
|
618 ;;;###diary-autoload |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
619 (defun calendar-check-holidays (date) |
406 | 620 "Check the list of holidays for any that occur on DATE. |
621 The value returned is a list of strings of relevant holiday descriptions. | |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
622 The holidays are those in the list `calendar-holidays'." |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
623 (let ((displayed-month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
624 (displayed-year (calendar-extract-year date)) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
625 holiday-list) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
626 (dolist (h (calendar-holiday-list) holiday-list) |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
627 (if (calendar-date-equal date (car h)) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
628 (setq holiday-list (append holiday-list (cdr h))))))) |
406 | 629 |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
630 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
631 'check-calendar-holidays 'calendar-check-holidays "23.1") |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
632 |
97422
6e551caf98f6
Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
96305
diff
changeset
|
633 (declare-function x-popup-menu "xmenu.c" (position menu)) |
6e551caf98f6
Add declarations for builds without X.
Glenn Morris <rgm@gnu.org>
parents:
96305
diff
changeset
|
634 |
92842
aa76c7bffc0d
(hol-loaddefs): Load this rather than explicit autoloads.
Glenn Morris <rgm@gnu.org>
parents:
92650
diff
changeset
|
635 ;;;###cal-autoload |
96305
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
636 (defun calendar-cursor-holidays (&optional date event) |
96066
f0d44d21e743
(calendar-cursor-holidays): Accept optional date.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
637 "Find holidays for the date specified by the cursor in the calendar window. |
f0d44d21e743
(calendar-cursor-holidays): Accept optional date.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
638 Optional DATE is a list (month day year) to use instead of the |
96305
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
639 cursor position. EVENT specifies a buffer position to use for a date." |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
640 (interactive (list nil last-nonmenu-event)) |
406 | 641 (message "Checking holidays...") |
96305
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
642 (or date (setq date (calendar-cursor-to-date t event))) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
643 (let ((date-string (calendar-date-string date)) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
644 (holiday-list (calendar-check-holidays date)) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
645 selection msg) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
646 (if (mouse-event-p event) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
647 (and (setq selection (cal-menu-x-popup-menu event |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
648 (format "Holidays for %s" date-string) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
649 (if holiday-list |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
650 (mapcar 'list holiday-list) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
651 '("None")))) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
652 (call-interactively selection)) |
406 | 653 (if (not holiday-list) |
654 (message "No holidays known for %s" date-string) | |
96305
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
655 (if (<= (length (setq msg |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
656 (format "%s: %s" date-string |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
657 (mapconcat 'identity holiday-list "; ")))) |
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
658 (frame-width)) |
14318
faae84d059c1
(calendar-cursor-holidays): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
659 (message "%s" msg) |
93024
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
660 (calendar-in-read-only-buffer holiday-buffer |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
661 (calendar-set-mode-line date-string) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
662 (insert (mapconcat 'identity holiday-list "\n"))) |
96305
017ec6527a01
(calendar-cursor-holidays): Handle mouse events.
Glenn Morris <rgm@gnu.org>
parents:
96066
diff
changeset
|
663 (message "Checking holidays...done")))))) |
406 | 664 |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
665 ;; FIXME move to calendar? |
92842
aa76c7bffc0d
(hol-loaddefs): Load this rather than explicit autoloads.
Glenn Morris <rgm@gnu.org>
parents:
92650
diff
changeset
|
666 ;;;###cal-autoload |
101083
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
667 (defun calendar-mark-holidays (&optional event) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
668 "Mark notable days in the calendar window. |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
669 If EVENT is non-nil, it's an event indicating the buffer position to |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
670 use instead of point." |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
671 (interactive (list last-nonmenu-event)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
672 ;; If called from a menu, with the calendar window not selected. |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
673 (with-current-buffer |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
674 (if event (window-buffer (posn-window (event-start event))) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
675 (current-buffer)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
676 (setq calendar-mark-holidays-flag t) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
677 (message "Marking holidays...") |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
678 (dolist (holiday (calendar-holiday-list)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
679 (calendar-mark-visible-date (car holiday) calendar-holiday-marker)) |
27e9141ce15b
(calendar-list-holidays, calendar-mark-holidays): Add event handling,
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
680 (message "Marking holidays...done"))) |
406 | 681 |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
682 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
683 'mark-calendar-holidays 'calendar-mark-holidays "23.1") |
406 | 684 |
685 ;; Below are the functions that calculate the dates of holidays; these | |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
686 ;; are eval'ed in the function calendar-holiday-list. If you |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
687 ;; write other such functions, be sure to imitate the style used below. |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
688 ;; Remember that each function must return a list of items of the form |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
689 ;; ((month day year) string) of VISIBLE dates in the calendar window. |
406 | 690 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
691 (defun holiday-fixed (month day string) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
692 "Holiday on MONTH, DAY (Gregorian) called STRING. |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
693 If MONTH, DAY is visible, the value returned is the list (((MONTH DAY year) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
694 STRING)). Returns nil if it is not visible in the current calendar window." |
93438 | 695 ;; This determines whether a given month is visible in the calendar. |
696 ;; cf calendar-date-is-visible-p (which also checks the year part). | |
697 ;; The day is irrelevant since only full months are displayed. | |
698 ;; Since the calendar displays three months at a time, month N | |
699 ;; is visible if displayed-month = N-1, N, N+1. | |
700 ;; In particular, November is visible if d-m = 10, 11, 12. | |
701 ;; This is useful, because we can do a one-sided test: | |
702 ;; November is visible if d-m > 9. (Similarly, February is visible if | |
703 ;; d-m < 4.) | |
704 ;; To determine if December is visible, we can shift the calendar | |
705 ;; back a month and ask if November is visible; to determine if | |
706 ;; October is visible, we can shift it forward a month and ask if | |
707 ;; November is visible; etc. | |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
708 (let ((m displayed-month) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
709 (y displayed-year)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
710 (calendar-increment-month m y (- 11 month)) |
93438 | 711 (if (> m 9) ; is november visible? |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
712 (list (list (list month day y) string))))) |
406 | 713 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
714 (defun holiday-float (month dayname n string &optional day) |
94456 | 715 "Holiday called STRING on the Nth DAYNAME after/before MONTH DAY. |
716 DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on. | |
717 If N>0, use the Nth DAYNAME after MONTH DAY. | |
718 If N<0, use the Nth DAYNAME before MONTH DAY. | |
719 DAY defaults to 1 if N>0, and MONTH's last day otherwise. | |
720 If the holiday is visible in the calendar window, returns a | |
721 list (((month day year) STRING)). Otherwise returns nil." | |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
722 ;; This is messy because the holiday may be visible, while the date |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
723 ;; on which it is based is not. For example, the first Monday after |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
724 ;; December 30 may be visible when January is not. For large values |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
725 ;; of |n| the problem is more grotesque. If we didn't have to worry |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
726 ;; about such cases, we could just use the original version of this |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
727 ;; function: |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
728 ;; (let ((m displayed-month) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
729 ;; (y displayed-year)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
730 ;; (calendar-increment-month m y (- 11 month)) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
731 ;; (if (> m 9); month in year y is visible |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
732 ;; (list (list (calendar-nth-named-day n dayname month y day) string))))) |
17891
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
733 (let* ((m1 displayed-month) |
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
734 (y1 displayed-year) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
735 (m2 displayed-month) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
736 (y2 displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
737 (d1 (progn ; first possible base date for holiday |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
738 (calendar-increment-month m1 y1 -1) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
739 (+ (calendar-nth-named-absday 1 dayname m1 y1) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
740 (* -7 n) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
741 (if (> n 0) 1 -7)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
742 (d2 ; last possible base date for holiday |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
743 (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
744 (calendar-increment-month m2 y2 1) |
17891
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
745 (+ (calendar-nth-named-absday -1 dayname m2 y2) |
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
746 (* -7 n) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
747 (if (> n 0) 7 -1)))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
748 (y1 (calendar-extract-year (calendar-gregorian-from-absolute d1))) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
749 (y2 (calendar-extract-year (calendar-gregorian-from-absolute d2))) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
750 (y ; year of base date |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
751 (if (or (= y1 y2) (> month 9)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
752 y1 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
753 y2)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
754 (d ; day of base date |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
755 (or day (if (> n 0) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
756 1 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
757 (calendar-last-day-of-month month y)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
758 (date ; base date for holiday |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
759 (calendar-absolute-from-gregorian (list month d y)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
760 (and (<= d1 date) (<= date d2) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
761 (list (list (calendar-nth-named-day n dayname month y d) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
762 string))))) |
406 | 763 |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
764 (defun holiday-filter-visible-calendar (hlist) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
765 "Filter list of holidays HLIST, and return only the visible ones. |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
766 HLIST is a list of elements of the form (DATE) TEXT." |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
767 (delq nil (mapcar (lambda (p) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
768 (and (car p) (calendar-date-is-visible-p (car p)) p)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
769 hlist))) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
770 |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
771 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
772 'filter-visible-calendar-holidays 'holiday-filter-visible-calendar "23.1") |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
773 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
774 (defun holiday-sexp (sexp string) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
775 "Sexp holiday for dates in the calendar window. |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
776 SEXP is an expression in variable `year' that is evaluated to |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
777 give `date'. STRING is an expression in `date' that evaluates to |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
778 the holiday description of `date'. If `date' is visible in the |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
779 calendar window, the holiday STRING is on that date. If date is |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
780 nil, or if the date is not visible, there is no holiday." |
957 | 781 (let ((m displayed-month) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
782 (y displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
783 year date) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
784 (calendar-increment-month m y -1) |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
785 (holiday-filter-visible-calendar |
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
786 (list |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
787 (progn |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
788 (setq year y |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
789 date (eval sexp)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
790 (list date (if date (eval string)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
791 (progn |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
792 (setq year (1+ y) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
793 date (eval sexp)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
794 (list date (if date (eval string)))))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
795 |
957 | 796 |
58810
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
797 (defun holiday-advent (&optional n string) |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
798 "Date of Nth day after advent (named STRING), if visible in calendar window. |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
799 Negative values of N are interpreted as days before advent. |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
800 STRING is used purely for display purposes. The return value has |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
801 the form ((MONTH DAY YEAR) STRING), where the date is that of the |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
802 Nth day before or after advent. |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
803 |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
804 For backwards compatibility, if this function is called with no |
58810
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
805 arguments, then it returns the value appropriate for advent itself." |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
806 ;; Backwards compatibility layer. |
58810
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
807 (if (not n) |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
808 (holiday-advent 0 "Advent") |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
809 (let* ((year displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
810 (month displayed-month) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
811 (advent (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
812 (calendar-increment-month month year -1) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
813 (calendar-gregorian-from-absolute |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
814 (+ n |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
815 (calendar-dayname-on-or-before |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
816 0 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
817 (calendar-absolute-from-gregorian |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
818 (list 12 3 year)))))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
819 (if (calendar-date-is-visible-p advent) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
820 (list (list advent string)))))) |
406 | 821 |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
822 (defun holiday-easter-etc (&optional n string) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
823 "Date of Nth day after Easter (named STRING), if visible in calendar window. |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
824 Negative values of N are interpreted as days before Easter. |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
825 STRING is used purely for display purposes. The return value has |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
826 the form ((MONTH DAY YEAR) STRING), where the date is that of the |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
827 Nth day before or after Easter. |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
828 |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
829 For backwards compatibility, if this function is called with no |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
830 arguments, then it returns a list of \"standard\" Easter-related |
93633
f0a60a0ac089
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93580
diff
changeset
|
831 holidays (with more entries if `calendar-christian-all-holidays-flag' |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
832 is non-nil)." |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
833 ;; Backwards compatibility layer. |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
834 (if (not n) |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
835 (apply 'append |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
836 (mapcar (lambda (e) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
837 (apply 'holiday-easter-etc e)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
838 ;; The combined list is not in order. |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
839 (append |
93633
f0a60a0ac089
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93580
diff
changeset
|
840 (if calendar-christian-all-holidays-flag |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
841 '((-63 "Septuagesima Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
842 (-56 "Sexagesima Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
843 (-49 "Shrove Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
844 (-48 "Shrove Monday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
845 (-47 "Shrove Tuesday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
846 (-14 "Passion Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
847 (-7 "Palm Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
848 (-3 "Maundy Thursday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
849 (35 "Rogation Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
850 (39 "Ascension Day") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
851 (49 "Pentecost (Whitsunday)") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
852 (50 "Whitmonday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
853 (56 "Trinity Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
854 (60 "Corpus Christi"))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
855 '((-46 "Ash Wednesday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
856 (-2 "Good Friday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
857 (0 "Easter Sunday"))))) |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
858 (let* ((century (1+ (/ displayed-year 100))) |
92649 | 859 (shifted-epact ; age of moon for April 5... |
92960
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
860 (% (+ 14 (* 11 (% displayed-year 19)) ; ...by Nicaean rule |
92649 | 861 (- ; ...corrected for the Gregorian century rule |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
862 (/ (* 3 century) 4)) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
863 (/ ; ...corrected for Metonic cycle inaccuracy |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
864 (+ 5 (* 8 century)) 25) |
92960
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
865 (* 30 century)) ; keeps value positive |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
866 30)) |
92960
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
867 (adjusted-epact ; adjust for 29.5 day month |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
868 (if (or (zerop shifted-epact) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
869 (and (= shifted-epact 1) (< 10 (% displayed-year 19)))) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
870 (1+ shifted-epact) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
871 shifted-epact)) |
92649 | 872 (paschal-moon ; day after the full moon on or after March 21 |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
873 (- (calendar-absolute-from-gregorian (list 4 19 displayed-year)) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
874 adjusted-epact)) |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
875 (abs-easter (calendar-dayname-on-or-before 0 (+ paschal-moon 7))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
876 (greg (calendar-gregorian-from-absolute (+ abs-easter n)))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
877 (if (calendar-date-is-visible-p greg) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
878 (list (list greg string)))))) |
406 | 879 |
86494
d3d37fadd367
(calendar-absolute-from-julian): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
86294
diff
changeset
|
880 ;; Prior call to calendar-julian-from-absolute will autoload cal-julian. |
93639
d4a308909857
Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents:
93633
diff
changeset
|
881 (declare-function calendar-julian-to-absolute "cal-julian" (date)) |
86494
d3d37fadd367
(calendar-absolute-from-julian): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
86294
diff
changeset
|
882 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
883 (defun holiday-greek-orthodox-easter () |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
884 "Date of Easter according to the rule of the Council of Nicaea." |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
885 (let* ((m displayed-month) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
886 (y displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
887 (julian-year (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
888 (calendar-increment-month m y 1) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
889 (calendar-extract-year |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
890 (calendar-julian-from-absolute |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
891 (calendar-absolute-from-gregorian |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
892 (list m (calendar-last-day-of-month m y) y)))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
893 (shifted-epact ; age of moon for April 5 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
894 (% (+ 14 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
895 (* 11 (% julian-year 19))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
896 30)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
897 (paschal-moon ; day after full moon on or after March 21 |
93639
d4a308909857
Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents:
93633
diff
changeset
|
898 (- (calendar-julian-to-absolute (list 4 19 julian-year)) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
899 shifted-epact)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
900 (nicaean-easter ; Sunday following the Paschal moon |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
901 (calendar-gregorian-from-absolute |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
902 (calendar-dayname-on-or-before 0 (+ paschal-moon 7))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
903 (if (calendar-date-is-visible-p nicaean-easter) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
904 (list (list nicaean-easter "Pascha (Greek Orthodox Easter)"))))) |
957 | 905 |
584 | 906 (provide 'holidays) |
907 | |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
908 ;; arch-tag: 48eb3117-75a7-4dbe-8fd9-873c3cbb0d37 |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
909 ;;; holidays.el ends here |