ledger-mode setup for hledger needs documenting

[simonmichael]

[taksuyu]

Since I'm working on getting this working, I don't mind writing something up once I got it working reasonably well.

[simonmichael]

FYI:

; Simon's ledger-mode tweaks

(custom-set-variables

 ; neutralise some ledgerisms
 '(ledger-binary-path (expand-file-name "~/.local/bin/hledger"))
 '(ledger-mode-should-check-version nil)
 '(ledger-init-file-name " ")

 ; move default amount position right allowing longer account names
 '(ledger-post-amount-alignment-column 64)

 ; disable distracting highlight
 '(ledger-highlight-xact-under-point nil)

 )

; automatically show new transactions from hledger add or hledger-web
(add-hook 'ledger-mode-hook 'auto-revert-tail-mode)

; M-1 to collapse all transactions to one line, M-0 to reset. Useful for quickly scanning
(global-set-key "\M-0" (lambda () (interactive) (set-selective-display (* tab-width 0))))
(global-set-key "\M-1" (lambda () (interactive) (set-selective-display (* tab-width 1))))
(add-hook 'ledger-mode-hook (lambda () (setq tab-width 4)))

; enable some highlighting for CSV rules files
(add-to-list 'auto-mode-alist '("\\.rules$" . conf-mode))

; useful when running reports in a shell buffer
(defun highlight-negative-amounts nil (interactive)
  (highlight-regexp "\\(\\$-\\|-\\$\\)[.,0-9]+" (quote hi-red-b))
)

[simonmichael]

; recognise more file suffixes
(add-to-list 'auto-mode-alist '("\\.\\(h?ledger\\|journal\\|j\\)$" . ledger-mode))

; enable orgstruct minor mode, TAB while on a * comment expands/collapses org node
; (can get slow though)
(add-hook 'ledger-mode-hook 'orgstruct-mode)

[simonmichael]

https://github.com/narendraj9/dotfiles/tree/master/.emacs.d/packages/rest/hledger-mode should be investigated too, I haven't tried it.

[simonmichael]

Other editor modes like https://github.com/ledger/vim-ledger would also be nice to know about.

[taksuyu]

I seem to be comfortable using this configuration. I imagine there is more to look into and fixing little things.

(setq ledger-binary-path "hledger")
(setq ledger-mode-should-check-version nil)
(add-to-list 'auto-mode-alist '("\\.\\(h?ledger\\|journal\\|j\\)$" . ledger-mode))

(defvar ledger-report-balance
  (list "bal" (concat ledger-binary-path " -f %(ledger-file) bal")))

(defvar ledger-report-reg
  (list "reg" (concat ledger-binary-path " -f %(ledger-file) reg")))

(defvar ledger-report-payee
  (list "payee" (concat ledger-binary-path " -f %(ledger-file) reg @%(payee)")))

(defvar ledger-report-account
  (list "account" (concat ledger-binary-path " -f %(ledger-file) reg %(account)")))

(setq ledger-reports
      (list ledger-report-balance
            ledger-report-reg
            ledger-report-payee
            ledger-report-account))

Having hledger specific reports may also benefit.