Mercurial > laserkard

view buy_temp.clj @ 89:7d6514aca622 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
no more log files
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Jul 2010 02:22:46 -0400
parents 343dc947f999
children 5b0753c6f34d
line wrap: on
line source
     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