      (GET "/vote" [] "Sorry, you can only POST to this page")
      (GET "/vote-results" [] (page-vote-results @teams @votes))
      (GET "/projector" []
-          "TODO: Stuff showing on the projector: 1. the task; 2. /teams; 3. /vote-results")
+          (condp = @projector
+            :prestart (page-projector-prestart)
+            :task (page-projector-task)
+            :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)
-              (POST "/show-task" [] "TODO")
-              #_(POST "/start-brainstorming" [] (str (compare-and-set! state :oldstate :newstate))) ;; CURRENTLY NOT NEEDED
-              (POST "/start-voting" [] (str (compare-and-set! state :brainstorming :voting)))
-              (POST "/show-voting-results" [] (str (compare-and-set! state :voting :voting-finished))))
+              (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
+                                             (compare-and-set! state :brainstorming :voting)
+                                             (swap! projector (constantly :voting)))))
+              (POST "/show-voting-results" [] (str (and
+                                                    (compare-and-set! state :voting :voting-finished)
+                                                    (swap! projector (constantly :results))))))
      (GET "/reset" [sure]
           (if sure
             (do

    [:title subtitle " :: ScotsGame"]
    [:meta {:name "viewport", :content "width=device-width, initial-scale=1.0"}]
    (include-bootstrap)]
   [:body (fixed-layout
           content)]))


            :team-counter (atom 1),
            :teams (atom {}),
            :votes (atom {}),
            :voter-ips (atom #{})
            :projector (atom :prestart)}
           defaults))

(defn init
