emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/ledger: refactor & show report keys in header line

Browse source 
Rather than in the minibuffer, where it eventually disappears.
This commit is contained in:
Henrik Lissner 2021-03-27 15:47:36 -04:00
parent 5defe3ed88
commit 235db17742
1 changed files with 35 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

28
modules/lang/ledger/config.el
View file

@ -47,16 +47,20 @@
:hook (ledger-mode . evil-ledger-mode)
:config
(set-evil-initial-state! 'ledger-report-mode 'normal)
(map! :map ledger-report-mode-map
(map! (:map ledger-report-mode-map
:n "q" #'ledger-report-quit
:n "RET" #'ledger-report-edit-report
:n "gd" #'ledger-report-visit-source
:n "gr" #'ledger-report-redo
:map ledger-mode-map
;; This is redundant, but helps `substitute-command-keys' find them
;; below, in `+ledger--fix-key-help-a'.
:n "C-d" #'evil-scroll-down
:n "C-u" #'evil-scroll-up)
(:map ledger-mode-map
:m "]]" #'ledger-navigate-next-xact-or-directive
:m "[[" #'ledger-navigate-prev-xact-or-directive
:m "[[" #'ledger-navigate-prev-xact-or-directive)
:localleader
(:localleader
:map ledger-mode-map
"a" #'ledger-add-transaction
"e" #'ledger-post-edit-amount
@ -68,9 +72,17 @@
"S" #'ledger-schedule-upcoming
(:prefix "g"
"s" #'ledger-display-ledger-stats
"b" #'ledger-display-balance-at-point))
"b" #'ledger-display-balance-at-point)))
(defadvice! +ledger--fix-key-help-a (&rest _)
(defadvice! +ledger--fix-key-help-a (orig-fn &rest args)
"Fix inaccurate keybind message."
:after #'ledger-report
(message "q to quit; gr to redo; RET to edit; C-c C-s to save")))
:around #'ledger-report
(quiet! (apply orig-fn args))
(with-current-buffer (get-buffer ledger-report-buffer-name)
(setq header-line-format
(substitute-command-keys
(concat "\\[ledger-report-quit] to quit; "
"\\[ledger-report-redo] to redo; "
"\\[ledger-report-edit-report] to edit; "
"\\[ledger-report-save] to save; "
"\\[evil-scroll-up] and \\[evil-scroll-down] to scroll"))))))