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

         :label "Create a match"
         :level :level2]
        [h-box
         :gap "10px"
         :children 
         (let [filter-fn (if (nil? (first @division))
                           (constantly true)
                           (:filter-fn (first @division)))]
           [[selection-list
             :model @choice1
             :on-change #(reset! choice1 %)
             :choices  (sort-by #(.full-name %) 
                                (filter filter-fn 
                                        (vals @competitors)))
             :label-fn #(.full-name-club %)

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