 
 (defn standard-body-template
   ([lines margin?] (let [ol-style (if margin? standard-ol-style standard-ol-no-margin-style)
-        li-style (if margin? standard-li-style standard-li-no-margin-style)]
-    (template ol ol-style (map #(template li li-style %) lines))))
+                         li-style (if margin? standard-li-style standard-li-no-margin-style)]
+                     (template ol ol-style (map #(template li li-style %) lines))))
   ([lines] (standard-body-template lines true)))
 
 (defn body-line-template [index value]

(def string-style "color:#C41A16")
(def symbol-style "color:#000000")
(def fn-style "color:#090")
(def fn-label "λ")
(def bool-style "color:#099")

; IRC #clojurescript @ freenode.net on 2015-01-27:

    (number? value) (number-template value)
    (keyword? value) (template span keyword-style (str value))
    (symbol? value) (template span symbol-style (str value))
    (fn? value) (template span fn-style (reference value))))

(defn abbreviated? [template]
  (some #(= more-marker %) template))
