Sample web app

handler.clj

(ns compojure-example.handler
  (:require [compojure.core :refer :all]
            [compojure.route :as route]
            [ring.middleware.defaults :refer [wrap-defaults site-defaults api-defaults]]
            [ring.util.anti-forgery :refer [anti-forgery-field]]
            [ring.util.response :as response] ; for response/redirect, etc.
            [hiccup.core :refer [html h]]
            [hiccup.form :as form]
            [hiccup.element :refer [image link-to]]
            [hiccup.page :refer [html5]]))

(defroutes app-routes
  (GET "/" [] (html
                (form/form-to [:post "/"]
                  "Welcome"
                  (form/text-field "text" "Hello World")
                  [:p]
                  (form/submit-button "Submit")
                  (anti-forgery-field))))
  (POST "/" [text] (list "Posted " (h text)))
  (route/not-found "Not Found"))

(defroutes api-routes
  (POST "/api/:text" [text] "Posted " (h text)))

(def app
  (routes   
    (wrap-routes api-routes wrap-defaults api-defaults)
    (wrap-routes app-routes wrap-defaults site-defaults)))