Mercurial > emacs
annotate lisp/calendar/holidays.el @ 94038:a66451222c6a
(Fexpand_file_name): Add declaration for `p' missing in previous change.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sat, 12 Apr 2008 09:13:14 +0000 |
parents | d76c0fd8ef0c |
children | 0cbedba0ce0d |
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, |
79703 | 4 ;; 2004, 2005, 2006, 2007, 2008 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 | |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
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 |
78216
93e11478c954
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
77279
diff
changeset
|
14 ;; the Free Software Foundation; either version 3, or (at your option) |
6736
3e1323443b1a
Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents:
5831
diff
changeset
|
15 ;; 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 |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
406 | 26 |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
27 ;;; Commentary: |
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
28 |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
29 ;; See calendar.el. |
406 | 30 |
793
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
31 ;;; Code: |
6fb68a1460a6
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
32 |
406 | 33 (require 'calendar) |
93712
59cfcdcb1474
Require loaddef file rather than loading it.
Glenn Morris <rgm@gnu.org>
parents:
93639
diff
changeset
|
34 (require 'hol-loaddefs) |
957 | 35 |
93996
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
36 (defgroup holidays nil |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
37 "Holidays support in calendar." |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
38 :group 'calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
39 :prefix "holidays-" |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
40 :group 'local) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
41 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
42 ;; 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
|
43 ;; 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
|
44 ;; explicitly load this file. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
45 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
46 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
47 (defcustom holiday-general-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
48 '((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
|
49 (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
|
50 (holiday-fixed 2 2 "Groundhog Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
51 (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
|
52 (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
|
53 (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
|
54 (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
|
55 (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
|
56 (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
|
57 (holiday-fixed 6 14 "Flag Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
58 (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
|
59 (holiday-fixed 7 4 "Independence Day") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
60 (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
|
61 (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
|
62 (holiday-fixed 10 31 "Halloween") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
63 (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
|
64 (holiday-float 11 4 4 "Thanksgiving")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
65 "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
|
66 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
|
67 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
68 :group 'holidays) |
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 (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
|
71 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
72 (define-obsolete-variable-alias 'general-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
73 'holiday-general-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
74 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
75 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
76 (defcustom holiday-oriental-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
77 '((holiday-chinese-new-year)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
78 "Oriental holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
79 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
|
80 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
81 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
82 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
83 (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
|
84 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
85 (define-obsolete-variable-alias 'oriental-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
86 'holiday-oriental-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
87 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
88 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
89 (defcustom holiday-local-holidays nil |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
90 "Local holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
91 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
|
92 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
93 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
94 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
95 (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
|
96 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
97 (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
|
98 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
99 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
100 (defcustom holiday-other-holidays nil |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
101 "User defined holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
102 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
|
103 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
104 :group 'holidays) |
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 (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
|
107 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
108 (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
|
109 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
110 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
111 (defvar hebrew-holidays-1 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
112 '((holiday-hebrew-rosh-hashanah) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
113 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
114 (holiday-julian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
115 11 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
116 (let ((m displayed-month) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
117 (y displayed-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
118 year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
119 (calendar-increment-month m y -1) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
120 (setq year (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
121 (calendar-julian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
122 (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
|
123 (if (zerop (% (1+ year) 4)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
124 22 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
125 21)) "\"Tal Umatar\" (evening)"))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
126 "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
|
127 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
128 (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
|
129 (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
|
130 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
131 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
132 (defvar hebrew-holidays-2 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
133 '((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
|
134 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
135 (holiday-hebrew |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
136 10 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
137 (let ((h-year (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
138 (calendar-hebrew-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
139 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
140 (list displayed-month 28 displayed-year)))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
141 (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
|
142 7)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
143 11 10)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
144 "Tzom Teveth")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
145 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
146 (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
|
147 "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
|
148 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
149 (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
|
150 (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
|
151 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
152 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
153 (defvar hebrew-holidays-3 |
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 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
156 11 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
157 (let* ((m displayed-month) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
158 (y displayed-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
159 (h-year (progn |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
160 (calendar-increment-month m y 1) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
161 (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
162 (calendar-hebrew-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
163 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
164 (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
|
165 (s-s |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
166 (calendar-hebrew-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
167 (if (= 6 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
168 (% (calendar-hebrew-to-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
169 (list 7 1 h-year)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
170 7)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
171 (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
172 6 (calendar-hebrew-to-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
173 (list 11 17 h-year))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
174 (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
175 6 (calendar-hebrew-to-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
176 (list 11 16 h-year)))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
177 (day (calendar-extract-day s-s))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
178 day) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
179 "Shabbat Shirah"))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
180 "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
|
181 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
182 (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
|
183 (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
|
184 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
185 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
186 (defvar hebrew-holidays-4 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
187 '((holiday-hebrew-passover) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
188 (and calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
189 (let* ((m displayed-month) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
190 (y displayed-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
191 (year (progn |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
192 (calendar-increment-month m y -1) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
193 (calendar-extract-year |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
194 (calendar-julian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
195 (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
|
196 (= 21 (% year 28))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
197 (holiday-julian 3 26 "Kiddush HaHamah")) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
198 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
199 (holiday-hebrew-tisha-b-av))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
200 "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
|
201 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
202 (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
|
203 (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
|
204 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
205 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
206 (defcustom holiday-hebrew-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
207 '((holiday-hebrew-passover) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
208 (holiday-hebrew-rosh-hashanah) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
209 (holiday-hebrew-hanukkah) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
210 (if calendar-hebrew-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
211 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
212 (holiday-hebrew-tisha-b-av) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
213 (holiday-hebrew-misc)))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
214 "Jewish holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
215 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
|
216 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
217 :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
|
218 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
219 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
220 (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
|
221 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
222 (define-obsolete-variable-alias 'hebrew-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
223 'holiday-hebrew-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
224 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
225 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
226 (defcustom holiday-christian-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
227 '((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
|
228 (holiday-fixed 12 25 "Christmas") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
229 (if calendar-christian-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
230 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
231 (holiday-fixed 1 6 "Epiphany") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
232 (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
|
233 (holiday-greek-orthodox-easter) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
234 (holiday-fixed 8 15 "Assumption") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
235 (holiday-advent 0 "Advent")))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
236 "Christian holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
237 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
|
238 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
239 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
240 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
241 (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
|
242 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
243 (define-obsolete-variable-alias 'christian-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
244 'holiday-christian-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
245 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
246 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
247 (defcustom holiday-islamic-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
248 '((holiday-islamic-new-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
249 (holiday-islamic 9 1 "Ramadan Begins") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
250 (if calendar-islamic-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
251 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
252 (holiday-islamic 1 10 "Ashura") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
253 (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
|
254 (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
|
255 (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
|
256 (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
|
257 (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
|
258 (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
|
259 "Islamic holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
260 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
|
261 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
262 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
263 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
264 (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
|
265 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
266 (define-obsolete-variable-alias 'islamic-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
267 'holiday-islamic-holidays "23.1") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
268 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
269 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
270 (defcustom holiday-bahai-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
271 '((holiday-bahai-new-year) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
272 (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
|
273 (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
|
274 (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
|
275 (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
|
276 (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
|
277 (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
|
278 (if calendar-bahai-all-holidays-flag |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
279 (append |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
280 (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
|
281 (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
|
282 "Baha'i holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
283 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
|
284 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
285 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
286 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
287 (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
|
288 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
289 (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
|
290 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
291 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
292 (defcustom holiday-solar-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
293 '((solar-equinoxes-solstices) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
294 (holiday-sexp calendar-daylight-savings-starts |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
295 (format "Daylight Saving Time Begins %s" |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
296 (solar-time-string |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
297 (/ 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
|
298 calendar-standard-time-zone-name))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
299 (holiday-sexp calendar-daylight-savings-ends |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
300 (format "Daylight Saving Time Ends %s" |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
301 (solar-time-string |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
302 (/ 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
|
303 calendar-daylight-time-zone-name)))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
304 "Sun-related holidays. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
305 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
|
306 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
307 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
308 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
309 (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
|
310 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
311 (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
|
312 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
313 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
314 (defcustom calendar-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
315 (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
|
316 holiday-other-holidays holiday-christian-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
317 holiday-hebrew-holidays holiday-islamic-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
318 holiday-bahai-holidays holiday-oriental-holidays |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
319 holiday-solar-holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
320 "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
|
321 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
322 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
|
323 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
|
324 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
|
325 `holiday-christian-holidays', `holiday-hebrew-holidays', |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
326 `holiday-islamic-holidays', `holiday-bahai-holidays', |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
327 `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
|
328 .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
|
329 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
330 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
|
331 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
|
332 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
333 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
|
334 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
|
335 `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
|
336 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
|
337 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
|
338 `calendar-holidays' directly. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
339 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
340 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
|
341 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
|
342 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
343 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
|
344 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
|
345 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
|
346 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
|
347 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
348 (holiday-fixed MONTH DAY STRING) is a fixed date on the Gregorian calendar |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
349 (holiday-float MONTH DAYNAME K STRING &optional day) is the Kth DAYNAME in |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
350 MONTH on the Gregorian calendar (0 for Sunday, |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
351 etc.); K<0 means count back from the end of the |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
352 month. An optional parameter DAY means the Kth |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
353 DAYNAME after/before MONTH DAY. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
354 (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
|
355 (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
|
356 (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
|
357 (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
|
358 (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
|
359 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
|
360 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
|
361 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
|
362 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
|
363 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
364 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
|
365 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
366 (holiday-fixed 7 14 \"Bastille Day\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
367 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
368 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
|
369 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
|
370 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
371 (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
|
372 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
373 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
|
374 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
|
375 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
376 (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
|
377 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
378 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
|
379 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
|
380 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
381 (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
|
382 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
383 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
|
384 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
|
385 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
386 (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
|
387 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
388 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
|
389 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
|
390 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
391 (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
|
392 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
393 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
|
394 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
|
395 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
|
396 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
397 (holiday-sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
398 '(if (zerop (% year 4)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
399 (calendar-gregorian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
400 (1+ (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
401 1 (+ 6 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
402 (list 11 1 year))))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
403 \"US Presidential Election\") |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
404 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
405 or |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
406 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
407 (if (zerop (% displayed-year 4)) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
408 (holiday-fixed 11 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
409 (calendar-extract-day |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
410 (calendar-gregorian-from-absolute |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
411 (1+ (calendar-dayname-on-or-before |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
412 1 (+ 6 (calendar-absolute-from-gregorian |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
413 (list 11 1 displayed-year))))))) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
414 \"US Presidential Election\")) |
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 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
|
417 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
418 (lunar-phases) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
419 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
420 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
|
421 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
|
422 with descriptive strings such as |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
423 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
424 (((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
|
425 :type 'sexp |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
426 :group 'holidays) |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
427 ;;;###autoload |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
428 (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
|
429 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
430 ;;; End of user options. |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
431 |
d76c0fd8ef0c
(holidays): Move custom groups here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
432 |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
433 ;; FIXME name that makes sense |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
434 ;;;###diary-autoload |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
435 (defun calendar-holiday-list () |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
436 "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
|
437 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
|
438 (let (res h) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
439 (sort |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
440 (dolist (p calendar-holidays res) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
441 (if (setq h (if calendar-debug-sexp |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
442 (let ((stack-trace-on-error t)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
443 (eval p)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
444 (condition-case nil |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
445 (eval p) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
446 (error (beep) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
447 (message "Bad holiday list item: %s" p) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
448 (sleep-for 2))))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
449 (setq res (append h res)))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
450 'calendar-date-compare))) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
451 |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
452 (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
|
453 (defvar displayed-year) |
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
454 |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
455 ;; FIXME name that makes sense |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
456 ;;;###cal-autoload |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
457 (defun calendar-list-holidays () |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
458 "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
|
459 The holidays are those in the list `calendar-notable-days'. |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
460 Returns non-nil if any holidays are found." |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
461 (interactive) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
462 (message "Looking up holidays...") |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
463 (let ((holiday-list (calendar-holiday-list)) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
464 (m1 displayed-month) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
465 (y1 displayed-year) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
466 (m2 displayed-month) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
467 (y2 displayed-year)) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
468 (if (not holiday-list) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
469 (message "Looking up holidays...none found") |
93024
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
470 (calendar-in-read-only-buffer holiday-buffer |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
471 (calendar-increment-month m1 y1 -1) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
472 (calendar-increment-month m2 y2 1) |
93024
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
473 (calendar-set-mode-line |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
474 (if (= y1 y2) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
475 (format "Notable Dates from %s to %s, %d%%-" |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
476 (calendar-month-name m1) (calendar-month-name m2) y2) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
477 (format "Notable Dates from %s, %d to %s, %d%%-" |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
478 (calendar-month-name m1) y1 (calendar-month-name m2) y2))) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
479 (insert |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
480 (mapconcat |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
481 (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
|
482 ": " (cadr x))) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
483 holiday-list "\n"))) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
484 (message "Looking up holidays...done")) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
485 holiday-list)) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
486 |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
487 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
488 '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
|
489 |
37631
00c265302412
(holidays): Add an autoload cookie. From Pavel Jank <Pavel@Janik.cz>.
Eli Zaretskii <eliz@gnu.org>
parents:
37001
diff
changeset
|
490 ;;;###autoload |
957 | 491 (defun holidays (&optional arg) |
406 | 492 "Display the holidays for last month, this month, and next month. |
92650 | 493 If called with an optional prefix argument ARG, prompts for month and year. |
406 | 494 This function is suitable for execution in a .emacs file." |
957 | 495 (interactive "P") |
406 | 496 (save-excursion |
957 | 497 (let* ((completion-ignore-case t) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
498 (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
|
499 (calendar-current-date))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
500 (displayed-month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
501 (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
|
502 (calendar-list-holidays)))) |
406 | 503 |
84576
1b5ca22699c0
(holiday-list): Rename it back to `list-holidays', but leave
Glenn Morris <rgm@gnu.org>
parents:
84556
diff
changeset
|
504 ;; 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
|
505 ;; 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
|
506 ;;;###autoload |
93238
a2947a0dab56
(list-holidays): Make Y2 optional.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93228
diff
changeset
|
507 (defun list-holidays (y1 &optional y2 l label) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
508 "Display holidays for years Y1 to Y2 (inclusive). |
93282 | 509 Y2 defaults to Y1. The optional list of holidays L defaults to |
510 `calendar-holidays'. If you want to control what holidays are | |
511 displayed, use a different list. For example, | |
69373 | 512 |
513 (list-holidays 2006 2006 | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
514 (append holiday-general-holidays holiday-local-holidays)) |
69373 | 515 |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
516 will display holidays for the year 2006 defined in the two |
69373 | 517 mentioned lists, and nothing else. |
518 | |
69352 | 519 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
|
520 holidays, based on the variables `holiday-solar-holidays' etc. See the |
69352 | 521 documentation of `calendar-holidays' for a list of the variables |
522 that control the choices, as well as a description of the format | |
523 of a holiday list. | |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
524 |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
525 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
|
526 (interactive |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
527 (let* ((start-year (calendar-read |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
528 "Starting year of holidays (>0): " |
92596 | 529 (lambda (x) (> x 0)) |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
530 (number-to-string (calendar-extract-year |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
531 (calendar-current-date))))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
532 (end-year (calendar-read |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
533 (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
|
534 start-year) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
535 (lambda (x) (>= x start-year)) |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
536 (number-to-string start-year))) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
537 (completion-ignore-case t) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
538 (lists |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
539 (list |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
540 (cons "All" calendar-holidays) |
93228
3f12945a840c
(list-holidays): Assume atan always bound.
Glenn Morris <rgm@gnu.org>
parents:
93024
diff
changeset
|
541 (cons "Equinoxes/Solstices" |
3f12945a840c
(list-holidays): Assume atan always bound.
Glenn Morris <rgm@gnu.org>
parents:
93024
diff
changeset
|
542 (list (list 'solar-equinoxes-solstices))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
543 (if holiday-general-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
544 (cons "General" holiday-general-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
545 (if holiday-local-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
546 (cons "Local" holiday-local-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
547 (if holiday-other-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
548 (cons "Other" holiday-other-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
549 (if holiday-christian-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
550 (cons "Christian" holiday-christian-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
551 (if holiday-hebrew-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
552 (cons "Hebrew" holiday-hebrew-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
553 (if holiday-islamic-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
554 (cons "Islamic" holiday-islamic-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
555 (if holiday-bahai-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
556 (cons "Baha'i" holiday-bahai-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
557 (if holiday-oriental-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
558 (cons "Oriental" holiday-oriental-holidays)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
559 (if holiday-solar-holidays |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
560 (cons "Solar" holiday-solar-holidays)) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
561 (cons "Ask" nil))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
562 (choice (capitalize |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
563 (completing-read "List (TAB for choices): " lists nil t))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
564 (which (if (string-equal choice "Ask") |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
565 (eval (read-variable "Enter list name: ")) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
566 (cdr (assoc choice lists)))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
567 (name (if (string-equal choice "Equinoxes/Solstices") |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
568 choice |
17643
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
569 (if (member choice '("Ask" "")) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
37631
diff
changeset
|
570 "Holidays" |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
571 (format "%s Holidays" choice))))) |
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
572 (list start-year end-year which name))) |
93238
a2947a0dab56
(list-holidays): Make Y2 optional.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93228
diff
changeset
|
573 (unless y2 (setq y2 y1)) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
574 (message "Computing holidays...") |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
575 (let ((calendar-holidays (or l calendar-holidays)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
576 (title (or label "Holidays")) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
577 (s (calendar-absolute-from-gregorian (list 2 1 y1))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
578 (e (calendar-absolute-from-gregorian (list 11 1 y2))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
579 (displayed-month 2) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
580 (displayed-year y1) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
581 holiday-list) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
582 (while (<= s e) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
583 (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
|
584 (calendar-increment-month displayed-month displayed-year 3) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
585 (setq s (calendar-absolute-from-gregorian |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
586 (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
|
587 (save-excursion |
93024
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
588 (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
|
589 (calendar-set-mode-line |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
590 (if (= y1 y2) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
591 (format "%s for %s" title y1) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
592 (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
|
593 (insert |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
594 (mapconcat |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
595 (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
|
596 ": " (cadr x))) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
597 holiday-list "\n"))) |
17643
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
598 (message "Computing holidays...done")))) |
fd27882450bd
(list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents:
17388
diff
changeset
|
599 |
86294
7962d9c627d8
(holiday-list): Add autoload cookie.
Glenn Morris <rgm@gnu.org>
parents:
84606
diff
changeset
|
600 ;;;###autoload |
84576
1b5ca22699c0
(holiday-list): Rename it back to `list-holidays', but leave
Glenn Morris <rgm@gnu.org>
parents:
84556
diff
changeset
|
601 (defalias 'holiday-list 'list-holidays) |
17385
259d4c9aae0e
(list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents:
14687
diff
changeset
|
602 |
92842
aa76c7bffc0d
(hol-loaddefs): Load this rather than explicit autoloads.
Glenn Morris <rgm@gnu.org>
parents:
92650
diff
changeset
|
603 ;;;###diary-autoload |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
604 (defun calendar-check-holidays (date) |
406 | 605 "Check the list of holidays for any that occur on DATE. |
606 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
|
607 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
|
608 (let ((displayed-month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
609 (displayed-year (calendar-extract-year date)) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
610 holiday-list) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
611 (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
|
612 (if (calendar-date-equal date (car h)) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
613 (setq holiday-list (append holiday-list (cdr h))))))) |
406 | 614 |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
615 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
616 '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
|
617 |
92842
aa76c7bffc0d
(hol-loaddefs): Load this rather than explicit autoloads.
Glenn Morris <rgm@gnu.org>
parents:
92650
diff
changeset
|
618 ;;;###cal-autoload |
406 | 619 (defun calendar-cursor-holidays () |
620 "Find holidays for the date specified by the cursor in the calendar window." | |
621 (interactive) | |
622 (message "Checking holidays...") | |
5831
7a4647230b22
(calendar-cursor-holidays): Use new error arg
Richard M. Stallman <rms@gnu.org>
parents:
5696
diff
changeset
|
623 (let* ((date (calendar-cursor-to-date t)) |
406 | 624 (date-string (calendar-date-string date)) |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
625 (holiday-list (calendar-check-holidays date)) |
406 | 626 (holiday-string (mapconcat 'identity holiday-list "; ")) |
627 (msg (format "%s: %s" date-string holiday-string))) | |
628 (if (not holiday-list) | |
629 (message "No holidays known for %s" date-string) | |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
630 (if (<= (length msg) (frame-width)) |
14318
faae84d059c1
(calendar-cursor-holidays): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
631 (message "%s" msg) |
93024
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
632 (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
|
633 (calendar-set-mode-line date-string) |
efee212e0b17
(calendar-list-holidays, list-holidays, calendar-cursor-holidays):
Glenn Morris <rgm@gnu.org>
parents:
92960
diff
changeset
|
634 (insert (mapconcat 'identity holiday-list "\n"))) |
406 | 635 (message "Checking holidays...done"))))) |
636 | |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
637 ;; FIXME move to calendar? |
92842
aa76c7bffc0d
(hol-loaddefs): Load this rather than explicit autoloads.
Glenn Morris <rgm@gnu.org>
parents:
92650
diff
changeset
|
638 ;;;###cal-autoload |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
639 (defun calendar-mark-holidays () |
406 | 640 "Mark notable days in the calendar window." |
641 (interactive) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
642 (setq calendar-mark-holidays-flag t) |
406 | 643 (message "Marking holidays...") |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
644 (dolist (holiday (calendar-holiday-list)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
645 (calendar-mark-visible-date (car holiday) calendar-holiday-marker)) |
406 | 646 (message "Marking holidays...done")) |
647 | |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
648 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
649 'mark-calendar-holidays 'calendar-mark-holidays "23.1") |
406 | 650 |
651 ;; 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
|
652 ;; 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
|
653 ;; 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
|
654 ;; 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
|
655 ;; ((month day year) string) of VISIBLE dates in the calendar window. |
406 | 656 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
657 (defun holiday-fixed (month day string) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
658 "Holiday on MONTH, DAY (Gregorian) called STRING. |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
659 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
|
660 STRING)). Returns nil if it is not visible in the current calendar window." |
93438 | 661 ;; This determines whether a given month is visible in the calendar. |
662 ;; cf calendar-date-is-visible-p (which also checks the year part). | |
663 ;; The day is irrelevant since only full months are displayed. | |
664 ;; Since the calendar displays three months at a time, month N | |
665 ;; is visible if displayed-month = N-1, N, N+1. | |
666 ;; In particular, November is visible if d-m = 10, 11, 12. | |
667 ;; This is useful, because we can do a one-sided test: | |
668 ;; November is visible if d-m > 9. (Similarly, February is visible if | |
669 ;; d-m < 4.) | |
670 ;; To determine if December is visible, we can shift the calendar | |
671 ;; back a month and ask if November is visible; to determine if | |
672 ;; October is visible, we can shift it forward a month and ask if | |
673 ;; November is visible; etc. | |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
674 (let ((m displayed-month) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
675 (y displayed-year)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
676 (calendar-increment-month m y (- 11 month)) |
93438 | 677 (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
|
678 (list (list (list month day y) string))))) |
406 | 679 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
680 (defun holiday-float (month dayname n string &optional day) |
17891
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
681 "Holiday on MONTH, DAYNAME (Nth occurrence) called STRING. |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
682 If the Nth DAYNAME in MONTH is visible, the value returned is the list |
7639 | 683 \(((MONTH DAY year) STRING)). |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
684 |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
685 If N<0, count backward from the end of MONTH. |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
686 |
17891
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
687 An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY. |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
688 |
406 | 689 Returns nil if it is not visible in the current calendar window." |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
690 ;; 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
|
691 ;; 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
|
692 ;; 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
|
693 ;; 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
|
694 ;; 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
|
695 ;; function: |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
696 ;; (let ((m displayed-month) |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
697 ;; (y displayed-year)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
698 ;; (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
|
699 ;; (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
|
700 ;; (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
|
701 (let* ((m1 displayed-month) |
6eb7095ca7ab
(holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents:
17643
diff
changeset
|
702 (y1 displayed-year) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
703 (m2 displayed-month) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
704 (y2 displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
705 (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
|
706 (calendar-increment-month m1 y1 -1) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
707 (+ (calendar-nth-named-absday 1 dayname m1 y1) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
708 (* -7 n) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
709 (if (> n 0) 1 -7)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
710 (d2 ; last possible base date for holiday |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
711 (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
712 (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
|
713 (+ (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
|
714 (* -7 n) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
715 (if (> n 0) 7 -1)))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
716 (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
|
717 (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
|
718 (y ; year of base date |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
719 (if (or (= y1 y2) (> month 9)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
720 y1 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
721 y2)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
722 (d ; day of base date |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
723 (or day (if (> n 0) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
724 1 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
725 (calendar-last-day-of-month month y)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
726 (date ; base date for holiday |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
727 (calendar-absolute-from-gregorian (list month d y)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
728 (and (<= d1 date) (<= date d2) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
729 (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
|
730 string))))) |
406 | 731 |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
732 (defun holiday-filter-visible-calendar (hlist) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
733 "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
|
734 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
|
735 (delq nil (mapcar (lambda (p) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
736 (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
|
737 hlist))) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
738 |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
739 (define-obsolete-function-alias |
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
740 '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
|
741 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
742 (defun holiday-sexp (sexp string) |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
743 "Sexp holiday for dates in the calendar window. |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
744 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
|
745 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
|
746 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
|
747 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
|
748 nil, or if the date is not visible, there is no holiday." |
957 | 749 (let ((m displayed-month) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
750 (y displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
751 year date) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
752 (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
|
753 (holiday-filter-visible-calendar |
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
754 (list |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
755 (progn |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
756 (setq year y |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
757 date (eval sexp)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
758 (list date (if date (eval string)))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
759 (progn |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
760 (setq year (1+ y) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
761 date (eval sexp)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
762 (list date (if date (eval string)))))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
763 |
957 | 764 |
58810
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
765 (defun holiday-advent (&optional n string) |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
766 "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
|
767 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
|
768 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
|
769 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
|
770 Nth day before or after advent. |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
771 |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
772 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
|
773 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
|
774 ;; Backwards compatibility layer. |
58810
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
775 (if (not n) |
9fcc0f024a83
(holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
58808
diff
changeset
|
776 (holiday-advent 0 "Advent") |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
777 (let* ((year displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
778 (month displayed-month) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
779 (advent (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
780 (calendar-increment-month month year -1) |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
781 (calendar-gregorian-from-absolute |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
782 (+ n |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
783 (calendar-dayname-on-or-before |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
784 0 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
785 (calendar-absolute-from-gregorian |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
786 (list 12 3 year)))))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
787 (if (calendar-date-is-visible-p advent) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
788 (list (list advent string)))))) |
406 | 789 |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
790 (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
|
791 "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
|
792 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
|
793 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
|
794 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
|
795 Nth day before or after Easter. |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
796 |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
797 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
|
798 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
|
799 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
|
800 is non-nil)." |
58823
46becd97b4c5
Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents:
58810
diff
changeset
|
801 ;; Backwards compatibility layer. |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
802 (if (not n) |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
803 (apply 'append |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
804 (mapcar (lambda (e) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
805 (apply 'holiday-easter-etc e)) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
806 ;; The combined list is not in order. |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
807 (append |
93633
f0a60a0ac089
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93580
diff
changeset
|
808 (if calendar-christian-all-holidays-flag |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
809 '((-63 "Septuagesima Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
810 (-56 "Sexagesima Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
811 (-49 "Shrove Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
812 (-48 "Shrove Monday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
813 (-47 "Shrove Tuesday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
814 (-14 "Passion Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
815 (-7 "Palm Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
816 (-3 "Maundy Thursday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
817 (35 "Rogation Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
818 (39 "Ascension Day") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
819 (49 "Pentecost (Whitsunday)") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
820 (50 "Whitmonday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
821 (56 "Trinity Sunday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
822 (60 "Corpus Christi"))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
823 '((-46 "Ash Wednesday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
824 (-2 "Good Friday") |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
825 (0 "Easter Sunday"))))) |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
826 (let* ((century (1+ (/ displayed-year 100))) |
92649 | 827 (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
|
828 (% (+ 14 (* 11 (% displayed-year 19)) ; ...by Nicaean rule |
92649 | 829 (- ; ...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
|
830 (/ (* 3 century) 4)) |
92922
e5d9e1e9c1b4
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92842
diff
changeset
|
831 (/ ; ...corrected for Metonic cycle inaccuracy |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
832 (+ 5 (* 8 century)) 25) |
92960
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
833 (* 30 century)) ; keeps value positive |
58808
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
834 30)) |
92960
5a10f6dafd69
(displayed-month, displayed-year): Move declarations where needed.
Glenn Morris <rgm@gnu.org>
parents:
92922
diff
changeset
|
835 (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
|
836 (if (or (zerop shifted-epact) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
837 (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
|
838 (1+ shifted-epact) |
7d719c317dab
(holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents:
57197
diff
changeset
|
839 shifted-epact)) |
92649 | 840 (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
|
841 (- (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
|
842 adjusted-epact)) |
93580
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
843 (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
|
844 (greg (calendar-gregorian-from-absolute (+ abs-easter n)))) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
845 (if (calendar-date-is-visible-p greg) |
b6cea5b391eb
(calendar-holiday-list): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
93494
diff
changeset
|
846 (list (list greg string)))))) |
406 | 847 |
86494
d3d37fadd367
(calendar-absolute-from-julian): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
86294
diff
changeset
|
848 ;; 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
|
849 (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
|
850 |
3870
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
851 (defun holiday-greek-orthodox-easter () |
4acdfdf2a7c9
* holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents:
3728
diff
changeset
|
852 "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
|
853 (let* ((m displayed-month) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
854 (y displayed-year) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
855 (julian-year (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
856 (calendar-increment-month m y 1) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93712
diff
changeset
|
857 (calendar-extract-year |
93494
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
858 (calendar-julian-from-absolute |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
859 (calendar-absolute-from-gregorian |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
860 (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
|
861 (shifted-epact ; age of moon for April 5 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
862 (% (+ 14 |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
863 (* 11 (% julian-year 19))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
864 30)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
865 (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
|
866 (- (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
|
867 shifted-epact)) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
868 (nicaean-easter ; Sunday following the Paschal moon |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
869 (calendar-gregorian-from-absolute |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
870 (calendar-dayname-on-or-before 0 (+ paschal-moon 7))))) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
871 (if (calendar-date-is-visible-p nicaean-easter) |
101c1d082feb
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93438
diff
changeset
|
872 (list (list nicaean-easter "Pascha (Greek Orthodox Easter)"))))) |
957 | 873 |
584 | 874 (provide 'holidays) |
875 | |
84356
357b5ff720d4
(holiday-list, calendar-check-holidays, calendar-mark-holidays)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
876 ;; arch-tag: 48eb3117-75a7-4dbe-8fd9-873c3cbb0d37 |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
877 ;;; holidays.el ends here |