(ns chef.components.search
  (:require [chef.database :as cdb]
            [chef.utils :as cutils]
            [clojure.string :as cstr]
            [hiccup2.core :as html]
            [honey.sql :as sql]
            [next.jdbc :as jdbc]
            [ring.util.response :as ruresp]))

(defn render [query category]
  [:table
   [:tr
    [:th "Rezept"]
    [:th "Kategorie"]]
   (for [recipe (jdbc/execute! @cdb/db
                               (sql/format {:select [:*]
                                            :from   [:recipes]}))
         :let [recipe-category (->> {:select [:*]
                                     :from   [:categories]
                                     :where  [:= :id (:recipes/category recipe)]}
                                    sql/format
                                    (jdbc/execute! @cdb/db)
                                    first)]]
     (when (or (= category -1)
               (and (cstr/includes? (-> recipe
                                        :recipes/title
                                        cstr/lower-case)
                                    query)
                    (some #(= (:categories/id %) category)
                          (cutils/category-parents recipe-category))))
       [:tr
        [:td
         [:b [:a {:href (str "/recipes/" (:recipes/id recipe))} (:recipes/title recipe)]]]
        [:td
         (cutils/category-path (->> {:select [:*]
                                     :from   [:categories]
                                     :where  [:= :id (:recipes/category recipe)]}
                                    sql/format
                                    (jdbc/execute! @cdb/db)
                                    first))]]))])

(defn handler [req]
  (if-let [query (get-in req [:params "query"])]
    (-> (render query (try (Integer/parseInt (get-in req [:params "category"]))
                           (catch Exception _ -1)))
        html/html
        str
        ruresp/response)
    (ruresp/bad-request "No search query provide.")))