              (coll? v) :line
              :else " ")
            (canonize v)])
-        entries (->> (seq m)
+        entries (->> (seq value)
                      (sort-by first order/rank)
                      (map canonize-kv))]
     [:group

;;;;; OTHER TYPES ;;;;;

(defmethod canonize :tagged-value
  [tv]
  (let [tag   (data/edn-tag tv)
        value (data/edn-value tv)]
    [:span
     (color-doc :tag (str \# tag))
     (if (coll? value) :line " ")



(defn- canonize-map
  [value]
  (let [canonize-kv
        (fn [[k v]]
          [:span
