|
|
@ -1,5 +1,6 @@
|
|
|
|
(ns wanijo.framework.devmode
|
|
|
|
(ns wanijo.framework.devmode
|
|
|
|
(:require [hiccup.core :as hcore]))
|
|
|
|
(:require [hiccup.core :as hcore]
|
|
|
|
|
|
|
|
[clojure.string :as cljs]))
|
|
|
|
|
|
|
|
|
|
|
|
(def bar-entries (atom []))
|
|
|
|
(def bar-entries (atom []))
|
|
|
|
|
|
|
|
|
|
|
@ -22,7 +23,7 @@
|
|
|
|
|
|
|
|
|
|
|
|
(defn append-devbar [resp]
|
|
|
|
(defn append-devbar [resp]
|
|
|
|
(let [body (:body resp)
|
|
|
|
(let [body (:body resp)
|
|
|
|
new-body (clojure.string/replace
|
|
|
|
new-body (cljs/replace
|
|
|
|
body "</body>" (str (devbar resp) "</body>"))]
|
|
|
|
body "</body>" (str (devbar resp) "</body>"))]
|
|
|
|
(assoc resp :body new-body)))
|
|
|
|
(assoc resp :body new-body)))
|
|
|
|
|
|
|
|
|
|
|
|