time-stamp (snippet inside)

[vindarel]

I got this command to print a time stamp in the same form as org-mode. Too short for a PR. It would be nice to have a key to easily add or substract days to the printed timestamp. And then, an interactive day picker of course.

 <2023-07-05 Wed>

(defvar *time-stamp-format*
  ;; Equals Emacs org-mode's default format.
  '("<" :year "-" (:month 2) "-" (:day 2) " " :short-weekday ">")
  "Time-stamp format.
  By default, prints year, month, day, and short english day: \"<2023-07-05 Wed>\"")

(defun format-time-stamp (&key (day (local-time:now)) (stream nil))
  (local-time:format-timestring stream day :format *time-stamp-format*))

(define-command time-stamp () ()
  "Print a timestamp of today, in the form <2042-12-01 Mon>."
  (insert-string (current-point) (format-time-stamp :stream t)))