annotate lisp/calendar/holidays.el @ 79001:014d07e8bae7

*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Oct 2007 03:22:40 +0000
parents 93e11478c954
children 974a828870fe 357b5ff720d4 f55f9811f5d7
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,
75346
7a3f13e2dd57 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 69373
diff changeset
4 ;; 2004, 2005, 2006, 2007 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
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 5831
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 5831
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
78216
93e11478c954 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 77279
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 5831
diff changeset
15 ;; any later version.
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
16
406
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
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13669
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61148
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 61148
diff changeset
25 ;; Boston, MA 02110-1301, USA.
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
27 ;;; Commentary:
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
28
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 ;; This collection of functions implements the holiday features as described
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 ;; in calendar.el.
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
20462
d179de7ad92e Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents: 17891
diff changeset
32 ;; Technical details of all the calendrical calculations can be found in
61148
7f7db25577d9 Update reference to "Calendrical Calculations" book; there's a new edition.
Paul Eggert <eggert@twinsun.com>
parents: 58823
diff changeset
33 ;; ``Calendrical Calculations: The Millennium Edition'' by Edward M. Reingold
7f7db25577d9 Update reference to "Calendrical Calculations" book; there's a new edition.
Paul Eggert <eggert@twinsun.com>
parents: 58823
diff changeset
34 ;; and Nachum Dershowitz, Cambridge University Press (2001).
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
20462
d179de7ad92e Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents: 17891
diff changeset
36 ;; An earlier version of the technical details appeared in
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 ;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold,
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990),
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
39 ;; pages 899-928. ``Calendrical Calculations, Part II: Three Historical
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
40 ;; Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. Clamen,
2945
2c1f0215fcc3 * holidays.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents: 957
diff changeset
41 ;; Software--Practice and Experience, Volume 23, Number 4 (April, 1993),
2c1f0215fcc3 * holidays.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents: 957
diff changeset
42 ;; pages 383-404.
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
43
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
44 ;; Hard copies of these two papers can be obtained by sending email to
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
45 ;; reingold@cs.uiuc.edu with the SUBJECT "send-paper-cal" (no quotes) and
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
46 ;; the message BODY containing your mailing address (snail).
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
793
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
48 ;;; Code:
6fb68a1460a6 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 778
diff changeset
49
52112
e7d0572ccca5 (displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
50 (defvar displayed-month)
e7d0572ccca5 (displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
51 (defvar displayed-year)
e7d0572ccca5 (displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
52
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 (require 'calendar)
732
a8d94735277e *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 660
diff changeset
54
13043
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
55 (autoload 'holiday-julian "cal-julian"
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
56 "Holiday on MONTH, DAY (Julian) called STRING."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
57 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
58
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
59 (autoload 'holiday-hebrew "cal-hebrew"
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
60 "Holiday on MONTH, DAY (Hebrew) called STRING."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
61 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
62
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
63 (autoload 'holiday-rosh-hashanah-etc "cal-hebrew"
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
64 "List of dates related to Rosh Hashanah, as visible in calendar window."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
65 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
66
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
67 (autoload 'holiday-hanukkah "cal-hebrew"
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
68 "List of dates related to Hanukkah, as visible in calendar window."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
69 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
70
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
71 (autoload 'holiday-passover-etc "cal-hebrew"
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
72 "List of dates related to Passover, as visible in calendar window."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
73 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
74
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
75 (autoload 'holiday-tisha-b-av-etc "cal-hebrew"
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
76 "List of dates around Tisha B'Av, as visible in calendar window."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
77 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
78
14687
0d4ff7e4d6a3 Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents: 14318
diff changeset
79 (autoload 'holiday-islamic "cal-islam"
13043
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
80 "Holiday on MONTH, DAY (Islamic) called STRING."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
81 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
82
55431
b278cb498cc8 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 52401
diff changeset
83 (autoload 'holiday-bahai "cal-bahai"
b278cb498cc8 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 52401
diff changeset
84 "Holiday on MONTH, DAY (Baha'i) called STRING."
b278cb498cc8 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 52401
diff changeset
85 t)
b278cb498cc8 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 52401
diff changeset
86
14687
0d4ff7e4d6a3 Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents: 14318
diff changeset
87 (autoload 'holiday-chinese-new-year "cal-china"
13043
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
88 "Date of Chinese New Year."
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
89 t)
2072d3ab4119 Moved stuff to other files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 9712
diff changeset
90
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
91 (autoload 'solar-equinoxes-solstices "solar"
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
92 "Date and time of equinoxes and solstices, if visible in the calendar window.
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
93 Requires floating point."
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
94 t)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
95
37631
00c265302412 (holidays): Add an autoload cookie. From Pavel Jank <Pavel@Janik.cz>.
Eli Zaretskii <eliz@gnu.org>
parents: 37001
diff changeset
96 ;;;###autoload
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
97 (defun holidays (&optional arg)
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 "Display the holidays for last month, this month, and next month.
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
99 If called with an optional prefix argument, prompts for month and year.
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
100
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 This function is suitable for execution in a .emacs file."
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
102 (interactive "P")
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 (save-excursion
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
104 (let* ((completion-ignore-case t)
9712
275845a98fa8 Use new form of calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7639
diff changeset
105 (date (if arg
275845a98fa8 Use new form of calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7639
diff changeset
106 (calendar-read-date t)
275845a98fa8 Use new form of calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7639
diff changeset
107 (calendar-current-date)))
275845a98fa8 Use new form of calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7639
diff changeset
108 (displayed-month (extract-calendar-month date))
275845a98fa8 Use new form of calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7639
diff changeset
109 (displayed-year (extract-calendar-year date)))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 (list-calendar-holidays))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111
17388
5c4602f0c45d (list-holidays): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents: 17385
diff changeset
112 ;;;###autoload
17385
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
113 (defun list-holidays (y1 y2 &optional l label)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
114 "Display holidays for years Y1 to Y2 (inclusive).
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
115
69352
61d19d23dd13 (list-holidays): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 68721
diff changeset
116 The optional list of holidays L defaults to `calendar-holidays'.
69373
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
117 If you want to control what holidays are displayed, use a
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
118 different list. For example,
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
119
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
120 (list-holidays 2006 2006
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
121 (append general-holidays local-holidays other-holidays))
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
122
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
123 will display holidays for the year 2006 defined in the 3
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
124 mentioned lists, and nothing else.
380ad63f635b (list-holidays): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 69352
diff changeset
125
69352
61d19d23dd13 (list-holidays): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 68721
diff changeset
126 When called interactively, this command offers a choice of
61d19d23dd13 (list-holidays): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 68721
diff changeset
127 holidays, based on the variables `solar-holidays' etc. See the
61d19d23dd13 (list-holidays): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 68721
diff changeset
128 documentation of `calendar-holidays' for a list of the variables
61d19d23dd13 (list-holidays): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 68721
diff changeset
129 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
130 of a holiday list.
17385
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
131
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
132 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
133 (interactive
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
134 (let* ((start-year (calendar-read
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
135 "Starting year of holidays (>0): "
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
136 '(lambda (x) (> x 0))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
137 (int-to-string (extract-calendar-year
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
138 (calendar-current-date)))))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
139 (end-year (calendar-read
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
140 (format "Ending year (inclusive) of holidays (>=%s): "
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
141 start-year)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
142 '(lambda (x) (>= x start-year))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
143 (int-to-string start-year)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
144 (completion-ignore-case t)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
145 (lists
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
146 (list
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
147 (cons "All" calendar-holidays)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
148 (if (fboundp 'atan)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
149 (cons "Equinoxes/Solstices"
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
150 (list (list 'solar-equinoxes-solstices))))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
151 (if general-holidays (cons "General" general-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
152 (if local-holidays (cons "Local" local-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
153 (if other-holidays (cons "Other" other-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
154 (if christian-holidays (cons "Christian" christian-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
155 (if hebrew-holidays (cons "Hebrew" hebrew-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
156 (if islamic-holidays (cons "Islamic" islamic-holidays))
55431
b278cb498cc8 2004-05-08 John Wiegley <johnw@newartisans.com>
John Wiegley <johnw@newartisans.com>
parents: 52401
diff changeset
157 (if bahai-holidays (cons "Baha'i" bahai-holidays))
17385
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
158 (if oriental-holidays (cons "Oriental" oriental-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
159 (if solar-holidays (cons "Solar" solar-holidays))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
160 (cons "Ask" nil)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
161 (choice (capitalize
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
162 (completing-read "List (TAB for choices): " lists nil t)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
163 (which (if (string-equal choice "Ask")
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
164 (eval (read-variable "Enter list name: "))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
165 (cdr (assoc choice lists))))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
166 (name (if (string-equal choice "Equinoxes/Solstices")
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
167 choice
17643
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
168 (if (member choice '("Ask" ""))
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 37631
diff changeset
169 "Holidays"
17385
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
170 (format "%s Holidays" choice)))))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
171 (list start-year end-year which name)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
172 (message "Computing holidays...")
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
173 (let* ((holiday-buffer "*Holidays*")
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
174 (calendar-holidays (if l l calendar-holidays))
17643
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
175 (title (or label "Holidays"))
17385
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
176 (holiday-list nil)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
177 (s (calendar-absolute-from-gregorian (list 2 1 y1)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
178 (e (calendar-absolute-from-gregorian (list 11 1 y2)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
179 (d s)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
180 (never t)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
181 (displayed-month 2)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
182 (displayed-year y1))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
183 (while (or never (<= d e))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
184 (setq holiday-list (append holiday-list (calendar-holiday-list)))
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
185 (setq never nil)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
186 (increment-calendar-month displayed-month displayed-year 3)
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
187 (setq d (calendar-absolute-from-gregorian
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
188 (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
189 (save-excursion
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
190 (set-buffer (get-buffer-create holiday-buffer))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
191 (setq buffer-read-only nil)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
192 (calendar-set-mode-line
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
193 (if (= y1 y2)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
194 (format "%s for %s" title y1)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
195 (format "%s for %s-%s" title y1 y2)))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
196 (erase-buffer)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
197 (goto-char (point-min))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
198 (insert
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
199 (mapconcat
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
200 '(lambda (x) (concat (calendar-date-string (car x))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
201 ": " (car (cdr x))))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
202 holiday-list "\n"))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
203 (goto-char (point-min))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
204 (set-buffer-modified-p nil)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
205 (setq buffer-read-only t)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
206 (display-buffer holiday-buffer)
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
207 (message "Computing holidays...done"))))
fd27882450bd (list-holidays): Fix buffer title when list is
Richard M. Stallman <rms@gnu.org>
parents: 17388
diff changeset
208
17385
259d4c9aae0e (list-holidays): New function.
Richard M. Stallman <rms@gnu.org>
parents: 14687
diff changeset
209
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 (defun check-calendar-holidays (date)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 "Check the list of holidays for any that occur on DATE.
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 The value returned is a list of strings of relevant holiday descriptions.
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 The holidays are those in the list calendar-holidays."
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 (let* ((displayed-month (extract-calendar-month date))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 (displayed-year (extract-calendar-year date))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 (h (calendar-holiday-list))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 (holiday-list))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 (while h
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219 (if (calendar-date-equal date (car (car h)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 (setq holiday-list (append holiday-list (cdr (car h)))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 (setq h (cdr h)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 holiday-list))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 (defun calendar-cursor-holidays ()
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 "Find holidays for the date specified by the cursor in the calendar window."
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 (interactive)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 (message "Checking holidays...")
5831
7a4647230b22 (calendar-cursor-holidays): Use new error arg
Richard M. Stallman <rms@gnu.org>
parents: 5696
diff changeset
228 (let* ((date (calendar-cursor-to-date t))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 (date-string (calendar-date-string date))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 (holiday-list (check-calendar-holidays date))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 (holiday-string (mapconcat 'identity holiday-list "; "))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232 (msg (format "%s: %s" date-string holiday-string)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233 (if (not holiday-list)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 (message "No holidays known for %s" date-string)
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
235 (if (<= (length msg) (frame-width))
14318
faae84d059c1 (calendar-cursor-holidays): Pass proper format string to message.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
236 (message "%s" msg)
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 (set-buffer (get-buffer-create holiday-buffer))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
238 (setq buffer-read-only nil)
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
239 (calendar-set-mode-line date-string)
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 (erase-buffer)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 (insert (mapconcat 'identity holiday-list "\n"))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 (goto-char (point-min))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 (set-buffer-modified-p nil)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 (setq buffer-read-only t)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 (display-buffer holiday-buffer)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 (message "Checking holidays...done")))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 (defun mark-calendar-holidays ()
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 "Mark notable days in the calendar window."
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 (interactive)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 (setq mark-holidays-in-calendar t)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252 (message "Marking holidays...")
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
253 (let ((holiday-list (calendar-holiday-list)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
254 (while holiday-list
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
255 (mark-visible-calendar-date
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
256 (car (car holiday-list)) calendar-holiday-marker)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 (setq holiday-list (cdr holiday-list))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 (message "Marking holidays...done"))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 (defun list-calendar-holidays ()
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 "Create a buffer containing the holidays for the current calendar window.
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 The holidays are those in the list calendar-notable-days. Returns t if any
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 holidays are found, nil if not."
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 (interactive)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 (message "Looking up holidays...")
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 (let ((holiday-list (calendar-holiday-list))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 (m1 displayed-month)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 (y1 displayed-year)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 (m2 displayed-month)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 (y2 displayed-year))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 (if (not holiday-list)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 (progn
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 (message "Looking up holidays...none found")
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 nil)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 (set-buffer (get-buffer-create holiday-buffer))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 (setq buffer-read-only nil)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 (increment-calendar-month m1 y1 -1)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 (increment-calendar-month m2 y2 1)
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
279 (calendar-set-mode-line
5696
baab03aaf3b9 (list-calendar-holidays): Fix mode line.
Richard M. Stallman <rms@gnu.org>
parents: 4864
diff changeset
280 (if (= y1 y2)
baab03aaf3b9 (list-calendar-holidays): Fix mode line.
Richard M. Stallman <rms@gnu.org>
parents: 4864
diff changeset
281 (format "Notable Dates from %s to %s, %d%%-"
baab03aaf3b9 (list-calendar-holidays): Fix mode line.
Richard M. Stallman <rms@gnu.org>
parents: 4864
diff changeset
282 (calendar-month-name m1) (calendar-month-name m2) y2)
baab03aaf3b9 (list-calendar-holidays): Fix mode line.
Richard M. Stallman <rms@gnu.org>
parents: 4864
diff changeset
283 (format "Notable Dates from %s, %d to %s, %d%%-"
baab03aaf3b9 (list-calendar-holidays): Fix mode line.
Richard M. Stallman <rms@gnu.org>
parents: 4864
diff changeset
284 (calendar-month-name m1) y1 (calendar-month-name m2) y2)))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 (erase-buffer)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 (insert
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 (mapconcat
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 '(lambda (x) (concat (calendar-date-string (car x))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 ": " (car (cdr x))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 holiday-list "\n"))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 (goto-char (point-min))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 (set-buffer-modified-p nil)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 (setq buffer-read-only t)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 (display-buffer holiday-buffer)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 (message "Looking up holidays...done")
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 t)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 (defun calendar-holiday-list ()
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 "Form the list of holidays that occur on dates in the calendar window.
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 The holidays are those in the list calendar-holidays."
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
301 (let ((p calendar-holidays)
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 (holiday-list))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 (while p
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
304 (let* ((holidays
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
305 (if calendar-debug-sexp
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
306 (let ((stack-trace-on-error t))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
307 (eval (car p)))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
308 (condition-case nil
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
309 (eval (car p))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
310 (error (beep)
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
311 (message "Bad holiday list item: %s" (car p))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
312 (sleep-for 2))))))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 (if holidays
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 (setq holiday-list (append holidays holiday-list))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 (setq p (cdr p)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 (setq holiday-list (sort holiday-list 'calendar-date-compare))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 ;; 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
319 ;; 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
320 ;; 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
321 ;; 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
322 ;; ((month day year) string) of VISIBLE dates in the calendar window.
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
324 (defun holiday-fixed (month day string)
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
325 "Holiday on MONTH, DAY (Gregorian) called STRING.
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
326 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
327 STRING)). Returns nil if it is not visible in the current calendar window."
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
328 (let ((m displayed-month)
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
329 (y displayed-year))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (increment-calendar-month m y (- 11 month))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 (if (> m 9)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 (list (list (list month day y) string)))))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
334 (defun holiday-float (month dayname n string &optional day)
17891
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
335 "Holiday on MONTH, DAYNAME (Nth occurrence) called STRING.
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
336 If the Nth DAYNAME in MONTH is visible, the value returned is the list
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
337 \(((MONTH DAY year) STRING)).
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
338
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
339 If N<0, count backward from the end of MONTH.
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
340
17891
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
341 An optional parameter DAY means the Nth DAYNAME on or after/before MONTH DAY.
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
342
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 Returns nil if it is not visible in the current calendar window."
17891
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
344 ;; This is messy because the holiday may be visible, while the date on which
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
345 ;; it is based is not. For example, the first Monday after December 30 may be
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
346 ;; visible when January is not. For large values of |n| the problem is more
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
347 ;; grotesque. If we didn't have to worry about such cases, we could just use
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
348
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
349 ;; (let ((m displayed-month)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
350 ;; (y displayed-year))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
351 ;; (increment-calendar-month m y (- 11 month))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
352 ;; (if (> m 9); month in year y is visible
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
353 ;; (list (list (calendar-nth-named-day n dayname month y day) string)))))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
354
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
355 ;; which is the way the function was originally written.
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
356
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
357 (let* ((m1 displayed-month)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
358 (y1 displayed-year)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
359 (m2 m1)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
360 (y2 y1))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
361 (increment-calendar-month m1 y1 -1)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
362 (increment-calendar-month m2 y2 1)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
363 (let* ((d1; first possible base date for holiday
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
364 (+ (calendar-nth-named-absday 1 dayname m1 y1)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
365 (* -7 n)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
366 (if (> n 0) 1 -7)))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
367 (d2; last possible base date for holiday
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
368 (+ (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
369 (* -7 n)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
370 (if (> n 0) 7 -1)))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
371 (y1 (extract-calendar-year (calendar-gregorian-from-absolute d1)))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
372 (y2 (extract-calendar-year (calendar-gregorian-from-absolute d2)))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
373 (y; year of base date
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
374 (if (or (= y1 y2) (> month 9))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
375 y1
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
376 y2))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
377 (d; day of base date
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
378 (or day (if (> n 0)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
379 1
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
380 (calendar-last-day-of-month month y))))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
381 (date; base date for holiday
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
382 (calendar-absolute-from-gregorian (list month d y))))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
383 (if (and (<= d1 date) (<= date d2))
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
384 (list (list (calendar-nth-named-day n dayname month y d)
6eb7095ca7ab (holiday-float): Rewritten to fix bug when base date
Richard M. Stallman <rms@gnu.org>
parents: 17643
diff changeset
385 string))))))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
387 (defun holiday-sexp (sexp string)
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
388 "Sexp holiday for dates in the calendar window.
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
389 SEXP is an expression in variable `year' evaluates to `date'.
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
391 STRING is an expression in `date' that evaluates to the holiday description
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
392 of `date'.
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
393
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
394 If `date' is visible in the calendar window, the holiday STRING is on that
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
395 date. If date is 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
396 (let ((m displayed-month)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
397 (y displayed-year))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
398 (increment-calendar-month m y -1)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
399 (filter-visible-calendar-holidays
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
400 (append
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
401 (let* ((year y)
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
402 (date (eval sexp))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
403 (string (if date (eval string))))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
404 (list (list date string)))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
405 (let* ((year (1+ y))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
406 (date (eval sexp))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
407 (string (if date (eval string))))
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
408 (list (list date string)))))))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
409
58810
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
410 (defun holiday-advent (&optional n string)
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
411 "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
412 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
413 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
414 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
415 Nth day before or after advent.
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
416
58823
46becd97b4c5 Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents: 58810
diff changeset
417 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
418 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
419 ;; Backwards compatibility layer.
58810
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
420 (if (not n)
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
421 (holiday-advent 0 "Advent")
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
422 (let ((year displayed-year)
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
423 (month displayed-month))
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
424 (increment-calendar-month month year -1)
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
425 (let ((advent (calendar-gregorian-from-absolute
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
426 (+ n
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
427 (calendar-dayname-on-or-before
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
428 0
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
429 (calendar-absolute-from-gregorian
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
430 (list 12 3 year)))))))
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
431 (if (calendar-date-is-visible-p advent)
9fcc0f024a83 (holiday-advent): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 58808
diff changeset
432 (list (list advent string)))))))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433
58808
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
434 (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
435 "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
436 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
437 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
438 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
439 Nth day before or after Easter.
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
440
58823
46becd97b4c5 Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents: 58810
diff changeset
441 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
442 arguments, then it returns a list of \"standard\" Easter-related
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
443 holidays (with more entries if `all-christian-calendar-holidays'
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
444 is non-nil)."
58823
46becd97b4c5 Fix spelling mistake in previous changes.
Glenn Morris <rgm@gnu.org>
parents: 58810
diff changeset
445 ;; Backwards compatibility layer.
58808
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
446 (if (not n)
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
447 (let (res-list res)
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
448 (dolist (elem (append
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
449 (if all-christian-calendar-holidays
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
450 '((-63 . "Septuagesima Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
451 (-56 . "Sexagesima Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
452 (-49 . "Shrove Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
453 (-48 . "Shrove Monday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
454 (-47 . "Shrove Tuesday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
455 (-14 . "Passion Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
456 (-7 . "Palm Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
457 (-3 . "Maundy Thursday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
458 (35 . "Rogation Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
459 (39 . "Ascension Day")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
460 (49 . "Pentecost (Whitsunday)")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
461 (50 . "Whitmonday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
462 (56 . "Trinity Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
463 (60 . "Corpus Christi")))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
464 '((0 . "Easter Sunday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
465 (-2 . "Good Friday")
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
466 (-46 . "Ash Wednesday")))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
467 res-list)
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
468 ;; Filter out nil (not visible) values.
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
469 (if (setq res (holiday-easter-etc (car elem) (cdr elem)))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
470 (setq res-list (append res res-list)))))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
471 (let* ((century (1+ (/ displayed-year 100)))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
472 (shifted-epact ;; Age of moon for April 5...
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
473 (% (+ 14 (* 11 (% displayed-year 19)) ;; ...by Nicaean rule
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
474 (- ;; ...corrected for the Gregorian century rule
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
475 (/ (* 3 century) 4))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
476 (/ ;; ...corrected for Metonic cycle inaccuracy.
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
477 (+ 5 (* 8 century)) 25)
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
478 (* 30 century)) ;; Keeps value positive.
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
479 30))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
480 (adjusted-epact ;; Adjust for 29.5 day month.
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
481 (if (or (zerop shifted-epact)
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
482 (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
483 (1+ shifted-epact)
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
484 shifted-epact))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
485 (paschal-moon ;; Day after the full moon on or after March 21.
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
486 (- (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
487 adjusted-epact))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
488 (abs-easter (calendar-dayname-on-or-before 0 (+ paschal-moon 7))))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
489 (filter-visible-calendar-holidays
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
490 (list (list (calendar-gregorian-from-absolute (+ abs-easter n))
7d719c317dab (holiday-easter-etc): Make arguments optional for backwards
Glenn Morris <rgm@gnu.org>
parents: 57197
diff changeset
491 string))))))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492
3870
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
493 (defun holiday-greek-orthodox-easter ()
4acdfdf2a7c9 * holidays.el (calendar-holiday-function-fixed,
Jim Blandy <jimb@redhat.com>
parents: 3728
diff changeset
494 "Date of Easter according to the rule of the Council of Nicaea."
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
495 (let ((m displayed-month)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
496 (y displayed-year))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
497 (increment-calendar-month m y 1)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
498 (let* ((julian-year
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
499 (extract-calendar-year
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
500 (calendar-julian-from-absolute
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
501 (calendar-absolute-from-gregorian
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
502 (list m (calendar-last-day-of-month m y) y)))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
503 (shifted-epact ;; Age of moon for April 5.
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
504 (% (+ 14
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
505 (* 11 (% julian-year 19)))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
506 30))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
507 (paschal-moon ;; Day after full moon on or after March 21.
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
508 (- (calendar-absolute-from-julian (list 4 19 julian-year))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
509 shifted-epact))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
510 (nicaean-easter;; Sunday following the Paschal moon
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
511 (calendar-gregorian-from-absolute
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
512 (calendar-dayname-on-or-before 0 (+ paschal-moon 7)))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
513 (if (calendar-date-is-visible-p nicaean-easter)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
514 (list (list nicaean-easter "Pascha (Greek Orthodox Easter)"))))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
515
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 (defun filter-visible-calendar-holidays (l)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 "Return a list of all visible holidays of those on L."
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 (let ((visible)
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 (p l))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 (while p
2945
2c1f0215fcc3 * holidays.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents: 957
diff changeset
521 (and (car (car p))
2c1f0215fcc3 * holidays.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents: 957
diff changeset
522 (calendar-date-is-visible-p (car (car p)))
2c1f0215fcc3 * holidays.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents: 957
diff changeset
523 (setq visible (append (list (car p)) visible)))
406
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 (setq p (cdr p)))
bd0533ed9b5a Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 visible))
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 406
diff changeset
526
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 406
diff changeset
527 (provide 'holidays)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 406
diff changeset
528
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52112
diff changeset
529 ;;; arch-tag: 48eb3117-75a7-4dbe-8fd9-873c3cbb0d37
660
08eb386dd0f3 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
530 ;;; holidays.el ends here