331 |
(setq d (cdr d))) |
(setq d (cdr d))) |
332 |
(or entry-found |
(or entry-found |
333 |
(not diary-list-include-blanks) |
(not diary-list-include-blanks) |
334 |
(setq diary-entries-list |
(setq diary-entries-list |
335 |
(append diary-entries-list |
(append diary-entries-list |
336 |
(list (list date "" ""))))) |
(list (list date "" ""))))) |
337 |
(setq date |
(setq date |
597 |
|
|
598 |
|
|
599 |
|
|
600 |
(defcustom diary-mail-addr |
(defcustom diary-mail-addr |
601 |
(if (boundp 'user-mail-address) user-mail-address nil) |
(if (boundp 'user-mail-address) user-mail-address nil) |
602 |
"*Email address that `diary-mail-entries' will send email to." |
"*Email address that `diary-mail-entries' will send email to." |
603 |
:group 'diary |
:group 'diary |
626 |
-eval \"(setq diary-mail-days 3 \\ |
-eval \"(setq diary-mail-days 3 \\ |
627 |
european-calendar-style t \\ |
european-calendar-style t \\ |
628 |
diary-mail-addr \\\"user@host.name\\\" )\" \\ |
diary-mail-addr \\\"user@host.name\\\" )\" \\ |
629 |
-l diary-lib -f diary-mail-entries |
-l diary-lib -f diary-mail-entries |
630 |
at -f diary-rem.sh 0200 tomorrow |
at -f diary-rem.sh 0200 tomorrow |
631 |
|
|
632 |
You may have to tweak the syntax of the `at' command to suit your |
You may have to tweak the syntax of the `at' command to suit your |
649 |
|
|
650 |
|
|
651 |
(defun diary-name-pattern (string-array &optional fullname) |
(defun diary-name-pattern (string-array &optional fullname) |
652 |
"Convert an STRING-ARRAY, an array of strings to a pattern. |
"Convert a STRING-ARRAY, an array of strings to a pattern. |
653 |
The pattern will match any of the strings, either entirely or abbreviated |
The pattern will match any of the strings, either entirely or abbreviated |
654 |
to three characters. An abbreviated form will match with or without a period; |
to three characters. An abbreviated form will match with or without a period; |
655 |
If the optional FULLNAME is t, abbreviations will not match, just the full |
If the optional FULLNAME is t, abbreviations will not match, just the full |
959 |
:type 'integer |
:type 'integer |
960 |
:group 'diary |
:group 'diary |
961 |
:version "20.3") |
:version "20.3") |
962 |
|
|
963 |
(defun diary-entry-time (s) |
(defun diary-entry-time (s) |
964 |
"Time at the beginning of the string S in a military-style integer. For |
"Time at the beginning of the string S in a military-style integer. For |
965 |
example, returns 1325 for 1:25pm. Returns `diary-unknown-time' (default value |
example, returns 1325 for 1:25pm. Returns `diary-unknown-time' (default value |
967 |
XX:XX (military time), and XXam, XXAM, XXpm, XXPM, XX:XXam, XX:XXAM XX:XXpm, |
XX:XX (military time), and XXam, XXAM, XXpm, XXPM, XX:XXam, XX:XXAM XX:XXpm, |
968 |
or XX:XXPM." |
or XX:XXPM." |
969 |
(let ((case-fold-search nil)) |
(let ((case-fold-search nil)) |
970 |
(cond ((string-match;; Military time |
(cond ((string-match;; Military time |
971 |
"\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\)\\(\\>\\|[^ap]\\)" s) |
"\\`[ \t\n\\^M]*\\([0-9]?[0-9]\\):?\\([0-9][0-9]\\)\\(\\>\\|[^ap]\\)" s) |
972 |
(+ (* 100 (string-to-int |
(+ (* 100 (string-to-int |
973 |
(substring s (match-beginning 1) (match-end 1)))) |
(substring s (match-beginning 1) (match-end 1)))) |
1126 |
will appear on the proper Hebrew-date anniversary and on the |
will appear on the proper Hebrew-date anniversary and on the |
1127 |
day before. (If `european-calendar-style' is t, the order |
day before. (If `european-calendar-style' is t, the order |
1128 |
of the parameters should be changed to DAY, MONTH, YEAR.) |
of the parameters should be changed to DAY, MONTH, YEAR.) |
1129 |
|
|
1130 |
%%(diary-rosh-hodesh) |
%%(diary-rosh-hodesh) |
1131 |
Diary entries will be made on the dates of Rosh Hodesh on |
Diary entries will be made on the dates of Rosh Hodesh on |
1132 |
the Hebrew calendar. Note that since there is no text, it |
the Hebrew calendar. Note that since there is no text, it |
1382 |
diary-entry) |
diary-entry) |
1383 |
"*Pseudo-pattern giving form of reminder messages in the fancy diary |
"*Pseudo-pattern giving form of reminder messages in the fancy diary |
1384 |
display. |
display. |
1385 |
|
|
1386 |
Used by the function `diary-remind', a pseudo-pattern is a list of |
Used by the function `diary-remind', a pseudo-pattern is a list of |
1387 |
expressions that can involve the keywords `days' (a number), `date' (a list of |
expressions that can involve the keywords `days' (a number), `date' (a list of |
1388 |
month, day, year), and `diary-entry' (a string)." |
month, day, year), and `diary-entry' (a string)." |
1428 |
"Add the entry (DATE STRING SPECIFIER) to `diary-entries-list'. |
"Add the entry (DATE STRING SPECIFIER) to `diary-entries-list'. |
1429 |
Do nothing if DATE or STRING is nil." |
Do nothing if DATE or STRING is nil." |
1430 |
(and date string |
(and date string |
1431 |
(setq diary-entries-list |
(setq diary-entries-list |
1432 |
(append diary-entries-list (list (list date string specifier)))))) |
(append diary-entries-list (list (list date string specifier)))))) |
1433 |
|
|
1434 |
(defun make-diary-entry (string &optional nonmarking file) |
(defun make-diary-entry (string &optional nonmarking file) |