         true
         ,,:str))
 
-
 (defmulti render
   render-dispatch)
-
 
 (defmethod render :seq
   [forms]
   (->> forms
-     (map render)
-     (apply str)))
-
+       (map render)
+       (apply str)))
 
 (defmethod render :str
   [& xs]
   (->> xs
-     (map str)
-     (apply str)))
-
+       (map str)
+       (apply str)))
 
 (defmethod render :indent
   [[_ {width :width
        :or {width 2}
        :as opts} & text]]
   (->> text
-     (map render)
-     (apply str)
-     (prefix-lines (apply str (repeat width \space)))))
-
+       (map render)
+       (apply str)
+       (prefix-lines (apply str (repeat width \space)))))
 
 (defmethod render :prefix
   [[_ {prefix :prefix :as opts} & text]]
   (->> text
-     (prefix-lines prefix)))
-
+       (prefix-lines prefix)))
 
 (defmethod render :wrap
   [[_ {width :width

       (interpose "\n" <>)
       (apply str <>)))


(defmethod render :heading
  [[_ opts & text]]
  (str (apply str text) "\n"
       (str (apply str (repeat 80 \-)) \newline)))


(defmethod render :code
  [[_ {lang :lang :as opts} & text]]

  (let [indent (re-find #"\s\s+" text)]
    (if indent
      [:indent {:width (count indent)}
       (c.s/replace text (re-pattern indent) " ")]
      [:str {} text])))

(defn text->paragraph
  [text]
