From: Andreas Gerler <baron@bundesbrandschatzamt.de>
Date: Fri, 4 Oct 2019 13:28:43 +0000 (+0200)
Subject: add calendar-insert-date
X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=82569afb22bc67da6e2ac4677218ca8d5bc014f3;p=emacsconfig.git

add calendar-insert-date
---

diff --git a/bba.org b/bba.org
index e52f1c07..dba9e7bc 100644
--- a/bba.org
+++ b/bba.org
@@ -277,6 +277,19 @@ Keep track of your important stuff!
     )
 #+END_SRC
 
+* calendar
+[2019-09-30 Mon 10:30]
+
+#+begin_src emacs-lisp :tangle yes
+  (defun calendar-insert-date ()
+    "Capture the date at point, exit the Calendar, insert the date."
+    (interactive)
+    (seq-let (month day year) (save-match-data (calendar-cursor-to-date))
+      (calendar-exit)
+      (insert (format "%d-%02d-%02d" year month day))))
+
+  (define-key calendar-mode-map (kbd "RET") 'calendar-insert-date)
+#+end_src
 * magit
 
 For annotated tags prepare message with commit messages since last tag.