Date range

date-range.clj

(import '[goog.date Date Interval])

; This one goes from today up to but not including the end-date
(defn date-range-from-today [end-date]
  (let [day-range (Interval. 0 0 1)]
    (loop [i (Date.) v (transient [])]
      (if (not (.equals end-date i))
        (do
          (let [x (doto (.clone i) (.add day-range))]
            (recur x (conj! v x))))
        (persistent! v)))))

; This one goes from tomorrow up to and including the end-date
(defn date-range-from-today' [end-date]
  (let [day-range (Interval. 0 0 1)]
    (loop [i (Date.) v (transient [])]
      (if (not (.equals end-date i))
        (do
          (let [x (doto (.clone i) (.add day-range))]
            (recur x (conj! v i))))
        (persistent! v)))))