diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-30 08:27:16 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-30 08:27:16 -0700 |
| commit | 44ae6e0f16fe8677f491487b948eeb5e8cc2998f (patch) | |
| tree | 531964a0e69c929a134424a8956cec4bef7716ed /lisp/ldg-mode.el | |
| parent | 12b2d1b6281166c863f0270220cc5a9d448130ca (diff) | |
| download | ledger-44ae6e0f16fe8677f491487b948eeb5e8cc2998f.tar.gz ledger-44ae6e0f16fe8677f491487b948eeb5e8cc2998f.tar.bz2 ledger-44ae6e0f16fe8677f491487b948eeb5e8cc2998f.zip | |
Start integrating schedule into the overall mode
Diffstat (limited to 'lisp/ldg-mode.el')
| -rw-r--r-- | lisp/ldg-mode.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index c9814918..e9e233af 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -106,18 +106,20 @@ Can be pcomplete, or align-posting" (define-key map [(control ?c) (control ?r)] 'ledger-reconcile) (define-key map [(control ?c) (control ?s)] 'ledger-sort-region) (define-key map [(control ?c) (control ?t)] 'ledger-insert-effective-date) + (define-key map [(control ?c) (control ?u)] 'ledger-schedule-upcoming) (define-key map [(control ?c) (control ?y)] 'ledger-set-year) - (define-key map [tab] 'ledger-magic-tab) + (define-key map [tab] 'ledger-magic-tab) (define-key map [(control ?i)] 'ledger-magic-tab) (define-key map [(control ?c) tab] 'ledger-fully-complete-entry) (define-key map [(control ?c) (control ?i)] 'ledger-fully-complete-entry) - (define-key map [(control ?c) (control ?o) (control ?r)] 'ledger-report) - (define-key map [(control ?c) (control ?o) (control ?g)] 'ledger-report-goto) + (define-key map [(control ?c) (control ?o) (control ?a)] 'ledger-report-redo) - (define-key map [(control ?c) (control ?o) (control ?s)] 'ledger-report-save) (define-key map [(control ?c) (control ?o) (control ?e)] 'ledger-report-edit) + (define-key map [(control ?c) (control ?o) (control ?g)] 'ledger-report-goto) (define-key map [(control ?c) (control ?o) (control ?k)] 'ledger-report-kill) - + (define-key map [(control ?c) (control ?o) (control ?r)] 'ledger-report) + (define-key map [(control ?c) (control ?o) (control ?s)] 'ledger-report-save) + (define-key map [(meta ?p)] 'ledger-post-prev-xact) (define-key map [(meta ?n)] 'ledger-post-next-xact) |