From 7e024e99ab5a74be2862bcb1f452050a7de05f02 Mon Sep 17 00:00:00 2001
From: Josha von Gizycki <josha@borbarad.localdomain>
Date: Sun, 20 Jan 2019 14:52:25 +0100
Subject: [PATCH] small refactorings, inline svg

---
 src/wanijo/instance/routes.clj | 13 ++++++-------
 src/wanijo/instance/view.clj   |  4 ++--
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/wanijo/instance/routes.clj b/src/wanijo/instance/routes.clj
index 0915b70..e281bfb 100644
--- a/src/wanijo/instance/routes.clj
+++ b/src/wanijo/instance/routes.clj
@@ -34,32 +34,31 @@
                              (:params req))))
       (list! schema-uuid req))))
 
-(defn form! [uuid]
-  (forms-inst/with-attributes
-    (domain-attr/find-by-instance! uuid)))
-
 (defn instance! [uuid]
   (domain/full-instance-by-uuid! uuid))
 
 (defn show! [uuid req]
   (view/show! (instance! uuid) req))
 
+(defn form! [uuid attrs]
+  (forms-inst/with-attributes attrs))
+
 (defn edit-form! [uuid req]
   (let [instance (instance! uuid)
         attrs (domain-attr/find-by-instance! uuid)
         user-uuid (get-in req [:session :uuid])]
     (view/edit! instance
-                (form! uuid)
+                (form! uuid attrs)
                 (forms-inst/instance->form-data instance)
                 (domain-schema/accessible-schemas! user-uuid)
                 req)))
 
 (defn edit! [uuid req]
-  (let [form-def (form! uuid)
+  (let [attrs (domain-attr/find-by-instance! uuid)
+        form-def (form! uuid attrs)
         instance (instance! uuid)]
     (if (form/valid? form-def req)
       (let [form-data (form/form-data form-def req)
-            attrs (domain-attr/find-by-instance! uuid)
             form-instance (forms-inst/form-data->instance form-data attrs)
             instance (assoc form-instance :uuid uuid)]
         (domain/edit! instance)
diff --git a/src/wanijo/instance/view.clj b/src/wanijo/instance/view.clj
index c2a37a9..db54de0 100644
--- a/src/wanijo/instance/view.clj
+++ b/src/wanijo/instance/view.clj
@@ -6,6 +6,7 @@
             [markdown.core :as md]
             [formulare.core :as form]
             [wanijo.instance.domain :as domain]
+            [wanijo.visualisation.viz :as viz]
             [wanijo.framework
              [view :as view]
              [routing :refer [path]]
@@ -71,8 +72,7 @@
               (seq (:links-in instance)))
       [:section.visualisation
        [:h2 "Visualisation"]
-       [:image {:src (path :vis-single-instance instance)
-                :alt "SVG Visualisation"}]])
+       (viz/single-instance instance)])
     (when (seq (:links-out instance))
       [:section.links-out
        [:h2 "Outgoing Links"]