view common.clj @ 105:3c398dd94f17 laserkard

saving for transfer
author Robert McIntyre <rlm@mit.edu>
date Mon, 27 Sep 2010 17:47:08 -0400
parents 874a6a2c28cf
children 5b0753c6f34d
line wrap: on
line source
1 (ns laserkard.common
2 (:use (compojure.http request servlet session routes)
3 (compojure.server jetty)
4 (compojure control)
5 (clojure.contrib prxml str-utils duck-streams)))
8 (defn pxml [ & args]
9 (with-out-str (apply prxml args)))
11 (defn header []
12 (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))