sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge pull request #152 from vanicat/t/occur-bugs

Browse source 
T/occur bugs
This commit is contained in:
Craig Earls 2013-02-09 06:38:08 -08:00
commit f89d6c4419
1 changed files with 24 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ldg-occur.el
View file

@ -70,13 +70,14 @@
"A list of currently active overlays to the ledger buffer.")
(make-variable-buffer-local 'ledger-occur-overlay-list)
(defun ledger-occur-mode (regex buffer)
"Higlight transaction that match REGEX, hiding others
When REGEX is nil, unhide everything, and remove higlight"
(progn
(set-buffer buffer)
(setq ledger-occur-mode
(if (or ledger-occur-mode
(null regex)
(if (or (null regex)
(zerop (length regex)))
nil
(concat " Ledger-Folded: " regex)))
@ -128,6 +129,7 @@
prompt))
(defun ledger-occur-create-folded-overlays(buffer-matches)
(if buffer-matches
(let ((overlays
(let ((prev-end (point-min))
(temp (point-max)))
@ -152,7 +154,7 @@
(overlay-put ovl 'intangible t))
(push (make-overlay (cadr (car(last buffer-matches)))
(point-max)
(current-buffer) t nil) overlays))))
(current-buffer) t nil) overlays)))))
(defun ledger-occur-create-xact-overlays (ovl-bounds)