annotate buy_temp.clj @ 75:874a6a2c28cf laserkard

session with nick. redisigned faq page
author Robert McIntyre <rlm@mit.edu>
date Tue, 29 Jun 2010 15:36:30 -0400
parents 24d5d4221b42
children 781127893010
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