2017-09-08 21:49:12 +02:00
|
|
|
;;; lang/ledger/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
2018-05-25 00:46:11 +02:00
|
|
|
;; `ledger-mode'
|
|
|
|
(setq ledger-clear-whole-transactions 1)
|
2017-09-08 21:49:12 +02:00
|
|
|
|
2018-08-20 23:33:29 +02:00
|
|
|
(defun +ledger*check-version (orig-fn)
|
|
|
|
"Fail gracefully if ledger binary isn't available."
|
|
|
|
(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)
|
|
|
|
|
2018-08-20 23:33:07 +02:00
|
|
|
;; Restore leader key in ledger reports
|
|
|
|
(after! ledger-mode
|
|
|
|
(define-key! (ledger-report-mode-map ledger-reconcile-mode-map)
|
2018-08-21 21:36:56 +02:00
|
|
|
(kbd doom-leader-key) nil)
|
2018-08-20 23:33:07 +02:00
|
|
|
(define-key ledger-reconcile-mode-map [tab] #'ledger-reconcile-toggle))
|
|
|
|
|
2017-09-08 21:49:12 +02:00
|
|
|
|
|
|
|
(def-package! flycheck-ledger
|
|
|
|
:when (featurep! :feature syntax-checker)
|
2018-06-21 15:54:36 +02:00
|
|
|
:after ledger-mode)
|
2018-08-20 23:33:45 +02:00
|
|
|
|
|
|
|
|
|
|
|
(def-package! evil-ledger
|
|
|
|
:when (featurep! :feature evil +everywhere)
|
|
|
|
:hook (ledger-mode . evil-ledger-mode))
|