web.clj

(defhtml application [text body]
  [:html
   [:head
    [:title text]]
   [:body
    [:h3 text]
    body]])

(defhtml code-list [body]
  [:ul body])

(defhtml code-block [[code result]]
  [:li [:pre code] [:pre ";; =&gt" result]])

(defn test-fn*
  [#^String text]
  (response
   (application text
                (code-list (code-block text)))))

;; not working (yet)
(def test-web
     (app
      ["examples" [text #".*"]]
      {:get test-fn*}
      [#".*"] {:get ["all routes!"]}))