add format-only-date

Shirakumo · Jun 20, 2024 · 4ef7622 · 4ef7622
1 parent 53f0926
commit 4ef7622
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/module.lisp b/module.lisp
@@ -304,6 +304,7 @@
    #:format-machine-date
    #:format-human-date
    #:format-fancy-date
+   #:format-only-date
    #:format-time
    #:parse-time
    #:make-random-string

diff --git a/toolkit.lisp b/toolkit.lisp
@@ -84,6 +84,12 @@
    stream stamp :format '(:long-weekday ", " :ordinal-day " of " :long-month " " :year ", " :hour ":" (:min 2) ":" (:sec 2) " UTC")
                 :timezone local-time:+utc-zone+))
 
+(defun format-only-date (stamp &optional stream)
+  (when (integerp stamp) (setf stamp (local-time:universal-to-timestamp stamp)))
+  (local-time:format-timestring
+   stream stamp :format '((:year 4) "-" (:month 2) "-" (:day 2))
+                :timezone local-time:+utc-zone+))
+
 (defun format-time (stamp &optional (relative-time-threshold (* 60 60 24)) stream)
   (when (typep stamp 'local-time:timestamp)
     (setf stamp (local-time:timestamp-to-universal stamp)))