(ns chef.components.search (:require [hiccup2.core :as html] [ring.util.response :as ruresp])) (defn render [query] [:p "Results; Query: " query]) (defn handler [req] (if-let [query (get-in req [:params "query"])] (-> (render query) html/html str ruresp/response) (ruresp/bad-request "No search query provide.")))