 
 ;; Colors chosen with the help of Adobe Kuler
 ;; http://kuler.adobe.com/
-(def initial-state
+(def initial-arrange-state
   (cycle ["#e6f3f7" "#f2ffff" "#e5f2ff" "#ebf7f4" "#e5fff1"]))
 
 (def color first)

     (arrange-keyval! state elem container))))

(defn arrange! [elem container]
  (arrange-element! initial-state elem container))


        (do (arrange-element! (next-state state) child container)
            (d/set-styles! child {:display "block"}))))))

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

(defn arrange-element! [state elem container]
  (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")
