1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/common.clj	Tue Jun 29 15:36:30 2010 -0400
     1.3 @@ -0,0 +1,16 @@
     1.4 +(ns laserkard.common
     1.5 +    (:use (compojure.http request servlet session routes)
     1.6 +	(compojure.server jetty)
     1.7 +	(compojure control)
     1.8 +	(clojure.contrib prxml str-utils duck-streams)))
     1.9 +
    1.10 +
    1.11 +(defn pxml [ & args] 
    1.12 +  (with-out-str (apply prxml args)))
    1.13 +
    1.14 +(defn header []
    1.15 +   (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))
    1.16 +  
    1.17 +
    1.18 +
    1.19 +