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

General refactor & cleanup, across the board

Browse source
This commit is contained in:
Henrik Lissner 2019-09-13 21:59:03 -04:00
parent 4ddc5c194b
commit 2d365619cd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
35 changed files with 141 additions and 155 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,14 +1,14 @@
;;; lang/ledger/config.el -*- lexical-binding: t; -*-
;; `ledger-mode'
;;;###package ledger-mode
(setq ledger-clear-whole-transactions 1)
(defun +ledger*check-version (orig-fn)
(defadvice! +ledger--check-version-a (orig-fn)
"Fail gracefully if ledger binary isn't available."
:around #'ledger-check-version
(if (executable-find ledger-binary-path)
(funcall orig-fn)
(message "Couldn't find '%s' executable" ledger-binary-path)))
(advice-add #'ledger-check-version :around #'+ledger*check-version)
;; Restore leader key in ledger reports
(map! :after ledger-mode
@ -51,7 +51,8 @@
(:prefix "g"
"s" #'ledger-display-ledger-stats
"b" #'ledger-display-balance-at-point))
;; Fix inaccurate keybind message
(defun +ledger*fix-key-help (&rest _)
(message "q to quit; gr to redo; RET to edit; C-c C-s to save"))
(advice-add #'ledger-report :after #'+ledger*fix-key-help))
(defadvice! +ledger--fix-key-help-a (&rest _)
"Fix inaccurate keybind message."
:after #'ledger-report
(message "q to quit; gr to redo; RET to edit; C-c C-s to save")))