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>
50 lines
1.5 KiB
Plaintext
50 lines
1.5 KiB
Plaintext
;; content-on-sx — callout / admonition block.
|
|
;;
|
|
;; CtCallout holds a `kind` (note/warning/tip/…) and `text`. Self-contained: it
|
|
;; answers asHTML/asSx/asText/asMarkdown: so it composes with the render boundary
|
|
;; with no changes elsewhere. HTML text is htmlEscaped, SX text sxEscaped.
|
|
;;
|
|
;; Requires (loaded by harness): block.sx, doc.sx, render.sx (escapers);
|
|
;; markdown.sx / text.sx for those formats.
|
|
|
|
(define
|
|
content-bootstrap-callout!
|
|
(fn
|
|
()
|
|
(begin
|
|
(st-class-define! "CtCallout" "CtBlock" (list "kind" "text"))
|
|
(ct-def-method! "CtCallout" "kind" "kind ^ kind")
|
|
(ct-def-method! "CtCallout" "text" "text ^ text")
|
|
(ct-def-method! "CtCallout" "type" "type ^ #callout")
|
|
(ct-def-method!
|
|
"CtCallout"
|
|
"asHTML"
|
|
"asHTML ^ '<aside class=\"callout callout-' , kind htmlEscaped , '\">' , text htmlEscaped , '</aside>'")
|
|
(ct-def-method!
|
|
"CtCallout"
|
|
"asSx"
|
|
"asSx ^ '(aside :class \"callout callout-' , kind sxEscaped , '\" \"' , text sxEscaped , '\")'")
|
|
(ct-def-method! "CtCallout" "asText" "asText ^ text")
|
|
(ct-def-method!
|
|
"CtCallout"
|
|
"asMarkdown:"
|
|
"asMarkdown: nl ^ '> **' , kind , ':** ' , text")
|
|
true)))
|
|
|
|
(define
|
|
mk-callout
|
|
(fn
|
|
(id kind text)
|
|
(st-iv-set!
|
|
(st-iv-set!
|
|
(st-iv-set! (st-make-instance "CtCallout") "id" id)
|
|
"kind"
|
|
kind)
|
|
"text"
|
|
text)))
|
|
|
|
(define
|
|
callout?
|
|
(fn (b) (and (st-instance? b) (= (get b :class) "CtCallout"))))
|
|
(define callout-kind (fn (b) (st-send b "kind" (list))))
|