diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-08-20 09:58:39 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-08-20 09:58:39 -0700 |
| commit | 9f3afc26f5e7863ed8beac3a411dab8becc7bff9 (patch) | |
| tree | 761f904707d52a0b2860a4df224caa4eb3b5481e /lisp | |
| parent | 8b84aff855963b96c096e4338b4ff5cd6e2d2e68 (diff) | |
| parent | 46bf142b2a9252c08a13f3878976361bc898f4c5 (diff) | |
| download | fork-ledger-9f3afc26f5e7863ed8beac3a411dab8becc7bff9.tar.gz fork-ledger-9f3afc26f5e7863ed8beac3a411dab8becc7bff9.tar.bz2 fork-ledger-9f3afc26f5e7863ed8beac3a411dab8becc7bff9.zip | |
Merge branch 'master' into ledger-mode-automatic-transactions
Conflicts:
lisp/ledger-reconcile.el
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 964a7c23..4821a982 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)"))) |