core.clj

(ns tryclojure.core
  (:use ring.adapter.jetty
	[hiccup core form-helpers]
	[ring.middleware reload stacktrace params]
	net.cgrand.moustache))

(defn fire-html [text]
  (html
   [:h1 "HAI!"]
   [:p "What's up?"]
   [:div {:style "overflow:auto;height:100px;"} text]
   (form-to [:post "/"]
	    (text-field "code" "GIB ME UR CODEZ.")
	    (submit-button "Submit."))))

(defn handler [{fparams :query-params}]
  {:status  200
   :headers {"Content-Type" "text/html"}
   :body    (fire-html (fparams "code"))})

(def clojureroutes
     (app
      (wrap-params)
      (wrap-stacktrace)
      [""] handler))

(run-jetty #'clojureroutes {:port 8081})