lang/ledger: refactor & use hledger by default

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

View file

@ -1,7 +1,15 @@
;;; lang/ledger/config.el -*- lexical-binding: t; -*-
;;;###package ledger-mode
(setq ledger-clear-whole-transactions 1)
(use-package! ledger-mode
:defer t
:init
(setq ledger-clear-whole-transactions 1
ledger-mode-should-check-version nil)
: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."
@ -10,14 +18,12 @@
(funcall orig-fn)
(message "Couldn't find '%s' executable" ledger-binary-path)))
;; Restore leader key in ledger reports
(map! :after ledger-mode
:map ledger-report-mode-map
(map! :map ledger-report-mode-map
"C-c C-c" #'ledger-report-edit-report
"C-c C-r" #'ledger-report-redo
"C-c C-s" #'ledger-report-save
:map ledger-reconcile-mode-map
[tab] #'ledger-reconcile-toggle)
[tab] #'ledger-reconcile-toggle))
(use-package! flycheck-ledger