diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-01-29 12:48:50 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-01-29 12:48:50 -0700 |
| commit | c1ad213f4e197b80a0b619bb04769f807a2be645 (patch) | |
| tree | 25dcf479e7f649a1031b63c24de135c6b7b2f4fb | |
| parent | fd7447f980c349083c8d703e6a845db250ce4b97 (diff) | |
| parent | 619b6abd5ca3713a01c1fcb38a055f037cbc30af (diff) | |
| download | fork-ledger-c1ad213f4e197b80a0b619bb04769f807a2be645.tar.gz fork-ledger-c1ad213f4e197b80a0b619bb04769f807a2be645.tar.bz2 fork-ledger-c1ad213f4e197b80a0b619bb04769f807a2be645.zip | |
Merge branch 'ledger-mode-fix-year-and-month' into kitchen-sink
| -rw-r--r-- | lisp/ldg-mode.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index caa57e8e..e36dc969 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -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)))) |