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

     8 

     9 (defn pxml [ & args] 

    10   (with-out-str (apply prxml args)))

    11 

    12 (defn header []

    13    (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))

    14   

    15  

    16 (defn buy-gen []

    17 

    18   

    19   (str

    20    (header)

    21    (re-gsub 

    22     #">" ">\n"   

    23     (pxml 

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

    25       

    26       [:head

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

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

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

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

    31        ]

    32       [:body 

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

    34        [:div {:class "whole"}

    35 	[:div {:id "pokedex"}

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

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

    38 	 ]]]]

    39      ))))

    40 

    41 

    42 

    43
author	r@rlm
date	Fri, 25 Jun 2010 19:59:31 -0400
parents	5fb0e5db5926
children	874a6a2c28cf