|
|
@ -2,7 +2,6 @@
|
|
|
|
(:require [compojure.core :refer [defroutes GET POST DELETE] :as comp]
|
|
|
|
(:require [compojure.core :refer [defroutes GET POST DELETE] :as comp]
|
|
|
|
[ring.util.response :as resp]
|
|
|
|
[ring.util.response :as resp]
|
|
|
|
[formulare.core :as form]
|
|
|
|
[formulare.core :as form]
|
|
|
|
[wanijo.infrastructure.view :as view]
|
|
|
|
|
|
|
|
[wanijo.infrastructure.routing :refer [register! path]]
|
|
|
|
[wanijo.infrastructure.routing :refer [register! path]]
|
|
|
|
[wanijo.user.db :as domain-user]
|
|
|
|
[wanijo.user.db :as domain-user]
|
|
|
|
[wanijo.schema
|
|
|
|
[wanijo.schema
|
|
|
@ -21,7 +20,7 @@
|
|
|
|
(resp/redirect (path :schema-overview)))
|
|
|
|
(resp/redirect (path :schema-overview)))
|
|
|
|
(schema-view/overview! req)))
|
|
|
|
(schema-view/overview! req)))
|
|
|
|
|
|
|
|
|
|
|
|
(defn delete-schema! [uuid session]
|
|
|
|
(defn delete-schema! [uuid]
|
|
|
|
(domain/delete! uuid)
|
|
|
|
(domain/delete! uuid)
|
|
|
|
(resp/redirect (path :schema-overview)))
|
|
|
|
(resp/redirect (path :schema-overview)))
|
|
|
|
|
|
|
|
|
|
|
@ -73,8 +72,8 @@
|
|
|
|
(POST (register! :schema-assign-schemas "/schema/assign/schemas") []
|
|
|
|
(POST (register! :schema-assign-schemas "/schema/assign/schemas") []
|
|
|
|
assign-schemas!)
|
|
|
|
assign-schemas!)
|
|
|
|
(DELETE (register! :schema-delete "/schema/:uuid")
|
|
|
|
(DELETE (register! :schema-delete "/schema/:uuid")
|
|
|
|
[uuid :as req]
|
|
|
|
[uuid]
|
|
|
|
(delete-schema! uuid (:session req))))
|
|
|
|
(delete-schema! uuid)))
|
|
|
|
|
|
|
|
|
|
|
|
(defroutes read-routes
|
|
|
|
(defroutes read-routes
|
|
|
|
(GET (register! :schema-show "/schema/:uuid")
|
|
|
|
(GET (register! :schema-show "/schema/:uuid")
|
|
|
|