progress towards sales.

src/clj/auto_ap/ssr/utils.clj

@@ -5,14 +5,21 @@
    [hiccup2.core :as hiccup]
    [clojure.string :as str]))
 
-(defn html-response [hiccup & {:keys [status headers] :or {status 200 headers {}}}]
+(defn html-response [hiccup & {:keys [status headers oob] :or {status 200 headers {} oob []}}]
   {:status  status
    :headers (into {"Content-Type" "text/html"}
                   headers)
    :body    (str
               (hiccup/html 
                 {}
-                hiccup))})
+                hiccup)
+              "\n"
+              (str/join "\n"
+                        (map (fn [o]
+                               (hiccup/html
+                                   {}
+                                 o))
+                             oob)))})
 
 (defn wrap-error-response [handler]
   (fn  [request]