almost allow completely adding new clients and sorting and filtering.

2019-02-18 09:33:32 -08:00
parent a5d0579164
commit b8dffa45d6
9 changed files with 105 additions and 34 deletions
--- a/src/clj/auto_ap/datomic/clients.clj
+++ b/src/clj/auto_ap/datomic/clients.clj
@@ -11,9 +11,12 @@
       (map (fn [c]
              (update c :client/bank-accounts
                      (fn [bas]
-                        (map (fn [ba]
-                               (update ba :bank-account/type :db/ident ))
-                             bas)))))))
+                        (map (fn [i ba]
+                               (-> ba
+                                (update :bank-account/type :db/ident )
+                                (update :bank-account/sort-order (fn [so] (or so i)))))
+                             (range) bas)))))
+       ))
 (defn get-by-id [id]
  (->> 
   (d/query (-> {:query {:find ['(pull ?e [*])]