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

lang/ledger: refactor & use hledger by default

Browse source
This commit is contained in:
Henrik Lissner 2020-02-08 20:53:50 -05:00
parent ef472d7c1a
commit 73c893ba35
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 22 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,23 +1,29 @@
;;; lang/ledger/config.el -*- lexical-binding: t; -*- ;;; lang/ledger/config.el -*- lexical-binding: t; -*-
;;;###package ledger-mode (use-package! ledger-mode
(setq ledger-clear-whole-transactions 1) :defer t
:init
(setq ledger-clear-whole-transactions 1
ledger-mode-should-check-version nil)
(defadvice! +ledger--check-version-a (orig-fn) :config
(setq ledger-binary-path
(or (cl-delete-if-not #'executable-find (list "hledger" "ledger"))
"ledger"))
(defadvice! +ledger--check-version-a (orig-fn)
"Fail gracefully if ledger binary isn't available." "Fail gracefully if ledger binary isn't available."
:around #'ledger-check-version :around #'ledger-check-version
(if (executable-find ledger-binary-path) (if (executable-find ledger-binary-path)
(funcall orig-fn) (funcall orig-fn)
(message "Couldn't find '%s' executable" ledger-binary-path))) (message "Couldn't find '%s' executable" ledger-binary-path)))
;; Restore leader key in ledger reports (map! :map ledger-report-mode-map
(map! :after ledger-mode
:map ledger-report-mode-map
"C-c C-c" #'ledger-report-edit-report "C-c C-c" #'ledger-report-edit-report
"C-c C-r" #'ledger-report-redo "C-c C-r" #'ledger-report-redo
"C-c C-s" #'ledger-report-save "C-c C-s" #'ledger-report-save
:map ledger-reconcile-mode-map :map ledger-reconcile-mode-map
[tab] #'ledger-reconcile-toggle) [tab] #'ledger-reconcile-toggle))
(use-package! flycheck-ledger (use-package! flycheck-ledger