Allow insertion of custom ISO date

alecigne · Sep 8, 2023 · 04c3fe8 · 04c3fe8
1 parent d0dc25b
commit 04c3fe8
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lisp/alc/alc-main.el b/lisp/alc/alc-main.el
@@ -601,6 +601,11 @@ the date DATE."
  :chords
  (("jh" . crux-switch-to-previous-buffer)))
 
+(defun alc-insert-iso-date (arg)
+ (interactive "P")
+ (let ((date (if arg (org-read-date) (format-time-string "%Y-%m-%d"))))
+ (insert date)))
+
 (defun alc-insert-iso-today ()
  (interactive)
  (insert (format-time-string "%Y-%m-%d")))