datadog.

src/clj/user.clj

@@ -734,3 +734,13 @@
        (mapcat identity)
        vec))
 
+(defn get-idents []
+  (->> (d/q '[:find ?i
+              :in $ 
+              :where [_ :db/ident ?i]]
+            (d/db auto-ap.datomic/conn) )
+       (mapcat identity)
+       (map str)
+       (sort)
+       vec))
+