 (def height 400)
 
 (defn- compute-date [week day]
-  (let [dow (- 7 (ct/day-of-week (ct/now)))]
-    (-> (ct/ago (ct/weeks (- 52 week)))
-        (ct/minus (ct/days (-  (- 6 day) dow))))))
+  (let [dow (- 7 (t/day-of-week (t/now)))]
+    (-> (t/ago (t/weeks (- 52 week)))
+        (t/minus (t/days (-  (- 6 day) dow))))))
 
 (defn- cal-grid []
   (let [weeks 53

                                      (attr "height" #(.-edge %))
                                      (attr "fill" "#fff")
                                      (attr "stroke" (fn [d]
                                                       (when (ct/within?
                                                               (ct/ago
                                                                 (ct/years 1))
                                                               (ct/now)
                                                               (.-date d))
                                                         "#ddd")))
                                      (on "mouseover"

            [re-frame.core :as re-frame]
            [client.components.activity.handlers]
            [client.components.activity.subs]
            [cljs-time.core :as t]
            [cljs-time.coerce :as ct]
            [cljs-time.periodic :refer [periodic-seq]]
            [common.util :refer [log js-log]]))

