 (s/def :data/ui 
   (s/keys :req [:ui/player
                 :ui/nation
-                :ui/composer
-                :ui/selected-tab]))
-
-(s/def :ui/selected-tab #{:selection :queue})
+                :ui/composer]))
 
 (s/def :ui/nation
   (s/keys :req [:ui.nation/mouse-on

                        :track-list []
                        :paused true
                        :playing nil
                        :shuffle-memory nil}
       :selected-tab :selection
       :nation #:ui.nation{:mouse-on nil
                           :selected nil}
       :composer nil})

                       :player/track-list
                       :player/paused
                       :player/playing
                       :player/shuffle-memory
                       :player/selected-tab])
         (fn [{playing :player/playing q :player/queue}]
           (if playing
             (contains? (into #{} (map :track/id) q) (:track/id playing))
