light refactorings

src/wanijo/instance/domain.clj

@@ -180,18 +180,14 @@
   (neo4j/exec-query! delete {:uuid uuid}))
 
 (defn group-by-link-and-assoc-tags [uuid query direction]
-  (->> (neo4j/exec-query! query
+  (->> (neo4j/exec-query! query {:uuid uuid})
-                          {:uuid uuid})
+       (group-by #(hash-map :link (:link %)
-       (group-by
+                            :schema (:schema %)
-         (fn [{:keys [link schema] :as row}]
+                            direction (direction %)))
-           {:link link
-            direction (direction row)
-            :schema schema}))
        (map (fn [[link tags]]
+              (let [tags (map :tag tags)]
                 (assoc link
-                     :tags
+                       :tags (filter some? tags)))))
-                     (filter some?
-                             (map :tag tags)))))
        (sort-by (juxt #(-> % :schema :name)
                       #(-> % direction :name)
                       #(-> % direction :created_at)))))