     arr))
 
 (defn header-set-template [value]
-  (let [arr (template "span" "" "#{")]
+  (let [arr (template "span" "color:#000" "#{")]
     (doseq [x (take MAX_SET_ELEMENTS value)]
       (.push arr (inlined-value-template x) (spacer x)))
     (.pop arr)

    arr))

(defn header-map-template [value]
  (let [arr (template "span" "" "{")
        v (seq value)]
    (doseq [[k v] (take MAX_MAP_ELEMENTS v)]
      (.push arr

    arr))

(defn generic-template [value]
  (template "span" "color:#000" (reference value)))

(defn atomic-template [value]
  (cond
