 (defn remove-all-styles! [elem]
   ;; remove-attr! doesn't always work
   (d/set-attr! elem :style "")
+  (d/remove-class! elem "condensed")
+  (d/remove-class! elem "arranged")
   (doseq [child (d/children elem)]
     (remove-all-styles! child)))
 

  (remove-all-styles! elem)
  (d/set-styles! elem {:white-space "pre"})
  (d/remove-class! elem "condensed")
  (d/add-class! elem "arranged")
  (when (overflow? elem container)
    (cond
     (d/has-class? elem "collection")

                          :margin-left "1em"}))))

(def collection-styles
  {:color "black"
   :display "inline-block"
   :padding-top "1px"
   :padding-right "2px"
   :padding-bottom "2px"
