laserkard: buy_temp.clj annotate

updated to newest compojure and a simpler syntax

rev	line source
rlm@71	1 (ns laserkard.buy-temp
rlm@71	2
rlm@106	3 (:use (clojure.contrib def prxml
rlm@106	4 [str-utils :only [re-gsub]] )
rlm@75	5 (laserkard common)
rlm@71	6 ))
rlm@71	7
rlm@79	8
rlm@72	9 (defn buy-gen []
rlm@72	10 (str
rlm@72	11 (header)
rlm@72	12 (re-gsub
rlm@72	13 #">" ">\n"
rlm@72	14 (pxml
rlm@72	15 [:html {:xmlns "http://www.w3.org/1999/xhtml"}
rlm@72	16
rlm@72	17 [:head
rlm@72	18 [:meta {:http-equiv "Content-Type" :content "text/html" :charset "UTF-8"}]
rlm@78	19 [:link {:rel "stylesheet" :href "css/main.css" :type "text/css" :media "screen"}]
rlm@78	20 [:link {:rel "stylesheet" :href "css/old_sexy.css" :type "text/css" :media "screen"}]
rlm@78	21 [:link {:rel "stylesheet" :href "css/faq.css" :type "text/css" :media "screen"}]
rlm@72	22 ]
rlm@72	23 [:body
rlm@72	24 [:raw! (slurp "/home/r/Desktop/web/laserkard/top_menu.include")]
rlm@72	25 [:div {:class "whole"}
rlm@72	26 [:div {:id "pokedex"}
rlm@76	27 [:p "Soon we will be offering premium business cards in anodized aluminum."]
r@74	28 [:p "We will be back up soon so please check back later!"]
rlm@76	29 [:img {:src "./images/color-spread.jpg"}]
rlm@76	30
rlm@73	31 ]]]]
rlm@72	32 ))))
rlm@72	33
rlm@72	34
rlm@72	35
r@74	36

Mercurial > laserkard