From f5a111de58af93660603c639043a514a4aeaa968 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 12 Jan 2025 19:56:18 +1100 Subject: [emacs] Add compilation mode support for ledger mode --- emacs/.emacs.d/lisp/my/my-ledger.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'emacs/.emacs.d/lisp/my/my-ledger.el') diff --git a/emacs/.emacs.d/lisp/my/my-ledger.el b/emacs/.emacs.d/lisp/my/my-ledger.el index 8c955c6..b1ad2ca 100644 --- a/emacs/.emacs.d/lisp/my/my-ledger.el +++ b/emacs/.emacs.d/lisp/my/my-ledger.el @@ -39,5 +39,14 @@ (call-interactively 'ledger-navigate-prev-xact-or-directive) (call-interactively 'ledger-navigate-prev-xact-or-directive)) +;;; hledger: Error: /home/ycp/Documents/finance/huecu.ledger:1615:41: +(defvar my-ledger-compilation-error-re + '(ledger "^hledger: Error: \\(.+\\):\\([0-9]+\\):\\([0-9]+\\):$" 1 2 3)) + +(defun my-ledger-set-compile-command () + (setq-local + compile-command + (format "%s bal -f %s" ledger-binary-path buffer-file-name))) + (provide 'my-ledger) ;;; my-ledger.el ends here -- cgit v1.2.3