   (template "span" "color:#f00" (reference value) "fn"))
 
 ; TODO: convert to idiomatic clojure code
-(defn header-collection-template [value]
+(defn header-seq-template [value]
   (let [arr (template "span" "color:#000" "[")]
-    (doseq [x (take max-collection-elements value)]
+    (doseq [x (take max-seq-elements value)]
       (.push arr (inlined-value-template x) (spacer x)))
     (.pop arr)
-    (if (> (count value) max-collection-elements)
+    (if (> (count value) max-seq-elements)
       (.push arr abbreviation-string))
     (.push arr "]")
     arr))

  (cond
    (map? value) (header-map-template value)
    (set? value) (header-set-template value)
    (coll? value) (header-collection-template value)
    ))

(defn inlined-value-template [value]

(ns devtools.core
  (:require [devtools.debug :as debug]))

(def max-seq-elements 10)
(def max-map-elements 5)
(def max-set-elements 7)
(def abbreviation-string "…")
