12 lines
450 B
Clojure
12 lines
450 B
Clojure
(in-ns 'auto-ap.datomic)
|
|
(doseq [client (->>
|
|
(d/query {:query {:find '[?c]
|
|
:in '[$]
|
|
:where ['[_ :client/code ?c]]}
|
|
:args [(d/db (d/connect uri))]})
|
|
(map first)
|
|
(filter #(clojure.string/starts-with? % "ANOT" )))]
|
|
@(d/transact (d/connect uri)
|
|
[[:db/retractEntity [:client/code client]]])
|
|
)
|