giles
e115af86d8
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 38s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
60 lines
1.6 KiB
Plaintext
60 lines
1.6 KiB
Plaintext
;; Extension — video/audio media block.
|
|
|
|
(st-bootstrap-classes!)
|
|
(content/bootstrap!)
|
|
(content-bootstrap-markdown!)
|
|
(content-bootstrap-text!)
|
|
(content-bootstrap-media!)
|
|
|
|
(define v (mk-video "v" "/clip.mp4"))
|
|
(define a (mk-audio "a" "/song.mp3"))
|
|
|
|
;; ── identity ──
|
|
(content-test "media is block" (block? v) true)
|
|
(content-test "media? yes" (media? v) true)
|
|
(content-test "video type" (blk-type v) "media")
|
|
(content-test "video kind" (media-kind v) "video")
|
|
(content-test "audio kind" (media-kind a) "audio")
|
|
|
|
;; ── render ──
|
|
(content-test
|
|
"video html"
|
|
(asHTML v)
|
|
"<video src=\"/clip.mp4\" controls></video>")
|
|
(content-test
|
|
"audio html"
|
|
(asHTML a)
|
|
"<audio src=\"/song.mp3\" controls></audio>")
|
|
(content-test "video sx" (asSx v) "(video :src \"/clip.mp4\")")
|
|
(content-test "video text" (asText v) "")
|
|
(content-test "video markdown" (asMarkdown v) "[video](/clip.mp4)")
|
|
(content-test "audio markdown" (asMarkdown a) "[audio](/song.mp3)")
|
|
|
|
;; ── html escapes src ──
|
|
(content-test
|
|
"media html escapes"
|
|
(asHTML (mk-video "v" "/a.mp4?x=1&y=2"))
|
|
"<video src=\"/a.mp4?x=1&y=2\" controls></video>")
|
|
|
|
;; ── in a document ──
|
|
(define
|
|
d
|
|
(doc-append
|
|
(doc-append (doc-empty "d") (mk-heading "h" 1 "Watch"))
|
|
v))
|
|
(content-test
|
|
"doc with media html"
|
|
(asHTML d)
|
|
"<h1>Watch</h1><video src=\"/clip.mp4\" controls></video>")
|
|
|
|
;; ── validation ──
|
|
(content-test
|
|
"valid media"
|
|
(content/valid? (doc-append (doc-empty "d") v))
|
|
true)
|
|
(content-test
|
|
"bad media kind flagged"
|
|
(content/issue-kinds
|
|
(doc-append (doc-empty "d") (mk-media "m" "movie" "/x")))
|
|
(list "field"))
|