@@ -71,10 +71,11 @@
html-figure-@2x
html-image-link
html-dialogue
html-say
html-saylines
+ html-magick
html-verse
html-attrib
html-link
html-xref
html-url
@@ -141,10 +142,33 @@
[else '([class "verse"])])]
[pre-title (cond [(string>? title "") `(p [[class "verse-heading"]] ,title)]
[else ""])])
`(div [[class "poem"]] ,pre-title (pre ,pre-attrs ,@elems))))
+(define (html-magick . elems)
+ (txexpr
+ 'div '([class "antique"])
+ (decode-elements elems #:string-proc (λ (s) (regexp-replace* #px"(?