makes cloud search possible.

2023-05-04 17:07:08 -07:00
parent 2bb1da1636
commit b200728c6a
30 changed files with 1308 additions and 451 deletions
--- a/src/clj/auto_ap/ssr/utils.clj
+++ b/src/clj/auto_ap/ssr/utils.clj
@@ -4,9 +4,10 @@
   [config.core :refer [env]]
   [hiccup2.core :as hiccup]))

-(defn html-response [hiccup & {:keys [status] :or {status 200}}]
+(defn html-response [hiccup & {:keys [status headers] :or {status 200 headers {}}}]
  {:status  status
-   :headers {"Content-Type" "text/html"}
+   :headers (into {"Content-Type" "text/html"}
+                  headers)
   :body    (str
              (hiccup/html 
                {}