Uses cursors for simplicity, uses common grid bottom

src/clj/auto_ap/cursor.clj

@@ -125,6 +125,15 @@
              [] nil))
 
 
+(defn synthetic-cursor [v prefix]
+  (let [internal-cursor (cursor v)]
+    (reify ICursor
+      (path [this]
+        (into prefix (path internal-cursor)))
+      (state [this]
+        (state internal-cursor)))))
+
+
 (defn transact! [cursor f]
   "Changes value beneath cursor by passing it to a single-argument
    function f. Old value will be passed as function argument. Function