Mercurial > laserkard

     1 (ns laserkard.buy-temp

     2 

     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 ))

     9 

    10 

    11 (defn buy-gen []

    12   (str

    13    (header)

    14    (re-gsub 

    15     #">" ">\n"   

    16     (pxml 

    17      [:html {:xmlns "http://www.w3.org/1999/xhtml"}

    18       

    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"}]

    32 

    33 	 ]]]]

    34      ))))

    35 

    36 

    37 

    38
author	Robert McIntyre <rlm@mit.edu>
date	Sun, 25 Jul 2010 22:36:16 -0400
parents	343dc947f999
children	5b0753c6f34d