 (defn symbol-template [v]
   (template "span" "color: #881391" (str v)))
 
-(defn integer-template [v]
-  (template "span" "color: #1C00CF" v))
+(defn number-template [v]
+  (if (integer? v)
+    (template "span" "color: #1C00CF" v)
+    (template "span" "color: #1C88CF" v)))
 
 (defn fn-template [v]
   (template "span" "color: #f00" (reference v) "fn"))

      (pr-str x)))

(defn build-header [value]
  (template "span" "background-color: #eff" (header-template value)))

(defn header-hook [value]
  (if (cljs-value? value)

  (cond
    (nil? x) (nil-template x)
    (string? x) (string-template x)
    (number? x) (number-template x)
    (keyword? x) (keyword-template x)
    (symbol? x) (symbol-template x)
    (fn? x) (fn-template x)
