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

10
lisp/ledger-mode.el
View file

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