notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clientize.

Browse Source
This commit is contained in:
Bryce Covert
2023-05-05 11:28:08 -07:00
parent eacd6b4537
commit 5d0bf6a8d8
6 changed files with 56 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/clj/user.clj
View File

@@ -573,7 +573,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents batch))
(solr/index-documents solr/impl batch))
(doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $
@@ -584,7 +584,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents batch))
(solr/index-documents solr/impl batch))
(doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $
@@ -595,7 +595,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents batch))
(solr/index-documents solr/impl batch))
(doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $
:where [?i :journal-entry/date]]
@@ -604,7 +604,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents batch)))
(solr/index-documents solr/impl batch)))
(defn setup-sales-orders []
(doseq [n (->> (dc/qseq {:query '[:find ?s ?c :where [?s :sales-order/client ?c]] :args [(dc/db auto-ap.datomic/conn)]})