From 4e925a5b651348664531c5152625a501cb966fe3 Mon Sep 17 00:00:00 2001 From: Andrew Suzuki Date: Mon, 9 May 2016 11:47:33 -0400 Subject: [PATCH] search working --- src/cljs/ulysses/utils.cljs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/cljs/ulysses/utils.cljs b/src/cljs/ulysses/utils.cljs index 32688fb..194d99b 100644 --- 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))))))