Generate infinite date sequences

date-sequence.clj

(ns warfox.date
  (:import [java.time LocalDate]
           [java.time.temporal ChronoUnit]))

(defn date-seq
  "Returns lazy sequence of dates starting from `start`"
  [^LocalDate start]
  (lazy-seq
    (cons start
          (date-seq (.plusDays start 1)))))

(defn days-between
  "Returns the number of days between `start` and `end`"
  [^LocalDate start ^LocalDate end]
  (.until start end ChronoUnit/DAYS))

(defn date-sequence
  "Returns a dates between `start` and `end` date"
  [^LocalDate start ^LocalDate end]
  (let [days-between (days-between start end)]
    (take days-between (date-seq start))))