More work, some progress made.

This commit is contained in:
Simon Brooke 2018-06-11 21:49:16 +01:00
parent bbf6daf6ca
commit 706e42f483
31 changed files with 789 additions and 763 deletions

View file

@ -13,6 +13,7 @@
[mount.core :as mount]
[youyesyet.middleware :as middleware]
[clojure.tools.logging :as log]
[youyesyet.db.core :as db]
[youyesyet.config :refer [env]]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -42,6 +43,8 @@
:start ((or (:init defaults) identity))
:stop ((or (:stop defaults) identity)))
;;(mount/start db/*db*)
(defn init
"init will be called once when
app is deployed as a servlet on

View file

@ -1,8 +1,10 @@
(ns ^{:doc "Routes/pages available to unauthenticated users."
:author "Simon Brooke"} youyesyet.routes.home
(:require [clojure.walk :refer [keywordize-keys]]
[clojure.java.io :refer [input-stream]]
[noir.response :as nresponse]
[noir.util.route :as route]
[ring.util.http-response :refer [content-type ok]]
[youyesyet.layout :as layout]
[youyesyet.db.core :as db-core]
[compojure.core :refer [defroutes GET POST]]
@ -95,6 +97,10 @@
(defroutes home-routes
(GET "/" [] (home-page))
(GET "/js/:file" [file]
(-> (input-stream (str "resources/public/js/" file))
ok
(content-type "text/javascript;charset=UTF-8")))
(GET "/home" [] (home-page))
(GET "/about" [] (about-page))
(GET "/roles" request (route/restricted (roles-page request)))
@ -104,6 +110,6 @@
(GET "/auth" request (login-page request))
(POST "/auth" request (login-page request))
(GET "/notyet" [] (layout/render "notyet.html"
{:title "Can we persuade you?"}))
{:title "Can we persuade you?"}))
(GET "/supporter" [] (layout/render "supporter.html"
{:title "Have you signed up as a canvasser yet?"})))