diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-01-29 08:50:50 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-01-29 08:50:50 -0700 |
| commit | 0bbff75f43a096823c2838ae3b7330cf86a54b78 (patch) | |
| tree | fd485e5594ee65e61a06e530f282836257842401 /lisp/ldg-report.el | |
| parent | 5d1971ee51a18f927185d20fb0a4426d8f08aa86 (diff) | |
| download | fork-ledger-0bbff75f43a096823c2838ae3b7330cf86a54b78.tar.gz fork-ledger-0bbff75f43a096823c2838ae3b7330cf86a54b78.tar.bz2 fork-ledger-0bbff75f43a096823c2838ae3b7330cf86a54b78.zip | |
fixes the reconcile mode, adds menus for all modes
thanks to dk for the is-std defun.
Diffstat (limited to 'lisp/ldg-report.el')
| -rw-r--r-- | lisp/ldg-report.el | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lisp/ldg-report.el b/lisp/ldg-report.el index f9c6afca..efd9bdb4 100644 --- a/lisp/ldg-report.el +++ b/lisp/ldg-report.el @@ -70,6 +70,21 @@ text that should replace the format specifier." (define-key map [(control ?c) (control ?l) (control ?e)] 'ledger-report-edit) (define-key map [(control ?c) (control ?c)] 'ledger-report-visit-source) + + + (define-key map [menu-bar] (make-sparse-keymap "ldg-rep")) + (define-key map [menu-bar ldg-rep] (cons "Reports" map)) + + (define-key map [menu-bar ldg-rep lrq] '("Quit" . ledger-report-quit)) + (define-key map [menu-bar ldg-rep s2] '("--")) + (define-key map [menu-bar ldg-rep lrd] '("Scroll Down" . scroll-down)) + (define-key map [menu-bar ldg-rep lru] '("Scroll Up" . scroll-up)) + (define-key map [menu-bar ldg-rep s1] '("--")) + (define-key map [menu-bar ldg-rep lrk] '("Kill Report" . ledger-report-kill)) + (define-key map [menu-bar ldg-rep lrr] '("Re-run Report" . ledger-report-redo)) + (define-key map [menu-bar ldg-rep lre] '("Edit Report" . ledger-report-edit)) + (define-key map [menu-bar ldg-rep lrs] '("Save Report" . ledger-report-save)) + (use-local-map map))) (defun ledger-report-read-name () |