search working

core · May 9, 2016 · 4e925a5 · 4e925a5
1 parent e6b085b
commit 4e925a5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/cljs/ulysses/utils.cljs b/src/cljs/ulysses/utils.cljs
@@ -109,6 +109,8 @@
 
 (defn filter-grant-ops
   [grant-ops filters]
-  (let [{:keys [search mechanisms]} filters]
+  (let [{:keys [search mechanisms]} filters
+        search-lower (string/lower-case search)]
     (->> grant-ops
-         (filter #(get-in mechanisms [(-> % :funding-mechanism :name keyword)])))))
+         (filter #(get mechanisms (-> % :funding-mechanism :name keyword)))
+         (filter #(-> % :company string/lower-case (string/includes? search-lower))))))