| Current Path : /usr/share/emacs/24.3/lisp/calendar/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calendar/appt.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:26 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/appt.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\312\313\314\315\316\317\310\303&\210\312\320\321\322\323\324\316\325\310\303& \210\312\326\327\330\316\331\310\303&\210\312\332\333\334\316\335\310\303\323\324& \210\312\336\327\337\316\331\310\303&\210\312\340\341\342\316\317\310\303&\210\312\343\327\344\316\331\310\303&\210\312\345\346\347\316\317\310\303&\210\312\350\351\352\316\353\310\303&\210\312\354\355\356\316\353\310\303&\207" [require diary-lib custom-declare-group appt nil "Appointment notification." :prefix "appt-" :group calendar custom-declare-variable appt-message-warning-time 12 "Default time in minutes before an appointment that the warning begins.\nYou probably want to make `appt-display-interval' a factor of this." :type integer appt-warning-time-regexp "warntime \\([0-9]+\\)" "Regexp matching a string giving the warning time for an appointment.\nThe first subexpression matches the time in minutes (an integer).\nThis overrides the default `appt-message-warning-time'.\nYou may want to put this inside a diary comment (see `diary-comment-start').\nFor example, to be warned 30 minutes in advance of an appointment:\n 2011/06/01 12:00 Do something ## warntime 30\n" :version "24.1" regexp appt-audible t "Non-nil means beep to indicate appointment." boolean appt-display-format 'window "How appointment reminders should be displayed.\nThe options are:\n window - use a separate window\n echo - use the echo area\n nil - no visible reminder.\nSee also `appt-audible' and `appt-display-mode-line'." (choice (const :tag "Separate window" window) (const :tag "Echo-area" echo) (const :tag "No visible display" nil)) appt-display-mode-line "Non-nil means display minutes to appointment and time on the mode line.\nThis is in addition to any other display of appointment messages.\nThe mode line updates every minute, independent of the value of\n`appt-display-interval'." appt-display-duration 10 "The number of seconds an appointment message is displayed.\nOnly relevant if reminders are to be displayed in their own window." appt-display-diary "Non-nil displays the diary when the appointment list is first initialized.\nThis occurs when this package is first activated, and then at\nmidnight when the appointment list updates." appt-display-interval 3 "Interval in minutes at which to display appointment reminders.\nOnce an appointment becomes due, Emacs displays reminders every\n`appt-display-interval' minutes. You probably want to make\n`appt-message-warning-time' be a multiple of this, so that you get\na final message displayed precisely when the appointment is due.\n\nNote that this variable controls the interval at which\n`appt-display-message' is called. The mode line display (if active)\nalways updates every minute." appt-disp-window-function 'appt-disp-window "Function called to display appointment window.\nOnly relevant if reminders are being displayed in a window.\nIt should take three string arguments: the number of minutes till\nthe appointment, the current time, and the text of the appointment.\nEach argument may also be a list, if multiple appointments are\nrelevant at any one time." function appt-delete-window-function 'appt-delete-window "Function called to remove appointment window and buffer.\nOnly relevant if reminders are being displayed in a window."] 10)
#@34 Name of the appointments buffer.
(defconst appt-buffer-name "*appt-buf*" (#$ . 3917))
#@686 The list of appointments for today.
Use `appt-add' and `appt-delete' to add and delete appointments.
The original list is generated from today's `diary-entries-list', and
can be regenerated using the function `appt-check'.
Each element of the generated list has the form
((MINUTES) STRING [FLAG] [WARNTIME])
where MINUTES is the time in minutes of the appointment after midnight,
and STRING is the description of the appointment.
FLAG and WARNTIME are not always present. A non-nil FLAG
indicates that the element was made with `appt-add', so calling
`appt-make-list' again should preserve it. If WARNTIME is non-nil,
it is an integer to use in place of `appt-message-warning-time'.
(defvar appt-time-msg-list nil (#$ . 4010))
#@58 11:59pm in minutes - number of minutes in a day minus 1.
(defconst appt-max-time 1439 (#$ . 4745))
#@191 String being displayed in the mode line saying you have an appointment.
The actual string includes the amount of time till the appointment.
Only used if `appt-display-mode-line' is non-nil.
(defvar appt-mode-string nil (#$ . 4851))
(put 'appt-mode-string 'risky-local-variable t)
#@74 Time of day (mins since midnight) at which we last checked appointments.
(defvar appt-prev-comp-time nil (#$ . 5137))
#@66 Internal variable used to count number of consecutive reminders.
(defvar appt-display-count 0 (#$ . 5261))
#@116 Timer used for diary appointment notifications (`appt-check').
If this is non-nil, appointment checking is active.
(defvar appt-timer nil (#$ . 5375))
#@358 Display a reminder about an appointment.
The string STRING describes the appointment, due in integer MINS minutes.
The arguments may also be lists, where each element relates to a
separate appointment. The variable `appt-display-format' controls
the format of the visible reminder. If `appt-audible' is non-nil,
also calls `beep' for an audible reminder.
(defalias 'appt-display-message #[(string mins) "\203 \306\307!\210 <\203 G\307U\203 @\n@ \310=\2039 \311\312\313 \"\314 \304\315\316\217\210*\317\320\321\"\314#\207 \322=\205P \323\324\n<\203N \325\326\n\327#\202O \n\"\207" [appt-audible mins string appt-display-format err time beep 1 window format-time-string "%a %b %e " current-time nil (byte-code " <\203
\304\305 \"\202 \305 !\n #\207" [appt-disp-window-function mins time string mapcar number-to-string] 4) ((wrong-type-argument (byte-code "<\204 \305 @ A\"\210\202 \306\307!\210\n\310@! \f@#\210\305\207" [mins err appt-disp-window-function time string signal message "Argtype error in `appt-disp-window-function' - update it for multiple appts?" number-to-string] 4))) run-at-time format "%d sec" echo message "%s" mapconcat identity "\n" appt-display-duration appt-delete-window-function] 6 (#$ . 5533)])
#@155 Return an appointment string suitable for use in the mode-line.
MIN-TO-APP is a list of minutes, as strings.
If ABBREV is non-nil, abbreviates some text.
(defalias 'appt-mode-line #[(min-to-app &optional abbrev) "G\304V\211\203 \305@\"?\205 @\306\307 \203 \310\202 \311 \203( \312\202) \313\n\314\232\2033 \315\202U \306\316\n\206> \317\320\321# \203F \322\202T \306\323\n\324\232\203R \313\202S \312\"#$*\207" [min-to-app multiple imin abbrev 1 delete format "%s%s %s" "App't" "Appointment" "s" "" "0" "now" "in %s %s" mapconcat identity "," "min." "minute%s" "1"] 12 (#$ . 6783)])
#@1707 Check for an appointment and update any reminder display.
If optional argument FORCE is non-nil, reparse the diary file for
appointments. Otherwise the diary file is only parsed once per day,
or when it (or a file it includes) is saved.
Note: the time must be the first thing in the line in the diary
for a warning to be issued. The format of the time can be either
24 hour or am/pm. For example:
02/23/89
18:00 Dinner
Thursday
11:45am Lunch meeting.
Appointments are checked every `appt-display-interval' minutes.
The following variables control appointment notification:
`appt-display-format'
Controls the format in which reminders are displayed.
`appt-audible'
Non-nil means there is an audible component to reminders.
`appt-message-warning-time'
The default number of minutes in advance at which reminders
should start.
`appt-display-mode-line'
Non-nil means show in the mode line a countdown to the
time of each appointment, once reminders start.
`appt-display-interval'
Interval in minutes at which to display appointment messages.
`appt-display-diary'
Non-nil means display the diary whenever the appointment list is
initialized (e.g. the first time we check for appointments each day).
The following variables are only relevant if reminders are being
displayed in a window:
`appt-display-duration'
Number of seconds for which an appointment message is displayed.
`appt-disp-window-function'
Function called to display appointment window.
`appt-delete-window-function'
Function called to remove appointment window and buffer.
(defalias 'appt-check #[(&optional force) "\n\306 \307\f8\310_\fA@\\ \311\211 \311\211 \311 !\212\"\2042 #\2032
#W\2037 \311\312\313\217\210
#\311\314$\311 %\211 &\203\315 &@\211%\211 '@@)\211
W\203e $A$\202\304 \315%8\206n (
Z W\203\222
\\)V\203\222 )T
Z \\ X\203\304 \314Y\203\304 B %\211 'A@)!B!\316 !\203\304 \317%$\"$&A\211&\204I * \203 \237 !\237!\316\320 *\"!\203\356 \321! \"\210+\203\322\323\324\325\326 \"\327\"\330\331#P \332=\203
\314\202 T+\205' \230?\205'\333\327!\210\205'\334\314!.\n\207" [appt-mode-string prev-appt-mode-string appt-display-count prev-appt-display-count now now-mins decode-time 2 60 nil (byte-code "\302\303\"\203 \202 \303B \203 \304 \210\202 \305\306 \307\310#\210)\302\207" [diary-hook appt-display-diary assoc appt-make-list diary diary-list-entries calendar-current-date 1 t] 4) ((error)) 0 3 zerop delete mod appt-display-message " " propertize appt-mode-line mapcar number-to-string t face mode-line-emphasis (0) force-mode-line-update sit-for appt-mins appt-warn-time min-to-app min-list string-list force appt-prev-comp-time appt-time-msg-list appt --dolist-tail-- x appt-message-warning-time appt-max-time appt-display-interval appt-display-mode-line] 7 (#$ . 7385) "P"])
#@256 Display appointment due in MIN-TO-APP (a string) minutes.
NEW-TIME is a string giving the current date.
Displays the appointment message APPT-MSG in a separate buffer.
The arguments may also be lists, where each element relates to a
separate appointment.
(defalias 'appt-disp-window #[(min-to-app new-time appt-msg) "\306 \307!\310 \203 \311\312!\210\310 \203 \313 \203 \314\312!\210\315\316 \236A\2030 q\210\317 !\210\202U \320\321 !!\204Q \322\321 !!\204Q \323 \210\324 \325_Y\203Q \326\327 !\210\330 !\210\f<\204` \fC
C-<\204k -C-\331\332\333\334\f!\335\336-\337##!\210\340.\341/\342 \210\fG\312U\204\222 \343\f@\f\"\204\234 \335\336
\344#c\210\202\316
G\345 0 101W\203\315 \332\3460\345V\203\270 \344\202\271 \3470\f80
8$c\2100T\2110\202\245 *\350\351 \341\"!\210\352\340!\210\341.\353\354 !\210\326\n!*\207" [appt-buffer-name appt-disp-buf this-window window-min-height min-to-app appt-msg selected-window get-buffer-create minibufferp other-window 1 display-multi-frame-p other-frame unsplittable frame-parameters display-buffer special-display-p buffer-name same-window-p appt-select-lowest-window window-height 2 select-window split-window switch-to-buffer calendar-set-mode-line format " %s. %s" appt-mode-line mapconcat identity ", " nil t erase-buffer delete "\n" 0 "%s%sm: %s" "" shrink-window-if-larger-than-buffer get-buffer-window set-buffer-modified-p raise-frame selected-frame new-time buffer-read-only buffer-undo-list i --dotimes-limit--] 9 (#$ . 10411)])
#@97 Function called to undisplay appointment messages.
Usually just deletes the appointment buffer.
(defalias 'appt-delete-window #[nil "\303\304\"\211\203 \305\306 !!=\204 \307 !\210)\310!\210\n\205# \311\312!\207" [appt-buffer-name window appt-audible get-buffer-window t frame-root-window window-frame delete-window kill-buffer beep 1] 5 (#$ . 11918)])
#@40 Select the lowest window on the frame.
(defalias 'appt-select-lowest-window #[nil "\303 \304\305 8\306\307\310\311\"\210\312\n!+\207" [next-bottom-edge bottom-edge lowest-window selected-window 3 window-edges nil walk-windows #[(w) "\304\305 !8\211W\205 \n \211\207" [bottom-edge w next-bottom-edge lowest-window 3 window-edges] 4] nomini select-window] 3 (#$ . 12282)])
(defconst appt-time-regexp "[0-9]?[0-9]\\(h\\([0-9][0-9]\\)?\\|[:.][0-9][0-9]\\)\\(am\\|pm\\)?")
#@293 Add an appointment for today at TIME with message MSG.
The time should be in either 24 hour format or am/pm format.
Optional argument WARNTIME is an integer (or string) giving the number
of minutes before the appointment at which to start warning.
The default is `appt-message-warning-time'.
(defalias 'appt-add #[(time msg &optional warntime) "\306 \"\204 \307\310!\210\n;\203 \n\311\230?\205 \312\n!\n\203( \n\250\204( \307\313!\210 \204/ \314 \210\315 !C \316\fQ\317E \n\203D \320
\nC\"
\235?\205V \321
C\244!\211)\207" [appt-time-regexp time warntime appt-timer msg time-msg string-match error "Unacceptable time-string" "" string-to-number "Argument WARNTIME must be an integer, or nil" appt-activate appt-convert-time " " t append appt-sort-list appt-time-msg-list] 4 (#$ . 12765) "sTime (hh:mm[am/pm]): \nsMessage: \nsMinutes before the appointment to start warning: "])
#@54 Delete an appointment from the list of appointments.
(defalias 'appt-delete #[nil "\211\305\211\203, @\306\307\310\311\n\211 A@)\312\"!\313Q!\203% \314\n\" A\211\204\n +\315 \210\316\317!\207" [appt-time-msg-list tmp-msg-list element --dolist-tail-- x nil y-or-n-p "Delete " prin1-to-string substring-no-properties 0 " from list? " delq appt-check message ""] 7 (#$ . 13661) nil])
#@451 Update the appointments list from today's diary buffer.
The time must be at the beginning of a line for it to be
put in the appointments list (see examples in documentation of
the function `appt-check'). We assume that the variables DATE and
NUMBER hold the arguments that `diary-list-entries' received.
They specify the range of dates that the diary is being processed for.
Any appointments made with `appt-add' are not affected by this function.
(defalias 'appt-make-list #[nil "\306\307 CC\"?\205\306\307 C\310\211\311 8)\312\313 !\203' \314\315!\202\200 \316V\203\245 S\317 \211\211@) \211\211 A@* , \311 8),\fS\320_\\ -\f\311V\203\221 -\321\f\322_\\\323\245Z- \211\316W\203r \324 !S\313 \322\246!\205\210 \313 \325\246!?\206\210 \313 \326\246!)\203\221 -T---\n\327_\n\322\245\n\325\245[\n\326\245%\202\200\324 T!\330 \211\211@) \211\211 A@* , \311 8),\fS\320_\\ -\f\311V\203 -\321\f\322_\\\323\245Z- \211\316W\203\354 \324 !S\313 \322\246!\205\313 \325\246!?\206\313 \326\246!)\203 -T---\n\327_\n\322\245\n\325\245[\n\326\245\331\211\331@) \211\211 A@* , \311 8),\fS\320_\\ -\f\311V\203{-\321\f\322_\\\323\245Z- \211\316W\203\\\324 !S\313 \322\246!\205r\313 \325\246!?\206r\313 \326\246!)\203{-T---&+.\\!C\"\205\212/\312 0\211 1\203\2631@0\31108\204\252\3320/\"/1A\2111\204\226*2\203\3152\312\211 3 4 56\203\3457\203\3458\333=\204\345\3346!@\335>\204\345\3365\337\"55\203\376\3065@\307 C\"\203\3765A\2115\204\3525\203\314\340\307 5\211 @@)\"\203\3145@\211 A@)4\311\3415@88\206'43\34294\"\203\303\316\224 :\343\3164\" ;\342\3449P4\316\225# <\342=3\"\205Y\345\343\3333\"! >4:<O ?\346;!C @\347@?D>\205z\312>D\" A/AC\244/<\203\2234<\312O\202\224\350\2114G\316V\203\276\34293\"\203\276\342\3449P3\316\225#\211<\203\2763<\312O3.\202)5A\2115\204+\351/!/\352 B\311B8\353_BA@\\ C/\205/@\211 @@)CW\205/A\211/\204\351\312+\207" [original-date date offset-years year month x calendar-date-compare calendar-current-date calendar-gregorian-from-absolute 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) delq 1 last (diary-sort-entries sort-diary-entries) sort diary-entry-compare calendar-date-equal 3 string-match match-string "\n[ ]*" string-to-number appt-convert-time append "" appt-sort-list decode-time 60 day day-of-year number appt-time-msg-list elt --dolist-tail-- diary-entries-list literal time-string entry-list diary-list-entries-hook appt-display-diary diary-number-of-entries appt-time-regexp beg only-time end appt-warning-time-regexp warntime appt-time-string appt-time time-msg now now-mins] 14 (#$ . 14058)])
#@127 Sort an appointment list, putting earlier items at the front.
APPT-LIST is a list of the same format as `appt-time-msg-list'.
(defalias 'appt-sort-list #[(appt-list) "\301\302\"\207" [appt-list sort #[(e1 e2) "\211@@)\n\211@@)W\207" [e1 x e2] 3]] 3 (#$ . 16797)])
#@155 Convert hour:min[am/pm] format TIME2CONV to minutes from midnight.
A period (.) can be used instead of a colon (:) to separate the
hour and minute parts.
(defalias 'appt-convert-time #[(time2conv) "\303\304\"\203 \305\306\307\"!\202 \310\303\311\"\203! \305\306\310\"!\202\" \310\303\312\"\2038 \313W\2038 \313 \\\202G \303\314\"\203G \313U\203G \310 \315_\n\\*\207" [time2conv hr min string-match "[h:.]\\([0-9][0-9]\\)" string-to-number match-string 1 0 "[0-9]*[0-9]" "pm" 12 "am" 60] 5 (#$ . 17072)])
#@189 If the current buffer is visiting the diary, update appointments.
This function also acts on any file listed in `diary-included-files'.
It is intended for use with `write-file-functions'.
(defalias 'appt-update-list #[nil "\305 \306\n!C\"\235\203 \203 \307 \310\311!\210)\307\207" [buffer-file-name diary-included-files diary-file appt-timer appt-display-diary append expand-file-name nil appt-check t] 5 (#$ . 17597)])
#@134 Toggle checking of appointments.
With optional numeric argument ARG, turn appointment checking on if
ARG is positive, otherwise off.
(defalias 'appt-activate #[(&optional arg) "\n\203 \304\n!\305V\202 ?\306\307\310\"\210 \204 \311\312\313 \"\210\203+ \314!\210\315 \203U \316\307\310\"\210\317\320\321\322#\323 \324\"\322\320!\210\325\326\315\327\330\217\203P \331\202Q \332\"\202X \325\333!)\207" [appt-timer appt-active arg global-mode-string prefix-numeric-value 0 remove-hook write-file-functions appt-update-list (#1="") delq appt-mode-string cancel-timer nil add-hook run-at-time t 60 appt-check append (appt-mode-string) message "Appointment reminders enabled%s" (diary-check-diary-file) ((error)) #1# " (no diary file found)" "Appointment reminders disabled"] 5 (#$ . 18028) "P"])
(provide 'appt)