Mercurial > laserkard
comparison buy_temp.clj @ 79:343dc947f999 laserkard
read JavaSctipt: the good parts
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Sun, 25 Jul 2010 01:33:22 -0400 |
parents | 4ebd94bfecda |
children | 5b0753c6f34d |
comparison
equal
deleted
inserted
replaced
78:4ebd94bfecda | 79:343dc947f999 |
---|---|
1 (ns laserkard.buy-temp | 1 (ns laserkard.buy-temp |
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 def prxml str-utils duck-streams) |
7 (laserkard common) | 7 (laserkard common) |
8 )) | 8 )) |
9 | 9 |
10 | 10 |
11 (defn buy-gen [] | 11 (defn buy-gen [] |
12 | |
13 | |
14 (str | 12 (str |
15 (header) | 13 (header) |
16 (re-gsub | 14 (re-gsub |
17 #">" ">\n" | 15 #">" ">\n" |
18 (pxml | 16 (pxml |