42 lines
1.2 KiB
EmacsLisp
42 lines
1.2 KiB
EmacsLisp
;;; ledger-settings.el --- ledger settings -*- lexical-binding: t -*-
|
|
|
|
;;; Commentary:
|
|
;; https://github.com/ledger/ledger-mode
|
|
|
|
;; Requirements:
|
|
;; programs
|
|
;; ledger https://www.ledger-cli.org/download.html
|
|
;; Emacs packages
|
|
;; ledger-mode ;; https://melpa.org/#/ledger-mode
|
|
;; org
|
|
;; flycheck-ledger ;; https://melpa.org/#/flycheck-ledger
|
|
;; company-ledger ;; https://melpa.org/#/company-ledger
|
|
|
|
;;; Code:
|
|
(use-package ledger-mode
|
|
:load-path (lambda() (concat config-dir "lisp/ledger-mode"))
|
|
:delight
|
|
(ledger-mode "🅛ｄ") ; "Le "
|
|
(ledger-report-mode "🅛dr") ; "LeR 🅖⒭"
|
|
:commands ledger-mode
|
|
:mode "\\.ledger\\'"
|
|
:config
|
|
(setq ledger-post-account-alignment-column 2)
|
|
(setq ledger-post-amount-alignment-column 62))
|
|
|
|
(use-package flycheck-ledger
|
|
:after (ledger-mode flycheck))
|
|
|
|
(use-package company-ledger
|
|
:after (ledger-mode company)
|
|
:config
|
|
;;(add-to-list 'company-backends 'company-ledger)
|
|
;; Only use company-mode with company-ledger in ledger-mode
|
|
(add-hook 'ledger-mode-hook
|
|
(lambda ()
|
|
(set (make-local-variable 'company-backends)
|
|
'(company-ledger company-capf company-files)))))
|
|
|
|
(provide 'ledger-settings)
|
|
;;; ledger-settings.el ends here
|