Mercurial > emacs
annotate lisp/calendar/calendar.el @ 36906:6098465deff0
See ChangeLog
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Tue, 20 Mar 2001 20:26:13 +0000 |
parents | a1bf8f8663bd |
children | 69ed032fdcce |
rev | line source |
---|---|
14169 | 1 ;;; calendar.el --- Calendar functions. |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
2 |
31671 | 3 ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1997, 2000 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
811
diff
changeset
|
5 |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
6 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2211
diff
changeset
|
7 ;; Keywords: calendar |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
8 ;; Human-Keywords: calendar, Gregorian calendar, diary, holidays |
957 | 9 |
628 | 10 ;; This file is part of GNU Emacs. |
11 | |
6737 | 12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
628 | 17 ;; GNU Emacs is distributed in the hope that it will be useful, |
6737 | 18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
628 | 26 |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
27 ;;; Commentary: |
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
28 |
36906 | 29 ;; This collection of functions implements a calendar window. It |
30 ;; generates a calendar for the current month, together with the | |
31 ;; previous and coming months, or for any other three-month period. | |
32 ;; The calendar can be scrolled forward and backward in the window to | |
33 ;; show months in the past or future; the cursor can move forward and | |
34 ;; backward by days, weeks, or months, making it possible, for | |
35 ;; instance, to jump to the date a specified number of days, weeks, or | |
36 ;; months from the date under the cursor. The user can display a list | |
37 ;; of holidays and other notable days for the period shown; the | |
38 ;; notable days can be marked on the calendar, if desired. The user | |
39 ;; can also specify that dates having corresponding diary entries (in | |
40 ;; a file that the user specifies) be marked; the diary entries for | |
41 ;; any date can be viewed in a separate window. The diary and the | |
42 ;; notable days can be viewed independently of the calendar. Dates | |
43 ;; can be translated from the (usual) Gregorian calendar to the day of | |
44 ;; the year/days remaining in year, to the ISO commercial calendar, to | |
45 ;; the Julian (old style) calendar, to the Hebrew calendar, to the | |
46 ;; Islamic calendar, to the Baha'i calendar, to the French | |
47 ;; Revolutionary calendar, to the Mayan calendar, to the Chinese | |
48 ;; calendar, to the Coptic calendar, to the Ethiopic calendar, and to | |
49 ;; the astronomical (Julian) day number. When floating point is | |
50 ;; available, times of sunrise/sunset can be displayed, as can the | |
51 ;; phases of the moon. Appointment notification for diary entries is | |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
52 ;; available. Calendar printing via LaTeX is available. |
957 | 53 |
54 ;; The following files are part of the calendar/diary code: | |
55 | |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
56 ;; appt.el Appointment notification |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
57 ;; cal-china.el Chinese calendar |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
58 ;; cal-coptic.el Coptic/Ethiopic calendars |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
59 ;; cal-dst.el Daylight savings time rules |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
60 ;; cal-hebrew.el Hebrew calendar |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
61 ;; cal-islam.el Islamic calendar |
36906 | 62 ;; cal-bahai.el Baha'i calendar |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
63 ;; cal-iso.el ISO calendar |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
64 ;; cal-julian.el Julian/astronomical calendars |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
65 ;; cal-mayan.el Mayan calendars |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
66 ;; cal-menu.el Menu support |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
67 ;; cal-move.el Movement in the calendar |
15258
ab5975df6164
Change autoload references from cal-persian to cal-persia.
Karl Heuer <kwzh@gnu.org>
parents:
14937
diff
changeset
|
68 ;; cal-persia.el Persian calendar |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
69 ;; cal-tex.el Calendars in LaTeX |
10089
37edcffcf005
Mention cal-x.el in comments.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9998
diff
changeset
|
70 ;; cal-x.el X-windows dedicated frame functions |
15317 | 71 ;; diary-lib.el Diary functions |
957 | 72 ;; holidays.el Holiday functions |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
73 ;; lunar.el Phases of the moon |
957 | 74 ;; solar.el Sunrise/sunset, equinoxes/solstices |
628 | 75 |
20462
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
76 ;; Technical details of all the calendrical calculations can be found in |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
77 ;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold, |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
78 ;; Cambridge University Press (1997). |
628 | 79 |
20462
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
80 ;; An earlier version of the technical details appeared in |
628 | 81 ;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold, |
82 ;; Software--Practice and Experience, Volume 20, Number 9 (September, 1990), | |
957 | 83 ;; pages 899-928. ``Calendrical Calculations, Part II: Three Historical |
84 ;; Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. Clamen, | |
2640
fc7b8160bcc9
* calendar.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents:
2347
diff
changeset
|
85 ;; Software--Practice and Experience, Volume 23, Number 4 (April, 1993), |
fc7b8160bcc9
* calendar.el: Update reference to the papers in S-P&E.
Jim Blandy <jimb@redhat.com>
parents:
2347
diff
changeset
|
86 ;; pages 383-404. |
957 | 87 |
88 ;; Hard copies of these two papers can be obtained by sending email to | |
89 ;; reingold@cs.uiuc.edu with the SUBJECT "send-paper-cal" (no quotes) and | |
90 ;; the message BODY containing your mailing address (snail). | |
628 | 91 |
20462
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
92 ;; Comments, corrections, and improvements should be sent to |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
93 ;; Edward M. Reingold Department of Computer Science |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
94 ;; (217) 333-6733 University of Illinois at Urbana-Champaign |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
95 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
96 ;; Urbana, Illinois 61801 |
d179de7ad92e
Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents:
20429
diff
changeset
|
97 |
811
e694e0879463
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
732
diff
changeset
|
98 ;;; Code: |
628 | 99 |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
100 (eval-when-compile |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
101 (defvar displayed-month) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
102 (defvar displayed-year) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
103 (defvar calendar-month-name-array) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
104 (defvar calendar-starred-day)) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
105 |
6737 | 106 (defun calendar-version () |
107 (interactive) | |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
108 (message "Version 6, October 12, 1995")) |
6737 | 109 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
110 (defgroup calendar nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
111 "Calendar and time management support." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
112 :group 'applications) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
113 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
114 (defgroup diary nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
115 "Emacs diary." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
116 :group 'calendar) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
117 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
118 (defgroup appt nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
119 "Appointment notification." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
120 :group 'calendar) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
121 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
122 (defgroup holidays nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
123 "Holidays support in calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
124 :group 'calendar |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
125 :prefix "calendar-" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
126 :group 'local) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
127 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
128 (defgroup chinese-calendar nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
129 "Chinese calendar support." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
130 :group 'calendar) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
131 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
132 (defgroup calendar-tex nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
133 "Options for printing calendar with LaTeX." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
134 :prefix "cal-tex-" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
135 :group 'calendar) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
136 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
137 (defgroup calendar-hooks nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
138 "Calendar hooks." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
139 :prefix "calendar-" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
140 :group 'calendar) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
141 |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
142 |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
143 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
144 (defcustom calendar-week-start-day 0 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
145 "*The day of the week on which a week in the calendar begins. |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
146 0 means Sunday (default), 1 means Monday, and so on." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
147 :type 'integer |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
148 :group 'calendar) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
149 |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
150 ;;;###autoload |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
151 (defcustom calendar-offset 0 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
152 "*The offset of the principal month from the center of the calendar window. |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
153 0 means the principal month is in the center (default), -1 means on the left, |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
154 +1 means on the right. Larger (or smaller) values push the principal month off |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
155 the screen." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
156 :type 'integer |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
157 :group 'calendar) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
158 |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
159 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
160 (defcustom view-diary-entries-initially nil |
6737 | 161 "*Non-nil means display current date's diary entries on entry. |
628 | 162 The diary is displayed in another window when the calendar is first displayed, |
163 if the current date is visible. The number of days of diary entries displayed | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
164 is governed by the variable `number-of-diary-entries'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
165 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
166 :group 'diary) |
628 | 167 |
957 | 168 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
169 (defcustom number-of-diary-entries 1 |
628 | 170 "*Specifies how many days of diary entries are to be displayed initially. |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
171 This variable affects the diary display when the command \\[diary] is used, |
628 | 172 or if the value of the variable `view-diary-entries-initially' is t. For |
173 example, if the default value 1 is used, then only the current day's diary | |
174 entries will be displayed. If the value 2 is used, then both the current | |
6737 | 175 day's and the next day's entries will be displayed. |
176 | |
177 The value can also be a vector such as [0 2 2 2 2 4 1]; this value | |
178 says to display no diary entries on Sunday, the display the entries | |
179 for the current date and the day after on Monday through Thursday, | |
180 display Friday through Monday's entries on Friday, and display only | |
181 Saturday's entries on Saturday. | |
182 | |
183 This variable does not affect the diary display with the `d' command | |
184 from the calendar; in that case, the prefix argument controls the | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
185 number of days of diary entries displayed." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
186 :type '(choice (integer :tag "Entries") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
187 (vector :value [0 0 0 0 0 0 0] |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
188 (integer :tag "Sunday") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
189 (integer :tag "Monday") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
190 (integer :tag "Tuesday") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
191 (integer :tag "Wednesday") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
192 (integer :tag "Thursday") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
193 (integer :tag "Friday") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
194 (integer :tag "Saturday"))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
195 :group 'diary) |
628 | 196 |
957 | 197 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
198 (defcustom mark-diary-entries-in-calendar nil |
6737 | 199 "*Non-nil means mark dates with diary entries, in the calendar window. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
200 The marking symbol is specified by the variable `diary-entry-marker'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
201 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
202 :group 'diary) |
628 | 203 |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
204 ;;;###autoload |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
205 (defcustom calendar-remove-frame-by-deleting nil |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
206 "*Determine how the calendar mode removes a frame no longer needed. |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
207 If nil, make an icon of the frame. If non-nil, delete the frame." |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
208 :type 'boolean |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
209 :group 'view) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
210 |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
211 (add-to-list 'facemenu-unlisted-faces 'diary-face) |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
212 (defface diary-face |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
213 '((((class color) (background light)) |
33208 | 214 :foreground "red") |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
215 (((class color) (background dark)) |
33208 | 216 :foreground "yellow") |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
217 (t |
33208 | 218 :bold t)) |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
219 "Face for highlighting diary entries." |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
220 :group 'diary) |
19059
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
221 |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
222 (add-to-list 'facemenu-unlisted-faces 'calendar-today-face) |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
223 (defface calendar-today-face |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
224 '((t (:underline t))) |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
225 "Face for indicating today's date." |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
226 :group 'diary) |
19059
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
227 |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
228 (add-to-list 'facemenu-unlisted-faces 'holiday-face) |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
229 (defface holiday-face |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
230 '((((class color) (background light)) |
33208 | 231 :background "pink") |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
232 (((class color) (background dark)) |
33208 | 233 :background "chocolate4") |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
234 (t |
33208 | 235 :inverse-video t)) |
33160
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
236 "Face for indicating dates that have holidays." |
8006eaf2db42
(diary-face, calendar-today-face, holiday-face):
Miles Bader <miles@gnu.org>
parents:
33114
diff
changeset
|
237 :group 'diary) |
19059
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
238 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
239 (defcustom diary-entry-marker |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
240 (if (not window-system) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
241 "+" |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
242 'diary-face) |
19059
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
243 "*How to mark dates that have diary entries. |
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
244 The value can be either a single-character string or a face." |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
245 :type '(choice string face) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
246 :group 'diary) |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
247 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
248 (defcustom calendar-today-marker |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
249 (if (not window-system) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
250 "=" |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
251 'calendar-today-face) |
19059
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
252 "*How to mark today's date in the calendar. |
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
253 The value can be either a single-character string or a face. |
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
254 Marking today's date is done only if you set up `today-visible-calendar-hook' |
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
255 to request that." |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
256 :type '(choice string face) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
257 :group 'calendar) |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
258 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
259 (defcustom calendar-holiday-marker |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
260 (if (not window-system) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
261 "*" |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
262 'holiday-face) |
19059
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
263 "*How to mark notable dates in the calendar. |
06cb7a02a079
(diary-face, calendar-today-face, holiday-face):
Richard M. Stallman <rms@gnu.org>
parents:
18940
diff
changeset
|
264 The value can be either a single-character string or a face." |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
265 :type '(choice string face) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
266 :group 'calendar) |
628 | 267 |
957 | 268 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
269 (defcustom view-calendar-holidays-initially nil |
6737 | 270 "*Non-nil means display holidays for current three month period on entry. |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
271 The holidays are displayed in another window when the calendar is first |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
272 displayed." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
273 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
274 :group 'holidays) |
628 | 275 |
732 | 276 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
277 (defcustom mark-holidays-in-calendar nil |
6737 | 278 "*Non-nil means mark dates of holidays in the calendar window. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
279 The marking symbol is specified by the variable `calendar-holiday-marker'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
280 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
281 :group 'holidays) |
628 | 282 |
957 | 283 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
284 (defcustom all-hebrew-calendar-holidays nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
285 "*If nil, show only major holidays from the Hebrew calendar. |
6737 | 286 This means only those Jewish holidays that appear on secular calendars. |
287 | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
288 If t, show all the holidays that would appear in a complete Hebrew calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
289 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
290 :group 'holidays) |
628 | 291 |
732 | 292 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
293 (defcustom all-christian-calendar-holidays nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
294 "*If nil, show only major holidays from the Christian calendar. |
6737 | 295 This means only those Christian holidays that appear on secular calendars. |
296 | |
297 If t, show all the holidays that would appear in a complete Christian | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
298 calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
299 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
300 :group 'holidays) |
628 | 301 |
732 | 302 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
303 (defcustom all-islamic-calendar-holidays nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
304 "*If nil, show only major holidays from the Islamic calendar. |
6737 | 305 This means only those Islamic holidays that appear on secular calendars. |
306 | |
307 If t, show all the holidays that would appear in a complete Islamic | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
308 calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
309 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
310 :group 'holidays) |
628 | 311 |
957 | 312 ;;;###autoload |
36906 | 313 (defcustom all-bahai-calendar-holidays nil |
314 "*If nil, show only major holidays from the Baha'i calendar. | |
315 These are the days on which work and school must be suspended. | |
316 | |
317 If t, show all the holidays that would appear in a complete Baha'i | |
318 calendar." | |
319 :type 'boolean | |
320 :group 'holidays) | |
321 | |
322 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
323 (defcustom calendar-load-hook nil |
957 | 324 "*List of functions to be called after the calendar is first loaded. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
325 This is the place to add key bindings to `calendar-mode-map'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
326 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
327 :group 'calendar-hooks) |
957 | 328 |
329 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
330 (defcustom initial-calendar-window-hook nil |
628 | 331 "*List of functions to be called when the calendar window is first opened. |
332 The functions invoked are called after the calendar window is opened, but | |
333 once opened is never called again. Leaving the calendar with the `q' command | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
334 and reentering it will cause these functions to be called again." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
335 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
336 :group 'calendar-hooks) |
628 | 337 |
957 | 338 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
339 (defcustom today-visible-calendar-hook nil |
628 | 340 "*List of functions called whenever the current date is visible. |
341 This can be used, for example, to replace today's date with asterisks; a | |
342 function `calendar-star-date' is included for this purpose: | |
343 (setq today-visible-calendar-hook 'calendar-star-date) | |
7404 | 344 It can also be used to mark the current date with `calendar-today-marker'; |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
345 a function is also provided for this: |
628 | 346 (setq today-visible-calendar-hook 'calendar-mark-today) |
347 | |
348 The corresponding variable `today-invisible-calendar-hook' is the list of | |
349 functions called when the calendar function was called when the current | |
350 date is not visible in the window. | |
351 | |
352 Other than the use of the provided functions, the changing of any | |
353 characters in the calendar buffer by the hooks may cause the failure of the | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
354 functions that move by days and weeks." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
355 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
356 :group 'calendar-hooks) |
628 | 357 |
957 | 358 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
359 (defcustom today-invisible-calendar-hook nil |
628 | 360 "*List of functions called whenever the current date is not visible. |
361 | |
362 The corresponding variable `today-visible-calendar-hook' is the list of | |
363 functions called when the calendar function was called when the current | |
364 date is visible in the window. | |
365 | |
366 Other than the use of the provided functions, the changing of any | |
367 characters in the calendar buffer by the hooks may cause the failure of the | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
368 functions that move by days and weeks." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
369 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
370 :group 'calendar-hooks) |
628 | 371 |
957 | 372 ;;;###autoload |
25410
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
373 (defcustom calendar-move-hook nil |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
374 "*List of functions called whenever the cursor moves in the calendar. |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
375 |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
376 For example, |
25410
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
377 |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
378 (add-hook 'calendar-move-hook (lambda () (view-diary-entries 1))) |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
379 |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
380 redisplays the diary for whatever date the cursor is moved to." |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
381 :type 'hook |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
382 :group 'calendar-hooks) |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
383 |
3ab4413f7549
(calendar-move-hook): New hook.
Richard M. Stallman <rms@gnu.org>
parents:
25154
diff
changeset
|
384 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
385 (defcustom diary-file "~/diary" |
628 | 386 "*Name of the file in which one's personal diary of dates is kept. |
387 | |
388 The file's entries are lines in any of the forms | |
389 | |
390 MONTH/DAY | |
391 MONTH/DAY/YEAR | |
392 MONTHNAME DAY | |
393 MONTHNAME DAY, YEAR | |
394 DAYNAME | |
395 | |
396 at the beginning of the line; the remainder of the line is the diary entry | |
397 string for that date. MONTH and DAY are one or two digit numbers, YEAR is | |
398 a number and may be written in full or abbreviated to the final two digits. | |
399 If the date does not contain a year, it is generic and applies to any year. | |
400 DAYNAME entries apply to any date on which is on that day of the week. | |
401 MONTHNAME and DAYNAME can be spelled in full, abbreviated to three | |
402 characters (with or without a period), capitalized or not. Any of DAY, | |
403 MONTH, or MONTHNAME, YEAR can be `*' which matches any day, month, or year, | |
404 respectively. | |
405 | |
406 The European style (in which the day precedes the month) can be used | |
407 instead, if you execute `european-calendar' when in the calendar, or set | |
408 `european-calendar-style' to t in your .emacs file. The European forms are | |
409 | |
410 DAY/MONTH | |
411 DAY/MONTH/YEAR | |
412 DAY MONTHNAME | |
413 DAY MONTHNAME YEAR | |
414 DAYNAME | |
415 | |
416 To revert to the default American style from the European style, execute | |
417 `american-calendar' in the calendar. | |
418 | |
7404 | 419 A diary entry can be preceded by the character |
420 `diary-nonmarking-symbol' (ordinarily `&') to make that entry | |
421 nonmarking--that is, it will not be marked on dates in the calendar | |
422 window but will appear in a diary window. | |
628 | 423 |
424 Multiline diary entries are made by indenting lines after the first with | |
425 either a TAB or one or more spaces. | |
426 | |
427 Lines not in one the above formats are ignored. Here are some sample diary | |
428 entries (in the default American style): | |
429 | |
430 12/22/1988 Twentieth wedding anniversary!! | |
431 &1/1. Happy New Year! | |
432 10/22 Ruth's birthday. | |
433 21: Payday | |
434 Tuesday--weekly meeting with grad students at 10am | |
435 Supowit, Shen, Bitner, and Kapoor to attend. | |
436 1/13/89 Friday the thirteenth!! | |
437 &thu 4pm squash game with Lloyd. | |
438 mar 16 Dad's birthday | |
439 April 15, 1989 Income tax due. | |
440 &* 15 time cards due. | |
441 | |
442 If the first line of a diary entry consists only of the date or day name with | |
6737 | 443 no trailing blanks or punctuation, then that line is not displayed in the |
444 diary window; only the continuation lines is shown. For example, the | |
628 | 445 single diary entry |
446 | |
447 02/11/1989 | |
448 Bill Blattner visits Princeton today | |
449 2pm Cognitive Studies Committee meeting | |
450 2:30-5:30 Lizzie at Lawrenceville for `Group Initiative' | |
451 4:00pm Jamie Tappenden | |
452 7:30pm Dinner at George and Ed's for Alan Ryan | |
453 7:30-10:00pm dance at Stewart Country Day School | |
454 | |
455 will appear in the diary window without the date line at the beginning. This | |
456 facility allows the diary window to look neater, but can cause confusion if | |
457 used with more than one day's entries displayed. | |
458 | |
459 Diary entries can be based on Lisp sexps. For example, the diary entry | |
460 | |
461 %%(diary-block 11 1 1990 11 10 1990) Vacation | |
462 | |
36906 | 463 causes the diary entry \"Vacation\" to appear from November 1 through |
464 November 10, 1990. Other functions available are `diary-float', | |
465 `diary-anniversary', `diary-cyclic', `diary-day-of-year', | |
466 `diary-iso-date', `diary-french-date', `diary-hebrew-date', | |
467 `diary-islamic-date', `diary-bahai-date', `diary-mayan-date', | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
468 `diary-chinese-date', `diary-coptic-date', `diary-ethiopic-date', |
14915
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
469 `diary-persian-date', `diary-yahrzeit', `diary-sunrise-sunset', |
36906 | 470 `diary-phases-of-moon', `diary-parasha', `diary-omer', |
471 `diary-rosh-hodesh', and `diary-sabbath-candles'. See the | |
472 documentation for the function `list-sexp-diary-entries' for more | |
473 details. | |
474 | |
475 Diary entries based on the Hebrew, the Islamic and/or the Baha'i | |
476 calendar are also possible, but because these are somewhat slow, they | |
477 are ignored unless you set the `nongregorian-diary-listing-hook' and | |
478 the `nongregorian-diary-marking-hook' appropriately. See the | |
479 documentation for these functions for details. | |
628 | 480 |
481 Diary files can contain directives to include the contents of other files; for | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
482 details, see the documentation for the variable `list-diary-entries-hook'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
483 :type 'file |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
484 :group 'diary) |
628 | 485 |
957 | 486 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
487 (defcustom diary-nonmarking-symbol "&" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
488 "*Symbol indicating that a diary entry is not to be marked in the calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
489 :type 'string |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
490 :group 'diary) |
628 | 491 |
957 | 492 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
493 (defcustom hebrew-diary-entry-symbol "H" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
494 "*Symbol indicating a diary entry according to the Hebrew calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
495 :type 'string |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
496 :group 'diary) |
628 | 497 |
957 | 498 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
499 (defcustom islamic-diary-entry-symbol "I" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
500 "*Symbol indicating a diary entry according to the Islamic calendar." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
501 :type 'string |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
502 :group 'diary) |
628 | 503 |
957 | 504 ;;;###autoload |
36906 | 505 (defcustom bahai-diary-entry-symbol "B" |
506 "*Symbol indicating a diary entry according to the Baha'i calendar." | |
507 :type 'string | |
508 :group 'diary) | |
509 | |
510 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
511 (defcustom diary-include-string "#include" |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
512 "*The string indicating inclusion of another file of diary entries. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
513 See the documentation for the function `include-other-diary-files'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
514 :type 'string |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
515 :group 'diary) |
628 | 516 |
957 | 517 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
518 (defcustom sexp-diary-entry-symbol "%%" |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
519 "*The string used to indicate a sexp diary entry in `diary-file'. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
520 See the documentation for the function `list-sexp-diary-entries'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
521 :type 'string |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
522 :group 'diary) |
628 | 523 |
957 | 524 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
525 (defcustom abbreviated-calendar-year t |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
526 "*Interpret a two-digit year DD in a diary entry as either 19DD or 20DD. |
36906 | 527 For the Gregorian calendar; similarly for the Hebrew, Islamic and |
528 Baha'i calendars. If this variable is nil, years must be written in | |
529 full." | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
530 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
531 :group 'diary) |
628 | 532 |
957 | 533 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
534 (defcustom european-calendar-style nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
535 "*Use the European style of dates in the diary and in any displays. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
536 If this variable is t, a date 1/2/1990 would be interpreted as February 1, |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
537 1990. The accepted European date styles are |
628 | 538 |
539 DAY/MONTH | |
540 DAY/MONTH/YEAR | |
541 DAY MONTHNAME | |
542 DAY MONTHNAME YEAR | |
543 DAYNAME | |
544 | |
545 Names can be capitalized or not, written in full, or abbreviated to three | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
546 characters with or without a period." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
547 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
548 :group 'diary) |
628 | 549 |
957 | 550 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
551 (defcustom american-date-diary-pattern |
628 | 552 '((month "/" day "[^/0-9]") |
553 (month "/" day "/" year "[^0-9]") | |
554 (monthname " *" day "[^,0-9]") | |
555 (monthname " *" day ", *" year "[^0-9]") | |
556 (dayname "\\W")) | |
557 "*List of pseudo-patterns describing the American patterns of date used. | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
558 See the documentation of `diary-date-forms' for an explanation." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
559 :type '(repeat (choice (cons :tag "Backup" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
560 :value (backup . nil) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
561 (const backup) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
562 (repeat (list :inline t :format "%v" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
563 (symbol :tag "Keyword") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
564 (choice symbol regexp)))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
565 (repeat (list :inline t :format "%v" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
566 (symbol :tag "Keyword") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
567 (choice symbol regexp))))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
568 :group 'diary) |
628 | 569 |
957 | 570 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
571 (defcustom european-date-diary-pattern |
628 | 572 '((day "/" month "[^/0-9]") |
573 (day "/" month "/" year "[^0-9]") | |
25154
4c873bb645d8
(european-date-diary-pattern): Fix pattern so it
Richard M. Stallman <rms@gnu.org>
parents:
24891
diff
changeset
|
574 (backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)") |
628 | 575 (day " *" monthname " *" year "[^0-9]") |
576 (dayname "\\W")) | |
577 "*List of pseudo-patterns describing the European patterns of date used. | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
578 See the documentation of `diary-date-forms' for an explanation." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
579 :type '(repeat (choice (cons :tag "Backup" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
580 :value (backup . nil) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
581 (const backup) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
582 (repeat (list :inline t :format "%v" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
583 (symbol :tag "Keyword") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
584 (choice symbol regexp)))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
585 (repeat (list :inline t :format "%v" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
586 (symbol :tag "Keyword") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
587 (choice symbol regexp))))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
588 :group 'diary) |
628 | 589 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
590 (defcustom diary-date-forms |
628 | 591 (if european-calendar-style |
592 european-date-diary-pattern | |
593 american-date-diary-pattern) | |
594 "*List of pseudo-patterns describing the forms of date used in the diary. | |
595 The patterns on the list must be MUTUALLY EXCLUSIVE and must should not match | |
596 any portion of the diary entry itself, just the date component. | |
597 | |
598 A pseudo-pattern is a list of regular expressions and the keywords `month', | |
599 `day', `year', `monthname', and `dayname'. The keyword `monthname' will | |
600 match the name of the month, capitalized or not, or its three-letter | |
601 abbreviation, followed by a period or not; it will also match `*'. | |
602 Similarly, `dayname' will match the name of the day, capitalized or not, or | |
603 its three-letter abbreviation, followed by a period or not. The keywords | |
604 `month', `day', and `year' will match those numerical values, preceded by | |
605 arbitrarily many zeros; they will also match `*'. | |
606 | |
607 The matching of the diary entries with the date forms is done with the | |
608 standard syntax table from Fundamental mode, but with the `*' changed so | |
609 that it is a word constituent. | |
610 | |
611 If, to be mutually exclusive, a pseudo-pattern must match a portion of the | |
612 diary entry itself, the first element of the pattern MUST be `backup'. This | |
957 | 613 directive causes the date recognizer to back up to the beginning of the |
614 current word of the diary entry, so in no case can the pattern match more than | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
615 a portion of the first word of the diary entry." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
616 :type '(repeat (choice (cons :tag "Backup" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
617 :value (backup . nil) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
618 (const backup) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
619 (repeat (list :inline t :format "%v" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
620 (symbol :tag "Keyword") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
621 (choice symbol regexp)))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
622 (repeat (list :inline t :format "%v" |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
623 (symbol :tag "Keyword") |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
624 (choice symbol regexp))))) |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
625 :group 'diary) |
957 | 626 |
627 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
628 (defcustom european-calendar-display-form |
957 | 629 '((if dayname (concat dayname ", ")) day " " monthname " " year) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
630 "*Pseudo-pattern governing the way a date appears in the European style. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
631 See the documentation of calendar-date-display-form for an explanation." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
632 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
633 :group 'calendar) |
628 | 634 |
957 | 635 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
636 (defcustom american-calendar-display-form |
957 | 637 '((if dayname (concat dayname ", ")) monthname " " day ", " year) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
638 "*Pseudo-pattern governing the way a date appears in the American style. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
639 See the documentation of `calendar-date-display-form' for an explanation." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
640 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
641 :group 'calendar) |
628 | 642 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
643 (defcustom calendar-date-display-form |
628 | 644 (if european-calendar-style |
645 european-calendar-display-form | |
646 american-calendar-display-form) | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
647 "*Pseudo-pattern governing the way a date appears. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
648 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
649 Used by the function `calendar-date-string', a pseudo-pattern is a list of |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
650 expressions that can involve the keywords `month', `day', and `year', all |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
651 numbers in string form, and `monthname' and `dayname', both alphabetic |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
652 strings. For example, the ISO standard would use the pseudo- pattern |
628 | 653 |
654 '(year \"-\" month \"-\" day) | |
655 | |
656 while a typical American form would be | |
657 | |
658 '(month \"/\" day \"/\" (substring year -2)) | |
659 | |
660 and | |
661 | |
662 '((format \"%9s, %9s %2s, %4s\" dayname monthname day year)) | |
663 | |
664 would give the usual American style in fixed-length fields. | |
665 | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
666 See the documentation of the function `calendar-date-string'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
667 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
668 :group 'calendar) |
628 | 669 |
670 (defun european-calendar () | |
671 "Set the interpretation and display of dates to the European style." | |
672 (interactive) | |
673 (setq european-calendar-style t) | |
674 (setq calendar-date-display-form european-calendar-display-form) | |
675 (setq diary-date-forms european-date-diary-pattern) | |
676 (update-calendar-mode-line)) | |
677 | |
678 (defun american-calendar () | |
679 "Set the interpretation and display of dates to the American style." | |
680 (interactive) | |
681 (setq european-calendar-style nil) | |
682 (setq calendar-date-display-form american-calendar-display-form) | |
683 (setq diary-date-forms american-date-diary-pattern) | |
684 (update-calendar-mode-line)) | |
685 | |
957 | 686 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
687 (defcustom print-diary-entries-hook 'lpr-buffer |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
688 "*List of functions called after a temporary diary buffer is prepared. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
689 The buffer shows only the diary entries currently visible in the diary |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
690 buffer. The default just does the printing. Other uses might include, for |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
691 example, rearranging the lines into order by day and time, saving the buffer |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
692 instead of deleting it, or changing the function used to do the printing." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
693 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
694 :group 'diary) |
628 | 695 |
732 | 696 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
697 (defcustom list-diary-entries-hook nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
698 "*List of functions called after diary file is culled for relevant entries. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
699 It is to be used for diary entries that are not found in the diary file. |
628 | 700 |
701 A function `include-other-diary-files' is provided for use as the value of | |
702 this hook. This function enables you to use shared diary files together | |
7404 | 703 with your own. The files included are specified in the diary file by lines |
628 | 704 of the form |
705 | |
706 #include \"filename\" | |
707 | |
708 This is recursive; that is, #include directives in files thus included are | |
709 obeyed. You can change the \"#include\" to some other string by changing | |
710 the variable `diary-include-string'. When you use `include-other-diary-files' | |
711 as part of the list-diary-entries-hook, you will probably also want to use the | |
7404 | 712 function `mark-included-diary-files' as part of `mark-diary-entries-hook'. |
628 | 713 |
714 For example, you could use | |
715 | |
716 (setq list-diary-entries-hook | |
957 | 717 '(include-other-diary-files sort-diary-entries)) |
628 | 718 (setq diary-display-hook 'fancy-diary-display) |
719 | |
7404 | 720 in your `.emacs' file to cause the fancy diary buffer to be displayed with |
628 | 721 diary entries from various included files, each day's entries sorted into |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
722 lexicographic order." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
723 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
724 :group 'diary) |
628 | 725 |
732 | 726 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
727 (defcustom diary-hook nil |
4453
7f41b3648380
(diary-display-hook): Change default and fix doc string.
Richard M. Stallman <rms@gnu.org>
parents:
4339
diff
changeset
|
728 "*List of functions called after the display of the diary. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
729 Can be used for appointment notification." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
730 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
731 :group 'diary) |
4453
7f41b3648380
(diary-display-hook): Change default and fix doc string.
Richard M. Stallman <rms@gnu.org>
parents:
4339
diff
changeset
|
732 |
7f41b3648380
(diary-display-hook): Change default and fix doc string.
Richard M. Stallman <rms@gnu.org>
parents:
4339
diff
changeset
|
733 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
734 (defcustom diary-display-hook nil |
628 | 735 "*List of functions that handle the display of the diary. |
6737 | 736 If nil (the default), `simple-diary-display' is used. Use `ignore' for no |
4453
7f41b3648380
(diary-display-hook): Change default and fix doc string.
Richard M. Stallman <rms@gnu.org>
parents:
4339
diff
changeset
|
737 diary display. |
628 | 738 |
739 Ordinarily, this just displays the diary buffer (with holidays indicated in | |
740 the mode line), if there are any relevant entries. At the time these | |
741 functions are called, the variable `diary-entries-list' is a list, in order | |
742 by date, of all relevant diary entries in the form of ((MONTH DAY YEAR) | |
743 STRING), where string is the diary entry for the given date. This can be | |
4453
7f41b3648380
(diary-display-hook): Change default and fix doc string.
Richard M. Stallman <rms@gnu.org>
parents:
4339
diff
changeset
|
744 used, for example, a different buffer for display (perhaps combined with |
7f41b3648380
(diary-display-hook): Change default and fix doc string.
Richard M. Stallman <rms@gnu.org>
parents:
4339
diff
changeset
|
745 holidays), or produce hard copy output. |
628 | 746 |
747 A function `fancy-diary-display' is provided as an alternative | |
748 choice for this hook; this function prepares a special noneditable diary | |
749 buffer with the relevant diary entries that has neat day-by-day arrangement | |
750 with headings. The fancy diary buffer will show the holidays unless the | |
751 variable `holidays-in-diary-buffer' is set to nil. Ordinarily, the fancy | |
752 diary buffer will not show days for which there are no diary entries, even | |
753 if that day is a holiday; if you want such days to be shown in the fancy | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
754 diary buffer, set the variable `diary-list-include-blanks' to t." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
755 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
756 :group 'diary) |
628 | 757 |
732 | 758 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
759 (defcustom nongregorian-diary-listing-hook nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
760 "*List of functions called for listing diary file and included files. |
36906 | 761 As the files are processed for diary entries, these functions are used |
762 to cull relevant entries. You can use either or both of | |
763 `list-hebrew-diary-entries', `list-islamic-diary-entries' and | |
764 `list-bahai-diary-entries'. The documentation for these functions | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
765 describes the style of such diary entries." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
766 :type 'hook |
36906 | 767 :options '(list-hebrew-diary-entries |
768 list-islamic-diary-entries | |
769 list-bahai-diary-entries) | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
770 :group 'diary) |
957 | 771 |
772 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
773 (defcustom mark-diary-entries-hook nil |
628 | 774 "*List of functions called after marking diary entries in the calendar. |
775 | |
776 A function `mark-included-diary-files' is also provided for use as the | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
777 `mark-diary-entries-hook'; it enables you to use shared diary files together |
7404 | 778 with your own. The files included are specified in the diary file by lines |
628 | 779 of the form |
780 #include \"filename\" | |
781 This is recursive; that is, #include directives in files thus included are | |
782 obeyed. You can change the \"#include\" to some other string by changing the | |
783 variable `diary-include-string'. When you use `mark-included-diary-files' as | |
784 part of the mark-diary-entries-hook, you will probably also want to use the | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
785 function `include-other-diary-files' as part of `list-diary-entries-hook'." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
786 :type 'hook |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
787 :group 'diary) |
628 | 788 |
732 | 789 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
790 (defcustom nongregorian-diary-marking-hook nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
791 "*List of functions called for marking diary file and included files. |
36906 | 792 As the files are processed for diary entries, these functions are used |
793 to cull relevant entries. You can use either or both of | |
794 `mark-hebrew-diary-entries', `mark-islamic-diary-entries' and | |
795 `mark-bahai-diary-entries'. The documentation for these functions | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
796 describes the style of such diary entries." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
797 :type 'hook |
36906 | 798 :options '(mark-hebrew-diary-entries |
799 mark-islamic-diary-entries | |
800 mark-bahai-diary-entries) | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
801 :group 'diary) |
628 | 802 |
732 | 803 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
804 (defcustom diary-list-include-blanks nil |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
805 "*If nil, do not include days with no diary entry in the list of diary entries. |
23121
1e4f226ada30
(diary-list-include-blanks): Doc fix..
Karl Heuer <kwzh@gnu.org>
parents:
22270
diff
changeset
|
806 Such days will then not be shown in the fancy diary buffer, even if they |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
807 are holidays." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
808 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
809 :group 'diary) |
628 | 810 |
957 | 811 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
812 (defcustom holidays-in-diary-buffer t |
6737 | 813 "*Non-nil means include holidays in the diary display. |
814 The holidays appear in the mode line of the diary buffer, or in the | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
815 fancy diary buffer next to the date. This slows down the diary functions |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
816 somewhat; setting it to nil makes the diary display faster." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
817 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
818 :group 'holidays) |
628 | 819 |
3448
b7d345eaae47
(calendar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2997
diff
changeset
|
820 (defvar calendar-mark-ring nil) |
b7d345eaae47
(calendar-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
2997
diff
changeset
|
821 |
957 | 822 ;;;###autoload |
6737 | 823 (put 'general-holidays 'risky-local-variable t) |
824 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
825 (defcustom general-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
826 '((holiday-fixed 1 1 "New Year's Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
827 (holiday-float 1 1 3 "Martin Luther King Day") |
20821
18188475b33b
Fix mispelling.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
20638
diff
changeset
|
828 (holiday-fixed 2 2 "Groundhog Day") |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
829 (holiday-fixed 2 14 "Valentine's Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
830 (holiday-float 2 1 3 "President's Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
831 (holiday-fixed 3 17 "St. Patrick's Day") |
14937
a2cc3eb1633b
Spelling fix.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14915
diff
changeset
|
832 (holiday-fixed 4 1 "April Fools' Day") |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
833 (holiday-float 5 0 2 "Mother's Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
834 (holiday-float 5 1 -1 "Memorial Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
835 (holiday-fixed 6 14 "Flag Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
836 (holiday-float 6 0 3 "Father's Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
837 (holiday-fixed 7 4 "Independence Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
838 (holiday-float 9 1 1 "Labor Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
839 (holiday-float 10 1 2 "Columbus Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
840 (holiday-fixed 10 31 "Halloween") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
841 (holiday-fixed 11 11 "Veteran's Day") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
842 (holiday-float 11 4 4 "Thanksgiving")) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
843 "*General holidays. Default value is for the United States. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
844 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
845 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
846 :group 'holidays) |
957 | 847 |
848 ;;;###autoload | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
849 (put 'oriental-holidays 'risky-local-variable t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
850 ;;;###autoload |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
851 (defcustom oriental-holidays |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
852 '((if (fboundp 'atan) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
853 (holiday-chinese-new-year))) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
854 "*Oriental holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
855 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
856 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
857 :group 'holidays) |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
858 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
859 ;;;###autoload |
6737 | 860 (put 'local-holidays 'risky-local-variable t) |
861 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
862 (defcustom local-holidays nil |
957 | 863 "*Local holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
864 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
865 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
866 :group 'holidays) |
957 | 867 |
868 ;;;###autoload | |
6737 | 869 (put 'other-holidays 'risky-local-variable t) |
870 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
871 (defcustom other-holidays nil |
957 | 872 "*User defined holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
873 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
874 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
875 :group 'holidays) |
957 | 876 |
877 ;;;###autoload | |
6737 | 878 (put 'hebrew-holidays-1 'risky-local-variable t) |
879 ;;;###autoload | |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
880 (defvar hebrew-holidays-1 |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
881 '((holiday-rosh-hashanah-etc) |
628 | 882 (if all-hebrew-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
883 (holiday-julian |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
884 11 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
885 (let* ((m displayed-month) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
886 (y displayed-year) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
887 (year)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
888 (increment-calendar-month m y -1) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
889 (let ((year (extract-calendar-year |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
890 (calendar-julian-from-absolute |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
891 (calendar-absolute-from-gregorian |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
892 (list m 1 y)))))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
893 (if (zerop (% (1+ year) 4)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
894 22 |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
895 21))) "\"Tal Umatar\" (evening)")))) |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
896 |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
897 ;;;###autoload |
6737 | 898 (put 'hebrew-holidays-2 'risky-local-variable t) |
899 ;;;###autoload | |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
900 (defvar hebrew-holidays-2 |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
901 '((if all-hebrew-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
902 (holiday-hanukkah) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
903 (holiday-hebrew 9 25 "Hanukkah")) |
628 | 904 (if all-hebrew-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
905 (holiday-hebrew |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
906 10 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
907 (let ((h-year (extract-calendar-year |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
908 (calendar-hebrew-from-absolute |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
909 (calendar-absolute-from-gregorian |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
910 (list displayed-month 28 displayed-year)))))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
911 (if (= (% (calendar-absolute-from-hebrew (list 10 10 h-year)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
912 7) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
913 6) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
914 11 10)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
915 "Tzom Teveth")) |
628 | 916 (if all-hebrew-calendar-holidays |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
917 (holiday-hebrew 11 15 "Tu B'Shevat")))) |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
918 |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
919 ;;;###autoload |
6737 | 920 (put 'hebrew-holidays-3 'risky-local-variable t) |
921 ;;;###autoload | |
4530
c14a75fce9c9
(hebrew-holidays-3): Fix misspelling in var name.
Richard M. Stallman <rms@gnu.org>
parents:
4453
diff
changeset
|
922 (defvar hebrew-holidays-3 |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
923 '((if all-hebrew-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
924 (holiday-hebrew |
628 | 925 11 |
926 (let ((m displayed-month) | |
927 (y displayed-year)) | |
928 (increment-calendar-month m y 1) | |
929 (let* ((h-year (extract-calendar-year | |
930 (calendar-hebrew-from-absolute | |
931 (calendar-absolute-from-gregorian | |
932 (list m | |
933 (calendar-last-day-of-month m y) | |
934 y))))) | |
935 (s-s | |
936 (calendar-hebrew-from-absolute | |
937 (if (= | |
938 (% (calendar-absolute-from-hebrew | |
939 (list 7 1 h-year)) | |
940 7) | |
941 6) | |
942 (calendar-dayname-on-or-before | |
943 6 (calendar-absolute-from-hebrew | |
944 (list 11 17 h-year))) | |
945 (calendar-dayname-on-or-before | |
946 6 (calendar-absolute-from-hebrew | |
947 (list 11 16 h-year)))))) | |
948 (day (extract-calendar-day s-s))) | |
949 day)) | |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
950 "Shabbat Shirah")))) |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
951 |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
952 ;;;###autoload |
6737 | 953 (put 'hebrew-holidays-4 'risky-local-variable t) |
954 ;;;###autoload | |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
955 (defvar hebrew-holidays-4 |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
956 '((holiday-passover-etc) |
628 | 957 (if (and all-hebrew-calendar-holidays |
958 (let* ((m displayed-month) | |
959 (y displayed-year) | |
960 (year)) | |
961 (increment-calendar-month m y -1) | |
962 (let ((year (extract-calendar-year | |
963 (calendar-julian-from-absolute | |
964 (calendar-absolute-from-gregorian | |
965 (list m 1 y)))))) | |
966 (= 21 (% year 28))))) | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
967 (holiday-julian 3 26 "Kiddush HaHamah")) |
628 | 968 (if all-hebrew-calendar-holidays |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
969 (holiday-tisha-b-av-etc)))) |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
970 |
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
971 ;;;###autoload |
6737 | 972 (put 'hebrew-holidays 'risky-local-variable t) |
973 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
974 (defcustom hebrew-holidays (append hebrew-holidays-1 hebrew-holidays-2 |
4161
8e236d4ce64b
(hebrew-holidays): Split into 4 sub-variables.
Richard M. Stallman <rms@gnu.org>
parents:
4086
diff
changeset
|
975 hebrew-holidays-3 hebrew-holidays-4) |
957 | 976 "*Jewish holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
977 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
978 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
979 :group 'holidays) |
957 | 980 |
981 ;;;###autoload | |
6737 | 982 (put 'christian-holidays 'risky-local-variable t) |
983 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
984 (defcustom christian-holidays |
957 | 985 '((if all-christian-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
986 (holiday-fixed 1 6 "Epiphany")) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
987 (holiday-easter-etc) |
957 | 988 (if all-christian-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
989 (holiday-greek-orthodox-easter)) |
957 | 990 (if all-christian-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
991 (holiday-fixed 8 15 "Assumption")) |
957 | 992 (if all-christian-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
993 (holiday-advent)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
994 (holiday-fixed 12 25 "Christmas") |
957 | 995 (if all-christian-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
996 (holiday-julian 12 25 "Eastern Orthodox Christmas"))) |
957 | 997 "*Christian holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
998 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
999 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1000 :group 'holidays) |
957 | 1001 |
1002 ;;;###autoload | |
6737 | 1003 (put 'islamic-holidays 'risky-local-variable t) |
1004 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1005 (defcustom islamic-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1006 '((holiday-islamic |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1007 1 1 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1008 (format "Islamic New Year %d" |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1009 (let ((m displayed-month) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1010 (y displayed-year)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1011 (increment-calendar-month m y 1) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1012 (extract-calendar-year |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1013 (calendar-islamic-from-absolute |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1014 (calendar-absolute-from-gregorian |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1015 (list |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1016 m (calendar-last-day-of-month m y) y))))))) |
628 | 1017 (if all-islamic-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1018 (holiday-islamic 1 10 "Ashura")) |
628 | 1019 (if all-islamic-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1020 (holiday-islamic 3 12 "Mulad-al-Nabi")) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1021 (if all-islamic-calendar-holidays |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1022 (holiday-islamic 7 26 "Shab-e-Mi'raj")) |
628 | 1023 (if all-islamic-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1024 (holiday-islamic 8 15 "Shab-e-Bara't")) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1025 (holiday-islamic 9 1 "Ramadan Begins") |
628 | 1026 (if all-islamic-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1027 (holiday-islamic 9 27 "Shab-e Qadr")) |
628 | 1028 (if all-islamic-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1029 (holiday-islamic 10 1 "Id-al-Fitr")) |
628 | 1030 (if all-islamic-calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1031 (holiday-islamic 12 10 "Id-al-Adha"))) |
957 | 1032 "*Islamic holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1033 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1034 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1035 :group 'holidays) |
957 | 1036 |
1037 ;;;###autoload | |
36906 | 1038 (put 'bahai-holidays 'risky-local-variable t) |
1039 ;;;###autoload | |
1040 (defcustom bahai-holidays | |
1041 '((holiday-fixed | |
1042 3 21 | |
1043 (format "Baha'i New Year (Naw-Ruz) %d" (- displayed-year (1- 1844)))) | |
1044 (holiday-fixed 4 21 "First Day of Ridvan") | |
1045 (if all-bahai-calendar-holidays | |
1046 (holiday-fixed 4 22 "Second Day of Ridvan")) | |
1047 (if all-bahai-calendar-holidays | |
1048 (holiday-fixed 4 23 "Third Day of Ridvan")) | |
1049 (if all-bahai-calendar-holidays | |
1050 (holiday-fixed 4 24 "Fourth Day of Ridvan")) | |
1051 (if all-bahai-calendar-holidays | |
1052 (holiday-fixed 4 25 "Fifth Day of Ridvan")) | |
1053 (if all-bahai-calendar-holidays | |
1054 (holiday-fixed 4 26 "Sixth Day of Ridvan")) | |
1055 (if all-bahai-calendar-holidays | |
1056 (holiday-fixed 4 27 "Seventh Day of Ridvan")) | |
1057 (if all-bahai-calendar-holidays | |
1058 (holiday-fixed 4 28 "Eighth Day of Ridvan")) | |
1059 (holiday-fixed 4 29 "Ninth Day of Ridvan") | |
1060 (if all-bahai-calendar-holidays | |
1061 (holiday-fixed 4 30 "Tenth Day of Ridvan")) | |
1062 (if all-bahai-calendar-holidays | |
1063 (holiday-fixed 5 1 "Eleventh Day of Ridvan")) | |
1064 (holiday-fixed 5 2 "Twelfth Day of Ridvan") | |
1065 (holiday-fixed 5 23 "Declaration of the Bab") | |
1066 (holiday-fixed 5 29 "Ascension of Baha'u'llah") | |
1067 (holiday-fixed 7 9 "Martyrdom of the Bab") | |
1068 (holiday-fixed 10 20 "Birth of the Bab") | |
1069 (holiday-fixed 11 12 "Birth of Baha'u'llah") | |
1070 (if all-bahai-calendar-holidays | |
1071 (holiday-fixed 11 26 "Day of the Covenant")) | |
1072 (if all-bahai-calendar-holidays | |
1073 (holiday-fixed 11 28 "Ascension of `Abdu'l-Baha"))) | |
1074 "*Baha'i holidays. | |
1075 See the documentation for `calendar-holidays' for details." | |
1076 :type 'sexp | |
1077 :group 'holidays) | |
1078 | |
1079 ;;;###autoload | |
6737 | 1080 (put 'solar-holidays 'risky-local-variable t) |
1081 ;;;###autoload | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1082 (defcustom solar-holidays |
957 | 1083 '((if (fboundp 'atan) |
1084 (solar-equinoxes-solstices)) | |
5009
bf77303bd714
(solar-holidays): Change top-level progn to an if.
Richard M. Stallman <rms@gnu.org>
parents:
4861
diff
changeset
|
1085 (if (progn |
bf77303bd714
(solar-holidays): Change top-level progn to an if.
Richard M. Stallman <rms@gnu.org>
parents:
4861
diff
changeset
|
1086 (require 'cal-dst) |
bf77303bd714
(solar-holidays): Change top-level progn to an if.
Richard M. Stallman <rms@gnu.org>
parents:
4861
diff
changeset
|
1087 t) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1088 (funcall |
5009
bf77303bd714
(solar-holidays): Change top-level progn to an if.
Richard M. Stallman <rms@gnu.org>
parents:
4861
diff
changeset
|
1089 'holiday-sexp |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1090 calendar-daylight-savings-starts |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1091 '(format "Daylight Savings Time Begins %s" |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1092 (if (fboundp 'atan) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1093 (solar-time-string |
7779
866b98279551
(solar-holidays): Revised to use the rewritten and new fcns.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7760
diff
changeset
|
1094 (/ calendar-daylight-savings-starts-time (float 60)) |
866b98279551
(solar-holidays): Revised to use the rewritten and new fcns.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7760
diff
changeset
|
1095 calendar-standard-time-zone-name) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1096 "")))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1097 (funcall |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1098 'holiday-sexp |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1099 calendar-daylight-savings-ends |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1100 '(format "Daylight Savings Time Ends %s" |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1101 (if (fboundp 'atan) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1102 (solar-time-string |
7779
866b98279551
(solar-holidays): Revised to use the rewritten and new fcns.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7760
diff
changeset
|
1103 (/ calendar-daylight-savings-ends-time (float 60)) |
866b98279551
(solar-holidays): Revised to use the rewritten and new fcns.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7760
diff
changeset
|
1104 calendar-daylight-time-zone-name) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1105 "")))) |
957 | 1106 "*Sun-related holidays. |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1107 See the documentation for `calendar-holidays' for details." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1108 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1109 :group 'holidays) |
957 | 1110 |
6737 | 1111 ;;;###autoload |
1112 (put 'calendar-holidays 'risky-local-variable t) | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1113 (defcustom calendar-holidays |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1114 (append general-holidays local-holidays other-holidays |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1115 christian-holidays hebrew-holidays islamic-holidays |
36906 | 1116 bahai-holidays oriental-holidays solar-holidays) |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
1117 "*List of notable days for the command \\[holidays]. |
957 | 1118 |
36906 | 1119 Additional holidays are easy to add to the list, just put them in the |
1120 list `other-holidays' in your .emacs file. Similarly, by setting any | |
1121 of `general-holidays', `local-holidays' `christian-holidays', | |
1122 `hebrew-holidays', `islamic-holidays', `bahai-holidays', | |
1123 `oriental-holidays', or `solar-holidays' to nil in your .emacs file, | |
1124 you can eliminate unwanted categories of holidays. The intention is | |
1125 that (in the US) `local-holidays' be set in site-init.el and | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1126 `other-holidays' be set by the user. |
957 | 1127 |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1128 Entries on the list are expressions that return (possibly empty) lists of |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1129 items of the form ((month day year) string) of a holiday in the in the |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1130 three-month period centered around `displayed-month' of `displayed-year'. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1131 Several basic functions are provided for this purpose: |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1132 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1133 (holiday-fixed MONTH DAY STRING) is a fixed date on the Gregorian calendar |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1134 (holiday-float MONTH DAYNAME K STRING &optional day) is the Kth DAYNAME in |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1135 MONTH on the Gregorian calendar (0 for Sunday, |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1136 etc.); K<0 means count back from the end of the |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
1137 month. An optional parameter DAY means the Kth |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1138 DAYNAME after/before MONTH DAY. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1139 (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1140 (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar |
36906 | 1141 (holiday-bahai MONTH DAY STRING) a fixed date on the Baha'i calendar |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1142 (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1143 (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression |
957 | 1144 in the variable `year'; if it evaluates to |
1145 a visible date, that's the holiday; if it | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1146 evaluates to nil, there's no holiday. STRING |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1147 is an expression in the variable `date'. |
628 | 1148 |
1149 For example, to add Bastille Day, celebrated in France on July 14, add | |
1150 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1151 (holiday-fixed 7 14 \"Bastille Day\") |
628 | 1152 |
1153 to the list. To add Hurricane Supplication Day, celebrated in the Virgin | |
1154 Islands on the fourth Monday in August, add | |
1155 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1156 (holiday-float 8 1 4 \"Hurricane Supplication Day\") |
628 | 1157 |
1158 to the list (the last Monday would be specified with `-1' instead of `4'). | |
957 | 1159 To add the last day of Hanukkah to the list, use |
1160 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1161 (holiday-hebrew 10 2 \"Last day of Hanukkah\") |
628 | 1162 |
1163 since the Hebrew months are numbered with 1 starting from Nisan, while to | |
1164 add the Islamic feast celebrating Mohammed's birthday use | |
1165 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1166 (holiday-islamic 3 12 \"Mohammed's Birthday\") |
628 | 1167 |
1168 since the Islamic months are numbered from 1 starting with Muharram. To | |
36906 | 1169 add an entry for the Baha'i festival of Ridvan, use |
1170 | |
1171 (holiday-bahai 2 13 \"Festival of Ridvan\") | |
1172 | |
1173 since the Baha'i months are numbered from 1 starting with Baha. To | |
628 | 1174 add Thomas Jefferson's birthday, April 2, 1743 (Julian), use |
1175 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1176 (holiday-julian 4 2 \"Jefferson's Birthday\") |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1177 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1178 To include a holiday conditionally, use the sexp form or a conditional. For |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1179 example, to include American presidential elections, which occur on the first |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1180 Tuesday after the first Monday in November of years divisible by 4, add |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1181 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1182 (holiday-sexp |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1183 (if (zerop (% year 4)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1184 (calendar-gregorian-from-absolute |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1185 (1+ (calendar-dayname-on-or-before |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1186 1 (+ 6 (calendar-absolute-from-gregorian |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1187 (list 11 1 year))))))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1188 \"US Presidential Election\") |
957 | 1189 |
1190 or | |
1191 | |
628 | 1192 (if (zerop (% displayed-year 4)) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1193 (holiday-fixed 11 |
628 | 1194 (extract-calendar-day |
1195 (calendar-gregorian-from-absolute | |
1196 (1+ (calendar-dayname-on-or-before | |
1197 1 (+ 6 (calendar-absolute-from-gregorian | |
1198 (list 11 1 displayed-year))))))) | |
1199 \"US Presidential Election\")) | |
1200 | |
1201 to the list. To include the phases of the moon, add | |
1202 | |
1203 (lunar-phases) | |
1204 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1205 to the holiday list, where `lunar-phases' is an Emacs-Lisp function that |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1206 you've written to return a (possibly empty) list of the relevant VISIBLE dates |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1207 with descriptive strings such as |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1208 |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1209 (((2 6 1989) \"New Moon\") ((2 12 1989) \"First Quarter Moon\") ... )." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1210 :type 'sexp |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1211 :group 'holidays) |
628 | 1212 |
1213 (defconst calendar-buffer "*Calendar*" | |
1214 "Name of the buffer used for the calendar.") | |
1215 | |
1216 (defconst holiday-buffer "*Holidays*" | |
1217 "Name of the buffer used for the displaying the holidays.") | |
1218 | |
1219 (defconst fancy-diary-buffer "*Fancy Diary Entries*" | |
1220 "Name of the buffer used for the optional fancy display of the diary.") | |
1221 | |
22261
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
1222 (defconst other-calendars-buffer "*Other Calendars*" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
1223 "Name of the buffer used for the display of date on other calendars.") |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
1224 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1225 (defconst lunar-phases-buffer "*Phases of Moon*" |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1226 "Name of the buffer used for the lunar phases.") |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1227 |
628 | 1228 (defmacro increment-calendar-month (mon yr n) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1229 "Move the variables MON and YR to the month and year by N months. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1230 Forward if N is positive or backward if N is negative." |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1231 `(let ((macro-y (+ (* ,yr 12) ,mon -1 ,n))) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1232 (setq ,mon (1+ (% macro-y 12))) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1233 (setq ,yr (/ macro-y 12)))) |
628 | 1234 |
1235 (defmacro calendar-for-loop (var from init to final do &rest body) | |
1236 "Execute a for loop." | |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1237 `(let ((,var (1- ,init))) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1238 (while (>= ,final (setq ,var (1+ ,var))) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1239 ,@body))) |
628 | 1240 |
1241 (defmacro calendar-sum (index initial condition expression) | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1242 "For INDEX = INITIAL et seq, as long as CONDITION holds, sum EXPRESSION." |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1243 `(let ((,index ,initial) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1244 (sum 0)) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1245 (while ,condition |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1246 (setq sum (+ sum ,expression)) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1247 (setq ,index (1+ ,index))) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1248 sum)) |
628 | 1249 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1250 ;; The following are in-line for speed; they can be called thousands of times |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1251 ;; when looking up holidays or processing the diary. Here, for example, are |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1252 ;; the numbers of calls to calendar/diary/holiday functions in preparing the |
732 | 1253 ;; fancy diary display, for a moderately complex diary file, with functions |
1254 ;; used instead of macros. There were a total of 10000 such calls: | |
1255 ;; | |
1256 ;; 1934 extract-calendar-month | |
1257 ;; 1852 extract-calendar-year | |
1258 ;; 1819 extract-calendar-day | |
1259 ;; 845 calendar-leap-year-p | |
1260 ;; 837 calendar-day-number | |
1261 ;; 775 calendar-absolute-from-gregorian | |
1262 ;; 346 calendar-last-day-of-month | |
1263 ;; 286 hebrew-calendar-last-day-of-month | |
1264 ;; 188 hebrew-calendar-leap-year-p | |
1265 ;; 180 hebrew-calendar-elapsed-days | |
1266 ;; 163 hebrew-calendar-last-month-of-year | |
1267 ;; 66 calendar-date-compare | |
1268 ;; 65 hebrew-calendar-days-in-year | |
1269 ;; 60 calendar-absolute-from-julian | |
1270 ;; 50 calendar-absolute-from-hebrew | |
1271 ;; 43 calendar-date-equal | |
1272 ;; 38 calendar-gregorian-from-absolute | |
1273 ;; . | |
1274 ;; . | |
1275 ;; . | |
1276 ;; | |
1277 ;; The use of these seven macros eliminates the overhead of 92% of the function | |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1278 ;; calls; it's faster this way. |
732 | 1279 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1280 (defsubst extract-calendar-month (date) |
628 | 1281 "Extract the month part of DATE which has the form (month day year)." |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1282 (car date)) |
628 | 1283 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1284 (defsubst extract-calendar-day (date) |
628 | 1285 "Extract the day part of DATE which has the form (month day year)." |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1286 (car (cdr date))) |
628 | 1287 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1288 (defsubst extract-calendar-year (date) |
628 | 1289 "Extract the year part of DATE which has the form (month day year)." |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1290 (car (cdr (cdr date)))) |
628 | 1291 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1292 (defsubst calendar-leap-year-p (year) |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
1293 "Return t if YEAR is a Gregorian leap year." |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1294 (and (zerop (% year 4)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1295 (or (not (zerop (% year 100))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1296 (zerop (% year 400))))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1297 |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1298 ;; The foregoing is a bit faster, but not as clear as the following: |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1299 ;; |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1300 ;;(defsubst calendar-leap-year-p (year) |
957 | 1301 ;; "Returns t if YEAR is a Gregorian leap year." |
1302 ;; (or | |
1303 ;; (and (= (% year 4) 0) | |
1304 ;; (/= (% year 100) 0)) | |
1305 ;; (= (% year 400) 0))) | |
732 | 1306 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1307 (defsubst calendar-last-day-of-month (month year) |
732 | 1308 "The last day in MONTH during YEAR." |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1309 (if (and (= month 2) (calendar-leap-year-p year)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1310 29 |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1311 (aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month)))) |
732 | 1312 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1313 ;; An explanation of the calculation can be found in PascAlgorithms by |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1314 ;; Edward and Ruth Reingold, Scott-Foresman/Little, Brown, 1988. |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1315 |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1316 (defsubst calendar-day-number (date) |
732 | 1317 "Return the day number within the year of the date DATE. |
1318 For example, (calendar-day-number '(1 1 1987)) returns the value 1, | |
1319 while (calendar-day-number '(12 31 1980)) returns 366." | |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1320 (let* ((month (extract-calendar-month date)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1321 (day (extract-calendar-day date)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1322 (year (extract-calendar-year date)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1323 (day-of-year (+ day (* 31 (1- month))))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1324 (if (> month 2) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1325 (progn |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1326 (setq day-of-year (- day-of-year (/ (+ 23 (* 4 month)) 10))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1327 (if (calendar-leap-year-p year) |
732 | 1328 (setq day-of-year (1+ day-of-year))))) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1329 day-of-year)) |
732 | 1330 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1331 (defsubst calendar-absolute-from-gregorian (date) |
732 | 1332 "The number of days elapsed between the Gregorian date 12/31/1 BC and DATE. |
1333 The Gregorian date Sunday, December 31, 1 BC is imaginary." | |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1334 (let ((prior-years (1- (extract-calendar-year date)))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1335 (+ (calendar-day-number date);; Days this year |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1336 (* 365 prior-years);; + Days in prior years |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1337 (/ prior-years 4);; + Julian leap years |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1338 (- (/ prior-years 100));; - century years |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1339 (/ prior-years 400))));; + Gregorian leap years |
732 | 1340 |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1341 (autoload 'calendar-goto-today "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1342 "Reposition the calendar window so the current date is visible." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1343 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1344 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1345 (autoload 'calendar-forward-month "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1346 "Move the cursor forward ARG months." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1347 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1348 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1349 (autoload 'calendar-forward-year "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1350 "Move the cursor forward by ARG years." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1351 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1352 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1353 (autoload 'calendar-backward-month "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1354 "Move the cursor backward by ARG months." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1355 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1356 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1357 (autoload 'calendar-backward-year "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1358 "Move the cursor backward ARG years." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1359 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1360 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1361 (autoload 'scroll-calendar-left "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1362 "Scroll the displayed calendar left by ARG months." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1363 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1364 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1365 (autoload 'scroll-calendar-right "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1366 "Scroll the displayed calendar window right by ARG months." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1367 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1368 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1369 (autoload 'scroll-calendar-left-three-months "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1370 "Scroll the displayed calendar window left by 3*ARG months." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1371 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1372 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1373 (autoload 'scroll-calendar-right-three-months "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1374 "Scroll the displayed calendar window right by 3*ARG months." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1375 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1376 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1377 (autoload 'calendar-cursor-to-nearest-date "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1378 "Move the cursor to the closest date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1379 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1380 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1381 (autoload 'calendar-forward-day "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1382 "Move the cursor forward ARG days." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1383 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1384 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1385 (autoload 'calendar-backward-day "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1386 "Move the cursor back ARG days." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1387 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1388 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1389 (autoload 'calendar-forward-week "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1390 "Move the cursor forward ARG weeks." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1391 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1392 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1393 (autoload 'calendar-backward-week "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1394 "Move the cursor back ARG weeks." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1395 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1396 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1397 (autoload 'calendar-beginning-of-week "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1398 "Move the cursor back ARG calendar-week-start-day's." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1399 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1400 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1401 (autoload 'calendar-end-of-week "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1402 "Move the cursor forward ARG calendar-week-start-day+6's." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1403 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1404 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1405 (autoload 'calendar-beginning-of-month "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1406 "Move the cursor backward ARG month beginnings." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1407 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1408 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1409 (autoload 'calendar-end-of-month "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1410 "Move the cursor forward ARG month ends." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1411 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1412 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1413 (autoload 'calendar-beginning-of-year "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1414 "Move the cursor backward ARG year beginnings." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1415 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1416 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1417 (autoload 'calendar-end-of-year "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1418 "Move the cursor forward ARG year beginnings." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1419 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1420 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1421 (autoload 'calendar-cursor-to-visible-date "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1422 "Move the cursor to DATE that is on the screen." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1423 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1424 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1425 (autoload 'calendar-goto-date "cal-move" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1426 "Move cursor to DATE." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1427 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1428 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1429 (autoload 'calendar-one-frame-setup "cal-x" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1430 "Start calendar and display it in a dedicated frame together with the diary.") |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1431 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1432 (autoload 'calendar-two-frame-setup "cal-x" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1433 "Start calendar and diary in separate, dedicated frames.") |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1434 |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1435 ;;;###autoload |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1436 (defvar calendar-setup nil |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1437 "The frame set up of the calendar. |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1438 The choices are `one-frame' (calendar and diary together in one separate, |
24891
85d8302a2e82
(calendar): Call calendar-only-one-frame-setup if requested.
Karl Heuer <kwzh@gnu.org>
parents:
24243
diff
changeset
|
1439 dedicated frame), `two-frames' (calendar and diary in separate, dedicated |
85d8302a2e82
(calendar): Call calendar-only-one-frame-setup if requested.
Karl Heuer <kwzh@gnu.org>
parents:
24243
diff
changeset
|
1440 frames), `calendar-only' (calendar in a separate, dedicated frame); with |
85d8302a2e82
(calendar): Call calendar-only-one-frame-setup if requested.
Karl Heuer <kwzh@gnu.org>
parents:
24243
diff
changeset
|
1441 any other value the current frame is used.") |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1442 |
675
85fd29f25c75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
628
diff
changeset
|
1443 ;;;###autoload |
628 | 1444 (defun calendar (&optional arg) |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1445 "Choose between the one frame, two frame, or basic calendar displays. |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1446 The original function `calendar' has been renamed `calendar-basic-setup'." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1447 (interactive "P") |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1448 (cond ((equal calendar-setup 'one-frame) (calendar-one-frame-setup arg)) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1449 ((equal calendar-setup 'two-frames) (calendar-two-frame-setup arg)) |
24891
85d8302a2e82
(calendar): Call calendar-only-one-frame-setup if requested.
Karl Heuer <kwzh@gnu.org>
parents:
24243
diff
changeset
|
1450 ((equal calendar-setup 'calendar-only) |
85d8302a2e82
(calendar): Call calendar-only-one-frame-setup if requested.
Karl Heuer <kwzh@gnu.org>
parents:
24243
diff
changeset
|
1451 (calendar-only-one-frame-setup arg)) |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1452 (t (calendar-basic-setup arg)))) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1453 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1454 (defun calendar-basic-setup (&optional arg) |
628 | 1455 "Display a three-month calendar in another window. |
1456 The three months appear side by side, with the current month in the middle | |
1457 surrounded by the previous and next months. The cursor is put on today's date. | |
1458 | |
957 | 1459 If called with an optional prefix argument, prompts for month and year. |
1460 | |
628 | 1461 This function is suitable for execution in a .emacs file; appropriate setting |
1462 of the variable `view-diary-entries-initially' will cause the diary entries for | |
1463 the current date to be displayed in another window. The value of the variable | |
1464 `number-of-diary-entries' controls the number of days of diary entries | |
1465 displayed upon initial display of the calendar. | |
1466 | |
1467 Once in the calendar window, future or past months can be moved into view. | |
1468 Arbitrary months can be displayed, or the calendar can be scrolled forward | |
1469 or backward. | |
1470 | |
1471 The cursor can be moved forward or backward by one day, one week, one month, | |
1472 or one year. All of these commands take prefix arguments which, when negative, | |
1473 cause movement in the opposite direction. For convenience, the digit keys | |
1474 and the minus sign are automatically prefixes. The window is replotted as | |
1475 necessary to display the desired date. | |
1476 | |
1477 Diary entries can be marked on the calendar or displayed in another window. | |
1478 | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
1479 Use \\[describe-mode] for details of the key bindings in the calendar window. |
628 | 1480 |
1481 The Gregorian calendar is assumed. | |
1482 | |
957 | 1483 After loading the calendar, the hooks given by the variable |
10436 | 1484 `calendar-load-hook' are run. This is the place to add key bindings to the |
957 | 1485 calendar-mode-map. |
1486 | |
628 | 1487 After preparing the calendar window initially, the hooks given by the variable |
1488 `initial-calendar-window-hook' are run. | |
1489 | |
1490 The hooks given by the variable `today-visible-calendar-hook' are run | |
13671
97293da2f27b
(calendar-setup, calendar-basic-setup, calendar-next-calendar-round-date,
Paul Eggert <eggert@twinsun.com>
parents:
13649
diff
changeset
|
1491 every time the calendar window gets scrolled, if the current date is visible |
628 | 1492 in the window. If it is not visible, the hooks given by the variable |
1493 `today-invisible-calendar-hook' are run. Thus, for example, setting | |
1494 `today-visible-calendar-hook' to 'calendar-star-date will cause today's date | |
1495 to be replaced by asterisks to highlight it whenever it is in the window." | |
1496 (interactive "P") | |
1497 (set-buffer (get-buffer-create calendar-buffer)) | |
1498 (calendar-mode) | |
9747
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
1499 (let* ((pop-up-windows t) |
957 | 1500 (split-height-threshold 1000) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1501 (date (if arg |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1502 (calendar-read-date t) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1503 (calendar-current-date))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1504 (month (extract-calendar-month date)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1505 (year (extract-calendar-year date))) |
628 | 1506 (pop-to-buffer calendar-buffer) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
1507 (increment-calendar-month month year (- calendar-offset)) |
957 | 1508 (generate-calendar-window month year) |
1509 (if (and view-diary-entries-initially (calendar-date-is-visible-p date)) | |
1510 (view-diary-entries | |
1511 (if (vectorp number-of-diary-entries) | |
1512 (aref number-of-diary-entries (calendar-day-of-week date)) | |
1513 number-of-diary-entries)))) | |
1514 (let* ((diary-buffer (get-file-buffer diary-file)) | |
1515 (diary-window (if diary-buffer (get-buffer-window diary-buffer))) | |
1516 (split-height-threshold (if diary-window 2 1000))) | |
1517 (if view-calendar-holidays-initially | |
1518 (list-calendar-holidays))) | |
628 | 1519 (run-hooks 'initial-calendar-window-hook)) |
1520 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1521 (autoload 'view-diary-entries "diary-lib" |
628 | 1522 "Prepare and display a buffer with diary entries. |
7404 | 1523 Searches your diary file for entries that match ARG days starting with |
628 | 1524 the date indicated by the cursor position in the displayed three-month |
1525 calendar." | |
1526 t) | |
1527 | |
957 | 1528 (autoload 'calendar-sunrise-sunset "solar" |
1529 "Local time of sunrise and sunset for date under cursor." | |
1530 t) | |
1531 | |
1532 (autoload 'calendar-phases-of-moon "lunar" | |
1533 "Create a buffer of the phases of the moon for the current calendar window." | |
1534 t) | |
1535 | |
1536 (autoload 'calendar-print-french-date "cal-french" | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1537 "Show the French Revolutionary calendar equivalent of the date under the cursor." |
957 | 1538 t) |
1539 | |
1540 (autoload 'calendar-goto-french-date "cal-french" | |
1541 "Move cursor to French Revolutionary date." | |
1542 t) | |
1543 | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1544 (autoload 'calendar-french-date-string "cal-french" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1545 "String of French Revolutionary date of Gregorian date." |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1546 t) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1547 |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1548 (autoload 'calendar-mayan-date-string "cal-mayan" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1549 "String of Mayan date of Gregorian date." |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1550 t) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1551 |
957 | 1552 (autoload 'calendar-print-mayan-date "cal-mayan" |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
1553 "Show the Mayan long count, Tzolkin, and Haab equivalents of the date under the cursor." |
957 | 1554 t) |
1555 | |
1556 (autoload 'calendar-goto-mayan-long-count-date "cal-mayan" | |
1557 "Move cursor to Mayan long count date." | |
1558 t) | |
1559 | |
1560 (autoload 'calendar-next-haab-date "cal-mayan" | |
1561 "Move cursor to next instance of Mayan Haab date." | |
1562 t) | |
1563 | |
1564 (autoload 'calendar-previous-haab-date "cal-mayan" | |
1565 "Move cursor to previous instance of Mayan Haab date." | |
1566 t) | |
1567 | |
1568 (autoload 'calendar-next-tzolkin-date "cal-mayan" | |
1569 "Move cursor to next instance of Mayan Tzolkin date." | |
1570 t) | |
1571 | |
1572 (autoload 'calendar-previous-tzolkin-date "cal-mayan" | |
1573 "Move cursor to previous instance of Mayan Tzolkin date." | |
1574 t) | |
1575 | |
1576 (autoload 'calendar-next-calendar-round-date "cal-mayan" | |
13671
97293da2f27b
(calendar-setup, calendar-basic-setup, calendar-next-calendar-round-date,
Paul Eggert <eggert@twinsun.com>
parents:
13649
diff
changeset
|
1577 "Move cursor to next instance of Mayan Haab/Tzolkin combination." |
957 | 1578 t) |
1579 | |
1580 (autoload 'calendar-previous-calendar-round-date "cal-mayan" | |
13671
97293da2f27b
(calendar-setup, calendar-basic-setup, calendar-next-calendar-round-date,
Paul Eggert <eggert@twinsun.com>
parents:
13649
diff
changeset
|
1581 "Move cursor to previous instance of Mayan Haab/Tzolkin combination." |
957 | 1582 t) |
1583 | |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1584 (autoload 'calendar-goto-chinese-date "cal-china" |
13875
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1585 "Move cursor to Chinese date." |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1586 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1587 |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1588 (autoload 'calendar-print-chinese-date "cal-china" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1589 "Show the Chinese date equivalents of date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1590 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1591 |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1592 (autoload 'calendar-chinese-date-string "cal-china" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1593 "String of Chinese date of Gregorian date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1594 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1595 |
26530
82384d47a93d
Fix autoload for calendar-absolute-from-astro. Add autoload for
Gerd Moellmann <gerd@gnu.org>
parents:
26427
diff
changeset
|
1596 (autoload 'calendar-absolute-from-astro "cal-julian" |
13875
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1597 "Absolute date of astronomical (Julian) day number D." |
26530
82384d47a93d
Fix autoload for calendar-absolute-from-astro. Add autoload for
Gerd Moellmann <gerd@gnu.org>
parents:
26427
diff
changeset
|
1598 t ) |
13875
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1599 |
13792
a1776aba8124
(calendar-astro-from-absolute): Autoload it.
Karl Heuer <kwzh@gnu.org>
parents:
13671
diff
changeset
|
1600 (autoload 'calendar-astro-from-absolute "cal-julian" |
a1776aba8124
(calendar-astro-from-absolute): Autoload it.
Karl Heuer <kwzh@gnu.org>
parents:
13671
diff
changeset
|
1601 "Astronomical (Julian) day number of absolute date D.") |
a1776aba8124
(calendar-astro-from-absolute): Autoload it.
Karl Heuer <kwzh@gnu.org>
parents:
13671
diff
changeset
|
1602 |
13875
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1603 (autoload 'calendar-astro-date-string "cal-julian" |
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1604 "String of astronomical (Julian) day number of Gregorian date." |
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1605 t) |
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1606 |
25412
27c66621737f
(calendar-goto-astro-day-number): Autoload the right function name.
Richard M. Stallman <rms@gnu.org>
parents:
25410
diff
changeset
|
1607 (autoload 'calendar-goto-astro-day-number "cal-julian" |
13875
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1608 "Move cursor to astronomical (Julian) day number." |
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1609 t) |
96d81534d210
Fix autoloads.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13792
diff
changeset
|
1610 |
26530
82384d47a93d
Fix autoload for calendar-absolute-from-astro. Add autoload for
Gerd Moellmann <gerd@gnu.org>
parents:
26427
diff
changeset
|
1611 (autoload 'calendar-print-astro-day-number "cal-julian" |
82384d47a93d
Fix autoload for calendar-absolute-from-astro. Add autoload for
Gerd Moellmann <gerd@gnu.org>
parents:
26427
diff
changeset
|
1612 "Show the astro date equivalents of date." |
82384d47a93d
Fix autoload for calendar-absolute-from-astro. Add autoload for
Gerd Moellmann <gerd@gnu.org>
parents:
26427
diff
changeset
|
1613 t) |
82384d47a93d
Fix autoload for calendar-absolute-from-astro. Add autoload for
Gerd Moellmann <gerd@gnu.org>
parents:
26427
diff
changeset
|
1614 |
13546
b979fa5d0d0b
(calendar-julian-from-absolute): Autoload it.
Richard M. Stallman <rms@gnu.org>
parents:
13490
diff
changeset
|
1615 (autoload 'calendar-julian-from-absolute "cal-julian" |
b979fa5d0d0b
(calendar-julian-from-absolute): Autoload it.
Richard M. Stallman <rms@gnu.org>
parents:
13490
diff
changeset
|
1616 "Compute the Julian (month day year) corresponding to the absolute DATE. |
b979fa5d0d0b
(calendar-julian-from-absolute): Autoload it.
Richard M. Stallman <rms@gnu.org>
parents:
13490
diff
changeset
|
1617 The absolute date is the number of days elapsed since the (imaginary) |
b979fa5d0d0b
(calendar-julian-from-absolute): Autoload it.
Richard M. Stallman <rms@gnu.org>
parents:
13490
diff
changeset
|
1618 Gregorian date Sunday, December 31, 1 BC.") |
b979fa5d0d0b
(calendar-julian-from-absolute): Autoload it.
Richard M. Stallman <rms@gnu.org>
parents:
13490
diff
changeset
|
1619 |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1620 (autoload 'calendar-goto-julian-date "cal-julian" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1621 "Move cursor to Julian DATE; echo Julian date unless NOECHO is t." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1622 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1623 |
19422
d43fe749c103
Add an autoload form for calendar-print-julian-date.
Richard M. Stallman <rms@gnu.org>
parents:
19248
diff
changeset
|
1624 (autoload 'calendar-print-julian-date "cal-julian" |
d43fe749c103
Add an autoload form for calendar-print-julian-date.
Richard M. Stallman <rms@gnu.org>
parents:
19248
diff
changeset
|
1625 "Show the Julian calendar equivalent of the date under the cursor." |
d43fe749c103
Add an autoload form for calendar-print-julian-date.
Richard M. Stallman <rms@gnu.org>
parents:
19248
diff
changeset
|
1626 t) |
d43fe749c103
Add an autoload form for calendar-print-julian-date.
Richard M. Stallman <rms@gnu.org>
parents:
19248
diff
changeset
|
1627 |
13573
6fff4a5fc018
(calendar-julian-date-string): Autoload this.
Richard M. Stallman <rms@gnu.org>
parents:
13546
diff
changeset
|
1628 (autoload 'calendar-julian-date-string "cal-julian" |
6fff4a5fc018
(calendar-julian-date-string): Autoload this.
Richard M. Stallman <rms@gnu.org>
parents:
13546
diff
changeset
|
1629 "String of Julian date of Gregorian DATE. |
6fff4a5fc018
(calendar-julian-date-string): Autoload this.
Richard M. Stallman <rms@gnu.org>
parents:
13546
diff
changeset
|
1630 Defaults to today's date if DATE is not given. |
19438
3a3578e9593f
(calendar-julian-date-string): Mark not interactive.
Richard M. Stallman <rms@gnu.org>
parents:
19422
diff
changeset
|
1631 Driven by the variable `calendar-date-display-form'.") |
13573
6fff4a5fc018
(calendar-julian-date-string): Autoload this.
Richard M. Stallman <rms@gnu.org>
parents:
13546
diff
changeset
|
1632 |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1633 (autoload 'calendar-goto-iso-date "cal-iso" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1634 "Move cursor to ISO date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1635 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1636 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1637 (autoload 'calendar-print-iso-date "cal-iso" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1638 "Show the ISO date equivalents of date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1639 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1640 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1641 (autoload 'calendar-iso-date-string "cal-iso" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1642 "String of ISO date of Gregorian date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1643 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1644 |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1645 (autoload 'calendar-print-islamic-date "cal-islam" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1646 "Show the Islamic date equivalents of date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1647 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1648 |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1649 (autoload 'calendar-islamic-date-string "cal-islam" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1650 "String of Islamic date of Gregorian date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1651 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1652 |
36906 | 1653 (autoload 'calendar-print-bahai-date "cal-bahai" |
1654 "Show the Baha'i date equivalents of date." | |
1655 t) | |
1656 | |
1657 (autoload 'calendar-bahai-date-string "cal-bahai" | |
1658 "String of Baha'i date of Gregorian date." | |
1659 t) | |
1660 | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1661 (autoload 'calendar-goto-hebrew-date "cal-hebrew" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1662 "Move cursor to Hebrew date date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1663 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1664 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1665 (autoload 'calendar-print-hebrew-date "cal-hebrew" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1666 "Show the Hebrew date equivalents of date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1667 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1668 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1669 (autoload 'calendar-hebrew-date-string "cal-hebrew" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1670 "String of Hebrew date of Gregorian date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1671 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1672 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1673 (autoload 'calendar-goto-coptic-date "cal-coptic" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1674 "Move cursor to Coptic date date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1675 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1676 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1677 (autoload 'calendar-print-coptic-date "cal-coptic" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1678 "Show the Coptic date equivalents of date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1679 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1680 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1681 (autoload 'calendar-coptic-date-string "cal-coptic" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1682 "String of Coptic date of Gregorian date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1683 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1684 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1685 (autoload 'calendar-goto-ethiopic-date "cal-coptic" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1686 "Move cursor to Ethiopic date date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1687 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1688 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1689 (autoload 'calendar-print-ethiopic-date "cal-coptic" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1690 "Show the Ethiopic date equivalents of date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1691 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1692 |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1693 (autoload 'calendar-ethiopic-date-string "cal-coptic" |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1694 "String of Ethiopic date of Gregorian date." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1695 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1696 |
15258
ab5975df6164
Change autoload references from cal-persian to cal-persia.
Karl Heuer <kwzh@gnu.org>
parents:
14937
diff
changeset
|
1697 (autoload 'calendar-goto-persian-date "cal-persia" |
14915
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1698 "Move cursor to Persian date date." |
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1699 t) |
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1700 |
15258
ab5975df6164
Change autoload references from cal-persian to cal-persia.
Karl Heuer <kwzh@gnu.org>
parents:
14937
diff
changeset
|
1701 (autoload 'calendar-print-persian-date "cal-persia" |
14915
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1702 "Show the Persian date equivalents of date." |
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1703 t) |
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1704 |
15258
ab5975df6164
Change autoload references from cal-persian to cal-persia.
Karl Heuer <kwzh@gnu.org>
parents:
14937
diff
changeset
|
1705 (autoload 'calendar-persian-date-string "cal-persia" |
14915
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1706 "String of Persian date of Gregorian date." |
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1707 t) |
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
1708 |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1709 (autoload 'show-all-diary-entries "diary-lib" |
7404 | 1710 "Show all of the diary entries in the diary file. |
1711 This function gets rid of the selective display of the diary file so that | |
628 | 1712 all entries, not just some, are visible. If there is no diary buffer, one |
1713 is created." | |
1714 t) | |
1715 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1716 (autoload 'mark-diary-entries "diary-lib" |
628 | 1717 "Mark days in the calendar window that have diary entries. |
7404 | 1718 Each entry in diary file visible in the calendar window is marked." |
628 | 1719 t) |
1720 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1721 (autoload 'make-diary-entry "diary-lib" |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1722 "Insert a diary entry STRING which may be NONMARKING in FILE." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1723 t) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1724 |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1725 (autoload 'insert-diary-entry "diary-lib" |
628 | 1726 "Insert a diary entry for the date indicated by point." |
1727 t) | |
1728 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1729 (autoload 'insert-weekly-diary-entry "diary-lib" |
628 | 1730 "Insert a weekly diary entry for the day of the week indicated by point." |
1731 t) | |
1732 | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1733 |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1734 (autoload 'insert-monthly-diary-entry "diary-lib" |
628 | 1735 "Insert a monthly diary entry for the day of the month indicated by point." |
1736 t) | |
1737 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1738 (autoload 'insert-yearly-diary-entry "diary-lib" |
628 | 1739 "Insert an annual diary entry for the day of the year indicated by point." |
1740 t) | |
1741 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1742 (autoload 'insert-anniversary-diary-entry "diary-lib" |
628 | 1743 "Insert an anniversary diary entry for the date indicated by point." |
1744 t) | |
1745 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1746 (autoload 'insert-block-diary-entry "diary-lib" |
628 | 1747 "Insert a block diary entry for the dates indicated by point and mark." |
1748 t) | |
1749 | |
13649
fb670bed6222
Use new file name diary-lib.
Richard M. Stallman <rms@gnu.org>
parents:
13597
diff
changeset
|
1750 (autoload 'insert-cyclic-diary-entry "diary-lib" |
628 | 1751 "Insert a cyclic diary entry starting at the date indicated by point." |
1752 t) | |
1753 | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1754 (autoload 'insert-hebrew-diary-entry "cal-hebrew" |
628 | 1755 "Insert a diary entry for the Hebrew date corresponding to the date |
1756 indicated by point." | |
1757 t) | |
1758 | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1759 (autoload 'insert-monthly-hebrew-diary-entry "cal-hebrew" |
628 | 1760 "Insert a monthly diary entry for the day of the Hebrew month corresponding |
1761 to the date indicated by point." | |
1762 t) | |
1763 | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1764 (autoload 'insert-yearly-hebrew-diary-entry "cal-hebrew" |
628 | 1765 "Insert an annual diary entry for the day of the Hebrew year corresponding |
1766 to the date indicated by point." | |
1767 t) | |
1768 | |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1769 (autoload 'insert-islamic-diary-entry "cal-islam" |
628 | 1770 "Insert a diary entry for the Islamic date corresponding to the date |
1771 indicated by point." | |
1772 t) | |
1773 | |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1774 (autoload 'insert-monthly-islamic-diary-entry "cal-islam" |
628 | 1775 "Insert a monthly diary entry for the day of the Islamic month corresponding |
1776 to the date indicated by point." | |
1777 t) | |
1778 | |
14687
0d4ff7e4d6a3
Use the new file names in autoloads.
Karl Heuer <kwzh@gnu.org>
parents:
14169
diff
changeset
|
1779 (autoload 'insert-yearly-islamic-diary-entry "cal-islam" |
628 | 1780 "Insert an annual diary entry for the day of the Islamic year corresponding |
1781 to the date indicated by point." | |
1782 t) | |
1783 | |
36906 | 1784 (autoload 'insert-bahai-diary-entry "cal-bahai" |
1785 "Insert a diary entry for the Baha'i date corresponding to the date | |
1786 indicated by point." | |
1787 t) | |
1788 | |
1789 (autoload 'insert-monthly-bahai-diary-entry "cal-bahai" | |
1790 "Insert a monthly diary entry for the day of the Baha'i month corresponding | |
1791 to the date indicated by point." | |
1792 t) | |
1793 | |
1794 (autoload 'insert-yearly-bahai-diary-entry "cal-bahai" | |
1795 "Insert an annual diary entry for the day of the Baha'i year corresponding | |
1796 to the date indicated by point." | |
1797 t) | |
1798 | |
628 | 1799 (autoload 'list-calendar-holidays "holidays" |
1800 "Create a buffer containing the holidays for the current calendar window. | |
1801 The holidays are those in the list `calendar-notable-days'. Returns t if any | |
1802 holidays are found, nil if not." | |
1803 t) | |
1804 | |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1805 (autoload 'cal-tex-cursor-month "cal-tex" |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1806 "Make a buffer with LaTeX commands for the month cursor is on. |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1807 Optional prefix argument specifies number of months to be produced. |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1808 Calendar is condensed onto one page.") |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1809 |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1810 (autoload 'cal-tex-cursor-month-landscape "cal-tex" |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1811 "Make a buffer with LaTeX commands for the month cursor is on. |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1812 Optional prefix argument specifies number of months to be produced.") |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1813 |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1814 (autoload 'cal-tex-cursor-day "cal-tex" |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1815 "Make a buffer with LaTeX commands for the day cursor is on.") |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1816 |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1817 (autoload 'cal-tex-cursor-week "cal-tex" |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1818 "Make a buffer with LaTeX commands for a two-page one-week calendar. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1819 It applies to the week that point is in. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1820 Optional prefix argument specifies number of weeks. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1821 Holidays are included if `cal-tex-holidays' is t.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1822 |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1823 (autoload 'cal-tex-cursor-week2 "cal-tex" |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1824 "Make a buffer with LaTeX commands for a two-page one-week calendar. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1825 It applies to the week that point is in. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1826 Optional prefix argument specifies number of weeks. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1827 Holidays are included if `cal-tex-holidays' is t.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1828 |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1829 (autoload 'cal-tex-cursor-week-iso "cal-tex" |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1830 "Make a buffer with LaTeX commands for a one page ISO-style weekly calendar. |
13597
493156a0ad85
(cal-tex-cursor-week-iso): Doc fix.
Erik Naggum <erik@naggum.no>
parents:
13596
diff
changeset
|
1831 Optional prefix argument specifies number of weeks. |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1832 Diary entries are included if `cal-tex-diary' is t. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1833 Holidays are included if `cal-tex-holidays' is t.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1834 |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1835 (autoload 'cal-tex-cursor-week-monday "cal-tex" |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1836 "Make a buffer with LaTeX commands for a two-page one-week calendar. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1837 It applies to the week that point is in, and starts on Monday. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1838 Optional prefix argument specifies number of weeks. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1839 Holidays are included if `cal-tex-holidays' is t.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1840 |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1841 (autoload 'cal-tex-cursor-filofax-2week "cal-tex" |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1842 "Two-weeks-at-a-glance Filofax style calendar for week indicated by cursor. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1843 Optional prefix argument specifies number of weeks. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1844 Diary entries are included if cal-tex-diary is t. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1845 Holidays are included if `cal-tex-holidays' is t.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1846 |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1847 (autoload 'cal-tex-cursor-filofax-week "cal-tex" |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1848 "One-week-at-a-glance Filofax style calendar for week indicated by cursor. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1849 Optional prefix argument specifies number of weeks. |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1850 Weeks start on Monday. |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1851 Diary entries are included if cal-tex-diary is t. |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
1852 Holidays are included if `cal-tex-holidays' is t.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1853 |
19974
620ed2f8250e
(calendar-mode-map): Bind it to key.
Karl Heuer <kwzh@gnu.org>
parents:
19438
diff
changeset
|
1854 (autoload 'cal-tex-cursor-filofax-daily "cal-tex" |
620ed2f8250e
(calendar-mode-map): Bind it to key.
Karl Heuer <kwzh@gnu.org>
parents:
19438
diff
changeset
|
1855 "Day-per-page Filofax style calendar for week indicated by cursor. |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
1856 Optional prefix argument specifies number of weeks. Weeks start on Monday. |
19974
620ed2f8250e
(calendar-mode-map): Bind it to key.
Karl Heuer <kwzh@gnu.org>
parents:
19438
diff
changeset
|
1857 Diary entries are included if `cal-tex-diary' is t. |
620ed2f8250e
(calendar-mode-map): Bind it to key.
Karl Heuer <kwzh@gnu.org>
parents:
19438
diff
changeset
|
1858 Holidays are included if `cal-tex-holidays' is t.") |
620ed2f8250e
(calendar-mode-map): Bind it to key.
Karl Heuer <kwzh@gnu.org>
parents:
19438
diff
changeset
|
1859 |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1860 (autoload 'cal-tex-cursor-year "cal-tex" |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1861 "Make a buffer with LaTeX commands for a year's calendar. |
13671
97293da2f27b
(calendar-setup, calendar-basic-setup, calendar-next-calendar-round-date,
Paul Eggert <eggert@twinsun.com>
parents:
13649
diff
changeset
|
1862 Optional prefix argument specifies number of years.") |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1863 |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1864 (autoload 'cal-tex-cursor-year-landscape "cal-tex" |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1865 "Make a buffer with LaTeX commands for a year's calendar (landscape). |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1866 Optional prefix argument specifies number of years.") |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1867 |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1868 (autoload 'cal-tex-cursor-filofax-year "cal-tex" |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1869 "Make a buffer with LaTeX commands for a year's calendar (Filofax). |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1870 Optional prefix argument specifies number of years.") |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
1871 |
628 | 1872 (autoload 'mark-calendar-holidays "holidays" |
1873 "Mark notable days in the calendar window." | |
1874 t) | |
1875 | |
1876 (autoload 'calendar-cursor-holidays "holidays" | |
1877 "Find holidays for the date specified by the cursor in the calendar window." | |
1878 t) | |
1879 | |
957 | 1880 (defun generate-calendar-window (&optional mon yr) |
1881 "Generate the calendar window for the current date. | |
1882 Or, for optional MON, YR." | |
628 | 1883 (let* ((buffer-read-only nil) |
1884 (today (calendar-current-date)) | |
1885 (month (extract-calendar-month today)) | |
1886 (day (extract-calendar-day today)) | |
1887 (year (extract-calendar-year today)) | |
957 | 1888 (today-visible |
1889 (or (not mon) | |
1890 (let ((offset (calendar-interval mon yr month year))) | |
1891 (and (<= offset 1) (>= offset -1))))) | |
628 | 1892 (day-in-week (calendar-day-of-week today))) |
1893 (update-calendar-mode-line) | |
957 | 1894 (if mon |
1895 (generate-calendar mon yr) | |
1896 (generate-calendar month year)) | |
628 | 1897 (calendar-cursor-to-visible-date |
1898 (if today-visible today (list displayed-month 1 displayed-year))) | |
1899 (set-buffer-modified-p nil) | |
33729
939d7e7181b6
(generate-calendar-window): When we don't call `fit-window-to-buffer',
Miles Bader <miles@gnu.org>
parents:
33438
diff
changeset
|
1900 (if (or (one-window-p t) (/= (frame-width) (window-width))) |
939d7e7181b6
(generate-calendar-window): When we don't call `fit-window-to-buffer',
Miles Bader <miles@gnu.org>
parents:
33438
diff
changeset
|
1901 ;; Don't mess with the window size, but ensure that the first |
939d7e7181b6
(generate-calendar-window): When we don't call `fit-window-to-buffer',
Miles Bader <miles@gnu.org>
parents:
33438
diff
changeset
|
1902 ;; line is fully visible |
939d7e7181b6
(generate-calendar-window): When we don't call `fit-window-to-buffer',
Miles Bader <miles@gnu.org>
parents:
33438
diff
changeset
|
1903 (set-window-vscroll nil 0) |
939d7e7181b6
(generate-calendar-window): When we don't call `fit-window-to-buffer',
Miles Bader <miles@gnu.org>
parents:
33438
diff
changeset
|
1904 ;; Adjust the window to exactly fit the displayed calendar |
33438
8b81b726f919
(generate-calendar-window): Use `fit-window-to-buffer'.
Miles Bader <miles@gnu.org>
parents:
33208
diff
changeset
|
1905 (fit-window-to-buffer)) |
628 | 1906 (sit-for 0) |
1907 (and mark-holidays-in-calendar | |
1908 (mark-calendar-holidays) | |
1909 (sit-for 0)) | |
1910 (unwind-protect | |
1911 (if mark-diary-entries-in-calendar (mark-diary-entries)) | |
1912 (if today-visible | |
1913 (run-hooks 'today-visible-calendar-hook) | |
1914 (run-hooks 'today-invisible-calendar-hook))))) | |
1915 | |
1916 (defun generate-calendar (month year) | |
1917 "Generate a three-month Gregorian calendar centered around MONTH, YEAR." | |
1918 (if (< (+ month (* 12 (1- year))) 2) | |
1919 (error "Months before February, 1 AD are not available.")) | |
1920 (setq displayed-month month) | |
1921 (setq displayed-year year) | |
1922 (erase-buffer) | |
1923 (increment-calendar-month month year -1) | |
1924 (calendar-for-loop i from 0 to 2 do | |
1925 (generate-calendar-month month year (+ 5 (* 25 i))) | |
1926 (increment-calendar-month month year 1))) | |
1927 | |
1928 (defun generate-calendar-month (month year indent) | |
1929 "Produce a calendar for MONTH, YEAR on the Gregorian calendar. | |
1930 The calendar is inserted in the buffer starting at the line on which point | |
1931 is currently located, but indented INDENT spaces. The indentation is done | |
1932 from the first character on the line and does not disturb the first INDENT | |
1933 characters on the line." | |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1934 (let* ((blank-days;; at start of month |
7760
4edcac57a8f2
(calendar-mod): Remove; it was equivalent to `mod'. All callers changed.
Paul Eggert <eggert@twinsun.com>
parents:
7759
diff
changeset
|
1935 (mod |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1936 (- (calendar-day-of-week (list month 1 year)) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1937 calendar-week-start-day) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1938 7)) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1939 (last (calendar-last-day-of-month month year))) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1940 (goto-char (point-min)) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1941 (calendar-insert-indented |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1942 (calendar-string-spread |
12061
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
1943 (list (format "%s %d" (calendar-month-name month) year)) ? 20) |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1944 indent t) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1945 (calendar-insert-indented "" indent);; Go to proper spot |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1946 (calendar-for-loop i from 0 to 6 do |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
1947 (insert (calendar-day-name (mod (+ calendar-week-start-day i) 7) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
1948 2 t)) |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1949 (insert " ")) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1950 (calendar-insert-indented "" 0 t);; Force onto following line |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1951 (calendar-insert-indented "" indent);; Go to proper spot |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1952 ;; Add blank days before the first of the month |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1953 (calendar-for-loop i from 1 to blank-days do (insert " ")) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1954 ;; Put in the days of the month |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1955 (calendar-for-loop i from 1 to last do |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1956 (insert (format "%2d " i)) |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
1957 (put-text-property (- (point) 3) (1- (point)) |
8143
1c621b9896c0
(generate-calendar-month): Make highlighted text for mouse-2 a one character
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7996
diff
changeset
|
1958 'mouse-face 'highlight) |
7760
4edcac57a8f2
(calendar-mod): Remove; it was equivalent to `mod'. All callers changed.
Paul Eggert <eggert@twinsun.com>
parents:
7759
diff
changeset
|
1959 (and (zerop (mod (+ i blank-days) 7)) |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1960 (/= i last) |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1961 (calendar-insert-indented "" 0 t) ;; Force onto following line |
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
1962 (calendar-insert-indented "" indent)))));; Go to proper spot |
628 | 1963 |
1964 (defun calendar-insert-indented (string indent &optional newline) | |
1965 "Insert STRING at column INDENT. | |
1966 If the optional parameter NEWLINE is t, leave point at start of next line, | |
1967 inserting a newline if there was no next line; otherwise, leave point after | |
1968 the inserted text. Value is always t." | |
1969 ;; Try to move to that column. | |
1970 (move-to-column indent) | |
1971 ;; If line is too short, indent out to that column. | |
1972 (if (< (current-column) indent) | |
1973 (indent-to indent)) | |
1974 (insert string) | |
1975 ;; Advance to next line, if requested. | |
1976 (if newline | |
1977 (progn | |
1978 (end-of-line) | |
1979 (if (eobp) | |
1980 (newline) | |
1981 (forward-line 1)))) | |
1982 t) | |
1983 | |
1984 (defun redraw-calendar () | |
1985 "Redraw the calendar display." | |
1986 (interactive) | |
26329
5dfb5127e9ee
(redraw-calendar): Move to nearest date before
Gerd Moellmann <gerd@gnu.org>
parents:
25412
diff
changeset
|
1987 (let ((cursor-date (calendar-cursor-to-nearest-date))) |
957 | 1988 (generate-calendar-window displayed-month displayed-year) |
628 | 1989 (calendar-cursor-to-visible-date cursor-date))) |
1990 | |
17625
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1991 (defcustom calendar-debug-sexp nil |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1992 "*Turn debugging on when evaluating a sexp in the diary or holiday list." |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1993 :type 'boolean |
321afd5b0bc5
Add defgroups, and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
16099
diff
changeset
|
1994 :group 'calendar) |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
1995 |
628 | 1996 (defvar calendar-mode-map nil) |
1997 (if calendar-mode-map | |
1998 nil | |
1999 (setq calendar-mode-map (make-sparse-keymap)) | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2000 (if window-system (require 'cal-menu)) |
628 | 2001 (calendar-for-loop i from 0 to 9 do |
2002 (define-key calendar-mode-map (int-to-string i) 'digit-argument)) | |
2003 (let ((l (list 'narrow-to-region 'mark-word 'mark-sexp 'mark-paragraph | |
6906
bcd548b4921d
(calendar-mode-map): Use substitute-key-definition.
Richard M. Stallman <rms@gnu.org>
parents:
6737
diff
changeset
|
2004 'mark-defun 'mark-whole-buffer 'mark-page |
9998
a119e2a45c5f
Undefine kill-region and copy-region-as-kill.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9859
diff
changeset
|
2005 'downcase-region 'upcase-region 'kill-region |
a119e2a45c5f
Undefine kill-region and copy-region-as-kill.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9859
diff
changeset
|
2006 'copy-region-as-kill 'capitalize-region 'write-region))) |
6906
bcd548b4921d
(calendar-mode-map): Use substitute-key-definition.
Richard M. Stallman <rms@gnu.org>
parents:
6737
diff
changeset
|
2007 (while l |
bcd548b4921d
(calendar-mode-map): Use substitute-key-definition.
Richard M. Stallman <rms@gnu.org>
parents:
6737
diff
changeset
|
2008 (substitute-key-definition (car l) 'calendar-not-implemented |
bcd548b4921d
(calendar-mode-map): Use substitute-key-definition.
Richard M. Stallman <rms@gnu.org>
parents:
6737
diff
changeset
|
2009 calendar-mode-map global-map) |
bcd548b4921d
(calendar-mode-map): Use substitute-key-definition.
Richard M. Stallman <rms@gnu.org>
parents:
6737
diff
changeset
|
2010 (setq l (cdr l)))) |
628 | 2011 (define-key calendar-mode-map "-" 'negative-argument) |
2012 (define-key calendar-mode-map "\C-x>" 'scroll-calendar-right) | |
4652
0f5527e47955
* calendar.el (calendar-absolute-from-iso,
Jim Blandy <jimb@redhat.com>
parents:
4530
diff
changeset
|
2013 (define-key calendar-mode-map [prior] 'scroll-calendar-right-three-months) |
5272
00beab2bf9f0
(calendar-mode-map): Put back C-v and M-v bindings.
Richard M. Stallman <rms@gnu.org>
parents:
5009
diff
changeset
|
2014 (define-key calendar-mode-map "\ev" 'scroll-calendar-right-three-months) |
628 | 2015 (define-key calendar-mode-map "\C-x<" 'scroll-calendar-left) |
4652
0f5527e47955
* calendar.el (calendar-absolute-from-iso,
Jim Blandy <jimb@redhat.com>
parents:
4530
diff
changeset
|
2016 (define-key calendar-mode-map [next] 'scroll-calendar-left-three-months) |
5272
00beab2bf9f0
(calendar-mode-map): Put back C-v and M-v bindings.
Richard M. Stallman <rms@gnu.org>
parents:
5009
diff
changeset
|
2017 (define-key calendar-mode-map "\C-v" 'scroll-calendar-left-three-months) |
628 | 2018 (define-key calendar-mode-map "\C-b" 'calendar-backward-day) |
2019 (define-key calendar-mode-map "\C-p" 'calendar-backward-week) | |
957 | 2020 (define-key calendar-mode-map "\e{" 'calendar-backward-month) |
628 | 2021 (define-key calendar-mode-map "\C-x[" 'calendar-backward-year) |
2022 (define-key calendar-mode-map "\C-f" 'calendar-forward-day) | |
2023 (define-key calendar-mode-map "\C-n" 'calendar-forward-week) | |
2688
a906a3882b9f
(calendar-mode-map): Add arrow key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2640
diff
changeset
|
2024 (define-key calendar-mode-map [left] 'calendar-backward-day) |
a906a3882b9f
(calendar-mode-map): Add arrow key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2640
diff
changeset
|
2025 (define-key calendar-mode-map [up] 'calendar-backward-week) |
a906a3882b9f
(calendar-mode-map): Add arrow key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2640
diff
changeset
|
2026 (define-key calendar-mode-map [right] 'calendar-forward-day) |
a906a3882b9f
(calendar-mode-map): Add arrow key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2640
diff
changeset
|
2027 (define-key calendar-mode-map [down] 'calendar-forward-week) |
957 | 2028 (define-key calendar-mode-map "\e}" 'calendar-forward-month) |
628 | 2029 (define-key calendar-mode-map "\C-x]" 'calendar-forward-year) |
2030 (define-key calendar-mode-map "\C-a" 'calendar-beginning-of-week) | |
2031 (define-key calendar-mode-map "\C-e" 'calendar-end-of-week) | |
2032 (define-key calendar-mode-map "\ea" 'calendar-beginning-of-month) | |
2033 (define-key calendar-mode-map "\ee" 'calendar-end-of-month) | |
2034 (define-key calendar-mode-map "\e<" 'calendar-beginning-of-year) | |
2035 (define-key calendar-mode-map "\e>" 'calendar-end-of-year) | |
2036 (define-key calendar-mode-map "\C-@" 'calendar-set-mark) | |
4339
2b1aa3183d79
(calendar-mode-map): Bind C-SPC.
Richard M. Stallman <rms@gnu.org>
parents:
4161
diff
changeset
|
2037 ;; Many people are used to typing C-SPC and getting C-@. |
20638
c3360a392ae4
Change "?\C-\ " to "?\C- " because "\ " is changed
Kenichi Handa <handa@m17n.org>
parents:
20462
diff
changeset
|
2038 (define-key calendar-mode-map [?\C- ] 'calendar-set-mark) |
628 | 2039 (define-key calendar-mode-map "\C-x\C-x" 'calendar-exchange-point-and-mark) |
957 | 2040 (define-key calendar-mode-map "\e=" 'calendar-count-days-region) |
2041 (define-key calendar-mode-map "gd" 'calendar-goto-date) | |
2042 (define-key calendar-mode-map "gj" 'calendar-goto-julian-date) | |
2043 (define-key calendar-mode-map "ga" 'calendar-goto-astro-day-number) | |
2044 (define-key calendar-mode-map "gh" 'calendar-goto-hebrew-date) | |
2045 (define-key calendar-mode-map "gi" 'calendar-goto-islamic-date) | |
36906 | 2046 (define-key calendar-mode-map "gb" 'calendar-goto-bahai-date) |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2047 (define-key calendar-mode-map "gC" 'calendar-goto-chinese-date) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2048 (define-key calendar-mode-map "gk" 'calendar-goto-coptic-date) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2049 (define-key calendar-mode-map "ge" 'calendar-goto-ethiopic-date) |
14915
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
2050 (define-key calendar-mode-map "gp" 'calendar-goto-persian-date) |
957 | 2051 (define-key calendar-mode-map "gc" 'calendar-goto-iso-date) |
2052 (define-key calendar-mode-map "gf" 'calendar-goto-french-date) | |
2053 (define-key calendar-mode-map "gml" 'calendar-goto-mayan-long-count-date) | |
2054 (define-key calendar-mode-map "gmpc" 'calendar-previous-calendar-round-date) | |
2055 (define-key calendar-mode-map "gmnc" 'calendar-next-calendar-round-date) | |
2056 (define-key calendar-mode-map "gmph" 'calendar-previous-haab-date) | |
2057 (define-key calendar-mode-map "gmnh" 'calendar-next-haab-date) | |
2058 (define-key calendar-mode-map "gmpt" 'calendar-previous-tzolkin-date) | |
2059 (define-key calendar-mode-map "gmnt" 'calendar-next-tzolkin-date) | |
24243
aa82f46ecc36
Fix key bindings for appt-add and appt-delete
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
24188
diff
changeset
|
2060 (define-key calendar-mode-map "Aa" 'appt-add) |
aa82f46ecc36
Fix key bindings for appt-add and appt-delete
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
24188
diff
changeset
|
2061 (define-key calendar-mode-map "Ad" 'appt-delete) |
957 | 2062 (define-key calendar-mode-map "S" 'calendar-sunrise-sunset) |
2063 (define-key calendar-mode-map "M" 'calendar-phases-of-moon) | |
2064 (define-key calendar-mode-map " " 'scroll-other-window) | |
628 | 2065 (define-key calendar-mode-map "\C-c\C-l" 'redraw-calendar) |
8262
676fd590cc41
(calendar-goto-today): Renamed from calendar-current-month.
Richard M. Stallman <rms@gnu.org>
parents:
8143
diff
changeset
|
2066 (define-key calendar-mode-map "." 'calendar-goto-today) |
957 | 2067 (define-key calendar-mode-map "o" 'calendar-other-month) |
2068 (define-key calendar-mode-map "q" 'exit-calendar) | |
2069 (define-key calendar-mode-map "a" 'list-calendar-holidays) | |
2070 (define-key calendar-mode-map "h" 'calendar-cursor-holidays) | |
2071 (define-key calendar-mode-map "x" 'mark-calendar-holidays) | |
2072 (define-key calendar-mode-map "u" 'calendar-unmark) | |
2073 (define-key calendar-mode-map "m" 'mark-diary-entries) | |
2074 (define-key calendar-mode-map "d" 'view-diary-entries) | |
9765
c48a14db3f7b
Bind new function to key.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9757
diff
changeset
|
2075 (define-key calendar-mode-map "D" 'view-other-diary-entries) |
957 | 2076 (define-key calendar-mode-map "s" 'show-all-diary-entries) |
2077 (define-key calendar-mode-map "pd" 'calendar-print-day-of-year) | |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2078 (define-key calendar-mode-map "pC" 'calendar-print-chinese-date) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2079 (define-key calendar-mode-map "pk" 'calendar-print-coptic-date) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2080 (define-key calendar-mode-map "pe" 'calendar-print-ethiopic-date) |
14915
5a4b28f19b75
Add references to Persian calendar.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
14687
diff
changeset
|
2081 (define-key calendar-mode-map "pp" 'calendar-print-persian-date) |
957 | 2082 (define-key calendar-mode-map "pc" 'calendar-print-iso-date) |
2083 (define-key calendar-mode-map "pj" 'calendar-print-julian-date) | |
2084 (define-key calendar-mode-map "pa" 'calendar-print-astro-day-number) | |
2085 (define-key calendar-mode-map "ph" 'calendar-print-hebrew-date) | |
2086 (define-key calendar-mode-map "pi" 'calendar-print-islamic-date) | |
36906 | 2087 (define-key calendar-mode-map "pb" 'calendar-print-bahai-date) |
957 | 2088 (define-key calendar-mode-map "pf" 'calendar-print-french-date) |
2089 (define-key calendar-mode-map "pm" 'calendar-print-mayan-date) | |
22261
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2090 (define-key calendar-mode-map "po" 'calendar-print-other-dates) |
957 | 2091 (define-key calendar-mode-map "id" 'insert-diary-entry) |
2092 (define-key calendar-mode-map "iw" 'insert-weekly-diary-entry) | |
2093 (define-key calendar-mode-map "im" 'insert-monthly-diary-entry) | |
2094 (define-key calendar-mode-map "iy" 'insert-yearly-diary-entry) | |
2095 (define-key calendar-mode-map "ia" 'insert-anniversary-diary-entry) | |
2096 (define-key calendar-mode-map "ib" 'insert-block-diary-entry) | |
2097 (define-key calendar-mode-map "ic" 'insert-cyclic-diary-entry) | |
2098 (define-key calendar-mode-map "ihd" 'insert-hebrew-diary-entry) | |
2099 (define-key calendar-mode-map "ihm" 'insert-monthly-hebrew-diary-entry) | |
2100 (define-key calendar-mode-map "ihy" 'insert-yearly-hebrew-diary-entry) | |
2101 (define-key calendar-mode-map "iid" 'insert-islamic-diary-entry) | |
2102 (define-key calendar-mode-map "iim" 'insert-monthly-islamic-diary-entry) | |
2103 (define-key calendar-mode-map "iiy" 'insert-yearly-islamic-diary-entry) | |
36906 | 2104 (define-key calendar-mode-map "iBd" 'insert-bahai-diary-entry) |
2105 (define-key calendar-mode-map "iBm" 'insert-monthly-bahai-diary-entry) | |
2106 (define-key calendar-mode-map "iBy" 'insert-yearly-bahai-diary-entry) | |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2107 (define-key calendar-mode-map "?" 'calendar-goto-info-node) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2108 (define-key calendar-mode-map "tm" 'cal-tex-cursor-month) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2109 (define-key calendar-mode-map "tM" 'cal-tex-cursor-month-landscape) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2110 (define-key calendar-mode-map "td" 'cal-tex-cursor-day) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2111 (define-key calendar-mode-map "tw1" 'cal-tex-cursor-week) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2112 (define-key calendar-mode-map "tw2" 'cal-tex-cursor-week2) |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
2113 (define-key calendar-mode-map "tw3" 'cal-tex-cursor-week-iso) |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
2114 (define-key calendar-mode-map "tw4" 'cal-tex-cursor-week-monday) |
19974
620ed2f8250e
(calendar-mode-map): Bind it to key.
Karl Heuer <kwzh@gnu.org>
parents:
19438
diff
changeset
|
2115 (define-key calendar-mode-map "tfd" 'cal-tex-cursor-filofax-daily) |
13596
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
2116 (define-key calendar-mode-map "tfw" 'cal-tex-cursor-filofax-2week) |
d205632cc756
(cal-tex-cursor-filofax-week): Renamed from cal-tex-cursor-week6.
Richard M. Stallman <rms@gnu.org>
parents:
13589
diff
changeset
|
2117 (define-key calendar-mode-map "tfW" 'cal-tex-cursor-filofax-week) |
13193
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2118 (define-key calendar-mode-map "tfy" 'cal-tex-cursor-filofax-year) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2119 (define-key calendar-mode-map "ty" 'cal-tex-cursor-year) |
a25a4f1246c0
Added key definitions and autoloads for cal-tex.el (a new file).
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
13042
diff
changeset
|
2120 (define-key calendar-mode-map "tY" 'cal-tex-cursor-year-landscape)) |
628 | 2121 |
2122 (defun describe-calendar-mode () | |
2123 "Create a help buffer with a brief description of the calendar-mode." | |
2124 (interactive) | |
2125 (with-output-to-temp-buffer "*Help*" | |
2126 (princ | |
2127 (format | |
2128 "Calendar Mode:\nFor a complete description, type %s\n%s\n" | |
2129 (substitute-command-keys | |
2130 "\\<calendar-mode-map>\\[describe-mode] from within the calendar") | |
2131 (substitute-command-keys "\\{calendar-mode-map}"))) | |
9859
addf04676b54
(describe-calendar-mode): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9837
diff
changeset
|
2132 (save-excursion |
addf04676b54
(describe-calendar-mode): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9837
diff
changeset
|
2133 (set-buffer standard-output) |
addf04676b54
(describe-calendar-mode): Set help-mode in *Help* buffer.
Karl Heuer <kwzh@gnu.org>
parents:
9837
diff
changeset
|
2134 (help-mode)) |
628 | 2135 (print-help-return-message))) |
2136 | |
2137 ;; Calendar mode is suitable only for specially formatted data. | |
2138 (put 'calendar-mode 'mode-class 'special) | |
2139 | |
2140 (defvar calendar-mode-line-format | |
957 | 2141 (list |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2142 (propertize (substitute-command-keys |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2143 "\\<calendar-mode-map>\\[scroll-calendar-left]") |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2144 'help-echo "mouse-2: scroll left" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2145 'keymap (make-mode-line-mouse2-map #'scroll-calendar-left)) |
957 | 2146 "Calendar" |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2147 (concat |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2148 (propertize |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2149 (substitute-command-keys |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2150 "\\<calendar-mode-map>\\[calendar-goto-info-node] info") |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2151 'help-echo "mouse-2: read Info on Calendar" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2152 'keymap (make-mode-line-mouse2-map #'calendar-goto-info-node)) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2153 "/" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2154 (propertize |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2155 (substitute-command-keys |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2156 "\\<calendar-mode-map>\\[calendar-other-month] other") |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2157 'help-echo "mouse-2: choose another month" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2158 'keymap (make-mode-line-mouse2-map (lambda () |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2159 (interactive) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2160 (call-interactively |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2161 'calendar-other-month)))) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2162 "/" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2163 (propertize |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2164 (substitute-command-keys |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2165 "\\<calendar-mode-map>\\[calendar-goto-today] today") |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2166 'help-echo "mouse-2: go to today's date" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2167 'keymap (make-mode-line-mouse2-map #'calendar-goto-today))) |
957 | 2168 '(calendar-date-string (calendar-current-date) t) |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2169 (propertize (substitute-command-keys |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2170 "\\<calendar-mode-map>\\[scroll-calendar-right]") |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2171 'help-echo "mouse-2: scroll right" |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2172 'keymap (make-mode-line-mouse2-map #'scroll-calendar-right))) |
628 | 2173 "The mode line of the calendar buffer.") |
2174 | |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2175 (defun calendar-goto-info-node () |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2176 "Go to the info node for the calendar." |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2177 (interactive) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2178 (require 'info) |
13589
a2554930ea38
(calendar-goto-info-node): Don't let
Richard M. Stallman <rms@gnu.org>
parents:
13573
diff
changeset
|
2179 (let ((where (save-window-excursion |
a2554930ea38
(calendar-goto-info-node): Don't let
Richard M. Stallman <rms@gnu.org>
parents:
13573
diff
changeset
|
2180 (Info-find-emacs-command-nodes 'calendar)))) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2181 (if (not where) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2182 (error "Couldn't find documentation for the calendar.") |
13589
a2554930ea38
(calendar-goto-info-node): Don't let
Richard M. Stallman <rms@gnu.org>
parents:
13573
diff
changeset
|
2183 (let (same-window-buffer-names) |
a2554930ea38
(calendar-goto-info-node): Don't let
Richard M. Stallman <rms@gnu.org>
parents:
13573
diff
changeset
|
2184 (info)) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2185 (Info-find-node (car (car where)) (car (cdr (car where))))))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2186 |
628 | 2187 (defun calendar-mode () |
957 | 2188 "A major mode for the calendar window. |
628 | 2189 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2190 For a complete description, type \ |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2191 \\<calendar-mode-map>\\[calendar-goto-info-node] from within the calendar. |
628 | 2192 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2193 \\<calendar-mode-map>\\{calendar-mode-map}" |
628 | 2194 |
2195 (kill-all-local-variables) | |
2196 (setq major-mode 'calendar-mode) | |
2197 (setq mode-name "Calendar") | |
2198 (use-local-map calendar-mode-map) | |
2199 (setq buffer-read-only t) | |
2200 (setq indent-tabs-mode nil) | |
957 | 2201 (update-calendar-mode-line) |
22270
0739384d4356
Minor fixes of earlier updates.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22261
diff
changeset
|
2202 (if window-system |
0739384d4356
Minor fixes of earlier updates.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22261
diff
changeset
|
2203 (progn |
0739384d4356
Minor fixes of earlier updates.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22261
diff
changeset
|
2204 (make-local-hook 'activate-menubar-hook) |
0739384d4356
Minor fixes of earlier updates.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22261
diff
changeset
|
2205 (add-hook 'activate-menubar-hook 'cal-menu-update nil t))) |
628 | 2206 (make-local-variable 'calendar-mark-ring) |
2207 (make-local-variable 'displayed-month);; Month in middle of window. | |
2208 (make-local-variable 'displayed-year));; Year in middle of window. | |
2209 | |
957 | 2210 (defun calendar-string-spread (strings char length) |
12061
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2211 "Concatenate list of STRINGS separated with copies of CHAR to fill LENGTH. |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2212 The effect is like mapconcat but the separating pieces are as balanced as |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2213 possible. Each item of STRINGS is evaluated before concatenation so it can |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2214 actually be an expression that evaluates to a string. If LENGTH is too short, |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2215 the STRINGS are just concatenated and the result truncated." |
957 | 2216 ;; The algorithm is based on equation (3.25) on page 85 of Concrete |
2217 ;; Mathematics by Ronald L. Graham, Donald E. Knuth, and Oren Patashnik, | |
2218 ;; Addison-Wesley, Reading, MA, 1989 | |
12061
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2219 (let* ((strings (mapcar 'eval |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2220 (if (< (length strings) 2) |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2221 (append (list "") strings (list "")) |
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2222 strings))) |
957 | 2223 (n (- length (length (apply 'concat strings)))) |
2224 (m (1- (length strings))) | |
2225 (s (car strings)) | |
2226 (strings (cdr strings)) | |
2227 (i 0)) | |
2228 (while strings | |
2229 (setq s (concat s | |
2230 (make-string (max 0 (/ (+ n i) m)) char) | |
2231 (car strings))) | |
2232 (setq i (1+ i)) | |
2233 (setq strings (cdr strings))) | |
2234 (substring s 0 length))) | |
2235 | |
628 | 2236 (defun update-calendar-mode-line () |
2237 "Update the calendar mode line with the current date and date style." | |
2238 (if (bufferp (get-buffer calendar-buffer)) | |
2239 (save-excursion | |
2240 (set-buffer calendar-buffer) | |
2241 (setq mode-line-format | |
957 | 2242 (calendar-string-spread |
2243 calendar-mode-line-format ? (frame-width)))))) | |
628 | 2244 |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2245 (defun calendar-window-list () |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2246 "List of all calendar-related windows." |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2247 (let ((calendar-buffers (calendar-buffer-list)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2248 list) |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2249 (walk-windows (lambda (w) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2250 (if (memq (window-buffer w) calendar-buffers) |
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2251 (setq list (cons w list)))) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2252 nil t) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2253 list)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2254 |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2255 (defun calendar-buffer-list () |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2256 "List of all calendar-related buffers." |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2257 (let* ((diary-buffer (get-file-buffer diary-file)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2258 (buffers (list "*Yahrzeits*" lunar-phases-buffer holiday-buffer |
22270
0739384d4356
Minor fixes of earlier updates.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22261
diff
changeset
|
2259 fancy-diary-buffer diary-buffer calendar-buffer |
0739384d4356
Minor fixes of earlier updates.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22261
diff
changeset
|
2260 other-calendars-buffer)) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2261 (buffer-list nil) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2262 b) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2263 (while buffers |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2264 (setq b (car buffers)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2265 (setq b (cond ((stringp b) (get-buffer b)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2266 ((bufferp b) b) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2267 (t nil))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2268 (if b (setq buffer-list (cons b buffer-list))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2269 (setq buffers (cdr buffers))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2270 buffer-list)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2271 |
628 | 2272 (defun exit-calendar () |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2273 "Get out of the calendar window and hide it and related buffers." |
628 | 2274 (interactive) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2275 (let* ((diary-buffer (get-file-buffer diary-file))) |
22028
639be14b80ef
On exiting, don't signal error when user changes mind.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22027
diff
changeset
|
2276 (if (or (not diary-buffer) |
639be14b80ef
On exiting, don't signal error when user changes mind.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22027
diff
changeset
|
2277 (not (buffer-modified-p diary-buffer)) |
639be14b80ef
On exiting, don't signal error when user changes mind.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22027
diff
changeset
|
2278 (yes-or-no-p |
639be14b80ef
On exiting, don't signal error when user changes mind.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22027
diff
changeset
|
2279 "Diary modified; do you really want to exit the calendar? ")) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2280 ;; Need to do this multiple times because one time can replace some |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2281 ;; calendar-related buffers with other calendar-related buffers |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2282 (mapcar (lambda (x) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2283 (mapcar 'calendar-hide-window (calendar-window-list))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2284 (calendar-window-list))))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2285 |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2286 (defun calendar-hide-window (window) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2287 "Hide WINDOW if it is calendar-related." |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2288 (let ((buffer (if (window-live-p window) (window-buffer window)))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2289 (if (memq buffer (calendar-buffer-list)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2290 (cond |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2291 ((and window-system |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2292 (eq 'icon (cdr (assoc 'visibility |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2293 (frame-parameters |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2294 (window-frame window)))))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2295 nil) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2296 ((and window-system (window-dedicated-p window)) |
26427
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
2297 (if calendar-remove-frame-by-deleting |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
2298 (delete-frame (window-frame window)) |
3b6cf16f3633
* calendar/calendar.el (calendar-remove-frame-by-deleting):
Sam Steingold <sds@gnu.org>
parents:
26329
diff
changeset
|
2299 (iconify-frame (window-frame window)))) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2300 ((not (and (select-window window) (one-window-p window))) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2301 (delete-window window)) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2302 (t (set-buffer buffer) |
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2303 (bury-buffer)))))) |
628 | 2304 |
2305 (defun calendar-current-date () | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2306 "Return the current date in a list (month day year)." |
16099
e3b0c3bf4451
(calendar-current-date): Simplify by using decode-time instead
Richard M. Stallman <rms@gnu.org>
parents:
15317
diff
changeset
|
2307 (let ((now (decode-time))) |
e3b0c3bf4451
(calendar-current-date): Simplify by using decode-time instead
Richard M. Stallman <rms@gnu.org>
parents:
15317
diff
changeset
|
2308 (list (nth 4 now) (nth 3 now) (nth 5 now)))) |
628 | 2309 |
5829
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2310 (defun calendar-cursor-to-date (&optional error) |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2311 "Return a list (month day year) of current cursor position. |
5829
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2312 If cursor is not on a specific date, signals an error if optional parameter |
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2313 ERROR is t, otherwise just returns nil." |
6037
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2314 (let* ((segment (/ (current-column) 25)) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2315 (month (% (+ displayed-month segment -1) 12)) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2316 (month (if (= 0 month) 12 month)) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2317 (year |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2318 (cond |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2319 ((and (= 12 month) (= segment 0)) (1- displayed-year)) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2320 ((and (= 1 month) (= segment 2)) (1+ displayed-year)) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2321 (t displayed-year)))) |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2322 (if (and (looking-at "[ 0-9]?[0-9][^0-9]") |
6037
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2323 (< 2 (count-lines (point-min) (point)))) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2324 (save-excursion |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2325 (if (not (looking-at " ")) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2326 (re-search-backward "[^0-9]")) |
6037
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2327 (list month |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2328 (string-to-int (buffer-substring (1+ (point)) (+ 4 (point)))) |
324bb3410cfb
Fix calendar-cursor-to-date to handle starred days correctly.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
6025
diff
changeset
|
2329 year)) |
7441
7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7404
diff
changeset
|
2330 (if (looking-at "\\*") |
7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7404
diff
changeset
|
2331 (save-excursion |
7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7404
diff
changeset
|
2332 (re-search-backward "[^*]") |
7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7404
diff
changeset
|
2333 (if (looking-at ".\\*\\*") |
7714
f90c3d5352e9
(calendar-cursor-to-date): Rename starred-day to calendar-starred-day.
Richard M. Stallman <rms@gnu.org>
parents:
7441
diff
changeset
|
2334 (list month calendar-starred-day year) |
7441
7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7404
diff
changeset
|
2335 (if error (error "Not on a date!")))) |
7f25bd8883e6
(calendar-cursor-to-date): Fix error return.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
7404
diff
changeset
|
2336 (if error (error "Not on a date!")))))) |
628 | 2337 |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2338 ;; The following version of calendar-gregorian-from-absolute is preferred for |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2339 ;; reasons of clarity, BUT it's much slower than the version that follows it. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2340 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2341 ;;(defun calendar-gregorian-from-absolute (date) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2342 ;; "Compute the list (month day year) corresponding to the absolute DATE. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2343 ;;The absolute date is the number of days elapsed since the (imaginary) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2344 ;;Gregorian date Sunday, December 31, 1 BC." |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2345 ;; (let* ((approx (/ date 366));; Approximation from below. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2346 ;; (year ;; Search forward from the approximation. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2347 ;; (+ approx |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2348 ;; (calendar-sum y approx |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2349 ;; (>= date (calendar-absolute-from-gregorian (list 1 1 (1+ y)))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2350 ;; 1))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2351 ;; (month ;; Search forward from January. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2352 ;; (1+ (calendar-sum m 1 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2353 ;; (> date |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2354 ;; (calendar-absolute-from-gregorian |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2355 ;; (list m (calendar-last-day-of-month m year) year))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2356 ;; 1))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2357 ;; (day ;; Calculate the day by subtraction. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2358 ;; (- date |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2359 ;; (1- (calendar-absolute-from-gregorian (list month 1 year)))))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2360 ;; (list month day year))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2361 |
628 | 2362 (defun calendar-gregorian-from-absolute (date) |
2363 "Compute the list (month day year) corresponding to the absolute DATE. | |
2364 The absolute date is the number of days elapsed since the (imaginary) | |
2365 Gregorian date Sunday, December 31, 1 BC." | |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2366 ;; See the footnote on page 384 of ``Calendrical Calculations, Part II: |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2367 ;; Three Historical Calendars'' by E. M. Reingold, N. Dershowitz, and S. M. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2368 ;; Clamen, Software--Practice and Experience, Volume 23, Number 4 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2369 ;; (April, 1993), pages 383-404 for an explanation. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2370 (let* ((d0 (1- date)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2371 (n400 (/ d0 146097)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2372 (d1 (% d0 146097)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2373 (n100 (/ d1 36524)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2374 (d2 (% d1 36524)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2375 (n4 (/ d2 1461)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2376 (d3 (% d2 1461)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2377 (n1 (/ d3 365)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2378 (day (1+ (% d3 365))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2379 (year (+ (* 400 n400) (* 100 n100) (* n4 4) n1))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2380 (if (or (= n100 4) (= n1 4)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2381 (list 12 31 year) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2382 (let ((year (1+ year)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2383 (month 1)) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2384 (while (let ((mdays (calendar-last-day-of-month month year))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2385 (and (< mdays day) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2386 (setq day (- day mdays)))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2387 (setq month (1+ month))) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2388 (list month day year))))) |
628 | 2389 |
2390 (defun calendar-other-month (month year) | |
2391 "Display a three-month calendar centered around MONTH and YEAR." | |
9747
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2392 (interactive (calendar-read-date 'noday)) |
628 | 2393 (if (and (= month displayed-month) |
2394 (= year displayed-year)) | |
2395 nil | |
2396 (let ((old-date (calendar-cursor-to-date)) | |
2397 (today (calendar-current-date))) | |
957 | 2398 (generate-calendar-window month year) |
628 | 2399 (calendar-cursor-to-visible-date |
2400 (cond | |
2401 ((calendar-date-is-visible-p old-date) old-date) | |
2402 ((calendar-date-is-visible-p today) today) | |
2403 (t (list month 1 year))))))) | |
2404 | |
2405 (defun calendar-set-mark (arg) | |
2406 "Mark the date under the cursor, or jump to marked date. | |
2407 With no prefix argument, push current date onto marked date ring. | |
2408 With argument, jump to mark, pop it, and put point at end of ring." | |
2409 (interactive "P") | |
5829
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2410 (let ((date (calendar-cursor-to-date t))) |
628 | 2411 (if (null arg) |
2412 (progn | |
2413 (setq calendar-mark-ring (cons date calendar-mark-ring)) | |
2414 ;; Since the top of the mark ring is the marked date in the | |
2415 ;; calendar, the mark ring in the calendar is one longer than | |
2416 ;; in other buffers to get the same effect. | |
2417 (if (> (length calendar-mark-ring) (1+ mark-ring-max)) | |
2418 (setcdr (nthcdr mark-ring-max calendar-mark-ring) nil)) | |
2419 (message "Mark set")) | |
2420 (if (null calendar-mark-ring) | |
2421 (error "No mark set in this buffer") | |
2422 (calendar-goto-date (car calendar-mark-ring)) | |
2423 (setq calendar-mark-ring | |
2424 (cdr (nconc calendar-mark-ring (list date)))))))) | |
2425 | |
2426 (defun calendar-exchange-point-and-mark () | |
2427 "Exchange the current cursor position with the marked date." | |
2428 (interactive) | |
2429 (let ((mark (car calendar-mark-ring)) | |
5829
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2430 (date (calendar-cursor-to-date t))) |
628 | 2431 (if (null mark) |
2432 (error "No mark set in this buffer") | |
2433 (setq calendar-mark-ring (cons date (cdr calendar-mark-ring))) | |
2434 (calendar-goto-date mark)))) | |
2435 | |
2436 (defun calendar-count-days-region () | |
2437 "Count the number of days (inclusive) between point and the mark." | |
2438 (interactive) | |
2439 (let* ((days (- (calendar-absolute-from-gregorian | |
5829
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2440 (calendar-cursor-to-date t)) |
628 | 2441 (calendar-absolute-from-gregorian |
2442 (or (car calendar-mark-ring) | |
2443 (error "No mark set in this buffer"))))) | |
2444 (days (1+ (if (> days 0) days (- days))))) | |
2445 (message "Region has %d day%s (inclusive)" | |
2446 days (if (> days 1) "s" "")))) | |
2447 | |
2448 (defun calendar-not-implemented () | |
2449 "Not implemented." | |
2450 (interactive) | |
2451 (error "%s not available in the calendar" | |
2452 (global-key-binding (this-command-keys)))) | |
2453 | |
2454 (defun calendar-read (prompt acceptable &optional initial-contents) | |
2455 "Return an object read from the minibuffer. | |
2456 Prompt with the string PROMPT and use the function ACCEPTABLE to decide if | |
2457 entered item is acceptable. If non-nil, optional third arg INITIAL-CONTENTS | |
2458 is a string to insert in the minibuffer before reading." | |
2459 (let ((value (read-minibuffer prompt initial-contents))) | |
2460 (while (not (funcall acceptable value)) | |
2461 (setq value (read-minibuffer prompt initial-contents))) | |
2462 value)) | |
2463 | |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2464 (defun calendar-read-date (&optional noday) |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2465 "Prompt for Gregorian date. Return a list (month day year). |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2466 If optional NODAY is t, does not ask for day, but just returns |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2467 \(month nil year); if NODAY is any other non-nil value the value returned is |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2468 \(month year)" |
957 | 2469 (let* ((year (calendar-read |
2470 "Year (>0): " | |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2471 (lambda (x) (> x 0)) |
957 | 2472 (int-to-string (extract-calendar-year |
2473 (calendar-current-date))))) | |
2474 (month-array calendar-month-name-array) | |
2475 (completion-ignore-case t) | |
24188
94db9f395842
(calendar-read-date): Use assoc-ignore-case and do not capitalize when
Richard M. Stallman <rms@gnu.org>
parents:
23531
diff
changeset
|
2476 (month (cdr (assoc-ignore-case |
957 | 2477 (completing-read |
2478 "Month name: " | |
2479 (mapcar 'list (append month-array nil)) | |
24188
94db9f395842
(calendar-read-date): Use assoc-ignore-case and do not capitalize when
Richard M. Stallman <rms@gnu.org>
parents:
23531
diff
changeset
|
2480 nil t) |
94db9f395842
(calendar-read-date): Use assoc-ignore-case and do not capitalize when
Richard M. Stallman <rms@gnu.org>
parents:
23531
diff
changeset
|
2481 (calendar-make-alist month-array 1)))) |
9709
3ece524b8ea3
Lots of minor fixes and code polishing. Exit-calendar code rewritten.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9417
diff
changeset
|
2482 (last (calendar-last-day-of-month month year))) |
9747
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2483 (if noday |
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2484 (if (eq noday t) |
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2485 (list month nil year) |
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2486 (list month year)) |
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2487 (list month |
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2488 (calendar-read (format "Day (1-%d): " last) |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2489 (lambda (x) (and (< 0 x) (<= x last)))) |
9747
5586959f3393
Redo the noday option for calendar-read-date.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
9709
diff
changeset
|
2490 year)))) |
957 | 2491 |
628 | 2492 (defun calendar-interval (mon1 yr1 mon2 yr2) |
957 | 2493 "The number of months difference between MON1, YR1 and MON2, YR2." |
628 | 2494 (+ (* 12 (- yr2 yr1)) |
2495 (- mon2 mon1))) | |
2496 | |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2497 (defun calendar-day-name (date &optional width absolute) |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2498 "Return a string with the name of the day of the week of DATE. |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2499 If WIDTH is non-nil, return just the first WIDTH characters of the name. |
20429
ad8d3c6d3d94
(calendar-day-name): Truncate properly when
Karl Heuer <kwzh@gnu.org>
parents:
20422
diff
changeset
|
2500 If ABSOLUTE is non-nil, then DATE is actually the day-of-the-week |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2501 rather than a date." |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2502 (let ((string (aref calendar-day-name-array |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2503 (if absolute date (calendar-day-of-week date))))) |
20429
ad8d3c6d3d94
(calendar-day-name): Truncate properly when
Karl Heuer <kwzh@gnu.org>
parents:
20422
diff
changeset
|
2504 (cond ((null width) string) |
ad8d3c6d3d94
(calendar-day-name): Truncate properly when
Karl Heuer <kwzh@gnu.org>
parents:
20422
diff
changeset
|
2505 (enable-multibyte-characters (truncate-string-to-width string width)) |
ad8d3c6d3d94
(calendar-day-name): Truncate properly when
Karl Heuer <kwzh@gnu.org>
parents:
20422
diff
changeset
|
2506 (t (substring string 0 width))))) |
628 | 2507 |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
2508 (defvar calendar-day-name-array |
23531
37ae25c77df0
Add doc strings CORRECTLY!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
23498
diff
changeset
|
2509 ["Sunday" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"] |
37ae25c77df0
Add doc strings CORRECTLY!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
23498
diff
changeset
|
2510 "Array of capitalized strings giving, in order, the day names.") |
628 | 2511 |
4861
924486090b27
(calendar-week-start-day): New var (autoloaded) to
Richard M. Stallman <rms@gnu.org>
parents:
4658
diff
changeset
|
2512 (defvar calendar-month-name-array |
628 | 2513 ["January" "February" "March" "April" "May" "June" |
23531
37ae25c77df0
Add doc strings CORRECTLY!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
23498
diff
changeset
|
2514 "July" "August" "September" "October" "November" "December"] |
37ae25c77df0
Add doc strings CORRECTLY!
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
23498
diff
changeset
|
2515 "Array of capitalized strings giving, in order, the month names.") |
628 | 2516 |
2517 (defun calendar-make-alist (sequence &optional start-index filter) | |
2518 "Make an assoc list corresponding to SEQUENCE. | |
2519 Start at index 1, unless optional START-INDEX is provided. | |
2520 If FILTER is provided, apply it to each item in the list." | |
2521 (let ((index (if start-index (1- start-index) 0))) | |
2522 (mapcar | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2523 (lambda (x) |
628 | 2524 (setq index (1+ index)) |
2525 (cons (if filter (funcall filter x) x) | |
2526 index)) | |
2527 (append sequence nil)))) | |
2528 | |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2529 (defun calendar-month-name (month &optional width) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2530 "The name of MONTH. |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2531 If WIDTH is non-nil, return just the first WIDTH characters of the name." |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2532 (let ((string (aref calendar-month-name-array (1- month)))) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2533 (if width |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2534 (let ((i 0) (result "") (pos 0)) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2535 (while (< i width) |
31669
ec8ce5820488
(calendar-mode-line-format): Make fields
Dave Love <fx@gnu.org>
parents:
26530
diff
changeset
|
2536 (let ((chartext (char-to-string (aref string pos)))) |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2537 (setq pos (+ pos (length chartext))) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2538 (setq result (concat result chartext))) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2539 (setq i (1+ i))) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2540 result) |
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2541 string))) |
628 | 2542 |
2543 (defun calendar-day-of-week (date) | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2544 "Return the day-of-the-week index of DATE, 0 for Sunday, 1 for Monday, etc." |
628 | 2545 (% (calendar-absolute-from-gregorian date) 7)) |
2546 | |
2547 (defun calendar-unmark () | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2548 "Delete all diary/holiday marks/highlighting from the calendar." |
628 | 2549 (interactive) |
2550 (setq mark-holidays-in-calendar nil) | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2551 (setq mark-diary-entries-in-calendar nil) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2552 (redraw-calendar)) |
628 | 2553 |
2554 (defun calendar-date-is-visible-p (date) | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2555 "Return t if DATE is legal and is visible in the calendar window." |
628 | 2556 (let ((gap (calendar-interval |
2557 displayed-month displayed-year | |
2558 (extract-calendar-month date) (extract-calendar-year date)))) | |
2559 (and (calendar-date-is-legal-p date) (> 2 gap) (< -2 gap)))) | |
2560 | |
2561 (defun calendar-date-is-legal-p (date) | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2562 "Return t if DATE is a legal date." |
628 | 2563 (let ((month (extract-calendar-month date)) |
2564 (day (extract-calendar-day date)) | |
2565 (year (extract-calendar-year date))) | |
2566 (and (<= 1 month) (<= month 12) | |
2567 (<= 1 day) (<= day (calendar-last-day-of-month month year)) | |
2568 (<= 1 year)))) | |
2569 | |
2570 (defun calendar-date-equal (date1 date2) | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2571 "Return t if the DATE1 and DATE2 are the same." |
628 | 2572 (and |
2573 (= (extract-calendar-month date1) (extract-calendar-month date2)) | |
2574 (= (extract-calendar-day date1) (extract-calendar-day date2)) | |
2575 (= (extract-calendar-year date1) (extract-calendar-year date2)))) | |
2576 | |
2577 (defun mark-visible-calendar-date (date &optional mark) | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2578 "Mark DATE in the calendar window with MARK. |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2579 MARK is either a single-character string or a face. |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2580 MARK defaults to diary-entry-marker." |
628 | 2581 (if (calendar-date-is-legal-p date) |
2582 (save-excursion | |
2583 (set-buffer calendar-buffer) | |
2584 (calendar-cursor-to-visible-date date) | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2585 (let ((mark (or mark diary-entry-marker))) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2586 (if (stringp mark) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2587 (let ((buffer-read-only nil)) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2588 (forward-char 1) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2589 (delete-char 1) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2590 (insert mark) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2591 (forward-char -2)) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2592 (overlay-put |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2593 (make-overlay (1- (point)) (1+ (point))) 'face mark)))))) |
628 | 2594 |
2595 (defun calendar-star-date () | |
2596 "Replace the date under the cursor in the calendar window with asterisks. | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2597 This function can be used with the `today-visible-calendar-hook' run after the |
628 | 2598 calendar window has been prepared." |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2599 (let ((inhibit-read-only t)) |
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2600 (make-local-variable 'calendar-starred-day) |
628 | 2601 (forward-char 1) |
7132
1842a026e270
(calendar-starred-day): Var renamed from starred-day.
Richard M. Stallman <rms@gnu.org>
parents:
6906
diff
changeset
|
2602 (setq calendar-starred-day |
957 | 2603 (string-to-int |
2604 (buffer-substring (point) (- (point) 2)))) | |
628 | 2605 (delete-char -2) |
2606 (insert "**") | |
2607 (backward-char 1) | |
2608 (set-buffer-modified-p nil))) | |
2609 | |
2610 (defun calendar-mark-today () | |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2611 "Mark the date under the cursor in the calendar window. |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2612 The date is marked with calendar-today-marker. This function can be used with |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2613 the `today-visible-calendar-hook' run after the calendar window has been |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2614 prepared." |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2615 (mark-visible-calendar-date |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2616 (calendar-cursor-to-date) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2617 calendar-today-marker)) |
628 | 2618 |
2619 (defun calendar-date-compare (date1 date2) | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2620 "Return t if DATE1 is before DATE2, nil otherwise. |
628 | 2621 The actual dates are in the car of DATE1 and DATE2." |
2622 (< (calendar-absolute-from-gregorian (car date1)) | |
2623 (calendar-absolute-from-gregorian (car date2)))) | |
2624 | |
2625 (defun calendar-date-string (date &optional abbreviate nodayname) | |
2626 "A string form of DATE, driven by the variable `calendar-date-display-form'. | |
2627 An optional parameter ABBREVIATE, when t, causes the month and day names to be | |
2628 abbreviated to three characters. An optional parameter NODAYNAME, when t, | |
2629 omits the name of the day of the week." | |
2630 (let* ((dayname | |
2631 (if nodayname | |
957 | 2632 nil |
628 | 2633 (if abbreviate |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2634 (calendar-day-name date 3) |
628 | 2635 (calendar-day-name date)))) |
2636 (month (extract-calendar-month date)) | |
2637 (monthname | |
2638 (if abbreviate | |
18940
953dfe84b101
(calendar-day-name): New optional args WIDTH, ABSOLUTE.
Richard M. Stallman <rms@gnu.org>
parents:
17625
diff
changeset
|
2639 (calendar-month-name month 3) |
628 | 2640 (calendar-month-name month))) |
2641 (day (int-to-string (extract-calendar-day date))) | |
2642 (month (int-to-string month)) | |
2643 (year (int-to-string (extract-calendar-year date)))) | |
2644 (mapconcat 'eval calendar-date-display-form ""))) | |
2645 | |
2646 (defun calendar-dayname-on-or-before (dayname date) | |
31730
719a230f8091
Docstring fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31671
diff
changeset
|
2647 "Return the absolute date of the DAYNAME on or before absolute DATE. |
628 | 2648 DAYNAME=0 means Sunday, DAYNAME=1 means Monday, and so on. |
2649 | |
2650 Note: Applying this function to d+6 gives us the DAYNAME on or after an | |
2651 absolute day d. Similarly, applying it to d+3 gives the DAYNAME nearest to | |
2652 absolute date d, applying it to d-1 gives the DAYNAME previous to absolute | |
2653 date d, and applying it to d+7 gives the DAYNAME following absolute date d." | |
2654 (- date (% (- date dayname) 7))) | |
2655 | |
4658
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2656 (defun calendar-nth-named-absday (n dayname month year &optional day) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2657 "The absolute date of Nth DAYNAME in MONTH, YEAR before/after optional DAY. |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2658 A DAYNAME of 0 means Sunday, 1 means Monday, and so on. If N<0, |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2659 return the Nth DAYNAME before MONTH DAY, YEAR (inclusive). |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2660 If N>0, return the Nth DAYNAME after MONTH DAY, YEAR (inclusive). |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2661 |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2662 If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise." |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2663 (if (> n 0) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2664 (+ (* 7 (1- n)) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2665 (calendar-dayname-on-or-before |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2666 dayname |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2667 (+ 6 (calendar-absolute-from-gregorian |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2668 (list month (or day 1) year))))) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2669 (+ (* 7 (1+ n)) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2670 (calendar-dayname-on-or-before |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2671 dayname |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2672 (calendar-absolute-from-gregorian |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2673 (list month |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2674 (or day (calendar-last-day-of-month month year)) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2675 year)))))) |
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2676 |
3865
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2677 (defun calendar-nth-named-day (n dayname month year &optional day) |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2678 "The date of Nth DAYNAME in MONTH, YEAR before/after optional DAY. |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2679 A DAYNAME of 0 means Sunday, 1 means Monday, and so on. If N<0, |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2680 return the Nth DAYNAME before MONTH DAY, YEAR (inclusive). |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2681 If N>0, return the Nth DAYNAME after MONTH DAY, YEAR (inclusive). |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2682 |
2c6883d0a1b2
* calendar.el (calendar-version): Update to 5.1. Fixed a variety
Jim Blandy <jimb@redhat.com>
parents:
3778
diff
changeset
|
2683 If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise." |
628 | 2684 (calendar-gregorian-from-absolute |
4658
a34bd3ee36ef
(solar-holidays): Use new
Paul Eggert <eggert@twinsun.com>
parents:
4652
diff
changeset
|
2685 (calendar-nth-named-absday n dayname month year day))) |
628 | 2686 |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2687 (defun calendar-day-of-year-string (&optional date) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2688 "String of day number of year of Gregorian DATE. |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2689 Defaults to today's date if DATE is not given." |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2690 (let* ((d (or date (calendar-current-date))) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2691 (year (extract-calendar-year d)) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2692 (day (calendar-day-number d)) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2693 (days-remaining (- (calendar-day-number (list 12 31 year)) day))) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2694 (format "Day %d of %d; %d day%s remaining in the year" |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2695 day year days-remaining (if (= days-remaining 1) "" "s")))) |
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2696 |
22261
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2697 (defun calendar-print-other-dates () |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2698 "Show dates on other calendars for date under the cursor." |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2699 (interactive) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2700 (let* ((date (calendar-cursor-to-date t))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2701 (save-excursion |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2702 (set-buffer (get-buffer-create other-calendars-buffer)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2703 (setq buffer-read-only nil) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2704 (calendar-set-mode-line |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2705 (concat (calendar-date-string date) " (Gregorian)")) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2706 (erase-buffer) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2707 (insert |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2708 (mapconcat 'identity |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2709 (list (calendar-day-of-year-string date) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2710 (format "ISO date: %s" (calendar-iso-date-string date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2711 (format "Julian date: %s" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2712 (calendar-julian-date-string date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2713 (format |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2714 "Astronomical (Julian) day number (at noon UTC): %s.0" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2715 (calendar-astro-date-string date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2716 (format "Fixed (RD) date: %s" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2717 (calendar-absolute-from-gregorian date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2718 (format "Hebrew date (before sunset): %s" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2719 (calendar-hebrew-date-string date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2720 (format "Persian date: %s" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2721 (calendar-persian-date-string date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2722 (let ((i (calendar-islamic-date-string date))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2723 (if (not (string-equal i "")) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2724 (format "Islamic date (before sunset): %s" i))) |
36906 | 2725 (let ((b (calendar-bahai-date-string date))) |
2726 (if (not (string-equal b "")) | |
2727 (format "Baha'i date (before sunset): %s" b))) | |
22261
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2728 (format "Chinese date: %s" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2729 (calendar-chinese-date-string date)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2730 (let ((c (calendar-coptic-date-string date))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2731 (if (not (string-equal c "")) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2732 (format "Coptic date: %s" c))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2733 (let ((e (calendar-ethiopic-date-string date))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2734 (if (not (string-equal e "")) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2735 (format "Ethiopic date: %s" e))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2736 (let ((f (calendar-french-date-string date))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2737 (if (not (string-equal f "")) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2738 (format "French Revolutionary date: %s" f))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2739 (format "Mayan date: %s" |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2740 (calendar-mayan-date-string date))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2741 "\n")) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2742 (goto-char (point-min)) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2743 (set-buffer-modified-p nil) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2744 (setq buffer-read-only t) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2745 (display-buffer other-calendars-buffer)))) |
329f546a73ec
Add function to show equivalent date on all available calendars (in parallel
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
22028
diff
changeset
|
2746 |
957 | 2747 (defun calendar-print-day-of-year () |
5694
69471d331d0c
(calendar-version): New function.
Richard M. Stallman <rms@gnu.org>
parents:
5272
diff
changeset
|
2748 "Show day number in year/days remaining in year for date under the cursor." |
628 | 2749 (interactive) |
5829
d266967cc1cc
(calendar-mode-line-format): Change "current" to "today".
Richard M. Stallman <rms@gnu.org>
parents:
5771
diff
changeset
|
2750 (message (calendar-day-of-year-string (calendar-cursor-to-date t)))) |
628 | 2751 |
957 | 2752 (defun calendar-set-mode-line (str) |
2753 "Set mode line to STR, centered, surrounded by dashes." | |
2754 (setq mode-line-format | |
12061
017af11017a0
Fixed calendar-string-spread to allow 0 or 1 string; this simplified several
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
10459
diff
changeset
|
2755 (calendar-string-spread (list str) ?- (frame-width)))) |
957 | 2756 |
13042
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2757 (defun calendar-mod (m n) |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2758 "Non-negative remainder of M/N with N instead of 0." |
03ef030c9e75
Many functions moved to other files, some rewritten. See ChangeLog entry.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
12061
diff
changeset
|
2759 (1+ (mod (1- m) n))) |
957 | 2760 |
2761 (run-hooks 'calendar-load-hook) | |
628 | 2762 |
2763 (provide 'calendar) | |
2764 | |
14169 | 2765 ;;; Local variables: |
2766 ;;; byte-compile-dynamic: t | |
2767 ;;; End: | |
2768 | |
675
85fd29f25c75
*** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents:
628
diff
changeset
|
2769 ;;; calendar.el ends here |