             :teams (page-teams @teams)
             :voting (page-projector-voting-ongoing)
             :results (page-vote-results @teams @votes)))
-     (context "/command" [] ; GameMaster posts commands here (TODO? check it really is gm)
+     (context "/command" [] ; GameMaster posts commands here
               (POST "/show-task" [] (str (compare-and-set! projector :prestart :task)))
               (POST "/start-brainstorming" [] (str (compare-and-set! projector :task :teams)))
               (POST "/start-voting" [] (str (and

  (page
   "GameMaster Control"
   [:h1 "You control the game!"]
   [:p "Your mission, should you decide to accept it: TODO:describe"] ; TODO Hide when read?
   [:h2 "Controls"]
   (letfn [(button [cmd label]
             [:button.btn.btn-large

   "Teams"
   (include-changepoll-js)
   [:h1 "Teams & Topics"]
   [:p [:strong "You have 10 min for brainstorming"]]          ; TODO counter, sort by ID
   [:p "Teams:"]
   [:ol (map
      (fn [[id idea]] [:li "#" id ": " idea])  ; TODO show picture
      (sort-by first teams))]
   [:h4 "Ideas structuring tip: D6"]
   [:ol
    [:li "DEFINE business objectives: ..."]
