                             :on-click #(dispatch [:select-page :classes])}]
    [:input.btn.btn-default {:type "button" :value "Time Schedule"
                             :on-click #(dispatch [:select-page :events])}]
-   ;; [:input.btn.btn-default {:type "button" :value "NewAdjudicators"
-   ;;                          :on-click #(dispatch [:select-page :new-adjudicators])}]
-   [:input.btn.btn-default {:type "button" :value "NewAdjudicator panels"
-                            :on-click #(dispatch [:select-page :new-adjudicator-panels])}]
    [:input.btn.btn-default {:type "button" :value "Adjudicators"
                             :on-click #(dispatch [:select-page :adjudicators])}]
    [:input.btn.btn-default {:type "button" :value "Adjudicator panels"
-                            :on-click #(dispatch [:select-page :adjudicator-panels])}]
-   ])
+                            :on-click #(dispatch [:select-page :adjudicator-panels])}]])
 
 (defn time-schedule-activity-presenter [activity classes]
   (let [round (:activity/source activity)

     (condp = (:selected-page @app-state)
       :classes [classes-component]
       :events [events-component]
       ;:adjudicators [adjudictors-component]
       :adjudicators [adjudictors-component]
       :new-adjudicator-panels [new-adjudictor-panels-component]
       :adjudicator-panels [adjudictor-panels-component])]))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; UI utils

;; (defn- to-number [s]
;;   {:pre [(string? s)]}
;;   (let [prepared-string (clojure.string/replace s #" " "")]
;;     (cond (re-seq #"^[-+]?\d*[\.,]\d*$" prepared-string)
;;           (js/parseDouble (clojure.string/replace prepared-string #"," "."))
;;           (re-seq #"^[-+]?\d+$" prepared-string)
;;           (js/parseInt (clojure.string/replace prepared-string #"\+" ""))
;;           :else s)))

(defn make-dance-type-presentation [dances]
  ;; Dances are presented as a list of the first letters of each dance
  (clojure.string/join (map #(first (:dance/name %)) dances)))

(def round-map
  {:none ""
