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

Fixes the set-year and set-month functions

Browse source 
Also adds current year and month to the entry prompt.
This commit is contained in:
Craig Earls 2013-01-29 12:47:27 -07:00
parent 1e709d1040
commit 619b6abd5c
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/ldg-mode.el
View file

@ -1,3 +1,16 @@
(defsubst ledger-current-year ()
(format-time-string "%Y"))
(defsubst ledger-current-month ()
(format-time-string "%m"))
(defvar ledger-year (ledger-current-year)
"Start a ledger session with the current year, but make it
customizable to ease retro-entry.")
(defvar ledger-month (ledger-current-month)
"Start a ledger session with the current month, but make it
customizable to ease retro-entry.")
(defcustom ledger-default-acct-transaction-indent " "
"Default indentation for account transactions in an entry."
:type 'string
@ -152,7 +165,8 @@ Return the difference in the format of a time value."
(setq ledger-month (format "%02d" newmonth))))
(defun ledger-add-entry (entry-text &optional insert-at-point)
(interactive "sEntry: ")
(interactive (list
(read-string "Entry: " (concat ledger-year "/" ledger-month "/"))))
(let* ((args (with-temp-buffer
(insert entry-text)
(eshell-parse-arguments (point-min) (point-max))))