giles
c0ca2509d0
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 29s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
56 lines
1.5 KiB
Plaintext
56 lines
1.5 KiB
Plaintext
;; Extension — callout / admonition block.
|
|
|
|
(st-bootstrap-classes!)
|
|
(content/bootstrap!)
|
|
(content-bootstrap-markdown!)
|
|
(content-bootstrap-text!)
|
|
(content-bootstrap-callout!)
|
|
|
|
(define c (mk-callout "c" "warning" "Be careful"))
|
|
|
|
;; ── identity ──
|
|
(content-test "callout is block" (block? c) true)
|
|
(content-test "callout? yes" (callout? c) true)
|
|
(content-test "callout type" (blk-type c) "callout")
|
|
(content-test "callout kind" (callout-kind c) "warning")
|
|
|
|
;; ── render ──
|
|
(content-test
|
|
"callout html"
|
|
(asHTML c)
|
|
"<aside class=\"callout callout-warning\">Be careful</aside>")
|
|
(content-test
|
|
"callout sx"
|
|
(asSx c)
|
|
"(aside :class \"callout callout-warning\" \"Be careful\")")
|
|
(content-test "callout text" (asText c) "Be careful")
|
|
(content-test "callout markdown" (asMarkdown c) "> **warning:** Be careful")
|
|
|
|
;; ── html escapes text ──
|
|
(content-test
|
|
"callout html escapes"
|
|
(asHTML (mk-callout "c" "note" "a < b"))
|
|
"<aside class=\"callout callout-note\">a < b</aside>")
|
|
|
|
;; ── in a document ──
|
|
(define
|
|
d
|
|
(doc-append
|
|
(doc-append (doc-empty "d") (mk-heading "h" 1 "T"))
|
|
c))
|
|
(content-test
|
|
"doc with callout html"
|
|
(asHTML d)
|
|
"<h1>T</h1><aside class=\"callout callout-warning\">Be careful</aside>")
|
|
|
|
;; ── validation ──
|
|
(content-test
|
|
"valid callout"
|
|
(content/valid? (doc-append (doc-empty "d") c))
|
|
true)
|
|
(content-test
|
|
"bad callout kind flagged"
|
|
(content/issue-kinds
|
|
(doc-append (doc-empty "d") (mk-callout "c" 5 "x")))
|
|
(list "field"))
|