split up JtwigModelMap creation from JtwigContext creation

This commit is contained in:
Gered 2014-03-02 11:14:24 -05:00
parent cfa047ad18
commit 0f450b36b3

View file

@ -54,13 +54,18 @@
(.getContextClassLoader) (.getContextClassLoader)
(.getResource filename))) (.getResource filename)))
(defn- make-context [model-map {:keys [skip-model-map-stringify?] :as options}] (defn- make-model-map [model-map-values {:keys [skip-model-map-stringify?] :as options}]
(let [context (new JtwigContext (new JtwigModelMap) @functions)] (let [model-map-obj (new JtwigModelMap)
(doseq [[k v] (if-not skip-model-map-stringify? values (if-not skip-model-map-stringify?
(stringify-keys model-map) (stringify-keys model-map-values)
model-map)] model-map-values)]
(.set context k v)) (doseq [[k v] values]
context)) (.add model-map-obj k v))
model-map-obj))
(defn- make-context [model-map options]
(let [model-map-obj (make-model-map model-map options)]
(new JtwigContext model-map-obj @functions)))
(defn- render-template (defn- render-template
[template model-map & [options]] [template model-map & [options]]