simon/youyesyet
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Very rough beginning of making the database stuff work.

Browse source
This commit is contained in:
simon 2017-04-05 09:56:27 +01:00
parent 19e7b24933
commit 95507002c7
2 changed files with 44 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/clj/youyesyet/routes/authenticated.clj
View file

@ -1,12 +1,12 @@
(ns youyesyet.routes.authenticated
(:require [clojure.walk :refer [keywordize-keys]]
(:require [clojure.java.io :as io]
[clojure.walk :refer [keywordize-keys]]
[compojure.core :refer [defroutes GET POST]]
[noir.response :as nresponse]
[noir.util.route :as route]
[youyesyet.layout :as layout]
[youyesyet.db.core :as db-core]
[compojure.core :refer [defroutes GET POST]]
[ring.util.http-response :as response]
[clojure.java.io :as io]))
[youyesyet.layout :as layout]
[youyesyet.db.core :as db]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;
@ -31,5 +31,14 @@
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (defn roles-page [request]
;; (if
;;; This code adapted from http://www.luminusweb.net/docs#accessing_the_database
(defn canvassers-page
[request]
(if
(:params request)
(let [params (:params request)]
(if (:id params)
(db/update-canvasser! params)
(db/create-canvasser! params)))))