laserkard: buy_temp.clj annotate

session with nick. redisigned faq page

rev	line source
rlm@71	1 (ns laserkard.buy-temp
rlm@71	2
rlm@71	3 (:use (compojure.http request servlet session routes)
rlm@71	4 (compojure.server jetty)
rlm@71	5 (compojure control)
rlm@72	6 (clojure.contrib prxml str-utils duck-streams)
rlm@75	7 (laserkard common)
rlm@71	8 ))
rlm@71	9
rlm@72	10
rlm@72	11 (defn buy-gen []
rlm@72	12
rlm@72	13
rlm@72	14 (str
rlm@72	15 (header)
rlm@72	16 (re-gsub
rlm@72	17 #">" ">\n"
rlm@72	18 (pxml
rlm@72	19 [:html {:xmlns "http://www.w3.org/1999/xhtml"}
rlm@72	20
rlm@72	21 [:head
rlm@72	22 [:meta {:http-equiv "Content-Type" :content "text/html" :charset "UTF-8"}]
rlm@72	23 [:link {:rel "stylesheet" :href "main.css" :type "text/css" :media "screen"}]
rlm@72	24 [:link {:rel "stylesheet" :href "old_sexy.css" :type "text/css" :media "screen"}]
rlm@72	25 [:link {:rel "stylesheet" :href "faq.css" :type "text/css" :media "screen"}]
rlm@72	26 ]
rlm@72	27 [:body
rlm@72	28 [:raw! (slurp "/home/r/Desktop/web/laserkard/top_menu.include")]
rlm@72	29 [:div {:class "whole"}
rlm@72	30 [:div {:id "pokedex"}
r@74	31 [:p "We are currently sold out of LaserKards due to high demand."]
r@74	32 [:p "We will be back up soon so please check back later!"]
rlm@73	33 ]]]]
rlm@72	34 ))))
rlm@72	35
rlm@72	36
rlm@72	37
r@74	38

Mercurial > laserkard