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)
(with-temp-buffer
(save-excursion (insert-buffer-substring source))
(while (re-search-forward (rx bol
(or (seq (= 4 num) "-" (= 2 num) "-" (= 2 num) (+ " ")
"document" (+ " ")
(+ (or alnum ":" "_" "-")))
"include"
(seq "option" (+ " ") "\"documents\""))
(+ " ") "\""
(group (+ (not "\""))))
nil t)
(replace-match (expand-file-name
(match-string-no-properties 1))
t t nil 1))
(save-excursion
(while (re-search-forward "^;+# " nil t)
(replace-match "" t t)))
(while (re-search-forward
(rx bol
(or (seq (= 4 num) "-" (= 2 num) "-" (= 2 num) (+ " ")
"document" (+ " ")
(+ (or alnum ":" "_" "-")))
"include"
(seq "option" (+ " ") "\"documents\""))
(+ " ") "\""
(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)))))
(process-send-eof flymake-bean-check-process)))

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

@ -27,10 +27,24 @@
:around #'beancount--fava-filter
(funcall fn process (ansi-color-filter-apply output)))
;; HACK: Widens the buffer so flymake never operates on partial buffer
;; contents. Also replaces any relative file paths in include and document
;; directives with an absolute path, so bean-check doesn't throw false
;; positives due to flymake-bean's implementation.
;; HACK: This makes a couple adjustments to beancount-mode's flymake linter:
;;
;; 1. Widens the buffer so bean-check can see the full buffer and won't
;; 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)