fix: handle absent :transaction/accounts in simple-mode-fields* (ValCursor crash)

This commit is contained in:
2026-05-27 23:07:52 -07:00
parent 06fb0ea067
commit 9997d60de1

View File

@@ -1,5 +1,6 @@
(ns auto-ap.ssr.transaction.edit (ns auto-ap.ssr.transaction.edit
(:require (:require
[auto-ap.cursor :as cursor]
[auto-ap.datomic [auto-ap.datomic
:refer [audit-transact conn pull-attr pull-ref]] :refer [audit-transact conn pull-attr pull-ref]]
[auto-ap.datomic.accounts :as d-accounts] [auto-ap.datomic.accounts :as d-accounts]
@@ -198,7 +199,10 @@
0.0))] 0.0))]
[:div [:div
(fc/with-field :transaction/accounts (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 [:span
(fc/with-field :db/id (fc/with-field :db/id
(com/hidden {:name (fc/field-name) (com/hidden {:name (fc/field-name)