Revision: 3559 Author: ksprotte URL: http://bknr.net/trac/changeset/3559

xhtmlgen: added 2 new special-html tags. :format and :format-safe

U trunk/xhtmlgen/xhtmlgen.lisp

Modified: trunk/xhtmlgen/xhtmlgen.lisp =================================================================== --- trunk/xhtmlgen/xhtmlgen.lisp 2008-07-22 14:41:01 UTC (rev 3558) +++ trunk/xhtmlgen/xhtmlgen.lisp 2008-07-22 14:56:17 UTC (rev 3559) @@ -225,6 +225,18 @@ `(prin1-safe-http ,bod)) body))))

+(def-special-html :format + ;; example: + ;; (html (:p (:format "hi ~A!" "paul"))) + #'(lambda (ent args argsp body) + (declare (ignore ent args argsp)) + `(princ-http (format nil ,@body)))) + +(def-special-html :format-safe + #'(lambda (ent args argsp body) + (declare (ignore ent args argsp)) + `(princ-safe-http (format nil ,@body)))) + (def-special-html :comment #'(lambda (ent args argsp body) (declare (ignore ent args argsp body))