(ns api.core
  (:require [clj-http.client :as client])
  (:require [cheshire.core :refer :all])
  (:require [clojure.string :as str]))

(def all-categories
  (-> (client/get
        "http://companapi.com/categories/all"
        {:query-params {:format "json"}})
      :body
      (parse-string true)
      :categories))

;; get list of all categories matching query
(defn find-categories [query categories]
  (let [query' (str/lower-case query)]
    (for [cat categories
          c (:children cat)
      :when (.contains (str/lower-case (:name c)) query'))
      c)))