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