 (defn easter-monday? [dt]
   (easter-sunday? (.minusDays dt 1)))
 
-(defn drop-past [now]
+(defn past? [now]
   (fn [d] (.isBefore d now)))
 
 (defn easter-sundays
-  "Copyright © 2016 Eivind Waaler. EPL v1.0. Given a
-  java.time.LocalDate (defaults to now), return a sequence of Easter
-  Sundays as LocalData instances. From
-  https://github.com/eivindw/clj-easter-day, using Spencer Jones
-  formula."
+  "Given a java.time.LocalDate (defaults to now), return a sequence of Easter
+  Sundays as LocalData instances. "
   ([^LocalDate from-local-date]
    (let [year (.getYear from-local-date)]
-     (drop-while (drop-past from-local-date)
+     (drop-while (past? from-local-date)
                  (for [year (range year 2200)]
                    (let [[month day] (easter-sunday-by-year year)]
                      (LocalDate/of year month day))))))

    [n (+ p 1)]))

(defn easter-sunday? [dt]
  "Copyright © 2016 Eivind Waaler. EPL v1.0. Given a ZoneId, return a
  predicate that tests if the instant falls on an Easter Sunday. From
  https://github.com/eivindw/clj-easter-day, using Spencer Jones
  formula."
  (let [year (.getYear dt)
        month (.getMonthValue dt)]
    (and


  (timeline [_]
    (:timeline @state))
  (clock [_]
    (:clock @state)))

(defn schedule
