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

Add Schedule Upcoming to Ledger menu

Browse source
This commit is contained in:
Craig Earls 2013-07-03 13:56:44 -07:00
parent 0d4641acc2
commit bb529381c7
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ledger-mode.el
View file

@ -172,6 +172,7 @@ Can indent, complete or align depending on context."
(define-derived-mode ledger-mode text-mode "Ledger"
"A mode for editing ledger data files."
(ledger-check-version)
(ledger-schedule-check-available)
(ledger-post-setup)
(set (make-local-variable 'comment-start) " ; ")
@ -270,6 +271,7 @@ Can indent, complete or align depending on context."
(define-key map [delete-xact] '(menu-item "Delete Transaction" ledger-delete-current-transaction))
(define-key map [cmp-xact] '(menu-item "Complete Transaction" ledger-fully-complete-xact))
(define-key map [add-xact] '(menu-item "Add Transaction (ledger xact)" ledger-add-transaction :enable ledger-works))
(define-key map [add-xact] '(menu-item "Show upcoming transactions" ledger-schedule-upcoming :enable ledger-schedule-available))
(define-key map [sep3] '(menu-item "--"))
(define-key map [stats] '(menu-item "Ledger Statistics" ledger-display-ledger-stats :enable ledger-works))
(define-key map [fold-buffer] '(menu-item "Narrow to REGEX" ledger-occur))))

2
lisp/ledger-schedule.el
View file

@ -59,7 +59,7 @@
(defsubst between (val low high)
(and (>= val low) (<= val high)))
(defun ledger-check-schedule-available ()
(defun ledger-schedule-check-available ()
(setq ledger-schedule-available (and ledger-schedule-file
(file-exists-p ledger-schedule-file))))