Use line breaks between map keys and collection values.

greglook · May 27, 2014 · a20728a · a20728a
1 parent 60c4188
commit a20728a
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/src/puget/printer.clj b/src/puget/printer.clj
@@ -161,8 +161,18 @@
 
 (defn- canonize-map
   [m]
-  (let [canonize-kv (fn [[k v]] [:span (canonize k) " " (canonize v)])
-        entries (->> (seq m) (sort-by first order/rank) (map canonize-kv))]
+  (let [canonize-kv
+        (fn [[k v]]
+          [:span
+           (canonize k)
+           (cond
+             (satisfies? data/TaggedValue v) " "
+             (coll? v) :line
+             :else " ")
+           (canonize v)])
+        entries (->> (seq m)
+                     (sort-by first order/rank)
+                     (map canonize-kv))]
     [:group
      (color-doc :delimiter "{")
      [:align (interpose [:span *map-delimiter* :line] entries)]