core.clj

(ns SimpleTasks.core
  (:use compojure.core,hiccup.core,hiccup.form-helpers ring.adapter.jetty))

(defn display []
  (html [:h1 "hello world!"]))

(defn render-form []
  (html
   (form-to [:post "/" ]
            "Add task"
            [:br]
            (text-field :task)
            (submit-button "save"))))


(defroutes myroutes
  (GET "/" [] (display))
  (GET "/form" [] (render-form)))


(defonce server (run-jetty #'myroutes
                           {:join? false
                            :port 8080}))