working on solr stuff.

src/clj/auto_ap/parse/excel.clj

@@ -44,12 +44,14 @@
       extract)]))
 
 (defn extract-sheet-details [bucket object]
-  (-> (lambda/invoke {:function-name "xls-extractor" :payload
-                      (json/write-str
+  (doto
+   (-> (lambda/invoke {:function-name "xls-extractor" :payload
+                       (json/write-str
                         {"s3_url" object "s3_bucket" bucket})})
-      :payload
-      slurp
-      json/read-str))
+       :payload
+       slurp
+       json/read-str)
+    println))
 
 (defn parse-file
   [file _]

src/clj/auto_ap/routes/ezcater_xls.clj

@@ -35,6 +35,7 @@
             (map vector headers r)))))
 
 (defn map->sales-order [r clients]
+  (println r)
   (let [order-number (get r "Order Number")
         event-date   (get r "Event Date")
         store-name   (get r "Store Name")

src/clj/auto_ap/solr.clj

@@ -203,3 +203,34 @@
    (index-documents impl index [i])))
 
 
+(defrecord InMemSolrClient [data-set-atom]
+  SolrClient
+  (index-documents [this index xs]
+    (swap! data-set-atom
+           (fn [data-set]
+             (reduce
+              (fn [data-set x]
+                (let [thing (datomic->solr x)]
+                  (update data-set index conj [(str/join " " (vals x)) thing])))
+              data-set
+              xs)))
+    nil)
+
+  (index-documents-raw [this index xs]
+    (swap! data-set-atom
+           (fn [data-set]
+             (reduce
+              (fn [data-set x]
+                (update data-set index conj [(str/join " " (vals x)) x]))
+              data-set
+              xs))))
+
+  (query [this index q]
+    (filter
+     (fn [[x e]]
+       (str/includes? x (get q "query")))
+     (get @data-set-atom index)))
+  (delete [this index]
+    (swap! data-set-atom dissoc index)))
+
+