blob: 843f90767fe4be0d32954c87f54e54b46284cf7c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(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.")))
|
