Lines Matching +defs:time +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'.")
108 (autoload 'list-islamic-diary-entries "cal-islam"
109 "Add any Islamic date entries from the diary file to `diary-entries-list'.")
120 (autoload 'list-bahai-diary-entries "cal-bahai"
121 "Add any Baha'i date entries from the diary file to `diary-entries-list'.")
144 (autoload 'list-hebrew-diary-entries "cal-hebrew"
145 "Add any Hebrew date entries from the diary file to `diary-entries-list'.")
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.
180 (defvar diary-entries-list)
210 data in a list of attrname attrvalue values.
217 (let (regexp regnum attrname attr-list attrname attrvalue type
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)
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'.
368 The entry is added to the list as (DATE STRING SPECIFIER LOCATOR
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
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)))
506 ;; visible and add it to the list.
527 (unless list-only
533 (add-to-diary-list
540 (not diary-list-include-blanks)
541 (add-to-diary-list date "" "" "" ""))
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.
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))))
754 (let ((this-entry (car entry-list))
759 'locator (list (car this-loc)
793 (setq entry-list (cdr entry-list))))
916 (diary-list-entries (calendar-current-date) (or ndays diary-mail-days)))
1071 is marked. See the documentation for the function `list-sexp-diary-entries'."
1084 (calendar-absolute-from-gregorian (list m 1 y)))
1088 (list m (calendar-last-day-of-month m y) y)))
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)))
1218 (let* ((ts1 (cadr e1)) (t1 (diary-entry-time ts1))
1219 (ts2 (cadr e2)) (t2 (diary-entry-time ts2)))
1224 (defcustom diary-unknown-time
1226 "Value returned by diary-entry-time when no time is found.
1227 The default value -9999 causes entries with no recognizable time to be placed
1228 before those with times; 9999 would place entries with no recognizable time
1234 (defun diary-entry-time (s)
1235 "Return time at the beginning of the string S as a military-style integer.
1238 Returns `diary-unknown-time' (default value -9999) if no time is recognized.
1239 The recognized forms are XXXX, X:XX, or XX:XX (military time), and XXam,
1243 (cond ((string-match ; Military time
1259 (t diary-unknown-time)))) ; Unrecognizable
1263 (defun list-sexp-diary-entries (date)
1264 "Add sexp entries for DATE from the diary file to `diary-entries-list'.
1303 the month. MONTH can be a list of months, a single
1343 single number or a list of numbers indicating the number(s)
1424 Marking these entries is *extremely* time consuming, so these entries are
1475 (add-to-diary-list date
1546 (list d1 m1 y1)
1547 (list m1 d1 y1))))
1550 (list d2 m2 y2)
1551 (list m2 d2 y2))))
1558 Parameters are MONTH, DAYNAME, N. MONTH can be a list of months, the constant
1644 (if (and (> diff 0) (calendar-date-equal (list m d y) date))
1665 (list m d year))))
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
1699 SEXP is a diary-sexp. DAYS is either a single number or a list of numbers
1729 ;; Diary entry may apply to one of a list of days before date
1885 (defconst diary-time-regexp
1892 "Regular expression matching a time of day.")
1899 (defface diary-time '((t :inherit font-lock-variable-name-face))
1905 (list
1906 (list
1917 `(,(format "\\(^\\|\\s-\\)%s\\(-%s\\)?" diary-time-regexp
1918 diary-time-regexp) . 'diary-time))
1964 (store-match-data (list start (point)))
2010 (memq 'list-hebrew-diary-entries
2018 (memq 'list-islamic-diary-entries
2024 (list
2045 diary-time-regexp "\\(-" diary-time-regexp "\\)?")
2046 . 'diary-time))))
2097 :type '(alist :key-type (regexp :tag "Regexp matching time/place")