view buy_temp.clj @ 82:da3028a52ac1 laserkard

wrote display_update
author Robert McIntyre <rlm@mit.edu>
date Sun, 25 Jul 2010 10:14:05 -0400
parents 343dc947f999
children 5b0753c6f34d
line wrap: on
line source
1 (ns laserkard.buy-temp
3 (:use (compojure.http request servlet session routes)
4 (compojure.server jetty)
5 (compojure control)
6 (clojure.contrib def prxml str-utils duck-streams)
7 (laserkard common)
8 ))
11 (defn buy-gen []
12 (str
13 (header)
14 (re-gsub
15 #">" ">\n"
16 (pxml
17 [:html {:xmlns "http://www.w3.org/1999/xhtml"}
19 [:head
20 [:meta {:http-equiv "Content-Type" :content "text/html" :charset "UTF-8"}]
21 [:link {:rel "stylesheet" :href "css/main.css" :type "text/css" :media "screen"}]
22 [:link {:rel "stylesheet" :href "css/old_sexy.css" :type "text/css" :media "screen"}]
23 [:link {:rel "stylesheet" :href "css/faq.css" :type "text/css" :media "screen"}]
24 ]
25 [:body
26 [:raw! (slurp "/home/r/Desktop/web/laserkard/top_menu.include")]
27 [:div {:class "whole"}
28 [:div {:id "pokedex"}
29 [:p "Soon we will be offering premium business cards in anodized aluminum."]
30 [:p "We will be back up soon so please check back later!"]
31 [:img {:src "./images/color-spread.jpg"}]
33 ]]]]
34 ))))