content: video/audio media block (media.sx) + 15 tests (683/683)

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
2026-06-07 05:13:44 +00:00
parent 715dbe248f
commit e115af86d8
7 changed files with 138 additions and 5 deletions
--- a/lib/content/validate.sx
+++ b/lib/content/validate.sx
@@ -170,6 +170,19 @@
              id
              (string? (blk-get b "text"))
              "callout text must be a string")))
+        ((= t "media")
+          (append
+            (ct-field-issue
+              id
+              (if
+                (= (blk-get b "kind") "video")
+                true
+                (= (blk-get b "kind") "audio"))
+              "media kind must be video or audio")
+            (ct-field-issue
+              id
+              (string? (blk-get b "src"))
+              "media src must be a string")))
        (else (list (ct-issue id "type" (str "unknown block type: " t))))))))

 (define