Lines Matching refs:date
39 (defvar date)
43 (defun calendar-absolute-from-iso (date)
44 "The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
50 Sunday). The Gregorian date Sunday, December 31, 1 BC is imaginary."
51 (let* ((week (extract-calendar-month date))
52 (day (extract-calendar-day date))
53 (year (extract-calendar-year date)))
59 (defun calendar-iso-from-absolute (date)
60 "Compute the `ISO commercial date' corresponding to the absolute DATE.
64 date has the form (week day year) in which week is in the range 1..52 and
66 absolute date is the number of days elapsed since the (imaginary) Gregorian
67 date Sunday, December 31, 1 BC."
69 (calendar-gregorian-from-absolute (- date 3))))
72 (>= date (calendar-absolute-from-iso (list 1 1 (1+ y))))
75 (1+ (/ (- date (calendar-absolute-from-iso (list 1 1 year))) 7))
76 (% date 7)
79 (defun calendar-iso-date-string (&optional date)
80 "String of ISO date of Gregorian DATE.
81 Defaults to today's date if DATE is not given."
83 (or date (calendar-current-date))))
85 (iso-date (calendar-iso-from-absolute d)))
88 (extract-calendar-month iso-date)
89 (extract-calendar-year iso-date))))
91 (defun calendar-print-iso-date ()
92 "Show equivalent ISO date for the date under the cursor."
94 (message "ISO date: %s"
95 (calendar-iso-date-string (calendar-cursor-to-date t))))
98 "Interactively read the arguments for an iso date command."
99 (let* ((today (calendar-current-date))
119 (defun calendar-goto-iso-date (date &optional noecho)
120 "Move cursor to ISO DATE; echo ISO date unless NOECHO is t."
122 (calendar-goto-date (calendar-gregorian-from-absolute
123 (calendar-absolute-from-iso date)))
124 (or noecho (calendar-print-iso-date)))
126 (defun calendar-goto-iso-week (date &optional noecho)
127 "Move cursor to ISO DATE; echo ISO date unless NOECHO is t.
130 (calendar-goto-date (calendar-gregorian-from-absolute
131 (calendar-absolute-from-iso date)))
132 (or noecho (calendar-print-iso-date)))
134 (defun diary-iso-date ()
135 "ISO calendar equivalent of date diary entry."
136 (format "ISO date: %s" (calendar-iso-date-string date)))