Compojure demo

gistfile1.clj

(defn OPTIONS
  "Generate a OPTIONS route with the given response."
  [response]
  (fn [request]
    (when (= (:request-method request) :options)
      response)))

(defroutes routes
  (GET "/" [] "<h1>Hello World</h1>")
  (context (:registry contexts) [] registry)
  (context (:dataset contexts) [] dataset)
  (OPTIONS (-> (rr/response nil)
               (rr/header "Allow"
                          (s/join ", " ["GET" "POST" "HEAD" "PUT"
                                        "TRACE" "OPTIONS" "DELETE"]))))
  (route/not-found "<h1>Page not found</h1>"))