|
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).
[Prev in Thread] | Current Thread | [Next in Thread] |