76cacb5bfe
Calling this pivotal macro "def-package!" has frequently been a source of confusion. It is a thin wrapper around use-package, and it should be obvious that it is so. For this reason, and to match the naming convention used with other convenience macros/wrappers, it is now use-package!. Also changes def-package-hook! -> use-package-hook! The old macros are now marked obsolete and will be removed when straight integration is merged.
57 lines
1.9 KiB
EmacsLisp
57 lines
1.9 KiB
EmacsLisp
;;; lang/ledger/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; `ledger-mode'
|
|
(setq ledger-clear-whole-transactions 1)
|
|
|
|
(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)
|
|
|
|
;; Restore leader key in ledger reports
|
|
(map! :after ledger-mode
|
|
: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! :tools flycheck)
|
|
: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))
|
|
;; 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))
|