A minimal webapp returning a JSON map of a word passed within the URI (http://host:port/uppercase/:word

webapp.clj

(defroutes webapp
  (GET "/uppercase/:text" [text] 
       (do
         (debug "Received request for" text)
         (-> (r/response (json/write-str {:status :ok :text (s/upper-case text)}))
             (r/content-type "application/json"))))
  (route/not-found
    (do 
      (debug "Unknown route")
      (-> (r/response (json/write-str {:status :err :reason :op-not-found}))
          (r/content-type "application/json")))))