help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: writing ledger mode, date picker


From: jenia.ivlev
Subject: Re: writing ledger mode, date picker
Date: Mon, 09 Nov 2015 00:39:16 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.5 (gnu/linux)

The program is amazing in it's simplicity. 
Thanks very much everyone for your kind help.


(defun insert-new-entry ()
   (interactive)
      (goto-char (point-max))
      (define-key calendar-mode-map "\r" 'get-date)
      (calendar))


(defun get-date ()
(interactive)
    (let* ((x (calendar-cursor-to-date))
           (time (encode-time 0 0 0 (nth 1 x) (nth 0 x) (nth 2 x))))
          (select-window (get-buffer-window "asti" t))
          (insert (format-time-string "%Y-%m-%d" time))))



P.S. This assumes you have an "asti" buffer opened (C-x 4 b asti).




reply via email to

[Prev in Thread] Current Thread [Next in Thread]