            [:div
             [:h2 name]
             [:p (:games_played row) " games played, " (:ascensions row) " ascensions."]
-            [:br]
             [:a {:href (str "/user/" name "/dumps/")} "dumps"]
             [:br]
-            [:a {:href (str "/user/" name "/ttyrecs/")} "ttyrecs"]]))))))
-                                                                 
+            [:a {:href (str "/user/" name "/ttyrecs/")} "ttyrecs"]
+            [:br]
+            [:br]
+            (sql/with-query-results
+              rs2
+              ["select * from xlogfile where name = ? order by endtime desc limit 50" name]
+              (doall rs2)
+              (rs-to-table rs2))]))))))
+
 (defn users []
   (sql/with-connection db
     (sql/with-query-results

               [:br]])
             rs)))))

(defn page-not-found []
  "<h1>Page not found</h1>")

(defroutes main-routes
  (GET "/" [] (last-games 25))
  (GET "/highscores" [] (highscores 25))

     [:br]
     content]]))

(defn page-not-found []
  "<h1>Page not found</h1>")

(defn make-dump-link [row]
  (let [base (str "/user/" (:name row) "/dumps/" (:name row ) "." (:endtime row))
        file-base (str "/srv/un.nethack.nu" base)
