               seq-of-times)
   )
 
-(defn create-blank-buckets [list-of-milli-sec-data bucket-size]
-  (let
-    [min (last seq-of-times)
-     max (first seq-of-times)
-     list list-of-milli-sec-data
-     results {}
-     ]
-    (if (empty? list) results
-      (recur min max (rest list) )
-    )
-  )
-  )
-
-
- (bucketize dates 100000000)
+
+
+
+
+
+
+
+
+
+






(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

(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 ))))



