     (seq? value) (header-seq-template value)
     (coll? value) (header-coll-template value)))
 
+(defn wrap-cljs-land-if-needed [needed? tmpl]
+  (if needed?
+    (template span general-cljs-land-style tmpl)
+    tmpl))
+
 (defn inlined-value-template [value]
-  (or (atomic-template value)
-      (js-object-template value)
-      (generic-template value)))
+  (let [tmpl (or 
+               (atomic-template value)
+               (js-object-template value)
+               (generic-template value))]
+    (wrap-cljs-land-if-needed (cljs-value? value) tmpl)))
 
 (defn header-template [value]
   (or (atomic-template value)

(def span "span")
(def ol "ol")
(def li "li")

(declare inlined-value-template)


      (pr-str value)))

(defn build-header [value]
  (wrap-cljs-land-if-needed true (header-template value)))

(defn standard-body-template [lines]
  (template ol standard-ol-style (map #(template li standard-li-style %) lines)))
