Mercurial > emacs
annotate lisp/calendar/appt.el @ 110682:ba6a1c230532
gnus-html.el (gnus-html-prefetch-images): Adjust regexp to avoid regexp backtrace overflows.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 01 Oct 2010 13:33:03 +0000 |
parents | 6ae0b64986ea |
children | 34826102748f |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
30538
diff
changeset
|
1 ;;; appt.el --- appointment notification functions |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
179
diff
changeset
|
2 |
68721 | 3 ;; Copyright (C) 1989, 1990, 1994, 1998, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
846
20674ae6bf52
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
807
diff
changeset
|
5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
6 ;; Author: Neil Mager <neilm@juliet.ll.mit.edu> |
65919
5c09efcfc1d9
Update maintainer email address.
Glenn Morris <rgm@gnu.org>
parents:
65840
diff
changeset
|
7 ;; Maintainer: Glenn Morris <rgm@gnu.org> |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
8 ;; Keywords: calendar |
110015
280c8ae2476d
Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents:
109003
diff
changeset
|
9 ;; Package: calendar |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
10 |
179 | 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:
93948
diff
changeset
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify |
179 | 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:
93948
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:
93948
diff
changeset
|
16 ;; (at your option) any later version. |
179 | 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:
93948
diff
changeset
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
179 | 25 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
26 ;;; Commentary: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
27 |
179 | 28 ;; |
29 ;; appt.el - visible and/or audible notification of | |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
30 ;; appointments from diary file. |
179 | 31 ;; |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
32 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
33 ;; Thanks to Edward M. Reingold for much help and many suggestions, |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
34 ;; And to many others for bug fixes and suggestions. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
35 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
36 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
37 ;; This functions in this file will alert the user of a |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
38 ;; pending appointment based on his/her diary file. This package |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
39 ;; is documented in the Emacs manual. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
40 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
41 ;; To activate this package, simply use (appt-activate 1). |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
42 ;; A `diary-file' with appointments of the format described in the |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
43 ;; documentation of the function `appt-check' is required. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
44 ;; Relevant customizable variables are also listed in the |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
45 ;; documentation of that function. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
46 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
47 ;; Today's appointment list is initialized from the diary when this |
97717 | 48 ;; package is activated. Additionally, the appointments list is |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
49 ;; recreated automatically at 12:01am for those who do not logout |
97717 | 50 ;; every day or are programming late. It is also updated when the |
110353
5f841657c901
* lisp/calendar/appt.el (appt-check): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
110352
diff
changeset
|
51 ;; `diary-file' (or a file it includes) is saved. Calling |
5f841657c901
* lisp/calendar/appt.el (appt-check): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
110352
diff
changeset
|
52 ;; `appt-check' with an argument (or re-enabling the package) forces a |
5f841657c901
* lisp/calendar/appt.el (appt-check): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
110352
diff
changeset
|
53 ;; re-initialization at any time. |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
54 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
55 ;; In order to add or delete items from today's list, without |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
56 ;; changing the diary file, use `appt-add' and `appt-delete'. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
57 ;; |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
58 |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
59 ;; Brief internal description - Skip this if you are not interested! |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
60 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
61 ;; The function `appt-make-list' creates the appointments list which |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
62 ;; `appt-check' reads. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
63 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
64 ;; You can change the way the appointment window is created/deleted by |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
65 ;; setting the variables |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
66 ;; |
93532 | 67 ;; appt-disp-window-function |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
68 ;; and |
93532 | 69 ;; appt-delete-window-function |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
70 ;; |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
71 ;; For instance, these variables could be set to functions that display |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
72 ;; appointments in pop-up frames, which are lowered or iconified after |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
73 ;; `appt-display-interval' minutes. |
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
74 ;; |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
75 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
76 ;;; Code: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
77 |
93948
a90650368da6
Require diary-lib rather than calendar.
Glenn Morris <rgm@gnu.org>
parents:
93532
diff
changeset
|
78 (require 'diary-lib) |
8500 | 79 |
92577
2d599418bddb
(appt): Move custom group here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
92545
diff
changeset
|
80 |
2d599418bddb
(appt): Move custom group here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
92545
diff
changeset
|
81 (defgroup appt nil |
2d599418bddb
(appt): Move custom group here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
92545
diff
changeset
|
82 "Appointment notification." |
93948
a90650368da6
Require diary-lib rather than calendar.
Glenn Morris <rgm@gnu.org>
parents:
93532
diff
changeset
|
83 :prefix "appt-" |
92577
2d599418bddb
(appt): Move custom group here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
92545
diff
changeset
|
84 :group 'calendar) |
2d599418bddb
(appt): Move custom group here from calendar.el.
Glenn Morris <rgm@gnu.org>
parents:
92545
diff
changeset
|
85 |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
86 (defcustom appt-message-warning-time 12 |
86418
bbc7f9c9ad6e
Remove leading `*' from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
82176
diff
changeset
|
87 "Time in minutes before an appointment that the warning begins." |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
88 :type 'integer |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
89 :group 'appt) |
179 | 90 |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
91 (defcustom appt-audible t |
86418
bbc7f9c9ad6e
Remove leading `*' from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
82176
diff
changeset
|
92 "Non-nil means beep to indicate appointment." |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
93 :type 'boolean |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
94 :group 'appt) |
179 | 95 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
96 ;; TODO - add popup. |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
97 (defcustom appt-display-format 'window |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
98 "How appointment reminders should be displayed. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
99 The options are: |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
100 window - use a separate window |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
101 echo - use the echo area |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
102 nil - no visible reminder. |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
103 See also `appt-audible' and `appt-display-mode-line'." |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
104 :type '(choice |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
105 (const :tag "Separate window" window) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
106 (const :tag "Echo-area" echo) |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
107 (const :tag "No visible display" nil)) |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
108 :group 'appt |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
109 :version "24.1") ; no longer inherit from deleted obsolete variables |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
110 |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
111 (defcustom appt-display-mode-line t |
86418
bbc7f9c9ad6e
Remove leading `*' from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
82176
diff
changeset
|
112 "Non-nil means display minutes to appointment and time on the mode line. |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
113 This is in addition to any other display of appointment messages." |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
114 :type 'boolean |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
115 :group 'appt) |
179 | 116 |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
117 (defcustom appt-display-duration 10 |
86418
bbc7f9c9ad6e
Remove leading `*' from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
82176
diff
changeset
|
118 "The number of seconds an appointment message is displayed. |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
119 Only relevant if reminders are to be displayed in their own window." |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
120 :type 'integer |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
121 :group 'appt) |
179 | 122 |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
123 (defcustom appt-display-diary t |
86418
bbc7f9c9ad6e
Remove leading `*' from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
82176
diff
changeset
|
124 "Non-nil displays the diary when the appointment list is first initialized. |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
125 This will occur at midnight when the appointment list is updated." |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
126 :type 'boolean |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
127 :group 'appt) |
179 | 128 |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
129 (defcustom appt-display-interval 3 |
86418
bbc7f9c9ad6e
Remove leading `*' from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
82176
diff
changeset
|
130 "Number of minutes to wait between checking the appointment list." |
17624
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
131 :type 'integer |
7634c31da26e
Add defgroup and use defcustom.
Richard M. Stallman <rms@gnu.org>
parents:
15679
diff
changeset
|
132 :group 'appt) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
133 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
134 (defcustom appt-disp-window-function 'appt-disp-window |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
135 "Function called to display appointment window. |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
136 Only relevant if reminders are being displayed in a window. |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
137 It should take three string arguments: the number of minutes till |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
138 the appointment, the current time, and the text of the appointment." |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
139 :type '(choice (const appt-disp-window) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
140 function) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
141 :group 'appt) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
142 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
143 (defcustom appt-delete-window-function 'appt-delete-window |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
144 "Function called to remove appointment window and buffer. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
145 Only relevant if reminders are being displayed in a window." |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
146 :type '(choice (const appt-delete-window) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
147 function) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
148 :group 'appt) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
149 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
150 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
151 ;;; Internal variables below this point. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
152 |
93237
0f4b8a3dc49e
(appt-buffer-name): Don't use a leading space for buffers shown to the user.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92968
diff
changeset
|
153 (defconst appt-buffer-name "*appt-buf*" |
5659
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
154 "Name of the appointments buffer.") |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
155 |
109003 | 156 ;; TODO Turn this into an alist? It would be easier to add more |
157 ;; optional elements. | |
158 ;; TODO There should be a way to set WARNTIME (and other properties) | |
159 ;; from the diary-file. Implementing that would be a good reason | |
160 ;; to change this to an alist. | |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
161 (defvar appt-time-msg-list nil |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
162 "The list of appointments for today. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
163 Use `appt-add' and `appt-delete' to add and delete appointments. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
164 The original list is generated from today's `diary-entries-list', and |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
165 can be regenerated using the function `appt-check'. |
109003 | 166 Each element of the generated list has the form |
167 \(MINUTES STRING [FLAG] [WARNTIME]) | |
168 where MINUTES is the time in minutes of the appointment after midnight, | |
169 and STRING is the description of the appointment. | |
170 FLAG and WARNTIME can only be present if the element was made | |
171 with `appt-add'. A non-nil FLAG indicates that the element was made | |
172 with `appt-add', so calling `appt-make-list' again should preserve it. | |
173 If WARNTIME is non-nil, it is an integer to use in place | |
174 of `appt-message-warning-time'.") | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
175 |
65840
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
176 (defconst appt-max-time (1- (* 24 60)) |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
177 "11:59pm in minutes - number of minutes in a day minus 1.") |
5034
c7badee38b64
(appt-display-interval): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
957
diff
changeset
|
178 |
23112
81052242dbce
(appt-mode-string): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17624
diff
changeset
|
179 (defvar appt-mode-string nil |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
180 "String being displayed in the mode line saying you have an appointment. |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
181 The actual string includes the amount of time till the appointment. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
182 Only used if `appt-display-mode-line' is non-nil.") |
92816
0a27edb53589
(appt-mode-string): Mark as risky.
Glenn Morris <rgm@gnu.org>
parents:
92655
diff
changeset
|
183 (put 'appt-mode-string 'risky-local-variable t) ; for 'face property |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
184 |
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
185 (defvar appt-prev-comp-time nil |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
186 "Time of day (mins since midnight) at which we last checked appointments. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
187 A nil value forces the diary file to be (re-)checked for appointments.") |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
188 |
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
189 (defvar appt-now-displayed nil |
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
190 "Non-nil when we have started notifying about a appointment that is near.") |
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
191 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
192 (defvar appt-display-count nil |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
193 "Internal variable used to count number of consecutive reminders.") |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
194 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
195 (defvar appt-timer nil |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
196 "Timer used for diary appointment notifications (`appt-check'). |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
197 If this is non-nil, appointment checking is active.") |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
198 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
199 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
200 ;;; Functions. |
23112
81052242dbce
(appt-mode-string): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17624
diff
changeset
|
201 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
202 (defun appt-display-message (string mins) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
203 "Display a reminder about an appointment. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
204 The string STRING describes the appointment, due in integer MINS minutes. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
205 The format of the visible reminder is controlled by `appt-display-format'. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
206 The variable `appt-audible' controls the audible reminder." |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
207 (if appt-audible (beep 1)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
208 (cond ((eq appt-display-format 'window) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
209 (funcall appt-disp-window-function |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
210 (number-to-string mins) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
211 ;; TODO - use calendar-month-abbrev-array rather than %b? |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
212 (format-time-string "%a %b %e " (current-time)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
213 string) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
214 (run-at-time (format "%d sec" appt-display-duration) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
215 nil |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
216 appt-delete-window-function)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
217 ((eq appt-display-format 'echo) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
218 (message "%s" string)))) |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
219 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
220 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
221 (defun appt-check (&optional force) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
222 "Check for an appointment and update any reminder display. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
223 If optional argument FORCE is non-nil, reparse the diary file for |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
224 appointments. Otherwise the diary file is only parsed once per day, |
110353
5f841657c901
* lisp/calendar/appt.el (appt-check): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
110352
diff
changeset
|
225 or when it (or a file it includes) is saved. |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
226 |
179 | 227 Note: the time must be the first thing in the line in the diary |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
228 for a warning to be issued. The format of the time can be either |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
229 24 hour or am/pm. For example: |
179 | 230 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
231 02/23/89 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
232 18:00 Dinner |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
233 |
179 | 234 Thursday |
235 11:45am Lunch meeting. | |
236 | |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
237 Appointments are checked every `appt-display-interval' minutes. |
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
238 The following variables control appointment notification: |
179 | 239 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
240 `appt-display-format' |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
241 Controls the format in which reminders are displayed. |
179 | 242 |
23112
81052242dbce
(appt-mode-string): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17624
diff
changeset
|
243 `appt-audible' |
93532 | 244 Variable used to determine if reminder is audible. |
245 Default is t. | |
179 | 246 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
247 `appt-message-warning-time' |
93532 | 248 Variable used to determine when appointment message |
249 should first be displayed. | |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
250 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
251 `appt-display-mode-line' |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
252 If non-nil, a generic message giving the time remaining |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
253 is shown in the mode-line when an appointment is due. |
179 | 254 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
255 `appt-display-interval' |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
256 Interval in minutes at which to check for pending appointments. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
257 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
258 `appt-display-diary' |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
259 Display the diary buffer when the appointment list is |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
260 initialized for the first time in a day. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
261 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
262 The following variables are only relevant if reminders are being |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
263 displayed in a window: |
179 | 264 |
23112
81052242dbce
(appt-mode-string): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17624
diff
changeset
|
265 `appt-display-duration' |
93532 | 266 The number of seconds an appointment message is displayed. |
5034
c7badee38b64
(appt-display-interval): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
957
diff
changeset
|
267 |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
268 `appt-disp-window-function' |
93532 | 269 Function called to display appointment window. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
270 |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
271 `appt-delete-window-function' |
93532 | 272 Function called to remove appointment window and buffer." |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
273 (interactive "P") ; so people can force updates |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
274 (let* ((min-to-app -1) |
93532 | 275 (prev-appt-mode-string appt-mode-string) |
276 (prev-appt-display-count (or appt-display-count 0)) | |
277 ;; Non-nil means do a full check for pending appointments and | |
278 ;; display in whatever ways the user has selected. When no | |
279 ;; appointment is being displayed, we always do a full check. | |
280 (full-check | |
281 (or (not appt-now-displayed) | |
282 ;; This is true every appt-display-interval minutes. | |
283 (zerop (mod prev-appt-display-count appt-display-interval)))) | |
284 ;; Non-nil means only update the interval displayed in the mode line. | |
285 (mode-line-only (unless full-check appt-now-displayed)) | |
109003 | 286 now cur-comp-time appt-comp-time appt-warn-time) |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
287 (when (or full-check mode-line-only) |
110641
1b24798e2816
Use temp-buffers when not displaying the diary.
Glenn Morris <rgm@gnu.org>
parents:
110638
diff
changeset
|
288 (save-excursion ; FIXME ? |
93532 | 289 ;; Convert current time to minutes after midnight (12.01am = 1). |
290 (setq now (decode-time) | |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
291 cur-comp-time (+ (* 60 (nth 2 now)) (nth 1 now))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
292 ;; At first check in any day, update appointments to today's list. |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
293 (if (or force ; eg initialize, diary save |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
294 (null appt-prev-comp-time) ; first check |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
295 (< cur-comp-time appt-prev-comp-time)) ; new day |
110520 | 296 (ignore-errors |
110632
081b4ec99498
* lisp/calendar/appt.el (appt-check): Minor simplification.
Glenn Morris <rgm@gnu.org>
parents:
110533
diff
changeset
|
297 (let ((diary-hook (if (assoc 'appt-make-list diary-hook) |
081b4ec99498
* lisp/calendar/appt.el (appt-check): Minor simplification.
Glenn Morris <rgm@gnu.org>
parents:
110533
diff
changeset
|
298 diary-hook |
110641
1b24798e2816
Use temp-buffers when not displaying the diary.
Glenn Morris <rgm@gnu.org>
parents:
110638
diff
changeset
|
299 (cons 'appt-make-list diary-hook)))) |
110632
081b4ec99498
* lisp/calendar/appt.el (appt-check): Minor simplification.
Glenn Morris <rgm@gnu.org>
parents:
110533
diff
changeset
|
300 (if appt-display-diary |
081b4ec99498
* lisp/calendar/appt.el (appt-check): Minor simplification.
Glenn Morris <rgm@gnu.org>
parents:
110533
diff
changeset
|
301 (diary) |
110520 | 302 ;; Not displaying the diary, so we can ignore |
303 ;; diary-number-of-entries. Since appt.el only | |
304 ;; works on a daily basis, no need for more entries. | |
110641
1b24798e2816
Use temp-buffers when not displaying the diary.
Glenn Morris <rgm@gnu.org>
parents:
110638
diff
changeset
|
305 (diary-list-entries (calendar-current-date) 1 t))))) |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
306 (setq appt-prev-comp-time cur-comp-time |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
307 appt-mode-string nil |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
308 appt-display-count nil) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
309 ;; If there are entries in the list, and the user wants a |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
310 ;; message issued, get the first time off of the list and |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
311 ;; calculate the number of minutes until the appointment. |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
312 (when appt-time-msg-list |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
313 (setq appt-comp-time (caar (car appt-time-msg-list)) |
109002 | 314 appt-warn-time (or (nth 3 (car appt-time-msg-list)) |
315 appt-message-warning-time) | |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
316 min-to-app (- appt-comp-time cur-comp-time)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
317 (while (and appt-time-msg-list |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
318 (< appt-comp-time cur-comp-time)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
319 (setq appt-time-msg-list (cdr appt-time-msg-list)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
320 (if appt-time-msg-list |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
321 (setq appt-comp-time (caar (car appt-time-msg-list))))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
322 ;; If we have an appointment between midnight and |
109002 | 323 ;; `appt-warn-time' minutes after midnight, we |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
324 ;; must begin to issue a message before midnight. Midnight |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
325 ;; is considered 0 minutes and 11:59pm is 1439 |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
326 ;; minutes. Therefore we must recalculate the minutes to |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
327 ;; appointment variable. It is equal to the number of |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
328 ;; minutes before midnight plus the number of minutes after |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
329 ;; midnight our appointment is. |
109002 | 330 (if (and (< appt-comp-time appt-warn-time) |
331 (> (+ cur-comp-time appt-warn-time) | |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
332 appt-max-time)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
333 (setq min-to-app (+ (- (1+ appt-max-time) cur-comp-time) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
334 appt-comp-time))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
335 ;; Issue warning if the appointment time is within |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
336 ;; appt-message-warning time. |
109002 | 337 (when (and (<= min-to-app appt-warn-time) |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
338 (>= min-to-app 0)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
339 (setq appt-now-displayed t |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
340 appt-display-count (1+ prev-appt-display-count)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
341 (unless mode-line-only |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
342 (appt-display-message (cadr (car appt-time-msg-list)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
343 min-to-app)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
344 (when appt-display-mode-line |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
345 (setq appt-mode-string |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
346 (concat " " (propertize |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
347 (format "App't in %s min." min-to-app) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
348 'face 'mode-line-emphasis)))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
349 ;; When an appointment is reached, delete it from the |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
350 ;; list. Reset the count to 0 in case we display another |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
351 ;; appointment on the next cycle. |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
352 (if (zerop min-to-app) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
353 (setq appt-time-msg-list (cdr appt-time-msg-list) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
354 appt-display-count nil)))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
355 ;; If we have changed the mode line string, redisplay all mode lines. |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
356 (and appt-display-mode-line |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
357 (not (string-equal appt-mode-string |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
358 prev-appt-mode-string)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
359 (progn |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
360 (force-mode-line-update t) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
361 ;; If the string now has a notification, redisplay right now. |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
362 (if appt-mode-string |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
363 (sit-for 0)))))))) |
179 | 364 |
365 (defun appt-disp-window (min-to-app new-time appt-msg) | |
92655
e5e96d20ca3e
(appt-disp-window, appt-convert-time): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92654
diff
changeset
|
366 "Display appointment due in MIN-TO-APP (a string) minutes. |
e5e96d20ca3e
(appt-disp-window, appt-convert-time): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92654
diff
changeset
|
367 NEW-TIME is a string giving the date. Displays the appointment |
e5e96d20ca3e
(appt-disp-window, appt-convert-time): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92654
diff
changeset
|
368 message APPT-MSG in a separate buffer." |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
369 (let ((this-window (selected-window)) |
99863
6638c3736a32
(appt-disp-window): Move minibuffer check
Martin Rudalics <rudalics@gmx.at>
parents:
97717
diff
changeset
|
370 (appt-disp-buf (get-buffer-create appt-buffer-name))) |
6638c3736a32
(appt-disp-window): Move minibuffer check
Martin Rudalics <rudalics@gmx.at>
parents:
97717
diff
changeset
|
371 ;; Make sure we're not in the minibuffer before splitting the window. |
6638c3736a32
(appt-disp-window): Move minibuffer check
Martin Rudalics <rudalics@gmx.at>
parents:
97717
diff
changeset
|
372 ;; FIXME this seems needlessly complicated? |
6638c3736a32
(appt-disp-window): Move minibuffer check
Martin Rudalics <rudalics@gmx.at>
parents:
97717
diff
changeset
|
373 (when (minibufferp) |
6638c3736a32
(appt-disp-window): Move minibuffer check
Martin Rudalics <rudalics@gmx.at>
parents:
97717
diff
changeset
|
374 (other-window 1) |
6638c3736a32
(appt-disp-window): Move minibuffer check
Martin Rudalics <rudalics@gmx.at>
parents:
97717
diff
changeset
|
375 (and (minibufferp) (display-multi-frame-p) (other-frame 1))) |
9413
e54eede71446
(appt-delete-window): Look on all frames for the window.
Richard M. Stallman <rms@gnu.org>
parents:
8500
diff
changeset
|
376 (if (cdr (assq 'unsplittable (frame-parameters))) |
93532 | 377 ;; In an unsplittable frame, use something somewhere else. |
99886
d5afbdd2b77c
(appt-disp-window): Do a set-buffer when the
Martin Rudalics <rudalics@gmx.at>
parents:
99863
diff
changeset
|
378 (progn |
d5afbdd2b77c
(appt-disp-window): Do a set-buffer when the
Martin Rudalics <rudalics@gmx.at>
parents:
99863
diff
changeset
|
379 (set-buffer appt-disp-buf) |
d5afbdd2b77c
(appt-disp-window): Do a set-buffer when the
Martin Rudalics <rudalics@gmx.at>
parents:
99863
diff
changeset
|
380 (display-buffer appt-disp-buf)) |
23777
5d10105c2906
(appt-disp-window): Use pop-to-buffer,
Richard M. Stallman <rms@gnu.org>
parents:
23297
diff
changeset
|
381 (unless (or (special-display-p (buffer-name appt-disp-buf)) |
93532 | 382 (same-window-p (buffer-name appt-disp-buf))) |
383 ;; By default, split the bottom window and use the lower part. | |
384 (appt-select-lowest-window) | |
77192
2b47f00a7c16
(appt-disp-window): Do not split small windows.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
385 ;; Split the window, unless it's too small to do so. |
2b47f00a7c16
(appt-disp-window): Do not split small windows.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
386 (when (>= (window-height) (* 2 window-min-height)) |
2b47f00a7c16
(appt-disp-window): Do not split small windows.
Glenn Morris <rgm@gnu.org>
parents:
75346
diff
changeset
|
387 (select-window (split-window)))) |
55559
a4d697f046db
(appt-disp-window): Use `calendar-set-mode-line' for a centered
Glenn Morris <rgm@gnu.org>
parents:
54535
diff
changeset
|
388 (switch-to-buffer appt-disp-buf)) |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
389 ;; FIXME Link to diary entry? |
55559
a4d697f046db
(appt-disp-window): Use `calendar-set-mode-line' for a centered
Glenn Morris <rgm@gnu.org>
parents:
54535
diff
changeset
|
390 (calendar-set-mode-line |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
391 (format " Appointment %s. %s " |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
392 (if (string-equal "0" min-to-app) "now" |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
393 (format "in %s minute%s" min-to-app |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
394 (if (string-equal "1" min-to-app) "" "s"))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
395 new-time)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
396 (setq buffer-read-only nil |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
397 buffer-undo-list t) |
23112
81052242dbce
(appt-mode-string): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17624
diff
changeset
|
398 (erase-buffer) |
41565
6ecdf9c3fd25
(appt-disp-window): Use insert instead of insert-string.
Pavel Janík <Pavel@Janik.cz>
parents:
38412
diff
changeset
|
399 (insert appt-msg) |
9413
e54eede71446
(appt-delete-window): Look on all frames for the window.
Richard M. Stallman <rms@gnu.org>
parents:
8500
diff
changeset
|
400 (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t)) |
5659
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
401 (set-buffer-modified-p nil) |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
402 (setq buffer-read-only t) |
13125
731ef06c5677
(appt-disp-window): Call raise-frame.
Richard M. Stallman <rms@gnu.org>
parents:
12549
diff
changeset
|
403 (raise-frame (selected-frame)) |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
404 (select-window this-window))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
405 |
5659
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
406 (defun appt-delete-window () |
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
407 "Function called to undisplay appointment messages. |
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
408 Usually just deletes the appointment buffer." |
9551
ac21ac5e8c69
(appt-select-lowest-window): Locally bind lowest-window.
Richard M. Stallman <rms@gnu.org>
parents:
9413
diff
changeset
|
409 (let ((window (get-buffer-window appt-buffer-name t))) |
ac21ac5e8c69
(appt-select-lowest-window): Locally bind lowest-window.
Richard M. Stallman <rms@gnu.org>
parents:
9413
diff
changeset
|
410 (and window |
93532 | 411 (or (eq window (frame-root-window (window-frame window))) |
412 (delete-window window)))) | |
5659
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
413 (kill-buffer appt-buffer-name) |
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
414 (if appt-audible |
32a02ab40d58
(appt-check): Use the new variables
Richard M. Stallman <rms@gnu.org>
parents:
5034
diff
changeset
|
415 (beep 1))) |
179 | 416 |
417 (defun appt-select-lowest-window () | |
93532 | 418 "Select the lowest window on the frame." |
30001
55656f797f82
(appt-select-lowest-window): Use walk-windows
Gerd Moellmann <gerd@gnu.org>
parents:
28968
diff
changeset
|
419 (let ((lowest-window (selected-window)) |
93532 | 420 (bottom-edge (nth 3 (window-edges))) |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
421 next-bottom-edge) |
30001
55656f797f82
(appt-select-lowest-window): Use walk-windows
Gerd Moellmann <gerd@gnu.org>
parents:
28968
diff
changeset
|
422 (walk-windows (lambda (w) |
93532 | 423 (when (< bottom-edge (setq next-bottom-edge |
424 (nth 3 (window-edges w)))) | |
425 (setq bottom-edge next-bottom-edge | |
426 lowest-window w))) 'nomini) | |
30001
55656f797f82
(appt-select-lowest-window): Use walk-windows
Gerd Moellmann <gerd@gnu.org>
parents:
28968
diff
changeset
|
427 (select-window lowest-window))) |
179 | 428 |
65840
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
429 (defconst appt-time-regexp |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
430 "[0-9]?[0-9]\\(h\\([0-9][0-9]\\)?\\|[:.][0-9][0-9]\\)\\(am\\|pm\\)?") |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
431 |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
432 ;;;###autoload |
109003 | 433 (defun appt-add (time msg &optional warntime) |
434 "Add an appointment for today at TIME with message MSG. | |
435 The time should be in either 24 hour format or am/pm format. | |
436 Optional argument WARNTIME is an integer (or string) giving the number | |
437 of minutes before the appointment at which to start warning. | |
438 The default is `appt-message-warning-time'." | |
109002 | 439 (interactive "sTime (hh:mm[am/pm]): \nsMessage: |
109003 | 440 sMinutes before the appointment to start warning: ") |
441 (unless (string-match appt-time-regexp time) | |
179 | 442 (error "Unacceptable time-string")) |
109003 | 443 (and (stringp warntime) |
444 (setq warntime (unless (string-equal warntime "") | |
445 (string-to-number warntime)))) | |
446 (and warntime | |
447 (not (integerp warntime)) | |
448 (error "Argument WARNTIME must be an integer, or nil")) | |
449 (let ((time-msg (list (list (appt-convert-time time)) | |
450 (concat time " " msg) t))) | |
451 ;; It is presently non-sensical to have multiple warnings about | |
452 ;; the same appointment with just different delays, but it might | |
453 ;; not always be so. TODO | |
454 (if warntime (setq time-msg (append time-msg (list warntime)))) | |
70029
14a3b2b9c00b
(appt-add): Check whether an appointment is already present in
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
69080
diff
changeset
|
455 (unless (member time-msg appt-time-msg-list) |
14a3b2b9c00b
(appt-add): Check whether an appointment is already present in
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
69080
diff
changeset
|
456 (setq appt-time-msg-list |
14a3b2b9c00b
(appt-add): Check whether an appointment is already present in
Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
parents:
69080
diff
changeset
|
457 (appt-sort-list (nconc appt-time-msg-list (list time-msg))))))) |
179 | 458 |
23297
e23cdc314c10
(appt-interval): Variable deleted.
Karl Heuer <kwzh@gnu.org>
parents:
23124
diff
changeset
|
459 ;;;###autoload |
179 | 460 (defun appt-delete () |
461 "Delete an appointment from the list of appointments." | |
462 (interactive) | |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
463 (let ((tmp-msg-list appt-time-msg-list)) |
93530
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
464 (dolist (element tmp-msg-list) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
465 (if (y-or-n-p (concat "Delete " |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
466 ;; We want to quote any doublequotes in the |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
467 ;; string, as well as put doublequotes around it. |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
468 (prin1-to-string |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
469 (substring-no-properties (cadr element) 0)) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
470 " from list? ")) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
471 (setq appt-time-msg-list (delq element appt-time-msg-list))))) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
472 (appt-check) |
4fa95a348719
(appt-disp-window-function): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
93237
diff
changeset
|
473 (message "")) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
474 |
179 | 475 |
82176
907a4e983597
Don't wrap defvar within eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
476 (defvar number) |
907a4e983597
Don't wrap defvar within eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
477 (defvar original-date) |
907a4e983597
Don't wrap defvar within eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
478 (defvar diary-entries-list) |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
479 |
179 | 480 (defun appt-make-list () |
60225
c467ceeff8c7
(appt-time-msg-list): 3rd elt of each
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
481 "Update the appointments list from today's diary buffer. |
28404 | 482 The time must be at the beginning of a line for it to be |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
483 put in the appointments list (see examples in documentation of |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
484 the function `appt-check'). We assume that the variables DATE and |
70633
95f7f08b0a17
(appt-check, appt-make-list): Refer to
Glenn Morris <rgm@gnu.org>
parents:
70029
diff
changeset
|
485 NUMBER hold the arguments that `diary-list-entries' received. |
60225
c467ceeff8c7
(appt-time-msg-list): 3rd elt of each
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
486 They specify the range of dates that the diary is being processed for. |
c467ceeff8c7
(appt-time-msg-list): 3rd elt of each
Richard M. Stallman <rms@gnu.org>
parents:
59996
diff
changeset
|
487 |
110657
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
488 Any appointments made with `appt-add' are not affected by this function." |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
489 ;; We have something to do if the range of dates that the diary is |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
490 ;; considering includes the current date. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
491 (if (and (not (calendar-date-compare |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
492 (list (calendar-current-date)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
493 (list original-date))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
494 (calendar-date-compare |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
495 (list (calendar-current-date)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
496 (list (calendar-gregorian-from-absolute |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
497 (+ (calendar-absolute-from-gregorian original-date) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
498 number))))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
499 (save-excursion |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
500 ;; Clear the appointments list, then fill it in from the diary. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
501 (dolist (elt appt-time-msg-list) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
502 ;; Delete any entries that were not made with appt-add. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
503 (unless (nth 2 elt) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
504 (setq appt-time-msg-list |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
505 (delq elt appt-time-msg-list)))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
506 (if diary-entries-list |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
507 ;; Cycle through the entry-list (diary-entries-list) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
508 ;; looking for entries beginning with a time. If the |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
509 ;; entry begins with a time, add it to the |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
510 ;; appt-time-msg-list. Then sort the list. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
511 (let ((entry-list diary-entries-list) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
512 (new-time-string "") |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
513 time-string) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
514 ;; Below, we assume diary-entries-list was in date |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
515 ;; order. It is, unless something on |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
516 ;; diary-list-entries-hook has changed it, eg |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
517 ;; diary-include-other-files (bug#7019). It must be |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
518 ;; in date order if number = 1. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
519 (and diary-list-entries-hook |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
520 appt-display-diary |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
521 (not (eq diary-number-of-entries 1)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
522 (not (memq (car (last diary-list-entries-hook)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
523 '(diary-sort-entries sort-diary-entries))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
524 (setq entry-list (sort entry-list 'diary-entry-compare))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
525 ;; Skip diary entries for dates before today. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
526 (while (and entry-list |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
527 (calendar-date-compare |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
528 (car entry-list) (list (calendar-current-date)))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
529 (setq entry-list (cdr entry-list))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
530 ;; Parse the entries for today. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
531 (while (and entry-list |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
532 (calendar-date-equal |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
533 (calendar-current-date) (caar entry-list))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
534 (setq time-string (cadr (car entry-list))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
535 (while (string-match appt-time-regexp time-string) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
536 (let* ((beg (match-beginning 0)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
537 ;; Get just the time for this appointment. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
538 (only-time (match-string 0 time-string)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
539 ;; Find the end of this appointment |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
540 ;; (the start of the next). |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
541 (end (string-match |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
542 (concat "\n[ \t]*" appt-time-regexp) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
543 time-string |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
544 (match-end 0))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
545 ;; Get the whole string for this appointment. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
546 (appt-time-string |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
547 (substring time-string beg end)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
548 (appt-time (list (appt-convert-time only-time))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
549 (time-msg (list appt-time appt-time-string))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
550 ;; Add this appointment to appt-time-msg-list. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
551 (setq appt-time-msg-list |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
552 (nconc appt-time-msg-list (list time-msg)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
553 ;; Discard this appointment from the string. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
554 time-string |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
555 (if end (substring time-string end) "")))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
556 (setq entry-list (cdr entry-list))))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
557 (setq appt-time-msg-list (appt-sort-list appt-time-msg-list)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
558 ;; Convert current time to minutes after midnight (12:01am = 1), |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
559 ;; so that elements in the list that are earlier than the |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
560 ;; present time can be removed. |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
561 (let* ((now (decode-time)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
562 (cur-comp-time (+ (* 60 (nth 2 now)) (nth 1 now))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
563 (appt-comp-time (caar (car appt-time-msg-list)))) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
564 (while (and appt-time-msg-list (< appt-comp-time cur-comp-time)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
565 (setq appt-time-msg-list (cdr appt-time-msg-list)) |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
566 (if appt-time-msg-list |
6ae0b64986ea
Remove some obsolete appt.el code.
Glenn Morris <rgm@gnu.org>
parents:
110641
diff
changeset
|
567 (setq appt-comp-time (caar (car appt-time-msg-list))))))))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46909
diff
changeset
|
568 |
179 | 569 |
570 (defun appt-sort-list (appt-list) | |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
571 "Sort an appointment list, putting earlier items at the front. |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
572 APPT-LIST is a list of the same format as `appt-time-msg-list'." |
82176
907a4e983597
Don't wrap defvar within eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
78216
diff
changeset
|
573 (sort appt-list (lambda (e1 e2) (< (caar e1) (caar e2))))) |
179 | 574 |
575 | |
576 (defun appt-convert-time (time2conv) | |
92655
e5e96d20ca3e
(appt-disp-window, appt-convert-time): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
92654
diff
changeset
|
577 "Convert hour:min[am/pm] format TIME2CONV to minutes from midnight. |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
578 A period (.) can be used instead of a colon (:) to separate the |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
579 hour and minute parts." |
65840
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
580 ;; Formats that should be accepted: |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
581 ;; 10:00 10.00 10h00 10h 10am 10:00am 10.00am |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
582 (let ((min (if (string-match "[h:.]\\([0-9][0-9]\\)" time2conv) |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
583 (string-to-number (match-string 1 time2conv)) |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
584 0)) |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
585 (hr (if (string-match "[0-9]*[0-9]" time2conv) |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
586 (string-to-number (match-string 0 time2conv)) |
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
587 0))) |
92654 | 588 ;; Convert the time appointment time into 24 hour time. |
26677
b6b1fe18ecf5
(appt-convert-time): Handle "12:MMam",
Gerd Moellmann <gerd@gnu.org>
parents:
24493
diff
changeset
|
589 (cond ((and (string-match "pm" time2conv) (< hr 12)) |
93532 | 590 (setq hr (+ 12 hr))) |
591 ((and (string-match "am" time2conv) (= hr 12)) | |
26677
b6b1fe18ecf5
(appt-convert-time): Handle "12:MMam",
Gerd Moellmann <gerd@gnu.org>
parents:
24493
diff
changeset
|
592 (setq hr 0))) |
92654 | 593 ;; Convert the actual time into minutes. |
65840
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
594 (+ (* hr 60) min))) |
179 | 595 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
596 (defun appt-update-list () |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
597 "If the current buffer is visiting the diary, update appointments. |
110352 | 598 This function also acts on any file listed in `diary-included-files'. |
599 It is intended for use with `write-file-functions'." | |
600 (and (member buffer-file-name (append diary-included-files | |
601 (list (expand-file-name diary-file)))) | |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
602 appt-timer |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
603 (let ((appt-display-diary nil)) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
604 (appt-check t))) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
605 nil) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
606 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
607 ;;;###autoload |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
608 (defun appt-activate (&optional arg) |
93532 | 609 "Toggle checking of appointments. |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
610 With optional numeric argument ARG, turn appointment checking on if |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
611 ARG is positive, otherwise off." |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
612 (interactive "P") |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
613 (let ((appt-active appt-timer)) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
614 (setq appt-active (if arg (> (prefix-numeric-value arg) 0) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
615 (not appt-active))) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
616 (remove-hook 'write-file-functions 'appt-update-list) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
617 (or global-mode-string (setq global-mode-string '(""))) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
618 (delq 'appt-mode-string global-mode-string) |
54070
e3c36780d566
(appt-display-format): Change default to'ignore, for backwards compatability.
Glenn Morris <rgm@gnu.org>
parents:
53643
diff
changeset
|
619 (when appt-timer |
e3c36780d566
(appt-display-format): Change default to'ignore, for backwards compatability.
Glenn Morris <rgm@gnu.org>
parents:
53643
diff
changeset
|
620 (cancel-timer appt-timer) |
e3c36780d566
(appt-display-format): Change default to'ignore, for backwards compatability.
Glenn Morris <rgm@gnu.org>
parents:
53643
diff
changeset
|
621 (setq appt-timer nil)) |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
622 (when appt-active |
110638
e82d503da7c2
* lisp/calendar/appt.el (appt-activate): Check diary file.
Glenn Morris <rgm@gnu.org>
parents:
110632
diff
changeset
|
623 (diary-check-diary-file) |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
624 (add-hook 'write-file-functions 'appt-update-list) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
625 (setq appt-timer (run-at-time t 60 'appt-check) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
626 global-mode-string |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
627 (append global-mode-string '(appt-mode-string))) |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
628 (appt-check t)))) |
23112
81052242dbce
(appt-mode-string): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
17624
diff
changeset
|
629 |
53556
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
630 |
68254590be55
Update copyright and commentary.
Glenn Morris <rgm@gnu.org>
parents:
53549
diff
changeset
|
631 (provide 'appt) |
179 | 632 |
65840
df9b548f3218
(appt-time-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
64085
diff
changeset
|
633 ;; arch-tag: bf5791c4-8921-499e-a26f-772b1788d347 |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
179
diff
changeset
|
634 ;;; appt.el ends here |