some restructuring around vis and explore

integration-tests
Josha von Gizycki 6 years ago
parent 3551350908
commit cae1ffd760

@ -79,8 +79,6 @@
[:section
[:h2 [:span.__icon "▤"] "Visualisation"]
[:ul
[:li [:a {:href (path :vis-index)}
"Custom Visualisation"]]
[:li [:a {:href (path :vis-all-instances)}
"All Instances"]]]]))]
(into [:main

@ -55,8 +55,8 @@
[:a {:href (path :instance-edit-form instance)}
"Edit Instance"]
" | "
[:a {:href (path :vis-index)}
"Start visualisation"]]]
[:a {:href (path :vis-explore {:instance-uuid (:uuid instance)})}
"Explore from here"]]]
(when (seq (:properties instance))
[:section.properties
[:h2 "Properties"]

@ -23,12 +23,12 @@
:body (domain-schema/accessible-schemas! (-> req :session :uuid))})
(defroutes routes
(GET (register! :vis-index "/visualisation/index")
(GET (register! :vis-explore "/vis/explore/:instance-uuid")
[:as req]
(vis-view/index req))
(GET (register! :vis-all-instances "/visualisation/all-instances")
(GET (register! :vis-all-instances "/vis/all-instances")
[:as req]
(all-instances req))
(GET (register! :vis-all-schemas "/api/visualisation/schemas")
(GET (register! :vis-all-schemas "/api/vis/schemas")
[:as req]
(all-schemas req)))

@ -29,8 +29,8 @@
[(:uuid source) :> (:uuid instance)
{:label (:name link)}])
(:links-in instance))
rankdir (if (or (> (count in-nodes) 7)
(> (count out-nodes) 7))
rankdir (if (or (> (count in-nodes) 5)
(> (count out-nodes) 5))
"LR"
"TD")]
(-> [{:rankdir rankdir}

Loading…
Cancel
Save