src/clj/auto_ap/ssr/transaction/edit.clj

@@ -1,5 +1,6 @@
 (ns auto-ap.ssr.transaction.edit
   (:require
+   [auto-ap.cursor :as cursor]
    [auto-ap.datomic
     :refer [audit-transact conn pull-attr pull-ref]]
    [auto-ap.datomic.accounts :as d-accounts]
@@ -198,7 +199,10 @@
                             0.0))]
     [:div
      (fc/with-field :transaction/accounts
-       (fc/with-cursor (nth fc/*current* 0 nil)
+       (fc/with-cursor (let [cur fc/*current*]
+                         (if (sequential? @cur)
+                           (nth cur 0 nil)
+                           (auto_ap.cursor.MapCursor. {} (cursor/state cur) (conj (cursor/path cur) 0))))
          [:span
           (fc/with-field :db/id
             (com/hidden {:name (fc/field-name)