annotate buy_temp.clj @ 106:5b0753c6f34d laserkard tip

updated to newest compojure and a simpler syntax
author Robert McIntyre <rlm@mit.edu>
date Mon, 27 Sep 2010 20:22:58 -0400
parents 343dc947f999
children
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