3002d149c5
hledger support in ledger-mode is incomplete. Perhaps we'll adopt hledger-mode in the future? For now we'll just support ledger alone instead of treading it as a fallback.
61 lines
1.9 KiB
EmacsLisp
61 lines
1.9 KiB
EmacsLisp
;;; lang/ledger/config.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! ledger-mode
|
|
:defer t
|
|
:init
|
|
(setq ledger-clear-whole-transactions 1
|
|
ledger-mode-should-check-version nil)
|
|
|
|
(set-company-backend! 'ledger-mode 'company-capf)
|
|
|
|
(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)))
|
|
|
|
(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))
|
|
|
|
|
|
(use-package! flycheck-ledger
|
|
:when (featurep! :checkers syntax)
|
|
:after ledger-mode)
|
|
|
|
|
|
(use-package! evil-ledger
|
|
:when (featurep! :editor evil +everywhere)
|
|
:hook (ledger-mode . evil-ledger-mode)
|
|
:config
|
|
(set-evil-initial-state! 'ledger-report-mode 'normal)
|
|
(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
|
|
:m "]]" #'ledger-navigate-next-xact-or-directive
|
|
:m "[[" #'ledger-navigate-prev-xact-or-directive
|
|
|
|
:localleader
|
|
:map ledger-mode-map
|
|
"a" #'ledger-add-transaction
|
|
"t" #'ledger-toggle-current
|
|
"d" #'ledger-delete-current-transaction
|
|
"r" #'ledger-report
|
|
"R" #'ledger-reconcile
|
|
"s" #'ledger-sort-region
|
|
"S" #'ledger-schedule-upcoming
|
|
(:prefix "g"
|
|
"s" #'ledger-display-ledger-stats
|
|
"b" #'ledger-display-balance-at-point))
|
|
|
|
(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")))
|