rlm@71: (ns laserkard.buy-temp
rlm@71: 
rlm@71:   (:use (compojure.http request servlet session routes)
rlm@71: 	(compojure.server jetty)
rlm@71: 	(compojure control)
rlm@72: 	(clojure.contrib prxml str-utils duck-streams)
rlm@71: ))
rlm@71: 
rlm@71: (defn pxml [ & args] 
rlm@71:   (with-out-str (apply prxml args)))
rlm@72: 
rlm@72: (defn header []
rlm@72:    (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))
rlm@72:   
rlm@72:  
rlm@72: (defn buy-gen []
rlm@72: 
rlm@72:   
rlm@72:   (str
rlm@72:    (header)
rlm@72:    (re-gsub 
rlm@72:     #">" ">\n"   
rlm@72:     (pxml 
rlm@72:      [:html {:xmlns "http://www.w3.org/1999/xhtml"}
rlm@72:       
rlm@72:       [:head
rlm@72:        [:meta {:http-equiv "Content-Type" :content "text/html" :charset "UTF-8"}]
rlm@72:        [:link {:rel "stylesheet" :href "main.css" :type "text/css" :media "screen"}]
rlm@72:        [:link {:rel "stylesheet" :href "old_sexy.css" :type "text/css" :media "screen"}]
rlm@72:        [:link {:rel "stylesheet" :href "faq.css" :type "text/css" :media "screen"}]
rlm@72:        ]
rlm@72:       [:body 
rlm@72:        [:raw! (slurp  "/home/r/Desktop/web/laserkard/top_menu.include")]
rlm@72:        [:div {:class "whole"}
rlm@72: 	[:div {:id "pokedex"}
rlm@73: 	 [:p "We are currently sold out of LaserKards due to high demand.  
rlm@73:               We will be back up soon so please check back later!"]
rlm@73: 	 ]]]]
rlm@72:      ))))
rlm@72: 
rlm@72: 
rlm@72: