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 prxml str-utils duck-streams)

     7 	(laserkard common)

     8 ))

     9 

    10  

    11 (defn buy-gen []

    12 

    13   

    14   (str

    15    (header)

    16    (re-gsub 

    17     #">" ">\n"   

    18     (pxml 

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

    20       

    21       [:head

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

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

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

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

    26        ]

    27       [:body 

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

    29        [:div {:class "whole"}

    30 	[:div {:id "pokedex"}

    31 	 [:p "We are currently sold out of LaserKards due to high demand."]

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

    33 	 ]]]]

    34      ))))

    35 

    36 

    37 

    38
author	Robert McIntyre <rlm@mit.edu>
date	Tue, 29 Jun 2010 15:36:30 -0400
parents	24d5d4221b42
children	781127893010