yank-date-from-calendar.el

yank-date-from-calendar.el

;; -*- lexical-binding: t -*-

(defun yank-date-from-calendar ()
  (interactive)
  (let ((date-string nil))
    (set-transient-map
     (let ((map (make-sparse-keymap)))
       (set-keymap-parent map calendar-mode-map)
       (define-key map (kbd "RET")
         (lambda ()
           (interactive)
           (switch-to-buffer calendar-buffer)
           (setf date-string
                 (calendar-date-string (calendar-cursor-to-date t)))
           (calendar-exit)
           (insert date-string)))
       map)
     (lambda () (null date-string)))
    (save-excursion
      (calendar))))