sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add `ledger-read-date' - Read date & default to today.

Browse source
This commit is contained in:
Moritz Ulrich 2014-01-02 18:24:54 +01:00
parent 876cfa1f78
commit 3ff5fddafd
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/ledger-mode.el
View file

@ -99,6 +99,17 @@
nil)))
(ledger-read-string-with-default prompt default)))
(defun ledger-read-date (prompt)
"Returns user-supplied date after `PROMPT', defaults to today."
(let* ((default (ledger-year-and-month))
(date (read-string prompt default)))
(if (or (string= date default)
(string= "" date))
(format-time-string
(or (cdr (assoc "date-format" ledger-environment-alist))
ledger-default-date-format))
date)))
(defun ledger-read-string-with-default (prompt default)
"Return user supplied string after PROMPT, or DEFAULT."
(read-string (concat prompt