     [:title subtitle " :: ScotsGame"]
     [:meta {:name "viewport", :content "width=device-width, initial-scale=1.0"}]
     (include-bootstrap)]
+   [:style {:type "text/css"} "h1 {font-size:180%} h2 {font-size:160%}"]
    [:body (fixed-layout
            content)]))
 

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

(defn init

     (GET "/vote" [] "Sorry, you can only POST to this page")
     (GET "/vote-results" [] (page-vote-results @teams @votes))
     (GET "/projector" []
          (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" [] (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
