content: table block (table.sx) + 15 tests (448/448)

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
2026-06-07 02:17:44 +00:00
parent 7791867bbc
commit 69defdc517
7 changed files with 156 additions and 5 deletions
--- a/lib/content/validate.sx
+++ b/lib/content/validate.sx
@@ -150,6 +150,16 @@
            id
            (list? (blk-get b "children"))
            "section children must be a list"))
+        ((= t "table")
+          (append
+            (ct-field-issue
+              id
+              (list? (blk-get b "headers"))
+              "table headers must be a list")
+            (ct-field-issue
+              id
+              (list? (blk-get b "rows"))
+              "table rows must be a list")))
        (else (list (ct-issue id "type" (str "unknown block type: " t))))))))

 (define