annotate lisp/calendar/holidays.el @ 100908:a9dc0e7c3f2b

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