       (:ui.nation/mouse-on (:ui/nation ui))))
 
 (defn set-tab [ui tab]
-  (assoc ui :ui/selected-tab tab))
+  (assoc-in ui [:ui/player :player/selected-tab] tab))
 
 (defn focus-nation [ui nation]
   (assoc-in ui [:ui/nation :ui.nation/mouse-on] nation))

(defn select-nation [ui nation]
  (assoc-in ui [:ui/nation :ui.nation/selected] nation))

(def selected-tab :ui/selected-tab)

(def composer :ui/composer)


(s/def :data/ui 
  (s/keys :req [:ui/player
                :ui/nation
                :ui/composer]))

(s/def :ui/nation
  (s/keys :req [:ui.nation/mouse-on
