diff options
Diffstat (limited to 'src/chef/components/search.clj')
| -rw-r--r-- | src/chef/components/search.clj | 43 |
1 files changed, 39 insertions, 4 deletions
diff --git a/src/chef/components/search.clj b/src/chef/components/search.clj index 843f907..e428a23 100644 --- a/src/chef/components/search.clj +++ b/src/chef/components/search.clj @@ -1,13 +1,48 @@ (ns chef.components.search - (:require [hiccup2.core :as html] + (: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] - [:p "Results; Query: " query]) +(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) + (-> (render query (try (Integer/parseInt (get-in req [:params "category"])) + (catch Exception _ -1))) html/html str ruresp/response) |