Mercurial > emacs
annotate lisp/calendar/cal-move.el @ 101865:4e643f5b16ea
(Explicit Encoding): Document the `charset' text property produced by
decode-coding-region and decode-coding-string.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 07 Feb 2009 11:48:00 +0000 |
parents | 8d9cf977e8f5 |
children | 9e868e938ebb |
rev | line source |
---|---|
13053 | 1 ;;; cal-move.el --- calendar functions for movement in the calendar |
2 | |
100908 | 3 ;; Copyright (C) 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 |
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 | |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94312
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
13053 | 14 ;; it under the terms of the GNU General Public License as published by |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94312
diff
changeset
|
15 ;; the Free Software Foundation, either version 3 of the License, or |
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94312
diff
changeset
|
16 ;; (at your option) any later version. |
13053 | 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 | |
94653
e49abd957e81
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94312
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
13053 | 25 |
26 ;;; Commentary: | |
27 | |
93486
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
28 ;; See calendar.el. |
13053 | 29 |
30 ;;; Code: | |
31 | |
96159
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
32 ;; FIXME should calendar just require this? |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
33 (require 'calendar) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
34 |
96296
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
35 |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
36 ;; Note that this is not really the "closest" date. |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
37 ;; In most cases, it just searches forwards for the next day. |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
38 ;;;###cal-autoload |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
39 (defun calendar-cursor-to-nearest-date () |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
40 "Move the cursor to the closest date. |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
41 The position of the cursor is unchanged if it is already on a date. |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
42 Returns the list (month day year) giving the cursor position." |
93329
6139daabcf5f
(calendar-cursor-to-nearest-date): Remove un-needed local `date'.
Glenn Morris <rgm@gnu.org>
parents:
92916
diff
changeset
|
43 (or (calendar-cursor-to-date) |
96296
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
44 (let* ((col (current-column)) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
45 (edges (cdr (assoc (calendar-column-to-segment) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
46 calendar-month-edges))) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
47 (last (nth 2 edges)) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
48 (right (nth 3 edges))) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
49 (when (< (count-lines (point-min) (point)) calendar-first-date-row) |
96159
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
50 (goto-line calendar-first-date-row) |
96296
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
51 (move-to-column col)) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
52 ;; The date positions are fixed and computable, but searching |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
53 ;; is probably more flexible. Need to consider blank days at |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
54 ;; start and end of month if computing positions. |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
55 ;; 'date text-property is used to exclude intermonth text. |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
56 (unless (and (looking-at "[0-9]") |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
57 (get-text-property (point) 'date)) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
58 ;; We search forwards for a number, except close to the RH |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
59 ;; margin of a month, where we search backwards. |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
60 ;; Note that the searches can go to other lines. |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
61 (if (or (looking-at " *$") |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
62 (and (> col last) (< col right))) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
63 (while (and (re-search-backward "[0-9]" nil t) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
64 (not (get-text-property (point) 'date)))) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
65 (while (and (re-search-forward "[0-9]" nil t) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
66 (not (get-text-property (1- (point)) 'date)))) |
e8b908e44add
(calendar-cursor-to-nearest-date): Use calendar-column-to-segment,
Glenn Morris <rgm@gnu.org>
parents:
96159
diff
changeset
|
67 (backward-char 1))) |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
68 (calendar-cursor-to-date)))) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
69 |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
70 (defvar displayed-month) ; from calendar-generate |
52112
e7d0572ccca5
(displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
31670
diff
changeset
|
71 (defvar displayed-year) |
e7d0572ccca5
(displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents:
31670
diff
changeset
|
72 |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
73 ;;;###cal-autoload |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
74 (defun calendar-cursor-to-visible-date (date) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
75 "Move the cursor to DATE that is on the screen." |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
76 (let ((month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
77 (day (calendar-extract-day date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
78 (year (calendar-extract-year date))) |
96159
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
79 (goto-line (+ calendar-first-date-row |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
80 (/ (+ day -1 |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
81 (mod |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
82 (- (calendar-day-of-week (list month 1 year)) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
83 calendar-week-start-day) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
84 7)) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
85 7))) |
96159
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
86 (move-to-column (+ calendar-left-margin (1- calendar-day-digit-width) |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
87 (* calendar-month-width |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
88 (1+ (calendar-interval |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
89 displayed-month displayed-year month year))) |
96159
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
90 (* calendar-column-width |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
91 (mod |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
92 (- (calendar-day-of-week date) |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
93 calendar-week-start-day) |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
94 7)))))) |
19892 | 95 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
96 ;;;###cal-autoload |
13053 | 97 (defun calendar-goto-today () |
98 "Reposition the calendar window so the current date is visible." | |
99 (interactive) | |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
100 (let ((today (calendar-current-date))) ; the date might have changed |
13053 | 101 (if (not (calendar-date-is-visible-p today)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
102 (calendar-generate-window) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
103 (calendar-update-mode-line) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
104 (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
|
105 (run-hooks 'calendar-move-hook)) |
13053 | 106 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
107 ;;;###cal-autoload |
13053 | 108 (defun calendar-forward-month (arg) |
109 "Move the cursor forward ARG months. | |
110 Movement is backward if ARG is negative." | |
111 (interactive "p") | |
112 (calendar-cursor-to-nearest-date) | |
113 (let* ((cursor-date (calendar-cursor-to-date t)) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
114 (month (calendar-extract-month cursor-date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
115 (day (calendar-extract-day cursor-date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
116 (year (calendar-extract-year cursor-date)) |
93486
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
117 (last (progn |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
118 (calendar-increment-month month year arg) |
93486
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
119 (calendar-last-day-of-month month year))) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
120 (day (min last day)) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
121 ;; Put the new month on the screen, if needed, and go to the new date. |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
122 (new-cursor-date (list month day year))) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
123 (if (not (calendar-date-is-visible-p new-cursor-date)) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
124 (calendar-other-month month year)) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
125 (calendar-cursor-to-visible-date new-cursor-date)) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
126 (run-hooks 'calendar-move-hook)) |
13053 | 127 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
128 ;;;###cal-autoload |
13053 | 129 (defun calendar-forward-year (arg) |
130 "Move the cursor forward by ARG years. | |
131 Movement is backward if ARG is negative." | |
132 (interactive "p") | |
133 (calendar-forward-month (* 12 arg))) | |
134 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
135 ;;;###cal-autoload |
13053 | 136 (defun calendar-backward-month (arg) |
137 "Move the cursor backward by ARG months. | |
138 Movement is forward if ARG is negative." | |
139 (interactive "p") | |
140 (calendar-forward-month (- arg))) | |
141 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
142 ;;;###cal-autoload |
13053 | 143 (defun calendar-backward-year (arg) |
144 "Move the cursor backward ARG years. | |
145 Movement is forward is ARG is negative." | |
146 (interactive "p") | |
147 (calendar-forward-month (* -12 arg))) | |
148 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
149 ;;;###cal-autoload |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
150 (defun calendar-scroll-left (&optional arg event) |
13053 | 151 "Scroll the displayed calendar left by ARG months. |
152 If ARG is negative the calendar is scrolled right. Maintains the relative | |
92634
decf6dfe9876
(calendar-scroll-left, calendar-scroll-right): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
92590
diff
changeset
|
153 position of the cursor with respect to the calendar as well as possible. |
decf6dfe9876
(calendar-scroll-left, calendar-scroll-right): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
92590
diff
changeset
|
154 EVENT is an event like `last-nonmenu-event'." |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
155 (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
|
156 last-nonmenu-event)) |
31670 | 157 (unless arg (setq arg 1)) |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
158 (save-selected-window |
94312
eaaf578ce48f
(calendar-scroll-left): Handle case when event-start is nil.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
159 ;; Nil if called from menu-bar. |
eaaf578ce48f
(calendar-scroll-left): Handle case when event-start is nil.
Glenn Morris <rgm@gnu.org>
parents:
93844
diff
changeset
|
160 (if (setq event (event-start event)) (select-window (posn-window event))) |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
161 (calendar-cursor-to-nearest-date) |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
162 (unless (zerop arg) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
163 (let ((old-date (calendar-cursor-to-date)) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
164 (today (calendar-current-date)) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
165 (month displayed-month) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
166 (year displayed-year)) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
167 (calendar-increment-month month year arg) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
168 (calendar-generate-window month year) |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
169 (calendar-cursor-to-visible-date |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
170 (cond |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
171 ((calendar-date-is-visible-p old-date) old-date) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
172 ((calendar-date-is-visible-p today) today) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
173 (t (list month 1 year)))))) |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
174 (run-hooks 'calendar-move-hook))) |
13053 | 175 |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
176 (define-obsolete-function-alias |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
177 'scroll-calendar-left 'calendar-scroll-left "23.1") |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
178 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
179 ;;;###cal-autoload |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
180 (defun calendar-scroll-right (&optional arg event) |
13053 | 181 "Scroll the displayed calendar window right by ARG months. |
182 If ARG is negative the calendar is scrolled left. Maintains the relative | |
92634
decf6dfe9876
(calendar-scroll-left, calendar-scroll-right): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
92590
diff
changeset
|
183 position of the cursor with respect to the calendar as well as possible. |
decf6dfe9876
(calendar-scroll-left, calendar-scroll-right): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
92590
diff
changeset
|
184 EVENT is an event like `last-nonmenu-event'." |
82150
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
185 (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
|
186 last-nonmenu-event)) |
0d322d300115
(calendar-scroll-left, calendar-scroll-right):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82148
diff
changeset
|
187 (calendar-scroll-left (- (or arg 1)) event)) |
13053 | 188 |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
189 (define-obsolete-function-alias |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
190 'scroll-calendar-right 'calendar-scroll-right "23.1") |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
191 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
192 ;;;###cal-autoload |
101085
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
193 (defun calendar-scroll-left-three-months (arg &optional event) |
13053 | 194 "Scroll the displayed calendar window left by 3*ARG months. |
195 If ARG is negative the calendar is scrolled right. Maintains the relative | |
101085
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
196 position of the cursor with respect to the calendar as well as possible. |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
197 EVENT is an event like `last-nonmenu-event'." |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
198 (interactive (list (prefix-numeric-value current-prefix-arg) |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
199 last-nonmenu-event)) |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
200 (calendar-scroll-left (* 3 arg) event)) |
13053 | 201 |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
202 (define-obsolete-function-alias 'scroll-calendar-left-three-months |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
203 'calendar-scroll-left-three-months "23.1") |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
204 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
205 ;;;###cal-autoload |
101085
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
206 (defun calendar-scroll-right-three-months (arg &optional event) |
13053 | 207 "Scroll the displayed calendar window right by 3*ARG months. |
208 If ARG is negative the calendar is scrolled left. Maintains the relative | |
101085
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
209 position of the cursor with respect to the calendar as well as possible. |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
210 EVENT is an event like `last-nonmenu-event'." |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
211 (interactive (list (prefix-numeric-value current-prefix-arg) |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
212 last-nonmenu-event)) |
8d9cf977e8f5
(calendar-scroll-left-three-months, calendar-scroll-right-three-months):
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
213 (calendar-scroll-left (* -3 arg) event)) |
13053 | 214 |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
215 (define-obsolete-function-alias 'scroll-calendar-right-three-months |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
216 'calendar-scroll-right-three-months "23.1") |
13053 | 217 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
218 ;;;###cal-autoload |
13053 | 219 (defun calendar-forward-day (arg) |
220 "Move the cursor forward ARG days. | |
221 Moves backward if ARG is negative." | |
222 (interactive "p") | |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
223 (unless (zerop arg) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
224 (let* ((cursor-date (or (calendar-cursor-to-date) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
225 (progn |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
226 (if (> arg 0) (setq arg (1- arg))) |
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
227 (calendar-cursor-to-nearest-date)))) |
13053 | 228 (new-cursor-date |
229 (calendar-gregorian-from-absolute | |
230 (+ (calendar-absolute-from-gregorian cursor-date) arg))) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
231 (new-display-month (calendar-extract-month new-cursor-date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
232 (new-display-year (calendar-extract-year new-cursor-date))) |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
233 ;; Put the new month on the screen, if needed, and go to the new date. |
96159
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
234 (if (calendar-date-is-visible-p new-cursor-date) |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
235 (calendar-cursor-to-visible-date new-cursor-date) |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
236 ;; The next line gives smoother scrolling IMO (one month at a |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
237 ;; time rather than two). |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
238 (calendar-increment-month new-display-month new-display-year |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
239 (if (< arg 0) 1 -1)) |
cb4a9a7913cd
(calendar-forward-day): Scroll in one month increments.
Glenn Morris <rgm@gnu.org>
parents:
94653
diff
changeset
|
240 (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
|
241 (run-hooks 'calendar-move-hook)) |
13053 | 242 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
243 ;;;###cal-autoload |
13053 | 244 (defun calendar-backward-day (arg) |
245 "Move the cursor back ARG days. | |
246 Moves forward if ARG is negative." | |
247 (interactive "p") | |
248 (calendar-forward-day (- arg))) | |
249 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
250 ;;;###cal-autoload |
13053 | 251 (defun calendar-forward-week (arg) |
252 "Move the cursor forward ARG weeks. | |
253 Moves backward if ARG is negative." | |
254 (interactive "p") | |
255 (calendar-forward-day (* arg 7))) | |
256 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
257 ;;;###cal-autoload |
13053 | 258 (defun calendar-backward-week (arg) |
259 "Move the cursor back ARG weeks. | |
260 Moves forward if ARG is negative." | |
261 (interactive "p") | |
262 (calendar-forward-day (* arg -7))) | |
263 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
264 ;;;###cal-autoload |
13053 | 265 (defun calendar-beginning-of-week (arg) |
266 "Move the cursor back ARG calendar-week-start-day's." | |
267 (interactive "p") | |
268 (calendar-cursor-to-nearest-date) | |
269 (let ((day (calendar-day-of-week (calendar-cursor-to-date)))) | |
270 (calendar-backward-day | |
271 (if (= day calendar-week-start-day) | |
272 (* 7 arg) | |
273 (+ (mod (- day calendar-week-start-day) 7) | |
274 (* 7 (1- arg))))))) | |
275 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
276 ;;;###cal-autoload |
13053 | 277 (defun calendar-end-of-week (arg) |
278 "Move the cursor forward ARG calendar-week-start-day+6's." | |
279 (interactive "p") | |
280 (calendar-cursor-to-nearest-date) | |
281 (let ((day (calendar-day-of-week (calendar-cursor-to-date)))) | |
282 (calendar-forward-day | |
283 (if (= day (mod (1- calendar-week-start-day) 7)) | |
284 (* 7 arg) | |
285 (+ (- 6 (mod (- day calendar-week-start-day) 7)) | |
286 (* 7 (1- arg))))))) | |
287 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
288 ;;;###cal-autoload |
13053 | 289 (defun calendar-beginning-of-month (arg) |
290 "Move the cursor backward ARG month beginnings." | |
291 (interactive "p") | |
292 (calendar-cursor-to-nearest-date) | |
293 (let* ((date (calendar-cursor-to-date)) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
294 (month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
295 (day (calendar-extract-day date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
296 (year (calendar-extract-year date))) |
13053 | 297 (if (= day 1) |
298 (calendar-backward-month arg) | |
299 (calendar-cursor-to-visible-date (list month 1 year)) | |
300 (calendar-backward-month (1- arg))))) | |
301 | |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
302 ;;;###cal-autoload |
13053 | 303 (defun calendar-end-of-month (arg) |
304 "Move the cursor forward ARG month ends." | |
305 (interactive "p") | |
306 (calendar-cursor-to-nearest-date) | |
307 (let* ((date (calendar-cursor-to-date)) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
308 (month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
309 (day (calendar-extract-day date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
310 (year (calendar-extract-year date)) |
93486
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
311 (last-day (calendar-last-day-of-month month year)) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
312 (last-day (progn |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
313 (unless (= day last-day) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
314 (calendar-cursor-to-visible-date |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
315 (list month last-day year)) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
316 (setq arg (1- arg))) |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
317 (calendar-increment-month month year arg) |
93486
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
318 (list month |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
319 (calendar-last-day-of-month month year) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
320 year)))) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
321 (if (not (calendar-date-is-visible-p last-day)) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
322 (calendar-other-month month year) |
b9615f927009
(Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
93329
diff
changeset
|
323 (calendar-cursor-to-visible-date last-day))) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
324 (run-hooks 'calendar-move-hook)) |
13053 | 325 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
326 ;;;###cal-autoload |
13053 | 327 (defun calendar-beginning-of-year (arg) |
328 "Move the cursor backward ARG year beginnings." | |
329 (interactive "p") | |
330 (calendar-cursor-to-nearest-date) | |
331 (let* ((date (calendar-cursor-to-date)) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
332 (month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
333 (day (calendar-extract-day date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
334 (year (calendar-extract-year date)) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
335 (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
|
336 (calendar-move-hook nil)) |
13053 | 337 (if (and (= day 1) (= 1 month)) |
338 (calendar-backward-month (* 12 arg)) | |
339 (if (and (= arg 1) | |
340 (calendar-date-is-visible-p jan-first)) | |
341 (calendar-cursor-to-visible-date jan-first) | |
60981
669da3d2cff9
Update copyright and maintainer.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
342 (calendar-other-month 1 (- year (1- arg))) |
669da3d2cff9
Update copyright and maintainer.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
343 (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
|
344 (run-hooks 'calendar-move-hook)) |
13053 | 345 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
346 ;;;###cal-autoload |
13053 | 347 (defun calendar-end-of-year (arg) |
348 "Move the cursor forward ARG year beginnings." | |
349 (interactive "p") | |
350 (calendar-cursor-to-nearest-date) | |
351 (let* ((date (calendar-cursor-to-date)) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
352 (month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
353 (day (calendar-extract-day date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
354 (year (calendar-extract-year date)) |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
355 (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
|
356 (calendar-move-hook nil)) |
13053 | 357 (if (and (= day 31) (= 12 month)) |
358 (calendar-forward-month (* 12 arg)) | |
359 (if (and (= arg 1) | |
360 (calendar-date-is-visible-p dec-31)) | |
361 (calendar-cursor-to-visible-date dec-31) | |
60981
669da3d2cff9
Update copyright and maintainer.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
362 (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
|
363 (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
|
364 (run-hooks 'calendar-move-hook)) |
13053 | 365 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
366 ;;;###cal-autoload |
13053 | 367 (defun calendar-goto-date (date) |
368 "Move cursor to DATE." | |
369 (interactive (list (calendar-read-date))) | |
93809
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
370 (let ((month (calendar-extract-month date)) |
3ff2b47de8f2
Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents:
93486
diff
changeset
|
371 (year (calendar-extract-year date))) |
13053 | 372 (if (not (calendar-date-is-visible-p date)) |
373 (calendar-other-month | |
374 (if (and (= month 1) (= year 1)) | |
375 2 | |
376 month) | |
377 year))) | |
25411
0d68ae69cd8c
Call the new hook in every movement function.
Richard M. Stallman <rms@gnu.org>
parents:
24337
diff
changeset
|
378 (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
|
379 (run-hooks 'calendar-move-hook)) |
13053 | 380 |
92836
e4347538b00b
(generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents:
92634
diff
changeset
|
381 ;;;###cal-autoload |
52231
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
382 (defun calendar-goto-day-of-year (year day &optional noecho) |
92916
f296fd96bd7c
(calendar-cursor-to-nearest-date): Use or, when. Move definition before use.
Glenn Morris <rgm@gnu.org>
parents:
92855
diff
changeset
|
383 "Move cursor to YEAR, DAY number; echo DAY/YEAR unless NOECHO is non-nil. |
52231
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
384 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
|
385 (interactive |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
386 (let* ((year (calendar-read |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
387 "Year (>0): " |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
388 (lambda (x) (> x 0)) |
93844
bf9ef749c23e
Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents:
93809
diff
changeset
|
389 (number-to-string (calendar-extract-year |
52231
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
390 (calendar-current-date))))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
391 (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
|
392 (day (calendar-read |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
393 (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
|
394 (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
|
395 (list year day))) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
396 (calendar-goto-date |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
397 (calendar-gregorian-from-absolute |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
398 (if (< 0 day) |
9529ff0804c2
Edward M. Reingold <reingold@emr.cs.iit.edu>
Glenn Morris <rgm@gnu.org>
parents:
52112
diff
changeset
|
399 (+ -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
|
400 (+ 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
|
401 (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
|
402 |
13053 | 403 (provide 'cal-move) |
404 | |
82148
d979cb10446a
(calendar-scroll-left, calendar-scroll-right, calendar-scroll-left-three-months)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
405 ;; arch-tag: d0883c46-7e16-4914-8ff8-8f67e699b781 |
13053 | 406 ;;; cal-move.el ends here |