 
 (defn build-surrogate-body [value]
   (let [target (.-target value)]
-    (template "ol"
-              "list-style-type:none; padding-left:0px; margin-top:0px; margin-bottom:0px; margin-left:12px"
-              (template "li" "margin-left:12px" (reference target (pr-str target))))))
+    (template ol standard-ol-style (template li standard-li-style (reference target (pr-str target))))))
 
 (defn body-hook [value]
   (if (surrogate? value)

      (pr-str value)))

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

(defn body-line-template [index value]
  (template "li" "margin-left:12px" (index-template index) (spacer) (inlined-value-template value)))

(defn body-line-templates [value]
  (let [arr #js []]
    (loop [data (seq value) ; TODO: limit max number of lines here?
           index 0]
      (if (empty? data)
        arr
        (do
          (.push arr (body-line-template index (first data)))
          (recur (rest data) (inc index)))))))

(defn build-body [value]
  (.concat (template "ol" "list-style-type:none; padding-left:0px; margin-top:0px; margin-bottom:0px; margin-left:12px")
           (body-line-templates value)))

(defn something-abbreviated? [value]
  (if (coll? value)

        (call-original-formatter? value)))))

(defn cljs-formatter [original-formatter]
  (let [hook-wrapper (fn [name hook] (debug/hook-monitor name (chain name original-formatter (sanitize hook))))]
    (js-obj
      "header" (hook-wrapper "header" header-hook)
      "hasBody" (hook-wrapper "hasBody" has-body-hook)
      "body" (hook-wrapper "body" body-hook))))

(defn install-devtools! []
  (if *devtools-installed*
