   [:div [:h2 "Dartflow"]
    [:ul
     [:li [:a {:href "#/new-game"} "New match"]]
-    [:li [:a {:href "#/standings"} "Standings"]]]])
+    [:li [:a {:href "#/standings"} "Standings"]]
+    [:li [:a {:href "#/matches"} "Past Matches"]]]])
 
 (def matches (atom nil))
-
-(defn standings-component []
-  [:div
-   (println @matches)
-   [:div "Hello"]])
 
 (defn winning-player [{:keys [starting-score] :as match}]
   (let [score-0 (reduce + 0 (:rounds (:p0 match)))]


(secretary/defroute "/standings" []
  (session/put! :current-page #'standings-page))

(secretary/defroute "/new-player" []
  (session/put! :current-page #'new-player-page))

         " 0 - 1 ")
       "(avg. " (clojure.string/join ", " (averages match)) ")"))

(defn render-matches [matches]
  (when matches
    (into [:ul]
     (map-indexed (fn [i m] ^{:key i}
                    [:li (render-match m)])
          matches))))

(defn standings-page [])

(defn list-matches-page []
  (let [get-stuff #(GET "/list-matches"
                        {:handler (fn [r]
                                    (->> r
