Added DO-HTML-IF
authorMatthew Mondor <mmondor@pulsar-zone.net>
Sat, 27 Aug 2011 02:30:34 +0000 (02:30 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Sat, 27 Aug 2011 02:30:34 +0000 (02:30 +0000)
mmsoftware/cl/server/html.lisp

index 7d774f3..9d93824 100644 (file)
@@ -1,4 +1,4 @@
-;;;; $Id: html.lisp,v 1.4 2011/08/27 00:47:53 mmondor Exp $
+;;;; $Id: html.lisp,v 1.5 2011/08/27 02:30:34 mmondor Exp $
 
 #|
 
@@ -44,12 +44,13 @@ THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
           #:do-html-loop
           #:do-html-when
           #:do-html-unless
+          #:do-html-if
           #:html-escape))
 
 (in-package :html)
 
 (defparameter *rcsid*
-  "$Id: html.lisp,v 1.4 2011/08/27 00:47:53 mmondor Exp $")
+  "$Id: html.lisp,v 1.5 2011/08/27 02:30:34 mmondor Exp $")
 
 
 (defparameter *html-mode* :xhtml
@@ -273,6 +274,13 @@ implicit DO-HTML NIL.  For use within DO-HTML forms."
         ,@body)
        ""))
 
+(defmacro do-html-if (condition do else)
+  `(if ,condition
+       (do-html nil
+        ,do)
+       (do-html nil
+        ,else)))
+
 (defun html-escape (string)
   "Returns a fresh copy of STRING which is safe for use within HTML.
 Note that for simplicity, efficiency and to allow nested DO-HTML forms,