|
|
@ -70,14 +70,14 @@
|
|
|
|
(when authed?
|
|
|
|
(when authed?
|
|
|
|
(list
|
|
|
|
(list
|
|
|
|
[:section.schemas
|
|
|
|
[:section.schemas
|
|
|
|
[:h2 [:span.__icon "▤"] "Schemas"]
|
|
|
|
[:h2 "Schemas"]
|
|
|
|
[:ul
|
|
|
|
[:ul
|
|
|
|
(for [schema (:schemas session)]
|
|
|
|
(for [schema (:schemas session)]
|
|
|
|
[:li [:a {:href (path :instance-list
|
|
|
|
[:li [:a {:href (path :instance-list
|
|
|
|
{:schema-uuid (:uuid schema)})}
|
|
|
|
{:schema-uuid (:uuid schema)})}
|
|
|
|
(h (:name schema))]])]]
|
|
|
|
(h (:name schema))]])]]
|
|
|
|
[:section
|
|
|
|
[:section
|
|
|
|
[:h2 [:span.__icon "▤"] "Visualisation"]
|
|
|
|
[:h2 "Visualisation"]
|
|
|
|
[:ul
|
|
|
|
[:ul
|
|
|
|
[:li [:a {:href (path :vis-all-instances)}
|
|
|
|
[:li [:a {:href (path :vis-all-instances)}
|
|
|
|
"All Instances"]]]]))]
|
|
|
|
"All Instances"]]]]))]
|
|
|
|