Mercurial > laserkard

annotate common.clj @ 95:5fb202915c11 laserkard

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
created card template multifunction
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Jul 2010 21:42:20 -0400
parents 874a6a2c28cf
children 5b0753c6f34d
rev   line source
rlm@75 1 (ns laserkard.common
rlm@75 2 (:use (compojure.http request servlet session routes)
rlm@75 3 (compojure.server jetty)
rlm@75 4 (compojure control)
rlm@75 5 (clojure.contrib prxml str-utils duck-streams)))
rlm@75 6
rlm@75 7
rlm@75 8 (defn pxml [ & args]
rlm@75 9 (with-out-str (apply prxml args)))
rlm@75 10
rlm@75 11 (defn header []
rlm@75 12 (pxml [:doctype! "html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""]))
rlm@75 13
rlm@75 14
rlm@75 15
rlm@75 16