cloud - finishes search implementation

src/clj/auto_ap/solr.clj

@@ -10,6 +10,12 @@
    [config.core :refer [env]]
    [datomic.api :as dc]))
 
+(defn escape [s]
+  (str/escape s
+              (into {}
+                    (for [c "\\+-&&||!(){}[]^\"~*?:/"]
+                      [c (str "\\" c)]))))
+
 (def solr-uri (:solr-uri env))
 
 (defn fmt-amount [a]