Get the last weeks in Clojure.

anonymous-gist.clj

(defn get-weeks [n]
  "Returns a vector of dictionaries containing the start and end days of the last n weeks"
  (let [now (t/today-at-midnight)
        this-day-num (Integer. (f/unparse (f/formatter "e") now))
        last-monday (t/minus now (t/days (dec this-day-num)))
        span-fn (fn [v w]
                  (let [monday (t/minus last-monday (t/weeks w))
                        sunday (t/plus monday (t/days 7))
                        week (Integer. (f/unparse (f/formatter "w") monday))]
                    (conj v {:week week
                             :monday monday
                             :sunday sunday})))]
    (reduce span-fn [] (range n))))