diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-24 17:30:29 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-24 19:18:12 +0200 |
| commit | 05be4a61ddfde13ea4f01dca29877992c7b4f965 (patch) | |
| tree | 9c0beea7529a9fbf3bb35c6dd1879060715e663f /module/datetime | |
| parent | Remove (vcomponent util). (diff) | |
| download | calp-05be4a61ddfde13ea4f01dca29877992c7b4f965.tar.gz calp-05be4a61ddfde13ea4f01dca29877992c7b4f965.tar.xz | |
Minor change.
Diffstat (limited to 'module/datetime')
| -rw-r--r-- | module/datetime/util.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/module/datetime/util.scm b/module/datetime/util.scm index 4f461591..1bbde87d 100644 --- a/module/datetime/util.scm +++ b/module/datetime/util.scm @@ -175,9 +175,6 @@ ((#\k) (format #t "~2' d" (hour time))) ((#\M) (format #t "~2'0d" (minute time))) ((#\S) (format #t "~2'0d" (second time))) - ;; TODO - ;; +02:00, get from zoneinfo database - ;; ((#\z) (when (utc? time) (display "Z"))) ((#\Y) (format #t "~4'0d" (year date))) ((#\m) (format #t "~2'0d" (month date))) ((#\d) (format #t "~2'0d" (day date))) @@ -284,11 +281,13 @@ ;; 16 17 18 19 20 21 22 ;; 23 24 25 26 27 28 29 ;; 30 31 +;; @lisp ;; (month-days #2020-03-01 mon) -;; => (2020-02-24 ... 2020-02-29) -;; => (2020-03-01 ... 2020-03-31) -;; => (2020-04-01 ... 2020-04-05) -;; TODO Currently givining a non-start-of-month date for @var{date} is an error. +;; ; ⇒ (2020-02-24 ... 2020-02-29) +;; ; ⇒ (2020-03-01 ... 2020-03-31) +;; ; ⇒ (2020-04-01 ... 2020-04-05) +;; @end lisp +;; Ignores day component of @var{date}. (define*-public (month-days date optional: (week-start (week-start))) (let* ((month-len (days-in-month date)) (prev-month-len (days-in-month (month- date))) |