some restructuring around vis and explore

src/wanijo/framework/view.clj

@@ -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

src/wanijo/instance/view.clj

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

src/wanijo/visualisation/routes.clj

@@ -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)))

src/wanijo/visualisation/viz.clj

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