View difference between Paste ID: FmcLrxtT and zPmeu5GT

 (ns api.core
   (:require [clj-http.client :as client])
   (:require [cheshire.core :refer :all])
   (:require [clojure.string :as str]))
 
 (def all-categories
-  (let [resp (client/get
+  (-> (client/get
-              "http://companapi.com/categories/all"
+        "http://companapi.com/categories/all"
-              { :query-params
+        {:query-params {:format "json"}})
-               {
+      :body
-                :format "json"
+      (parse-string true)
-                }})
+      :categories))
-        categories (:categories (parse-string (:body resp) true))]
+
-    categories
+
-    ))
+
   (let [query' (str/lower-case query)]
     (for [children (:children categories)
           c children
-  (let [subcats (flatten (map (fn [category] (get-in category [:children])) categories))
+	  :when (.contains (str/lower-case (:name c)) query'))
-        query' (str/lower-case query)
+      c)))