doomemacs/modules/lang/ledger/config.el

;;; 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)

  (add-hook 'ledger-mode-hook #'outline-minor-mode)

  (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")))
Add lang/ledger #194 2017-09-08 21:49:12 +02:00			`;;; lang/ledger/config.el -- lexical-binding: t; --`

lang/ledger: refactor & use hledger by default 2020-02-08 20:53:50 -05:00			`(use-package! ledger-mode`
			`:defer t`
			`:init`
			`(setq ledger-clear-whole-transactions 1`
			`ledger-mode-should-check-version nil)`

lang/ledger: enable outline-minor-mode by default 2021-03-25 13:48:05 -04:00			`(add-hook 'ledger-mode-hook #'outline-minor-mode)`

Set company-capf as backend for ledger-mode. This provides pretty, and very useful completion of accounts. Inspired by the Finance layer for Spacemacs. Signed-off-by: Johan Thoren <johan@thoren.dev> 2020-07-14 22:57:20 +02:00			`(set-company-backend! 'ledger-mode 'company-capf)`

lang/ledger: refactor & use hledger by default 2020-02-08 20:53:50 -05:00			`(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))`
lang/ledger: fix leader key in reports #818 2018-08-20 23:33:07 +02:00
Add lang/ledger #194 2017-09-08 21:49:12 +02:00
:boom: Rename def-package! -> use-package! 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. 2019-07-23 12:44:03 +02:00			`(use-package! flycheck-ledger`
Fix references to :tools fly{spell,check} 2020-01-14 03:04:26 -05:00			`:when (featurep! :checkers syntax)`
Change flycheck initialization strategy Initialize it globally and turn it off where needed, instead of enabling it on demand. Also fixes void-function: flycheck-mode errors when :feature syntax-checker is disabled. This is experimental. Indirectly fixes #710 2018-06-21 15:54:36 +02:00			`:after ledger-mode)`
lang/ledger: tie evil-ledger to evil's +everywhere And move it down. Core plugins should be closer to the top. 2018-08-20 23:33:45 +02:00

:boom: Rename def-package! -> use-package! 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. 2019-07-23 12:44:03 +02:00			`(use-package! evil-ledger`
:boom: Remove :feature category :feature was a "catch-all" category. Many of its modules fit better in other categories, so they've been moved: - feature/debugger -> tools/debugger - feature/evil -> editor/evil - feature/eval -> tools/eval - feature/lookup -> tools/lookup - feature/snippets -> editor/snippets - feature/file-templates -> editor/file-templates - feature/workspaces -> ui/workspaces More potential changes in the future: - A new :term category for terminal emulation modules (eshell, term and vterm). - A new :os category for modules dedicated to os-specific functionality. The :tools macos module would fit here, but so would modules for nixos and arch. - A new :services category for web-service integration, like wakatime, twitter, elfeed, gist and pastebin services. 2019-04-21 19:59:44 -04:00			`:when (featurep! :editor evil +everywhere)`
lang/ledger: polish keybindings Fixes #818 2018-08-22 02:35:55 +02:00			`:hook (ledger-mode . evil-ledger-mode)`
			`:config`
			`(set-evil-initial-state! 'ledger-report-mode 'normal)`
Normalize :leader/:localleader keybinds Evil states no longer apply to them. Also removes x-alt-keysym. 2018-12-23 23:54:27 -05:00			`(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`

lang/ledger: polish keybindings Fixes #818 2018-08-22 02:35:55 +02:00			`:localleader`
Normalize :leader/:localleader keybinds Evil states no longer apply to them. Also removes x-alt-keysym. 2018-12-23 23:54:27 -05:00			`: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`
lang/ledger: polish keybindings Fixes #818 2018-08-22 02:35:55 +02:00			`(:prefix "g"`
Normalize :leader/:localleader keybinds Evil states no longer apply to them. Also removes x-alt-keysym. 2018-12-23 23:54:27 -05:00			`"s" #'ledger-display-ledger-stats`
			`"b" #'ledger-display-balance-at-point))`
General refactor & cleanup, across the board 2019-09-13 21:59:03 -04:00
			`(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")))`