rlm@75: (ns laserkard.common
rlm@75:     (:use (compojure.http request servlet session routes)
rlm@75: 	(compojure.server jetty)
rlm@75: 	(compojure control)
rlm@75: 	(clojure.contrib prxml str-utils duck-streams)))
rlm@75: 
rlm@75: 
rlm@75: (defn pxml [ & args] 
rlm@75:   (with-out-str (apply prxml args)))
rlm@75: 
rlm@75: (defn header []
rlm@75:    (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))
rlm@75:   
rlm@75: 
rlm@75: 
rlm@75: