Mercurial > laserkard

comparison buy_temp.clj @ 75:874a6a2c28cf laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
session with nick. redisigned faq page
author Robert McIntyre <rlm@mit.edu>
date Tue, 29 Jun 2010 15:36:30 -0400
parents 24d5d4221b42
children 781127893010
comparison
equal deleted inserted replaced
74:24d5d4221b42 75:874a6a2c28cf
2 2
3 (:use (compojure.http request servlet session routes) 3 (:use (compojure.http request servlet session routes)
4 (compojure.server jetty) 4 (compojure.server jetty)
5 (compojure control) 5 (compojure control)
6 (clojure.contrib prxml str-utils duck-streams) 6 (clojure.contrib prxml str-utils duck-streams)
7 (laserkard common)
7 )) 8 ))
8 9
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 10
16 (defn buy-gen [] 11 (defn buy-gen []
17 12
18 13
19 (str 14 (str