Function: EMIT-HTML

Documentation

Like EMIT-PRINC but escapes html chars in item.

Source

(defun emit-html (&rest items)
  "Like EMIT-PRINC but escapes html chars in item."
  (dolist (item items %yaclml-code%)
    (if (yaclml-constant-p item)
        (push (escape-as-html (princ-to-string item)) %yaclml-code%)
        (push `(emit-attribute-value ,item) %yaclml-code%))))