Yaclml

Standard, non HTML, YACLML tags 

(deftag <:progn (&body body)
  (emit-body body))

(deftag <:as-html (&body text)
  (dolist (txt text)
    (emit-html txt)))

(deftag-macro <:ah (&body text)
  `(<:as-html ,@text))

(deftag-macro <:ai (&attribute quotedp &body text)
  `(<:as-is :quotedp ,quotedp ,@text))

(deftag <:as-is (&attribute quotedp &body text)
  (when quotedp
    (emit-princ ~% "<![CDATA["))
  (dolist (txt text)
    (emit-princ txt))
  (when quotedp
    (emit-princ "]]>" ~%)))

(deftag <:call-with-yaclml-stream (stream-var &body body)
  (emit-code `(let ((,stream-var *yaclml-stream*)) ,@body)))

-*- lisp -*-

(in-package :it.bese.yaclml)