Enh 246 add code folding to ledger mode

Based on loccur.  Hides everything but the xacts that match a regex.  Linked to reconcile mode so that when you reconcile an account on xacts with that account are shown.  Documentation updated

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el
index c185c198..4c55cdc0 100644
--- a/lisp/ldg-mode.el
+++ b/lisp/ldg-mode.el
@@ -72,6 +72,7 @@ customizable to ease retro-entry.")
     (define-key map [(control ?c) (control ?s)] 'ledger-sort-region)
     (define-key map [(control ?c) (control ?t)] 'ledger-test-run)
     (define-key map [(control ?c) (control ?v)] 'ledger-post-edit-amount)
+    (define-key map [(control ?c) (control ?f)] 'ledger-occur)
     (define-key map [tab] 'pcomplete)
     (define-key map [(control ?i)] 'pcomplete)
     (define-key map [(control ?c) tab] 'ledger-fully-complete-entry)
@@ -110,7 +111,9 @@ customizable to ease retro-entry.")
     (define-key map [delete-xact] '(menu-item "Delete Entry" ledger-delete-current-entry))
     (define-key map [add-xact] '(menu-item "Add Entry" ledger-add-entry :enable ledger-works))
     (define-key map [sep3] '(menu-item "--"))
-    (define-key map [reconcile] '(menu-item "Reconcile Account" ledger-reconcile :enable ledger-works))))
+    (define-key map [reconcile] '(menu-item "Reconcile Account" ledger-reconcile :enable ledger-works))
+    (define-key map [reconcile] '(menu-item "Hide Xacts" ledger-occur))
+    ))
 
 (defun ledger-time-less-p (t1 t2)
   "Say whether time value T1 is less than time value T2."