 
 (defn wrap-group-in-reference-if-needed [group obj]
   (if (abbreviated? group)
-    #js [(reference (surrogate obj (.concat (template (pref :span) "") group)))]
+    #js [(reference (surrogate obj (.concat (template :span "") group)))]
     group))
 
 ; default printer implementation can do this:

    (aget config "prevent-recursion")))

(defn template [tag style & children]
  (let [js-array #js [tag (if (empty? style) #js {} #js {"style" style})]]
    (doseq [child children]
      (if (coll? child)
        (.apply (aget js-array "push") js-array (into-array child)) ; convenience helper to splat cljs collections
        (.push js-array child)))
    js-array))

(defn reference

        inline-string (.replace source-string re-nl (pref :new-line-string-replacer))
        max-inline-string-size (+ (pref :string-prefix-limit) (pref :string-postfix-limit))]
    (if (<= (count inline-string) max-inline-string-size)
      (template :span :string-style (str dq inline-string dq))
      (let [abbreviated-string-template (template :span :string-style (str dq (abbreviate-long-string inline-string) dq))
            string-with-nl-markers (.replace source-string re-nl (str (pref :new-line-string-replacer) "\n"))
            body-template (template :ol :standard-ol-style
                            (template :li :standard-li-style
                              (template :span :string-style (str dq string-with-nl-markers dq))))]
        (reference (surrogate source-string abbreviated-string-template true body-template))))))

(defn bool? [value]
