1.1 --- a/buy_temp.clj	Fri Jun 25 19:59:31 2010 -0400
     1.2 +++ b/buy_temp.clj	Tue Jun 29 15:36:30 2010 -0400
     1.3 @@ -4,14 +4,9 @@
     1.4  	(compojure.server jetty)
     1.5  	(compojure control)
     1.6  	(clojure.contrib prxml str-utils duck-streams)
     1.7 +	(laserkard common)
     1.8  ))
     1.9  
    1.10 -(defn pxml [ & args] 
    1.11 -  (with-out-str (apply prxml args)))
    1.12 -
    1.13 -(defn header []
    1.14 -   (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))
    1.15 -  
    1.16   
    1.17  (defn buy-gen []
    1.18