23 lines
728 B
Clojure
23 lines
728 B
Clojure
(ns pinkblackrose.routes.home
|
|
(:require
|
|
[pinkblackrose.layout :as layout]
|
|
[pinkblackrose.db.core :as db]
|
|
[clojure.java.io :as io]
|
|
[pinkblackrose.middleware :as middleware]
|
|
[ring.util.response]
|
|
[ring.util.http-response :as response]))
|
|
|
|
(defn home-page [request]
|
|
(layout/render request "home.html"))
|
|
|
|
(defn home-routes []
|
|
[""
|
|
{:middleware [middleware/wrap-csrf
|
|
middleware/wrap-formats]}
|
|
["/" {:get home-page}]
|
|
["/graphiql" {:get (fn [request] (layout/render request "graphiql.html"))}]
|
|
["/docs" {:get (fn [_]
|
|
(-> (response/ok (-> "docs/docs.md" io/resource slurp))
|
|
(response/header "Content-Type" "text/plain; charset=utf-8")))}]])
|
|
|