   (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")

   :border-bottom-left-radius "10px"})

(defn arrange-collection! [state elem container]
  (d/set-styles! elem (merge collection-styles
                             {:background-color (color state)}))
  (let [[opener contents closer] (d/children elem)]

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

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