[bknr-cvs] ksprotte changed trunk/xhtmlgen/xhtmlgen.lisp

[BKNR Commits]

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 , at body))))
+
+(def-special-html :format-safe
+    #'(lambda (ent args argsp body)
+	(declare (ignore ent args argsp))
+	`(princ-safe-http (format nil , at body))))
+
 (def-special-html :comment
   #'(lambda (ent args argsp body)
       (declare (ignore ent args argsp body))