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

[emacs] Add a menu entry for turning off ledger-occur-mode

Browse source
This commit is contained in:
Steve Purcell 2014-12-13 20:31:51 +00:00
parent b810862bf1
commit d0e09f1d93
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ledger-mode.el
View file

@ -292,6 +292,7 @@ With a prefix argument, remove the effective date."
"Ledger menu" "Ledger menu"
'("Ledger" '("Ledger"
["Narrow to REGEX" ledger-occur] ["Narrow to REGEX" ledger-occur]
["Show all transactions" ledger-occur-mode ledger-occur-mode]
["Ledger Statistics" ledger-display-ledger-stats ledger-works] ["Ledger Statistics" ledger-display-ledger-stats ledger-works]
"---" "---"
["Show upcoming transactions" ledger-schedule-upcoming] ["Show upcoming transactions" ledger-schedule-upcoming]

12
lisp/ledger-occur.el
View file

@ -57,9 +57,11 @@
ledger-occur-mode-map ledger-occur-mode-map
(if ledger-occur-mode (if ledger-occur-mode
(ledger-occur-refresh) (ledger-occur-refresh)
(ledger-occur-remove-overlays))) (ledger-occur-remove-overlays)
(message "Showing all transactions")))
(define-key ledger-occur-mode-map (kbd "C-c C-g") 'ledger-occur-refresh) (define-key ledger-occur-mode-map (kbd "C-c C-g") 'ledger-occur-refresh)
(define-key ledger-occur-mode-map (kbd "C-c C-f") 'ledger-occur-mode)
(defun ledger-occur-refresh () (defun ledger-occur-refresh ()
"Re-apply the current narrowing expression." "Re-apply the current narrowing expression."
@ -78,14 +80,10 @@ This command hides all xact in the current buffer except those
matching REGEX. If REGEX is nil or empty, turn off any narrowing matching REGEX. If REGEX is nil or empty, turn off any narrowing
currently active." currently active."
(interactive (interactive
(if ledger-occur-mode (list (read-regexp "Regexp" (ledger-occur-prompt) 'ledger-occur-history)))
(list nil)
(list (read-regexp "Regexp" (ledger-occur-prompt) 'ledger-occur-history))))
(if (or (null regex) (if (or (null regex)
(zerop (length regex))) ; empty regex, or already have narrowed, clear narrowing (zerop (length regex))) ; empty regex, or already have narrowed, clear narrowing
(progn (ledger-occur-mode -1)
(message "Showing all transactions")
(ledger-occur-mode -1))
(setq ledger-occur-current-regex regex) (setq ledger-occur-current-regex regex)
(ledger-occur-mode 1))) (ledger-occur-mode 1)))