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

ledger-mode: Remove duplication in ledger-set-{year,month}

Browse source
This commit is contained in:
Steve Purcell 2013-12-09 20:54:51 +00:00
parent 75a2d9d31e
commit 6eca277bbc
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ledger-mode.el
View file

@ -291,16 +291,18 @@ Can indent, complete or align depending on context."
(defun ledger-set-year (newyear)
"Set ledger's idea of the current year to the prefix argument NEWYEAR."
(interactive "p")
(if (= newyear 1)
(setq ledger-year (read-string "Year: " (ledger-current-year)))
(setq ledger-year (number-to-string newyear))))
(setq ledger-year
(if (= newyear 1)
(read-string "Year: " (ledger-current-year))
(number-to-string newyear))))
(defun ledger-set-month (newmonth)
"Set ledger's idea of the current month to the prefix argument NEWMONTH."
(interactive "p")
(if (= newmonth 1)
(setq ledger-month (read-string "Month: " (ledger-current-month)))
(setq ledger-month (format "%02d" newmonth))))
(setq ledger-month
(if (= newmonth 1)
(read-string "Month: " (ledger-current-month))
(format "%02d" newmonth))))