Lines Matching +defs:entry +defs:list
55 (diary-list-entries date (if arg (prefix-numeric-value arg)))))
65 (diary-list-entries (calendar-cursor-to-date t) arg))
73 (list (prefix-numeric-value current-prefix-arg)
79 "Check the list of holidays for any that occur on DATE.
80 The value returned is a list of strings of relevant holiday descriptions.
81 The holidays are those in the list `calendar-holidays'.")
83 (autoload 'calendar-holiday-list "holidays"
84 "Form the list of holidays that occur on dates in the calendar window.
85 The holidays are those in the list `calendar-holidays'.")
88 "French calendar equivalent of date diary entry.")
91 "Mayan calendar equivalent of date diary entry.")
94 "ISO calendar equivalent of date diary entry.")
97 "Julian calendar equivalent of date diary entry.")
100 "Astronomical (Julian) day number diary entry.")
103 "Chinese calendar equivalent of date diary entry.")
106 "Islamic calendar equivalent of date diary entry.")
108 (autoload 'list-islamic-diary-entries "cal-islam"
109 "Add any Islamic date entries from the diary file to `diary-entries-list'.")
118 "Baha'i calendar equivalent of date diary entry.")
120 (autoload 'list-bahai-diary-entries "cal-bahai"
121 "Add any Baha'i date entries from the diary file to `diary-entries-list'.")
130 "Hebrew calendar equivalent of date diary entry.")
133 "Omer count diary entry.")
136 "Yahrzeit diary entry--entry applies if date is yahrzeit or the day before.")
139 "Parasha diary entry--entry applies if date is a Saturday.")
142 "Rosh Hodesh diary entry.")
144 (autoload 'list-hebrew-diary-entries "cal-hebrew"
145 "Add any Hebrew date entries from the diary file to `diary-entries-list'.")
154 "Coptic calendar equivalent of date diary entry.")
157 "Ethiopic calendar equivalent of date diary entry.")
160 "Persian calendar equivalent of date diary entry.")
162 (autoload 'diary-phases-of-moon "lunar" "Moon phases diary entry.")
165 "Local time of sunrise and sunset as a diary entry.")
168 "Local time of candle lighting diary entry--applies if date is a Friday.
169 No diary entry if there is no sunset on that date.")
173 (modify-syntax-entry ?* "w" st)
174 (modify-syntax-entry ?: "w" st)
180 (defvar diary-entries-list)
183 (defvar entry)
207 (defun diary-pull-attrs (entry fileglobattrs)
208 "Pull the face-related attributes off the entry, merge with the
209 fileglobattrs, and return the (possibly modified) entry and face
210 data in a list of attrname attrvalue values.
211 The entry will be modified to drop all tags that are used for face matching.
212 If entry is nil, then the fileglobattrs are being searched for,
217 (let (regexp regnum attrname attr-list attrname attrvalue type
219 (if (null entry)
222 attr-list diary-face-attrs)
223 (while attr-list
225 (setq attr (car attr-list)
236 (setq ret-attr (append ret-attr (list attrname attrvalue))))
237 (setq attr-list (cdr attr-list)))
241 attr-list diary-face-attrs)
242 (while attr-list
244 (setq attr (car attr-list)
250 (if (string-match regexp entry)
252 (setq attrvalue (match-string-no-properties regnum entry))
253 (setq entry (replace-match "" t t entry))))
256 (setq ret-attr (append ret-attr (list attrname attrvalue))))
257 (setq attr-list (cdr attr-list)))))
258 (list entry ret-attr))))
287 (list (if diary-selective-display
351 (defvar diary-modify-entry-list-string-function nil
352 "Function applied to entry string before putting it into the entries list.
353 Can be used by programs integrating a diary list into other buffers (e.g.
357 (defun add-to-diary-list (date string specifier &optional marker
359 "Add an entry to `diary-entries-list'.
361 YEAR) for which the entry applies; STRING is the text of the
362 entry as it will appear in the diary (i.e. with any format
364 the entry as it appears in the diary-file; LITERAL is the entry
368 The entry is added to the list as (DATE STRING SPECIFIER LOCATOR
370 FILENAME being the file containing the diary entry."
377 (and diary-modify-entry-list-string-function
378 (setq string (funcall diary-modify-entry-list-string-function
380 (setq diary-entries-list
381 (append diary-entries-list
382 (list (list date string specifier
383 (list marker (buffer-file-name) literal)
386 (define-obsolete-function-alias 'list-diary-entries 'diary-list-entries)
387 (defun diary-list-entries (date number &optional list-only)
393 Returns a list of all relevant diary entries found, if any, in order by date.
394 The list entries have the form ((MONTH DAY YEAR) STRING SPECIFIER) where
395 \(MONTH DAY YEAR) is the date of the entry, STRING is the entry text, and
396 SPECIFIER is the applicability. If the variable `diary-list-include-blanks'
397 is t, this list includes a dummy diary entry consisting of the empty string
400 After the list is prepared, the hooks `nongregorian-diary-listing-hook',
401 `list-diary-entries-hook', `diary-display-hook', and `diary-hook' are run.
408 `list-diary-entries-hook' adds or manipulates diary entries from
421 If LIST-ONLY is non-nil don't modify or display the buffer, only return a list."
428 diary-entries-list
459 (unless list-only
469 (entry-found (list-sexp-diary-entries date)))
503 ;; Diary entry that consists only of date.
505 ;; Found a nonempty diary entry--make it
506 ;; visible and add it to the list.
507 (setq entry-found t)
508 (let ((entry-start (point))
527 (unless list-only
530 (setq entry (buffer-substring entry-start (point))
531 temp (diary-pull-attrs entry file-glob-attrs)
532 entry (nth 0 temp))
533 (add-to-diary-list
535 entry
537 (1+ date-start) (1- entry-start))
538 (copy-marker entry-start) (nth 1 temp)))))))
539 (or entry-found
540 (not diary-list-include-blanks)
541 (add-to-diary-list date "" "" "" ""))
545 (setq entry-found nil)))))
548 'list-diary-entries-hook)
549 (unless list-only
554 diary-entries-list))))))
563 This function is suitable for use in `list-diary-entries-hook';
579 (diary-list-include-blanks nil)
580 (list-diary-entries-hook 'include-other-diary-files)
586 (setq diary-entries-list
587 (append diary-entries-list
588 (diary-list-entries original-date number)))
601 (let* ((holiday-list (if holidays-in-diary-buffer
605 (if holiday-list ": " "")
606 (mapconcat 'identity holiday-list "; ")))
612 (if (or (not diary-entries-list)
613 (and (not (cdr diary-entries-list))
614 (string-equal (car (cdr (car diary-entries-list))) "")))
621 (insert (mapconcat 'identity holiday-list "\n"))
630 ;; d-s-p is passed from list-diary-entries.
643 (define-button-type 'diary-entry
644 'action #'diary-goto-entry
647 (defun diary-goto-entry (button)
668 (message "Unable to locate this diary entry")))))
676 (if (or (not diary-entries-list)
677 (and (not (cdr diary-entries-list))
678 (string-equal (car (cdr (car diary-entries-list))) "")))
679 (let* ((holiday-list (if holidays-in-diary-buffer
682 (concat date-string (if holiday-list ":" ""))
683 (mapconcat 'identity holiday-list "; "))))
689 (insert (mapconcat 'identity holiday-list "\n"))
698 (let ((entry-list diary-entries-list)
699 (holiday-list)
700 (holiday-list-last-month 1)
701 (holiday-list-last-year 1)
702 (date (list 0 0 0)))
703 (while entry-list
704 (if (not (calendar-date-equal date (car (car entry-list))))
706 (setq date (car (car entry-list)))
709 (list (list holiday-list-last-month
711 holiday-list-last-month
712 holiday-list-last-year)
713 holiday-list-last-year))
714 (list date))
716 (setq holiday-list-last-month
718 (setq holiday-list-last-year
722 holiday-list-last-month holiday-list-last-year 1)
724 (setq holiday-list
725 (let ((displayed-month holiday-list-last-month)
726 (displayed-year holiday-list-last-year))
727 (calendar-holiday-list)))
729 holiday-list-last-month holiday-list-last-year 1))
731 (date-holiday-list
732 (let ((h holiday-list)
734 ;; Make a list of all holidays for date.
741 (if date-holiday-list (insert ": "))
748 date-holiday-list
752 (setq entry (car (cdr (car entry-list))))
753 (if (< 0 (length entry))
754 (let ((this-entry (car entry-list))
756 (if (setq this-loc (nth 3 this-entry))
757 (insert-button (concat entry "\n")
759 'locator (list (car this-loc)
761 (nth 2 this-entry)
763 (nth 1 this-entry)))
764 :type 'diary-entry)
765 (insert entry ?\n))
767 (let* ((marks (nth 4 this-entry))
789 (search-backward entry)
793 (setq entry-list (cdr entry-list))))
909 system. Alternatively, you can specify a cron entry:
916 (diary-list-entries (calendar-current-date) (or ndays diary-mail-days)))
947 (defvar marking-diary-entry nil
948 "True during the marking of diary entries, if current entry is marking.")
952 Each entry in the diary file visible in the calendar window is
1045 (setq entry (nth 0 tmp)
1070 Each entry in the diary file (or included files) visible in the calendar window
1071 is marked. See the documentation for the function `list-sexp-diary-entries'."
1072 (let* ((sexp-mark (regexp-quote sexp-diary-entry-symbol))
1073 (s-entry (concat "\\(\\`\\|\^M\\|\n\\)\\("
1084 (calendar-absolute-from-gregorian (list m 1 y)))
1088 (list m (calendar-last-day-of-month m y) y)))
1090 (while (re-search-forward s-entry nil t)
1091 (setq marking-diary-entry (char-equal (preceding-char) ?\())
1094 sexp entry entry-start line-start marks)
1104 (progn;; Diary entry consists only of the sexp
1106 (setq entry ""))
1107 (setq entry-start (point))
1108 ;; Find end of entry
1116 (setq entry (buffer-substring-no-properties entry-start (point)))
1117 (while (string-match "[\^M]" entry)
1118 (aset entry (match-beginning 0) ?\n )))
1120 (if (setq mark (diary-sexp-entry sexp entry
1123 (setq marks (diary-pull-attrs entry file-glob-attrs)
1124 marks (nth 1 (diary-pull-attrs entry file-glob-attrs)))
1207 (mark-visible-calendar-date (list month i year) color))
1208 (mark-visible-calendar-date (list month p-day year) color))))
1211 "Sort the list of diary entries by time of day."
1212 (setq diary-entries-list (sort diary-entries-list 'diary-entry-compare)))
1214 (defun diary-entry-compare (e1 e2)
1218 (let* ((ts1 (cadr e1)) (t1 (diary-entry-time ts1))
1219 (ts2 (cadr e2)) (t2 (diary-entry-time ts2)))
1226 "Value returned by diary-entry-time when no time is found.
1234 (defun diary-entry-time (s)
1263 (defun list-sexp-diary-entries (date)
1264 "Add sexp entries for DATE from the diary file to `diary-entries-list'.
1268 Sexp diary entries must be prefaced by a `sexp-diary-entry-symbol' (normally
1269 `%%'). The form of a sexp diary entry is
1274 SEXP yields the value nil, the diary entry does not apply. If it yields a
1276 string, that string will be the diary entry in the fancy diary display.
1278 For example, the following diary entry will apply to the 21st of the month
1288 A number of built-in functions are available for this type of diary entry:
1303 the month. MONTH can be a list of months, a single
1343 single number or a list of numbers indicating the number(s)
1348 reminders beforehand, the diary entry also appears on
1351 reminders is independent of whether the entry *itself* is
1404 the date of death on the *civil* calendar. The diary entry
1426 (let ((s-entry (concat "\\(\\`\\|\^M\\|\n\\)"
1429 (regexp-quote sexp-diary-entry-symbol)
1431 entry-found file-glob-attrs marks)
1435 (while (re-search-forward s-entry nil t)
1438 sexp entry specifier entry-start line-start)
1446 entry-start (1+ line-start))
1451 (progn;; Diary entry consists only of the sexp
1453 (setq entry ""))
1454 (setq entry-start (point))
1459 (setq entry (buffer-substring-no-properties entry-start (point)))
1460 (while (string-match "[\^M]" entry)
1461 (aset entry (match-beginning 0) ?\n )))
1462 (let ((diary-entry (diary-sexp-entry sexp entry date))
1464 (setq literal entry ; before evaluation
1465 entry (if (consp diary-entry)
1466 (cdr diary-entry)
1467 diary-entry))
1468 (if diary-entry
1471 (if (< 0 (length entry))
1472 (setq temp (diary-pull-attrs entry file-glob-attrs)
1473 entry (nth 0 temp)
1475 (add-to-diary-list date
1476 entry
1478 (if entry-start (copy-marker entry-start)
1482 (setq entry-found (or entry-found diary-entry)))))
1483 entry-found))
1485 (defun diary-sexp-entry (sexp entry date)
1501 (result entry)
1505 "Specific date(s) diary entry.
1532 (cons mark entry))))
1535 "Block diary entry.
1546 (list d1 m1 y1)
1547 (list m1 d1 y1))))
1550 (list d2 m2 y2)
1551 (list m2 d2 y2))))
1554 (cons mark entry))))
1557 "Floating diary entry--entry applies if date is the nth dayname of month.
1558 Parameters are MONTH, DAYNAME, N. MONTH can be a list of months, the constant
1565 ;; This is messy because the diary entry may apply, but the date on which it
1573 (limit; last (n>0) or first (n<0) possible base date for entry
1618 (cons mark entry)))))
1622 "Anniversary diary entry.
1625 `european-calendar-style' is t. Diary entry can contain `%d' or `%d%s'; the
1644 (if (and (> diff 0) (calendar-date-equal (list m d y) date))
1645 (cons mark (format entry diff (diary-ordinal-suffix diff))))))
1648 "Cycle diary entry--entry applies every N days starting at MONTH, DAY, YEAR.
1665 (list m d year))))
1668 (cons mark (format entry cycle (diary-ordinal-suffix cycle))))))
1678 "Day of year and number of days remaining in the year of date diary entry."
1687 diary-entry)
1691 Used by the function `diary-remind', a pseudo-pattern is a list of
1692 expressions that can involve the keywords `days' (a number), `date' (a list of
1693 month, day, year), and `diary-entry' (a string)."
1698 "Provide a reminder of a diary entry.
1699 SEXP is a diary-sexp. DAYS is either a single number or a list of numbers
1705 In addition to the reminders beforehand, the diary entry also appears on the
1709 entry specifies that the diary entry (not the reminder) is non-marking.
1710 Marking of reminders is independent of whether the entry itself is a marking
1713 (let ((diary-entry (eval sexp)))
1715 ;; Diary entry applies on date
1716 ((and diary-entry
1717 (or (not marking-diary-entries) marking-diary-entry))
1718 diary-entry)
1719 ;; Diary entry may apply to `days' before date
1721 (not diary-entry); Diary entry does not apply to date
1725 (when (setq diary-entry (eval sexp)) ; re-evaluate with adjusted date
1727 (if (consp diary-entry) (setq diary-entry (cdr diary-entry)))
1729 ;; Diary entry may apply to one of a list of days before date
1742 (defun make-diary-entry (string &optional nonmarking file)
1743 "Insert a diary entry STRING which may be NONMARKING in FILE.
1764 (defun insert-diary-entry (arg)
1765 "Insert a diary entry for the date indicated by point.
1766 Prefix arg will make the entry nonmarking."
1768 (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t t)
1771 (defun insert-weekly-diary-entry (arg)
1772 "Insert a weekly diary entry for the day of the week indicated by point.
1773 Prefix arg will make the entry nonmarking."
1775 (make-diary-entry (calendar-day-name (calendar-cursor-to-date t))
1778 (defun insert-monthly-diary-entry (arg)
1779 "Insert a monthly diary entry for the day of the month indicated by point.
1780 Prefix arg will make the entry nonmarking."
1786 (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t)
1789 (defun insert-yearly-diary-entry (arg)
1790 "Insert an annual diary entry for the day of the year indicated by point.
1791 Prefix arg will make the entry nonmarking."
1797 (make-diary-entry (calendar-date-string (calendar-cursor-to-date t) t)
1800 (defun insert-anniversary-diary-entry (arg)
1801 "Insert an anniversary diary entry for the date given by point.
1802 Prefix arg will make the entry nonmarking."
1808 (make-diary-entry
1810 sexp-diary-entry-symbol
1814 (defun insert-block-diary-entry (arg)
1815 "Insert a block diary entry for the days between the point and marked date.
1816 Prefix arg will make the entry nonmarking."
1832 (make-diary-entry
1834 sexp-diary-entry-symbol
1839 (defun insert-cyclic-diary-entry (arg)
1840 "Insert a cyclic diary entry starting at the date given by point.
1841 Prefix arg will make the entry nonmarking."
1847 (make-diary-entry
1849 sexp-diary-entry-symbol
1905 (list
1906 (list
1954 "Recognize sexp diary entry for font-locking."
1957 "?\\(" (regexp-quote sexp-diary-entry-symbol) "\\)")
1964 (store-match-data (list start (point)))
2010 (memq 'list-hebrew-diary-entries
2015 hebrew-diary-entry-symbol))
2018 (memq 'list-islamic-diary-entries
2023 islamic-diary-entry-symbol))
2024 (list
2030 "?\\(" (regexp-quote sexp-diary-entry-symbol) "\\)")
2037 "?\\(" (regexp-quote hebrew-diary-entry-symbol) "\\)")
2041 "?\\(" (regexp-quote islamic-diary-entry-symbol) "\\)")
2086 current message, a diary entry is made from the corresponding
2099 (string :tag "Template for entry")
2110 "Snarf a diary entry from a message assumed to be from MS Outlook.
2114 message contains an appointment, don't make a diary entry."
2127 (make-diary-entry
2138 "Maybe snarf diary entry from current Outlook-generated message.
2141 function is called interactively), then if an entry is found the
2161 "Maybe snarf diary entry from Outlook-generated message in Gnus.
2163 this function is called interactively), then if an entry is found the
2178 (when (or noconfirm (y-or-n-p "Snarf diary entry? "))
2180 (message "Diary entry added"))))))
2188 "Maybe snarf diary entry from Outlook-generated message in Rmail.
2190 this function is called interactively), then if an entry is found the
2200 (when (or noconfirm (y-or-n-p "Snarf diary entry? "))
2202 (message "Diary entry added"))))))