Mercurial > emacs
comparison lisp/calendar/appt.el @ 17624:7634c31da26e
Add defgroup and use defcustom.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 03 May 1997 04:53:02 +0000 |
| parents | 4942f03c75f8 |
| children | 81052242dbce |
comparison
equal
deleted
inserted
replaced
| 17623:a09fd9348b0d | 17624:7634c31da26e |
|---|---|
| 121 (require 'calendar) | 121 (require 'calendar) |
| 122 | 122 |
| 123 (provide 'appt) | 123 (provide 'appt) |
| 124 | 124 |
| 125 ;;;###autoload | 125 ;;;###autoload |
| 126 (defvar appt-issue-message t | 126 (defcustom appt-issue-message t |
| 127 "*Non-nil means check for appointments in the diary buffer. | 127 "*Non-nil means check for appointments in the diary buffer. |
| 128 To be detected, the diary entry must have the time | 128 To be detected, the diary entry must have the time |
| 129 as the first thing on a line.") | 129 as the first thing on a line." |
| 130 | 130 :type 'boolean |
| 131 ;;;###autoload | 131 :group 'appt) |
| 132 (defvar appt-message-warning-time 12 | 132 |
| 133 "*Time in minutes before an appointment that the warning begins.") | 133 ;;;###autoload |
| 134 | 134 (defcustom appt-message-warning-time 12 |
| 135 ;;;###autoload | 135 "*Time in minutes before an appointment that the warning begins." |
| 136 (defvar appt-audible t | 136 :type 'integer |
| 137 "*Non-nil means beep to indicate appointment.") | 137 :group 'appt) |
| 138 | 138 |
| 139 ;;;###autoload | 139 ;;;###autoload |
| 140 (defvar appt-visible t | 140 (defcustom appt-audible t |
| 141 "*Non-nil means display appointment message in echo area.") | 141 "*Non-nil means beep to indicate appointment." |
| 142 | 142 :type 'boolean |
| 143 ;;;###autoload | 143 :group 'appt) |
| 144 (defvar appt-display-mode-line t | 144 |
| 145 "*Non-nil means display minutes to appointment and time on the mode line.") | 145 ;;;###autoload |
| 146 | 146 (defcustom appt-visible t |
| 147 ;;;###autoload | 147 "*Non-nil means display appointment message in echo area." |
| 148 (defvar appt-msg-window t | 148 :type 'boolean |
| 149 "*Non-nil means display appointment message in another window.") | 149 :group 'appt) |
| 150 | 150 |
| 151 ;;;###autoload | 151 ;;;###autoload |
| 152 (defvar appt-display-duration 10 | 152 (defcustom appt-display-mode-line t |
| 153 "*The number of seconds an appointment message is displayed.") | 153 "*Non-nil means display minutes to appointment and time on the mode line." |
| 154 | 154 :type 'boolean |
| 155 ;;;###autoload | 155 :group 'appt) |
| 156 (defvar appt-display-diary t | 156 |
| 157 ;;;###autoload | |
| 158 (defcustom appt-msg-window t | |
| 159 "*Non-nil means display appointment message in another window." | |
| 160 :type 'boolean | |
| 161 :group 'appt) | |
| 162 | |
| 163 ;;;###autoload | |
| 164 (defcustom appt-display-duration 10 | |
| 165 "*The number of seconds an appointment message is displayed." | |
| 166 :type 'integer | |
| 167 :group 'appt) | |
| 168 | |
| 169 ;;;###autoload | |
| 170 (defcustom appt-display-diary t | |
| 157 "*Non-nil means to display the next days diary on the screen. | 171 "*Non-nil means to display the next days diary on the screen. |
| 158 This will occur at midnight when the appointment list is updated.") | 172 This will occur at midnight when the appointment list is updated." |
| 173 :type 'boolean | |
| 174 :group 'appt) | |
| 159 | 175 |
| 160 (defvar appt-time-msg-list nil | 176 (defvar appt-time-msg-list nil |
| 161 "The list of appointments for today. | 177 "The list of appointments for today. |
| 162 Use `appt-add' and `appt-delete' to add and delete appointments from list. | 178 Use `appt-add' and `appt-delete' to add and delete appointments from list. |
| 163 The original list is generated from the today's `diary-entries-list'. | 179 The original list is generated from the today's `diary-entries-list'. |
| 164 The number before each time/message is the time in minutes from midnight.") | 180 The number before each time/message is the time in minutes from midnight.") |
| 165 | 181 |
| 166 (defconst max-time 1439 | 182 (defconst max-time 1439 |
| 167 "11:59pm in minutes - number of minutes in a day minus 1.") | 183 "11:59pm in minutes - number of minutes in a day minus 1.") |
| 168 | 184 |
| 169 (defvar appt-display-interval 3 | 185 (defcustom appt-display-interval 3 |
| 170 "*Number of minutes to wait between checking the appointment list.") | 186 "*Number of minutes to wait between checking the appointment list." |
| 187 :type 'integer | |
| 188 :group 'appt) | |
| 171 | 189 |
| 172 (defvar appt-buffer-name " *appt-buf*" | 190 (defvar appt-buffer-name " *appt-buf*" |
| 173 "Name of the appointments buffer.") | 191 "Name of the appointments buffer.") |
| 174 | 192 |
| 175 (defvar appt-disp-window-function 'appt-disp-window | 193 (defvar appt-disp-window-function 'appt-disp-window |