awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

feat(beancount): support lines only read by linter

Browse Source 
Adds support for meta lines that only the flymake linter will see.
These are lines prefixed by any number of semicolons followed by a hash
then space. E.g.

;# include "../config.beancount"
;# 2025-01-01 pad Assets:Bank Equity:Opening-Balances

This is useful for silencing the linter in multi-file beancount projects
rather than suffer the usual deluge of multiple-include errors and
redundancies.
This commit is contained in:
Henrik Lissner
2025-05-22 16:24:20 +02:00
parent 8627117d63
commit a02871ba83
2 changed files with 35 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
modules/lang/beancount/autoload/advice.el
View File

@ -44,18 +44,23 @@
(widen) (widen)
(with-temp-buffer (with-temp-buffer
(save-excursion (insert-buffer-substring source)) (save-excursion (insert-buffer-substring source))
(while (re-search-forward (rx bol (save-excursion
(or (seq (= 4 num) "-" (= 2 num) "-" (= 2 num) (+ " ") (while (re-search-forward "^;+# " nil t)
"document" (+ " ") (replace-match "" t t)))
(+ (or alnum ":" "_" "-"))) (while (re-search-forward
"include" (rx bol
(seq "option" (+ " ") "\"documents\"")) (or (seq (= 4 num) "-" (= 2 num) "-" (= 2 num) (+ " ")
(+ " ") "\"" "document" (+ " ")
(group (+ (not "\"")))) (+ (or alnum ":" "_" "-")))
nil t) "include"
(replace-match (expand-file-name (seq "option" (+ " ") "\"documents\""))
(match-string-no-properties 1)) (+ " ") "\""
t t nil 1)) (group (+ (not "\""))))
nil t)
(unless (file-name-absolute-p (match-string-no-properties 1))
(replace-match (expand-file-name
(match-string-no-properties 1))
t t nil 1)))
(buffer-substring-no-properties (point-min) (point-max))))) (buffer-substring-no-properties (point-min) (point-max)))))
(process-send-eof flymake-bean-check-process))) (process-send-eof flymake-bean-check-process)))

22
modules/lang/beancount/config.el
View File

@ -27,10 +27,24 @@
:around #'beancount--fava-filter :around #'beancount--fava-filter
(funcall fn process (ansi-color-filter-apply output))) (funcall fn process (ansi-color-filter-apply output)))
;; HACK: Widens the buffer so flymake never operates on partial buffer ;; HACK: This makes a couple adjustments to beancount-mode's flymake linter:
;; contents. Also replaces any relative file paths in include and document ;;
;; directives with an absolute path, so bean-check doesn't throw false ;; 1. Widens the buffer so bean-check can see the full buffer and won't
;; positives due to flymake-bean's implementation. ;; complain about missing context.
;; 2. Replaces any relative file paths in include and document directives
;; with an absolute path, so bean-check doesn't throw false positives
;; about missing files relative to /dev (because flymake-bean is piping
;; context to /dev/stdin).
;; 3. Adds support for meta lines that only the flymake linter will see.
;; These are lines prefixed by any number of semicolons followed by a hash
;; then space. E.g.
;;
;; ;# include "../config.beancount"
;; ;# 2025-01-01 pad Assets:Bank Equity:Opening-Balances
;;
;; Used to silence the linter in multi-file beancount projects without
;; dealing with multiple-include errors and redundancies.
;; REVIEW: PR features 1 and 2 upstream! 3 needs discussing.
(advice-add #'flymake-bean-check--run :override #'+beancount--flymake-bean-check--run-a) (advice-add #'flymake-bean-check--run :override #'+beancount--flymake-bean-check--run-a)