some refactoring

src/wanijo/instance/domain.clj

@@ -101,16 +101,22 @@
    ON MATCH SET p.updated_at = {now},
                 p.value = {value}")
 
-(defn edit! [instance]
-  (let [prop-tuples (map #(vector edit-property
-                                  {:uuid (if (empty? (:uuid %))
+(defn instance->prop-tuples [instance]
+  (map (fn [prop]
+         (let [prop-uuid (:uuid prop)
+               uuid (if (empty? prop-uuid)
                       (neo4j/uuid)
-                                           (:uuid %))
+                      prop-uuid)]
+           [edit-property
+            {:uuid uuid
              :now (neo4j/now-str)
-                                   :value (:value %)
+             :value (:value prop)
              :instance_uuid (:uuid instance)
-                                   :attribute_uuid (-> % :attribute :uuid)})
-                         (:properties instance))]
+             :attribute_uuid (-> prop :attribute :uuid)}]))
+       (:properties instance)))
+
+(defn edit! [instance]
+  (let [prop-tuples (instance->prop-tuples instance)]
     (apply neo4j/exec-queries!
            (concat [[edit-instance
                      {:uuid (:uuid instance)

src/wanijo/instance/view.clj

@@ -92,7 +92,7 @@
     (when (seq (:tags instance))
       [:section.tags
        [:ul
-        (for [tag (:tags instace)]
+        (for [tag (:tags instance)]
           [:li (:name tag)])]])
     (when (seq (:properties instance))
       [:section.properties