From 3fb4c80eb00d6e89b594eb4e5ce570f20fe2e63b Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 16 May 2026 07:33:46 -0500 Subject: feat(lint-org): recognize cj-comment blocks and suppress false-positive warnings MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit org-lint emits three warnings for every `#+begin_src cj: comment ... #+end_src` annotation block: suspicious-language-in-src-block (the language `cj:` isn't a known Babel slug), wrong-header-argument (the trailing `comment` looks like a header arg without a colon), and empty-header-argument (that same `comment` has no value). All three are false positives. The cj-comment block is a Craig-specific annotation marker, not Babel src-block syntax. I added a helper `lo--cj-comment-block-opener-p` that pattern-matches the opener line, then a short-circuit branch at the top of `lo--handle-item` that silently drops any of the three checkers when they fire on a cj-comment opener. No fix is counted, no judgment is emitted, and the warnings disappear. Two new tests cover the change. The normal case is a solo cj-comment block, which should produce zero judgments and zero fixes with all three flagged checkers absent from the issue list. The boundary case is a cj-comment block alongside a real `#+begin_src markdown` block. The markdown warning still surfaces, which scopes the suppression to cj openers only — no leak into other src blocks. Test count goes from 22 to 24, all green. I smoke-tested against rulesets/todo.org: judgment count drops from 7 to 1. Six cj-comment false positives at lines 16 and 1291 are gone, and the unrelated misplaced-heading at 2139 still surfaces correctly. --- claude-templates/.ai/scripts/lint-org.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'claude-templates/.ai/scripts/lint-org.el') diff --git a/claude-templates/.ai/scripts/lint-org.el b/claude-templates/.ai/scripts/lint-org.el index 3e643d4..64b78d0 100644 --- a/claude-templates/.ai/scripts/lint-org.el +++ b/claude-templates/.ai/scripts/lint-org.el @@ -221,11 +221,29 @@ org-lint reports the blank line after the heading-like text." ;; Fixer declined — emit as judgment so nothing is silently swallowed. (lo--emit-judgment name line msg)))) +(defun lo--cj-comment-block-opener-p (line) + "Non-nil when LINE in the current buffer is a `#+begin_src cj: ...' opener. +The cj-comment annotation convention puts `cj:' as the src-block language and +`comment' as the apparent header arg. org-lint reads that shape three ways +(unknown language, empty header-arg value, missing colon in header arg) and +flags each — all three are false positives, since cj-comment is a +Craig-specific annotation marker rather than Babel src-block syntax." + (save-excursion + (lo--goto-line line) + (looking-at-p "^[ \t]*#\\+begin_src[ \t]+cj:"))) + (defun lo--handle-item (item) (let ((name (lo--checker-name item)) (line (lo--line item)) (msg (lo--message item))) (cond + ;; Silent suppression of cj-comment false positives — see + ;; `lo--cj-comment-block-opener-p'. No fix counted, no judgment emitted. + ((and (memq name '(suspicious-language-in-src-block + empty-header-argument + wrong-header-argument)) + (lo--cj-comment-block-opener-p line)) + nil) ((eq name 'item-number) (lo--apply-or-preview name line msg #'lo-fix-item-number)) ((eq name 'missing-language-in-src-block) -- cgit v1.2.3