|
|
@ -5,6 +5,7 @@
|
|
|
|
[wanijo.framework.routing :refer [register! path]]
|
|
|
|
[wanijo.framework.routing :refer [register! path]]
|
|
|
|
[wanijo.framework.view :as view]
|
|
|
|
[wanijo.framework.view :as view]
|
|
|
|
[wanijo.instance.domain :as domain-instance]
|
|
|
|
[wanijo.instance.domain :as domain-instance]
|
|
|
|
|
|
|
|
[wanijo.schema.domain :as domain-schema]
|
|
|
|
[wanijo.visualisation
|
|
|
|
[wanijo.visualisation
|
|
|
|
[domain :as vis-domain]
|
|
|
|
[domain :as vis-domain]
|
|
|
|
[viz :as viz]
|
|
|
|
[viz :as viz]
|
|
|
@ -17,10 +18,17 @@
|
|
|
|
[[:h1 "All Instances"]
|
|
|
|
[[:h1 "All Instances"]
|
|
|
|
(viz/all-instances (vis-domain/all-instance-connections!))]))
|
|
|
|
(viz/all-instances (vis-domain/all-instance-connections!))]))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defn all-schemas [req]
|
|
|
|
|
|
|
|
{:content-type "text/json"
|
|
|
|
|
|
|
|
:body (domain-schema/accessible-schemas! (-> req :session :uuid))})
|
|
|
|
|
|
|
|
|
|
|
|
(defroutes routes
|
|
|
|
(defroutes routes
|
|
|
|
(GET (register! :vis-index "/visualisation/index")
|
|
|
|
(GET (register! :vis-index "/visualisation/index")
|
|
|
|
[:as req]
|
|
|
|
[:as req]
|
|
|
|
(vis-view/index req))
|
|
|
|
(vis-view/index req))
|
|
|
|
(GET (register! :vis-all-instances "/visualisation/all-instances")
|
|
|
|
(GET (register! :vis-all-instances "/visualisation/all-instances")
|
|
|
|
[:as req]
|
|
|
|
[:as req]
|
|
|
|
(all-instances req)))
|
|
|
|
(all-instances req))
|
|
|
|
|
|
|
|
(GET (register! :vis-all-schemas "/api/visualisation/schemas")
|
|
|
|
|
|
|
|
[:as req]
|
|
|
|
|
|
|
|
(all-schemas req)))
|
|
|
|