diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-08-20 09:51:11 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-08-20 09:51:11 -0700 |
| commit | 46bf142b2a9252c08a13f3878976361bc898f4c5 (patch) | |
| tree | 06ed81bff19e6eecb8a0083c092ee846c8a54f35 /lisp | |
| parent | 4b5a6a45b2f46a26ffac6517231cbd119ebeb42a (diff) | |
| download | fork-ledger-46bf142b2a9252c08a13f3878976361bc898f4c5.tar.gz fork-ledger-46bf142b2a9252c08a13f3878976361bc898f4c5.tar.bz2 fork-ledger-46bf142b2a9252c08a13f3878976361bc898f4c5.zip | |
Bug 986. Add file order to sorting options in the reconcile mode.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-reconcile.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ledger-reconcile.el b/lisp/ledger-reconcile.el index 4725c6e4..8ca78dbc 100644 --- a/lisp/ledger-reconcile.el +++ b/lisp/ledger-reconcile.el @@ -72,8 +72,10 @@ reconcile-finish will mark all pending posting cleared." :type 'string :group 'ledger-reconcile) -(defvar ledger-reconcile-sort-key "(date)" - "Default key for sorting reconcile buffer") +(defcustom ledger-reconcile-sort-key "(date)" + "Default key for sorting reconcile buffer. For no sorting by default, use '(0)'." + :type 'string + :group 'ledger-reconcile) (defun ledger-reconcile-get-cleared-or-pending-balance (buffer account) "Calculate the cleared or pending balance of the account." @@ -447,6 +449,8 @@ moved and recentered. If they aren't strange things happen." (define-key map [?q] 'ledger-reconcile-quit) (define-key map [?b] 'ledger-display-balance) + (define-key map [(control ?c) (control ?o)] (ledger-reconcile-change-sort-key-and-refresh "(0)")) + (define-key map [(control ?c) (control ?a)] (ledger-reconcile-change-sort-key-and-refresh "(amount)")) (define-key map [(control ?c) (control ?d)] (ledger-reconcile-change-sort-key-and-refresh "(date)")) @@ -465,6 +469,7 @@ moved and recentered. If they aren't strange things happen." (define-key map [menu-bar ledger-recon-menu add] '("Add Entry" . ledger-reconcile-add)) (define-key map [menu-bar ledger-recon-menu tog] '("Toggle Entry" . ledger-reconcile-toggle)) (define-key map [menu-bar ledger-recon-menu sep3] '("--")) + (define-key map [menu-bar ledger-recon-menu sort-orig] `("Sort by file order" . ,(ledger-reconcile-change-sort-key-and-refresh "(0)"))) (define-key map [menu-bar ledger-recon-menu sort-amt] `("Sort by amount" . ,(ledger-reconcile-change-sort-key-and-refresh "(amount)"))) (define-key map [menu-bar ledger-recon-menu sort-pay] `("Sort by date" . ,(ledger-reconcile-change-sort-key-and-refresh "(date)"))) (define-key map [menu-bar ledger-recon-menu sort-dat] `("Sort by payee" . ,(ledger-reconcile-change-sort-key-and-refresh "(payee)"))) |