         (when-not (@app :players)
           (data/go-update-data! "/api/players" app :players))
         (let [empty-team {:player1 nil :player2 nil :score nil :valid-score? true}]
-          (om/transact! app [:report-match] (fn [rm] (merge rm
+          (om/transact! app [:match-report] (fn [rm] (merge rm
                                                            {:team1 empty-team
                                                             :team2 empty-team
                                                             :matchdate (tc/now)}))))

            (render-team 2 team2)]

           (om/build matchdate-component
                     (:matchdate report-match)
                     {:opts {:change-ch matchdate}})

           [:div.form-group.col-lg-12
            [:div.form-group.col-lg-5.pull-right
             [:button.btn.btn-primary.btn-lg.btn-block
              (merge {:on-click (fn [e] (submit-report! @report-match))}
                     (when-not enabled? {:disabled "disabled"}))
              "Report Match Result " [:span.glyphicon.glyphicon-ok]]]]]])))))

(defn render [app]
  (if (:auth app)
    (om/build report-match-component app
              {:fn (fn [{:keys [report-match players]}]
                     {:report-match   report-match
                      :active-players (filterv :active players)})})
    (spinner)))

          (let [[v c] (alts! (keys chan-to-path-map))
                path (get chan-to-path-map c)]
            (condp some (-> path)
              #{:score} (handle-score-update match-report path v)
              #{:player1 :player2} (handle-player-update match-report path v)
              #{:matchdate} (handle-matchdate-update match-report path v)
              nil)
            (recur)))))

    om/IRenderState
    (render-state [_ {:keys [team1 team2 matchdate]}]
      (let [submitting (:submitting match-report)
            _    (debug "players" (map (fn [p] (str "'" (:name p) "'"))
                                     (selected-players (:team1 match-report)
                                                       (:team2 match-report))))
            __   (debug "scores" (map (fn [kw] (get-in match-report [kw :score])) [:team1 :team2]))
            ___  (debug "matchdate" (-> match-report :matchdate d/->str))
            ____ (debug "submitting" submitting)
            render-team (partial render-team-controls app)
            enabled? (and (not submitting)
                          (valid-report? match-report))]
        (html
         [:div
          [:h1 "Report Match Result"]
