Emacs Stack Exchange is a question and answer site for those using, extending or developing Emacs. It only takes a minute to sign up.
Sign up to join this community
I want to write a mode for ledger. The first thing I want to do is to be able to insert date stamps. There is a very nice mode in Emacs called calendar. I want to be able to select a date within it.
How do I register a call-back or something that will be executed when the user has select a date (by pressing enter or any other way that calendar mode already uses).
My solution is
(defvar *calendar-entry-buffer* nil)
(defun select-date ()
(interactive)
(destructuring-bind (month day year) (calendar-cursor-to-date)
(if *calendar-entry-buffer*
(progn
(save-current-buffer
(set-buffer *calendar-entry-buffer*)
(insert (format "%d-%02d-%02d\n" year month day)))
(setf *calendar-entry-buffer* nil)
(calendar-exit)))))
(define-key calendar-mode-map (kbd "RET") 'select-date)
(defun insert-date-at-point ()
(interactive)
(setf *calendar-entry-buffer* (current-buffer))
(calendar))
org-read-date-- user selects date on calendar and the date is automatically inserted and the calendar buffer closes.calendarand some other function that will allow me to simply read the user's selection.(require 'org) (org-read-date)in your*Scratch*buffer and it works no matter what major-mode that buffer is in. It is only necessary torequirea library one time per session, and can be placed at the top of the library you are building.