laserkard: buy_temp.clj annotate

read JavaSctipt: the good parts

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

Mercurial > laserkard