 (defn to-millis [trello-date]
   (.getTime (.parse  (java.text.SimpleDateFormat. "yyyy-MM-dd'T'HH:mm:ss.SSS") (remove-from-end trello-date "Z")))
   )
+
+(defn week-of-year-from-date
+  [date]
+	(let [cal (Calendar/getInstance)]
+		(.setTime cal date)
+		(.get cal Calendar/WEEK_OF_YEAR)))
+
+
+(defn week-of-year-from-trello [card]
+  (week-of-year-from-date(to-date (:date card ))))
 
 
 






(def json-map (file-to-map "/Users/taylor/Desktop/cd.json"))
(def movements (card-movement json-map))

(def taylor-movements (filter (fn[c] (= (:fullName (:memberCreator c)) "taylor")) movements))
(def dates (reverse(map (fn[c] (to-millis (:date c))) taylor-movements)))

(def y (flatten(repeat  (count dates) '(0 1 0))))
 (comment

              seq-of-times)
  )











