Mercurial > laserkard
view common.clj @ 95:5fb202915c11 laserkard
created card template multifunction
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 26 Jul 2010 21:42:20 -0400 |
parents | 874a6a2c28cf |
children | 5b0753c6f34d |
line wrap: on
line source
1 (ns laserkard.common2 (: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\""]))