Very simple scooter hire example

routes.clj

(ns webapp.routes
    (:use   compojure.core
            hiccup.core)
    (:require	[clj-http.client :as client]
                [compojure.route :as route]
                [clj-json.core :as json]))

;Make everything £40 for simplicity
(defn calculate-price [vehicle]
    (assoc vehicle :price-per-day 40))
 
;Remove CouchDB revision, if there is one
(defn remove-revision-number [document]
    (dissoc document :_rev))

;Hard-coded connection string, for brevity
(defn get-by-id [id]
    (let [url (str "http://127.0.0.1:5984/vehicles/" id)]
        (json/parse-string ((client/get url) :body) true)))

;Format hashmap as json reponse
(defn json-response [data & [status]]
    {   :status (or status 200)
        :headers {"Content-Type" "application/json"}
        :body (json/generate-string data)})

(defn get-vehicle-data [id]
    (let [vehicle (get-by-id id)]
    (-> vehicle
        remove-revision-number
        calculate-price
        json-response)))

(defroutes main-routes
	(GET "/scooter/:id" [id] (get-vehicle-data id))
	(route/not-found (html [:h3 "Resource not found"])))