(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
              "http://companapi.com/categories/all"
              { :query-params
               {
                :format "json"
                }})
        categories (:categories (parse-string (:body resp) true))]
    categories
    ))

;; get list of all categories matching query
(defn find-categories [query categories]
  (let [subcats (flatten (map (fn [category] (get-in category [:children])) categories))
        query' (str/lower-case query)
        categories' (filter (fn [c] (.contains (str/lower-case (:name c)) query')) subcats)]
    categories'))