                                  selection-list
                                  h-box
                                  title
+                                 label
                                  line
                                  v-box
-                                 hyperlink-href]]))
+                                 hyperlink-href
+                                 radio-button]]))
 (defn match-panel
   []
   (let [matches (subscribe [:matches])

        choice1 (atom #{})
        choice2 (atom #{})
        division (atom #{(first (vals @divisions))})
        match-link (fn
                     [m]
                     (let [p1 (@competitors (first m))

            [selection-list
             :model @choice2
             :on-change #(reset! choice2 %)
             :choices (sort-by sort-fn 
                               (filter filter-fn 
                                       (vals @competitors)))
             :label-fn #(.full-name-club %)
