         ] ; </body>
     ))
 
+(defn week-td
+    [selected-author week-stat data]
+    [:td [:a {:href (str "/author-week?name=" selected-author "&week=" (:week week-stat))} data]])
+
 (defn render-author-page
-    [author-name statistic]
+    [author-name statistic weeks-stat selected-week week-graph-data cummulative-graph-data]
     (page/xhtml
         (render-html-header)
         [:body

                    [:tr [:td "Changed files:"]
                         [:td (:files_changed statistic)]]
                ]
                [:br][:br][:br][:br]
                (render-html-footer)
            ] ; </div class="container">

(require '[hiccup.core         :as hiccup])
(require '[hiccup.page         :as page])
(require '[hiccup.form         :as form])
(require '[clj-flotr.generator :as flotr])

(require '[arachnida.config    :as config])

