fix(scripts): stop org table helpers rewriting block content

Both helpers treated any pipe-led line as a table row, so ASCII art in an example block got mangled into a bordered table (a work file took a 1949-line reformat on 2026-07-09). The scanners now track the open block's type and skip its content. Only the matching end marker closes a block, so a literal end_src quoted inside an example block can't re-expose it.

The deeper cause was wrap-org-table's load-time dispatch: it fired when lint-org merely required the library, running the reformatter over files lint-org was only asked to report on. It now dispatches only when named as the entry script. lint-org's CLI is also report-only by default now. Writes require --fix, and the wrap-up workflow and lint command pass it.

1 files changed, 45 insertions, 13 deletions

diff --git a/.ai/scripts/wrap-org-table.el b/.ai/scripts/wrap-org-table.el
index ddbea65..173e44d 100644
--- a/.ai/scripts/wrap-org-table.el
+++ b/.ai/scripts/wrap-org-table.el
@@ -228,22 +228,40 @@ continuation lines merge back into their logical row before re-wrapping."
 ;;; file layer
 
 (defun wot-process-file (file &optional budget)
-  "Reformat every org table in FILE in place to BUDGET width."
+  "Reformat every org table in FILE in place to BUDGET width.
+Pipe-led lines inside #+begin_/#+end_ blocks (example, src, quote, …) are
+content, not tables — ASCII art in an example block once got mangled into a
+bordered table — so block regions are skipped verbatim."
   (with-temp-buffer
     (insert-file-contents file)
     (goto-char (point-min))
-    (while (re-search-forward "^[ \t]*|" nil t)
-      (let ((start (line-beginning-position)))
-        (while (and (not (eobp))
-                    (save-excursion (beginning-of-line)
-                                    (looking-at "[ \t]*|")))
+    (let ((in-block nil))  ; the open block's type, e.g. "example" — nil outside
+      (while (not (eobp))
+        (cond
+         ;; Only the matching #+end_<type> closes a block: an example block
+         ;; often quotes literal #+begin_src/#+end_src lines, and a boolean
+         ;; flag would let that inner literal end-marker re-expose the rest
+         ;; of the block to reformatting.
+         ((and (not in-block)
+               (looking-at "^[ \t]*#\\+begin_\\([^ \t\n]+\\)"))
+          (setq in-block (downcase (match-string 1)))
           (forward-line 1))
-        (let* ((end (point))
-               (table (buffer-substring-no-properties start end))
-               (reformatted (wot-reformat-table-string table budget)))
-          (delete-region start end)
-          (goto-char start)
-          (insert reformatted))))
+         ((and in-block
+               (looking-at-p (format "^[ \t]*#\\+end_%s\\([ \t]\\|$\\)"
+                                     (regexp-quote in-block))))
+          (setq in-block nil)
+          (forward-line 1))
+         ((and (not in-block) (looking-at-p "^[ \t]*|"))
+          (let ((start (point)))
+            (while (and (not (eobp)) (looking-at-p "^[ \t]*|"))
+              (forward-line 1))
+            (let* ((end (point))
+                   (table (buffer-substring-no-properties start end))
+                   (reformatted (wot-reformat-table-string table budget)))
+              (delete-region start end)
+              (goto-char start)
+              (insert reformatted))))
+         (t (forward-line 1)))))
     (write-region (point-min) (point-max) file)))
 
 ;;; ---------------------------------------------------------------------------
@@ -289,7 +307,21 @@ so the ERT suite can `require' this file without firing the CLI dispatch."
                          (t (file-readable-p a))))
                  command-line-args-left)))
 
-(when (and noninteractive (wot--cli-invocation-p))
+(defun wot--entry-script-p ()
+  "Non-nil when wrap-org-table.el itself was named on the command line.
+lint-org.el `require's this file, and a load-triggered dispatch would run
+the table reformatter over lint-org's file arguments — that's how a lint
+invocation once reformatted the files it was only supposed to report on.
+Only dispatch when a -l/--load argument names this very file."
+  (and load-file-name
+       (cl-loop for (flag arg) on command-line-args
+                thereis (and (member flag '("-l" "--load"))
+                             (stringp arg)
+                             (file-exists-p arg)
+                             (string= (file-truename (expand-file-name arg))
+                                      (file-truename load-file-name))))))
+
+(when (and noninteractive (wot--entry-script-p) (wot--cli-invocation-p))
   (wot-main))
 
 (provide 'wrap-org-table)