81 |
(defun calendar-iso-date-string (&optional date) |
(defun calendar-iso-date-string (&optional date) |
82 |
"String of ISO date of Gregorian DATE. |
"String of ISO date of Gregorian DATE. |
83 |
Defaults to today's date if DATE is not given." |
Defaults to today's date if DATE is not given." |
84 |
(let* ((d (calendar-absolute-from-gregorian |
(let* ((d (calendar-absolute-from-gregorian |
85 |
(or date (calendar-current-date)))) |
(or date (calendar-current-date)))) |
86 |
(day (% d 7)) |
(day (% d 7)) |
87 |
(iso-date (calendar-iso-from-absolute d))) |
(iso-date (calendar-iso-from-absolute d))) |