laserkard: buy_temp.clj annotate

made card text filled in

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"}
rlm@76	31 [:p "Soon we will be offering premium business cards in anodized aluminum."]
r@74	32 [:p "We will be back up soon so please check back later!"]
rlm@76	33 [:img {:src "./images/color-spread.jpg"}]
rlm@76	34
rlm@73	35 ]]]]
rlm@72	36 ))))
rlm@72	37
rlm@72	38
rlm@72	39
r@74	40

Mercurial > laserkard