content: callout/admonition block (callout.sx) + 12 tests (657/657)

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
2026-06-07 04:57:40 +00:00
parent 687f643d74
commit c0ca2509d0
7 changed files with 128 additions and 5 deletions
--- a/lib/content/validate.sx
+++ b/lib/content/validate.sx
@@ -160,6 +160,16 @@
              id
              (list? (blk-get b "rows"))
              "table rows must be a list")))
+        ((= t "callout")
+          (append
+            (ct-field-issue
+              id
+              (string? (blk-get b "kind"))
+              "callout kind must be a string")
+            (ct-field-issue
+              id
+              (string? (blk-get b "text"))
+              "callout text must be a string")))
        (else (list (ct-issue id "type" (str "unknown block type: " t))))))))

 (define