Mercurial > emacs
annotate lisp/calendar/cal-move.el @ 92594:674c88622bd9
Move many autoloads to separate file, cal-loaddefs.el.
Move defcustoms to start and re-order.
(calendar-month-name-array, calendar-starred-day): No need to declare
for compiler.
(cal-loaddefs): Require it.
(appt, chinese-calendar, calendar-tex): Move custom groups to the
appropriate file.
(diary-entry-marker, calendar-today-marker, calendar-holiday-marker):
Reverse logic.
(diary-face, diary-file-name-prefix-function, diary-include-string)
(diary-glob-file-regexp-prefix, diary-face-attrs)
(diary-file-name-prefix, sexp-diary-entry-symbol)
(print-diary-entries-hook, list-diary-entries-hook)
(nongregorian-diary-listing-hook, mark-diary-entries-hook)
(nongregorian-diary-marking-hook, diary-list-include-blanks):
Move to diary-lib.
(all-christian-calendar-holidays, all-islamic-calendar-holidays)
(all-bahai-calendar-holidays): Doc fix.
(calendar-mark-ring): Add doc-string.
(calendar-starred-day): Defvar it.
(calendar-mode): Make calendar-starred-day local.
(calendar-star-date): No need to make calendar-starred-day local.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Sat, 08 Mar 2008 03:47:03 +0000 |
parents | 8ef3d5355402 |
children | decf6dfe9876 |
rev | line source |
---|---|
13053 | 1 ;;; cal-move.el --- calendar functions for movement in the calendar |
2 | |
79703 | 3 ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 |
67465
a55ee709ec8d
Update copyright pending Emacs 22.
Glenn Morris <rgm@gnu.org>
parents:
65919
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
13053 | 5 |
6 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | |
65919
5c09efcfc1d9
Update maintainer email address.
Glenn Morris <rgm@gnu.org>
parents:
64085
diff
changeset
|
7 ;; Maintainer: Glenn Morris <rgm@gnu.org> |
13053 | 8 ;; Keywords: calendar |
9 ;; Human-Keywords: calendar | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
78216
93e11478c954
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
77279
diff
changeset
|
15 ;; the Free Software Foundation; either version 3, or (at your option) |
13053 | 16 ;; any later version. |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
13053 | 27 |
28 ;;; Commentary: | |
29 | |
30 ;; This collection of functions implements movement in the calendar for | |
31 ;; calendar.el. | |
32 | |
33 ;;; Code: | |
34 | |
52112
e7d0572ccca5
(displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
31670
diff
changeset
|
35 (defvar displayed-month) |
e7d0572ccca5
(displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
31670
diff
changeset
|
36 (defvar displayed-year) |
e7d0572ccca5
(displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
31670
diff
changeset
|
37 |
19892 | 38 (require 'calendar) |
39 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
40 ;;;###autoload |
13053 | 41 (defun calendar-goto-today () |
42 "Reposition the calendar window so the current date is visible." | |
43 (interactive) | |
44 (let ((today (calendar-current-date)));; The date might have changed. | |
45 (if (not (calendar-date-is-visible-p today)) | |
46 (generate-calendar-window) | |
47 (update-calendar-mode-line) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
48 (calendar-cursor-to-visible-date today))) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
49 (run-hooks 'calendar-move-hook)) |
13053 | 50 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
51 ;;;###autoload |
13053 | 52 (defun calendar-forward-month (arg) |
53 "Move the cursor forward ARG months. | |
54 Movement is backward if ARG is negative." | |
55 (interactive "p") | |
56 (calendar-cursor-to-nearest-date) | |
57 (let* ((cursor-date (calendar-cursor-to-date t)) | |
58 (month (extract-calendar-month cursor-date)) | |
59 (day (extract-calendar-day cursor-date)) | |
60 (year (extract-calendar-year cursor-date))) | |
61 (increment-calendar-month month year arg) | |
62 (let ((last (calendar-last-day-of-month month year))) | |
63 (if (< last day) | |
64 (setq day last))) | |
65 ;; Put the new month on the screen, if needed, and go to the new date. | |
66 (let ((new-cursor-date (list month day year))) | |
67 (if (not (calendar-date-is-visible-p new-cursor-date)) | |
68 (calendar-other-month month year)) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
69 (calendar-cursor-to-visible-date new-cursor-date))) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
70 (run-hooks 'calendar-move-hook)) |
13053 | 71 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
72 ;;;###autoload |
13053 | 73 (defun calendar-forward-year (arg) |
74 "Move the cursor forward by ARG years. | |
75 Movement is backward if ARG is negative." | |
76 (interactive "p") | |
77 (calendar-forward-month (* 12 arg))) | |
78 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
79 ;;;###autoload |
13053 | 80 (defun calendar-backward-month (arg) |
81 "Move the cursor backward by ARG months. | |
82 Movement is forward if ARG is negative." | |
83 (interactive "p") | |
84 (calendar-forward-month (- arg))) | |
85 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
86 ;;;###autoload |
13053 | 87 (defun calendar-backward-year (arg) |
88 "Move the cursor backward ARG years. | |
89 Movement is forward is ARG is negative." | |
90 (interactive "p") | |
91 (calendar-forward-month (* -12 arg))) | |
92 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
93 ;;;###autoload |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
94 (defun calendar-scroll-left (&optional arg event) |
13053 | 95 "Scroll the displayed calendar left by ARG months. |
96 If ARG is negative the calendar is scrolled right. Maintains the relative | |
97 position of the cursor with respect to the calendar as well as possible." | |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
98 (interactive (list (prefix-numeric-value current-prefix-arg) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
99 last-nonmenu-event)) |
31670 | 100 (unless arg (setq arg 1)) |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
101 (save-selected-window |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
102 (select-window (posn-window (event-start event))) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
103 (calendar-cursor-to-nearest-date) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
104 (let ((old-date (calendar-cursor-to-date)) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
105 (today (calendar-current-date))) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
106 (if (/= arg 0) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
107 (let ((month displayed-month) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
108 (year displayed-year)) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
109 (increment-calendar-month month year arg) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
110 (generate-calendar-window month year) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
111 (calendar-cursor-to-visible-date |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
112 (cond |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
113 ((calendar-date-is-visible-p old-date) old-date) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
114 ((calendar-date-is-visible-p today) today) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
115 (t (list month 1 year))))))) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
116 (run-hooks 'calendar-move-hook))) |
13053 | 117 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
118 ;;;###autoload |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
119 (defun calendar-scroll-right (&optional arg event) |
13053 | 120 "Scroll the displayed calendar window right by ARG months. |
121 If ARG is negative the calendar is scrolled left. Maintains the relative | |
122 position of the cursor with respect to the calendar as well as possible." | |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
123 (interactive (list (prefix-numeric-value current-prefix-arg) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
124 last-nonmenu-event)) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
125 (calendar-scroll-left (- (or arg 1)) event)) |
13053 | 126 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
127 ;;;###autoload |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
128 (defun calendar-scroll-left-three-months (arg) |
13053 | 129 "Scroll the displayed calendar window left by 3*ARG months. |
130 If ARG is negative the calendar is scrolled right. Maintains the relative | |
131 position of the cursor with respect to the calendar as well as possible." | |
132 (interactive "p") | |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
133 (calendar-scroll-left (* 3 arg))) |
13053 | 134 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
135 ;;;###autoload |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
136 (defun calendar-scroll-right-three-months (arg) |
13053 | 137 "Scroll the displayed calendar window right by 3*ARG months. |
138 If ARG is negative the calendar is scrolled left. Maintains the relative | |
139 position of the cursor with respect to the calendar as well as possible." | |
140 (interactive "p") | |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
141 (calendar-scroll-left (* -3 arg))) |
13053 | 142 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
143 ;;;###autoload |
13053 | 144 (defun calendar-cursor-to-nearest-date () |
145 "Move the cursor to the closest date. | |
146 The position of the cursor is unchanged if it is already on a date. | |
147 Returns the list (month day year) giving the cursor position." | |
148 (let ((date (calendar-cursor-to-date)) | |
149 (column (current-column))) | |
150 (if date | |
151 date | |
152 (if (> 3 (count-lines (point-min) (point))) | |
153 (progn | |
154 (goto-line 3) | |
155 (move-to-column column))) | |
156 (if (not (looking-at "[0-9]")) | |
157 (if (and (not (looking-at " *$")) | |
158 (or (< column 25) | |
159 (and (> column 27) | |
160 (< column 50)) | |
161 (and (> column 52) | |
162 (< column 75)))) | |
163 (progn | |
164 (re-search-forward "[0-9]" nil t) | |
165 (backward-char 1)) | |
166 (re-search-backward "[0-9]" nil t))) | |
167 (calendar-cursor-to-date)))) | |
168 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
169 ;;;###autoload |
13053 | 170 (defun calendar-forward-day (arg) |
171 "Move the cursor forward ARG days. | |
172 Moves backward if ARG is negative." | |
173 (interactive "p") | |
174 (if (/= 0 arg) | |
175 (let* | |
176 ((cursor-date (calendar-cursor-to-date)) | |
177 (cursor-date (if cursor-date | |
178 cursor-date | |
179 (if (> arg 0) (setq arg (1- arg))) | |
180 (calendar-cursor-to-nearest-date))) | |
181 (new-cursor-date | |
182 (calendar-gregorian-from-absolute | |
183 (+ (calendar-absolute-from-gregorian cursor-date) arg))) | |
184 (new-display-month (extract-calendar-month new-cursor-date)) | |
185 (new-display-year (extract-calendar-year new-cursor-date))) | |
186 ;; Put the new month on the screen, if needed, and go to the new date. | |
187 (if (not (calendar-date-is-visible-p new-cursor-date)) | |
188 (calendar-other-month new-display-month new-display-year)) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
189 (calendar-cursor-to-visible-date new-cursor-date))) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
190 (run-hooks 'calendar-move-hook)) |
13053 | 191 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
192 ;;;###autoload |
13053 | 193 (defun calendar-backward-day (arg) |
194 "Move the cursor back ARG days. | |
195 Moves forward if ARG is negative." | |
196 (interactive "p") | |
197 (calendar-forward-day (- arg))) | |
198 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
199 ;;;###autoload |
13053 | 200 (defun calendar-forward-week (arg) |
201 "Move the cursor forward ARG weeks. | |
202 Moves backward if ARG is negative." | |
203 (interactive "p") | |
204 (calendar-forward-day (* arg 7))) | |
205 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
206 ;;;###autoload |
13053 | 207 (defun calendar-backward-week (arg) |
208 "Move the cursor back ARG weeks. | |
209 Moves forward if ARG is negative." | |
210 (interactive "p") | |
211 (calendar-forward-day (* arg -7))) | |
212 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
213 ;;;###autoload |
13053 | 214 (defun calendar-beginning-of-week (arg) |
215 "Move the cursor back ARG calendar-week-start-day's." | |
216 (interactive "p") | |
217 (calendar-cursor-to-nearest-date) | |
218 (let ((day (calendar-day-of-week (calendar-cursor-to-date)))) | |
219 (calendar-backward-day | |
220 (if (= day calendar-week-start-day) | |
221 (* 7 arg) | |
222 (+ (mod (- day calendar-week-start-day) 7) | |
223 (* 7 (1- arg))))))) | |
224 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
225 ;;;###autoload |
13053 | 226 (defun calendar-end-of-week (arg) |
227 "Move the cursor forward ARG calendar-week-start-day+6's." | |
228 (interactive "p") | |
229 (calendar-cursor-to-nearest-date) | |
230 (let ((day (calendar-day-of-week (calendar-cursor-to-date)))) | |
231 (calendar-forward-day | |
232 (if (= day (mod (1- calendar-week-start-day) 7)) | |
233 (* 7 arg) | |
234 (+ (- 6 (mod (- day calendar-week-start-day) 7)) | |
235 (* 7 (1- arg))))))) | |
236 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
237 ;;;###autoload |
13053 | 238 (defun calendar-beginning-of-month (arg) |
239 "Move the cursor backward ARG month beginnings." | |
240 (interactive "p") | |
241 (calendar-cursor-to-nearest-date) | |
242 (let* ((date (calendar-cursor-to-date)) | |
243 (month (extract-calendar-month date)) | |
244 (day (extract-calendar-day date)) | |
245 (year (extract-calendar-year date))) | |
246 (if (= day 1) | |
247 (calendar-backward-month arg) | |
248 (calendar-cursor-to-visible-date (list month 1 year)) | |
249 (calendar-backward-month (1- arg))))) | |
250 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
251 ;;;###autoload |
13053 | 252 (defun calendar-end-of-month (arg) |
253 "Move the cursor forward ARG month ends." | |
254 (interactive "p") | |
255 (calendar-cursor-to-nearest-date) | |
256 (let* ((date (calendar-cursor-to-date)) | |
257 (month (extract-calendar-month date)) | |
258 (day (extract-calendar-day date)) | |
259 (year (extract-calendar-year date)) | |
260 (last-day (calendar-last-day-of-month month year))) | |
261 (if (/= day last-day) | |
262 (progn | |
263 (calendar-cursor-to-visible-date (list month last-day year)) | |
264 (setq arg (1- arg)))) | |
265 (increment-calendar-month month year arg) | |
266 (let ((last-day (list | |
267 month | |
268 (calendar-last-day-of-month month year) | |
269 year))) | |
270 (if (not (calendar-date-is-visible-p last-day)) | |
271 (calendar-other-month month year) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
272 (calendar-cursor-to-visible-date last-day)))) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
273 (run-hooks 'calendar-move-hook)) |
13053 | 274 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
275 ;;;###autoload |
13053 | 276 (defun calendar-beginning-of-year (arg) |
277 "Move the cursor backward ARG year beginnings." | |
278 (interactive "p") | |
279 (calendar-cursor-to-nearest-date) | |
280 (let* ((date (calendar-cursor-to-date)) | |
281 (month (extract-calendar-month date)) | |
282 (day (extract-calendar-day date)) | |
283 (year (extract-calendar-year date)) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
284 (jan-first (list 1 1 year)) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
285 (calendar-move-hook nil)) |
13053 | 286 (if (and (= day 1) (= 1 month)) |
287 (calendar-backward-month (* 12 arg)) | |
288 (if (and (= arg 1) | |
289 (calendar-date-is-visible-p jan-first)) | |
290 (calendar-cursor-to-visible-date jan-first) | |
60981
669da3d2cff9
Update copyright and maintainer.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
291 (calendar-other-month 1 (- year (1- arg))) |
669da3d2cff9
Update copyright and maintainer.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
292 (calendar-cursor-to-visible-date (list 1 1 displayed-year))))) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
293 (run-hooks 'calendar-move-hook)) |
13053 | 294 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
295 ;;;###autoload |
13053 | 296 (defun calendar-end-of-year (arg) |
297 "Move the cursor forward ARG year beginnings." | |
298 (interactive "p") | |
299 (calendar-cursor-to-nearest-date) | |
300 (let* ((date (calendar-cursor-to-date)) | |
301 (month (extract-calendar-month date)) | |
302 (day (extract-calendar-day date)) | |
303 (year (extract-calendar-year date)) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
304 (dec-31 (list 12 31 year)) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
305 (calendar-move-hook nil)) |
13053 | 306 (if (and (= day 31) (= 12 month)) |
307 (calendar-forward-month (* 12 arg)) | |
308 (if (and (= arg 1) | |
309 (calendar-date-is-visible-p dec-31)) | |
310 (calendar-cursor-to-visible-date dec-31) | |
60981
669da3d2cff9
Update copyright and maintainer.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
311 (calendar-other-month 12 (+ year (1- arg))) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
312 (calendar-cursor-to-visible-date (list 12 31 displayed-year))))) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
313 (run-hooks 'calendar-move-hook)) |
13053 | 314 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
315 ;;;###autoload |
13053 | 316 (defun calendar-cursor-to-visible-date (date) |
317 "Move the cursor to DATE that is on the screen." | |
318 (let* ((month (extract-calendar-month date)) | |
319 (day (extract-calendar-day date)) | |
320 (year (extract-calendar-year date)) | |
321 (first-of-month-weekday (calendar-day-of-week (list month 1 year)))) | |
322 (goto-line (+ 3 | |
323 (/ (+ day -1 | |
324 (mod | |
325 (- (calendar-day-of-week (list month 1 year)) | |
326 calendar-week-start-day) | |
327 7)) | |
328 7))) | |
329 (move-to-column (+ 6 | |
330 (* 25 | |
331 (1+ (calendar-interval | |
332 displayed-month displayed-year month year))) | |
333 (* 3 (mod | |
334 (- (calendar-day-of-week date) | |
335 calendar-week-start-day) | |
336 7)))))) | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
337 ;;;###autoload |
13053 | 338 (defun calendar-goto-date (date) |
339 "Move cursor to DATE." | |
340 (interactive (list (calendar-read-date))) | |
341 (let ((month (extract-calendar-month date)) | |
342 (year (extract-calendar-year date))) | |
343 (if (not (calendar-date-is-visible-p date)) | |
344 (calendar-other-month | |
345 (if (and (= month 1) (= year 1)) | |
346 2 | |
347 month) | |
348 year))) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
349 (calendar-cursor-to-visible-date date) |
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
350 (run-hooks 'calendar-move-hook)) |
13053 | 351 |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
352 ;;;###autoload |
52231
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
353 (defun calendar-goto-day-of-year (year day &optional noecho) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
354 "Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is t. |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
355 Negative DAY counts backward from end of year." |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
356 (interactive |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
357 (let* ((year (calendar-read |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
358 "Year (>0): " |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
359 (lambda (x) (> x 0)) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
360 (int-to-string (extract-calendar-year |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
361 (calendar-current-date))))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
362 (last (if (calendar-leap-year-p year) 366 365)) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
363 (day (calendar-read |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
364 (format "Day number (+/- 1-%d): " last) |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
365 (lambda (x) (and (<= 1 (abs x)) (<= (abs x) last)))))) |
52231
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
366 (list year day))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
367 (calendar-goto-date |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
368 (calendar-gregorian-from-absolute |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
369 (if (< 0 day) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
370 (+ -1 day (calendar-absolute-from-gregorian (list 1 1 year))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
371 (+ 1 day (calendar-absolute-from-gregorian (list 12 31 year)))))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
372 (or noecho (calendar-print-day-of-year))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
373 |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
374 ;; Backward compatibility. |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
375 (define-obsolete-function-alias |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
376 'scroll-calendar-left 'calendar-scroll-left "23.1") |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
377 (define-obsolete-function-alias |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
378 'scroll-calendar-right 'calendar-scroll-right "23.1") |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
379 (define-obsolete-function-alias |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
380 'scroll-calendar-left-three-months 'calendar-scroll-left-three-months "23.1") |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
381 (define-obsolete-function-alias |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
382 'scroll-calendar-right-three-months 'calendar-scroll-right-three-months "23.1") |
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
383 |
13053 | 384 (provide 'cal-move) |
385 | |
92590
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
386 ;; Local Variables: |
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
387 ;; generated-autoload-file: "cal-loaddefs.el" |
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
388 ;; End: |
8ef3d5355402
Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
389 |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
390 ;; arch-tag: d0883c46-7e16-4914-8ff8-8f67e699b781 |
13053 | 391 ;;; cal-move.el ends here |