    :border-bottom-left-radius "10px"})
 
 (defn arrange-collection! [state elem container]
+  (d/add-class! elem "arranged")
   (d/set-styles! elem (merge collection-styles
                              {:background-color (color state)}))
   (let [[opener contents closer] (d/children elem)]

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


(def next-state rest)

(defn arrange-keyval! [state elem container]
  (d/add-class! elem "arranged")
  (let [[key separator val] (d/children elem)]
    (arrange-element! state key container)
    (arrange-element! state val container)
