src/wanijo/infrastructure/repl.clj

@@ -1,9 +1,10 @@
 (ns wanijo.infrastructure.repl
   (:require [buddy.hashers :as hashers]
+            [neo4j-clj.core :as db]
             [wanijo.infrastructure.neo4j :as neo4j]
             [wanijo.main :as main]))
 
-(neo4j/defquery create-user
+(db/defquery create-user
   "CREATE (n:user)
       SET n.ident = {ident}
       SET n.pw = {pw}
@@ -16,7 +17,7 @@
     :pw (hashers/derive pw)
     :uuid (neo4j/uuid)}))
 
-(neo4j/defquery merge-config
+(db/defquery merge-config
   "MERGE (c:dbconfig)
       ON CREATE SET
          c.installed_at = {now},
@@ -26,38 +27,38 @@
          c.last_migration = {now},
          c.db_version = {version}")
 
-(neo4j/defquery config
+(db/defquery config
   "MATCH (c:dbconfig) RETURN c")
 
-(neo4j/defquery ver-0-schema-uuid
+(db/defquery ver-0-schema-uuid
   "CREATE CONSTRAINT ON (n:schema)
    ASSERT n.uuid IS UNIQUE")
 
-(neo4j/defquery ver-0-attribute-uuid
+(db/defquery ver-0-attribute-uuid
   "CREATE CONSTRAINT ON (n:attribute)
    ASSERT n.uuid IS UNIQUE")
 
-(neo4j/defquery ver-0-instance-uuid
+(db/defquery ver-0-instance-uuid
   "CREATE CONSTRAINT ON (n:instance)
    ASSERT n.uuid IS UNIQUE")
 
-(neo4j/defquery ver-0-property-uuid
+(db/defquery ver-0-property-uuid
   "CREATE CONSTRAINT ON (n:property)
    ASSERT n.uuid IS UNIQUE")
 
-(neo4j/defquery ver-0-user-uuid
+(db/defquery ver-0-user-uuid
   "CREATE CONSTRAINT ON (n:user)
    ASSERT n.uuid IS UNIQUE")
 
-(neo4j/defquery ver-0-link-uuid
+(db/defquery ver-0-link-uuid
   "CREATE CONSTRAINT ON (n:link)
    ASSERT n.uuid IS UNIQUE")
 
-(neo4j/defquery ver-1-tag-name
+(db/defquery ver-1-tag-name
   "CREATE CONSTRAINT ON (n:tag)
    ASSERT n.name IS UNIQUE")
 
-(neo4j/defquery ver-1-tag-uuid
+(db/defquery ver-1-tag-uuid
   "CREATE CONSTRAINT ON (n:tag)
    ASSERT n.uuid IS UNIQUE")
 
@@ -73,23 +74,9 @@
   (neo4j/exec-query! ver-1-tag-name {})
   (neo4j/exec-query! ver-1-tag-uuid {}))
 
-(neo4j/defquery migrate-links
-  "MATCH (i1:instance)-[:link_from]-(l:link)-[:link_to]-(i2:instance),
-         (l)-[cb:created_by]->(:user)
-   MERGE (i1)-[newl:link]->(i2)
-   ON CREATE SET
-      newl.name = l.name,
-      newl.created_at = l.created_at,
-      newl.uuid = l.uuid
-   DELETE cb, lf, lt, l")
-
-(defn init-version-2 []
-  (neo4j/exec-query! migrate-links {}))
-
 (def migrations
   [init-version-0
-   init-version-1
+   init-version-1])
-   init-version-2])
 
 (defn run-migrations! []
   (neo4j/exec-query! merge-config {:now (neo4j/now-str)

src/wanijo/instance/db.clj

@@ -142,11 +142,17 @@
          (p:property)-[pc:of]->(i),
          (p)-[pac:of]->(a:attribute)
    OPTIONAL MATCH
-         (i)-[tw:tagged_with]->()
+         (i)<-[lt1:link_to]-(ltn:link)-[lt2:link_from]->(),
+         (ltn)-[ltcb:created_by]->()
+   OPTIONAL MATCH
+         (i)<-[lf1:link_from]-(lfn:link)-[lf2:link_to]->(),
+         (lfn)-[lfcb:created_by]->()
    OPTIONAL MATCH
-         (i)-[l:link]-()
+         (i)-[tw:tagged_with]->()
    DELETE pac, pc, cb, ic, p,
-          l, tw, i")
+          lt1, lt2, ltn, ltcb,
+          lf1, lf2, lfn, lfcb,
+          tw, i")
 (defn delete! [uuid]
   (neo4j/exec-query! delete {:uuid uuid}))
 
@@ -165,7 +171,8 @@
 
 (neo4j/defquery outgoing-links
   "MATCH (inst:instance {uuid:{uuid}}),
-         (inst)-[link:link]->(target:instance),
+         (inst)<-[:link_from]-(link:link),
+         (link)-[:link_to]->(target:instance),
          (target)-[:of]->(schema:schema)
    OPTIONAL MATCH
          (target)-[:tagged_with]->(tag:tag)
@@ -176,7 +183,8 @@
 
 (neo4j/defquery incoming-links
   "MATCH (inst:instance {uuid:{uuid}}),
-         (inst)<-[link:link]-(source:instance),
+         (inst)<-[:link_to]-(link:link),
+         (link)-[:link_from]->(source:instance),
          (source)-[:of]->(schema:schema)
    OPTIONAL MATCH
          (source)-[:tagged_with]->(tag:tag)

src/wanijo/link/db.clj

@@ -10,28 +10,30 @@
 
 (neo4j/defquery create
   "MATCH (i:instance {uuid:{from}}),
+         (u:user {uuid:{by}}),
          (t:instance {uuid:{target}})
-   CREATE (i)-[l:link]->(t)
+   CREATE
-      SET l.created_at = {created_at},
+         (l:link {uuid:{uuid}})-[:created_by]->(u)
-          l.name = {name},
+     SET l.created_at = {created_at},
-          l.created_by = {by},
+         l.name = {name}
-          l.uuid = {uuid}")
+   CREATE
-(defn create! [{:keys [from name to by]}]
+         (i)<-[:link_from]-(l)-[:link_to]->(t)")
+(defn create! [link]
   (let [tuples (map (fn [target-uuid]
                       [create
-                       {:from from
+                       {:from (:from link)
-                        :by by
+                        :by (:by link)
                         :target target-uuid
                         :uuid (neo4j/uuid)
                         :created_at (neo4j/now-str)
-                        :name name}])
+                        :name (:name link)}])
-                    to)]
+                    (:to link))]
     (apply neo4j/exec-queries! tuples)))
 
 (neo4j/defquery delete
-  "MATCH (:instance)-[l:link]-(:instance)
+  "MATCH (l:link {uuid:{uuid}}),
-   WHERE l.uuid = {uuid}
+         (l)-[r]-()
-   DELETE l")
+   DELETE r, l")
 (defn delete! [uuid]
   (neo4j/exec-query! delete
                      {:uuid uuid}))

src/wanijo/public/db.clj

@@ -36,11 +36,11 @@
   "MATCH (coc:instance {uuid:{coc_uuid}}),
          (rschema:schema {uuid:{roleschema_uuid}}),
          (role:instance)-[:of]->(rschema),
-         (coc)-[:link]->(role)
+         (coc)--(:link)--(role)
    OPTIONAL MATCH
          (lschema:schema {uuid:{levelschema_uuid}}),
          (level:instance)-[:of]->(lschema),
-         (role)-[:link]->(level)
+         (role)--(:link)-->(level)
    RETURN role, level")
 (defn roles-with-levels-of-coc! [coc-key]
   (->> (neo4j/exec-query! roles-with-levels-of-coc
@@ -102,11 +102,11 @@
   "MATCH (level:instance {uuid:{level_uuid}}),
          (mschema:schema {uuid:{moduleschema_uuid}}),
          (module:instance)-[:of]->(mschema),
-         (level)-[:link]->(module)
+         (level)--(:link)--(module)
    OPTIONAL MATCH
          (cschema:schema {uuid:{compschema_uuid}}),
          (comp:instance)-[:of]->(cschema),
-         (module)-[:link]-(comp)
+         (module)--(:link)--(comp)
    RETURN module, comp")
 (defn modules-with-comps! [level-uuid]
   (->> (neo4j/exec-query! modules-with-comps
@@ -132,10 +132,10 @@
   "MATCH (role:instance {uuid:{role_uuid}}),
          (lschema:schema {uuid:{levelschema_uuid}}),
          (level:instance)-[:of]->(lschema),
-         (role)-[:link]->(level),
+         (role)--(:link)--(level),
          (mschema:schema {uuid:{moduleschema_uuid}}),
          (module:instance)-[:of]->(mschema),
-         (level)-[:link]->(module)
+         (level)--(:link)--(module)
    RETURN module, level
    ORDER BY CASE
               WHEN level.name =~ \".*Foundation.*\" THEN
@@ -165,7 +165,7 @@
   "MATCH (module:instance {uuid:{uuid}}),
          (cschema:schema {uuid:{compschema_uuid}}),
          (comp:instance)-[:of]->(cschema),
-         (module)-[:link]->(comp)
+         (module)--(:link)--(comp)
    RETURN comp
    ORDER BY comp.name")
 (defn module! [uuid]

src/wanijo/visualisation/db.clj

@@ -19,7 +19,7 @@
   "MATCH
      (source:instance)-[:of]->(schema:schema)
    OPTIONAL MATCH
-     (source)-[link:link]->(target:instance),
+     (source)<-[:link_from]-(link:link)-[:link_to]->(target:instance),
      (target)-[:of]->(target_schema:schema)
    RETURN source, schema, link, target, target_schema")
 (defn all-instance-connections! []