Mercurial > laserkard

view buy_temp.clj @ 106:5b0753c6f34d laserkard tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line source
     1 (ns laserkard.buy-temp



     2 



     3   (:use (clojure.contrib def prxml



     4 			 [str-utils :only [re-gsub]] )



     5 	(laserkard common)



     6 ))



     7 



     8 



     9 (defn buy-gen []



    10   (str



    11    (header)



    12    (re-gsub 



    13     #">" ">\n"   



    14     (pxml 



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



    16       



    17       [:head



    18        [:meta {:http-equiv "Content-Type" :content "text/html" :charset "UTF-8"}]



    19        [:link {:rel "stylesheet" :href "css/main.css" :type "text/css" :media "screen"}]



    20        [:link {:rel "stylesheet" :href "css/old_sexy.css" :type "text/css" :media "screen"}]



    21        [:link {:rel "stylesheet" :href "css/faq.css" :type "text/css" :media "screen"}]



    22        ]



    23       [:body 



    24        [:raw! (slurp  "/home/r/Desktop/web/laserkard/top_menu.include")]



    25        [:div {:class "whole"}



    26 	[:div {:id "pokedex"}



    27 	 [:p "Soon we will be offering premium business cards in anodized aluminum."]



    28          [:p "We will be back up soon so please check back later!"]



    29 	 [:img {:src "./images/color-spread.jpg"}]



    30 



    31 	 ]]]]



    32      ))))



    33 



    34 



    35 



    36