 
 (defn- find-account-by-path
   [path]
-  (->> @*accounts*
+  (->> @accounts
        (filter #(= (:path %) path))
        first
        :id))


(defn- new-account []
  (accounts/get-all (:id @state/current-entity)
                    #(reset! *accounts* (-> % nest unnest))
                    notify/danger)

  (let [account (r/atom {:entity-id (:id @state/current-entity)})]

     :other-account-id
     {:data-source accounts-source
      :input-placeholder "Select the other account"
      :in-fn (model-in-fn accounts :path)
      :out-fn (fn [v] (if (iterable? v) (first v) v))
      :result-fn (fn [[path id]] path)})])

