diff options
| -rw-r--r-- | 2d/agenda.scm | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/2d/agenda.scm b/2d/agenda.scm index ca23dac..6e9f61d 100644 --- a/2d/agenda.scm +++ b/2d/agenda.scm @@ -28,6 +28,7 @@ #:export (make-agenda with-agenda agenda-schedule + agenda-schedule-interval update-agenda clear-agenda)) @@ -170,9 +171,21 @@ in the list" (set-agenda-segments! agenda '())) (define* (agenda-schedule thunk #:optional (delay 1)) - "Schedules thunk in the current agenda." + "Schedules THUNK in the current agenda to run after DELAY +updates (1 by default)." (%agenda-schedule *current-agenda* thunk delay)) +(define* (agenda-schedule-interval thunk #:optional (interval 1) (delay 1)) + "Schedules THUNK in the current agenda to run after DELAY updates +and run every INTERVAL updates thereafter. Both DELAY and INTERVAL +default to 1. Simply pass THUNK and nothing else to schedule THUNK to +be run upon every update." + (%agenda-schedule *current-agenda* + (lambda () + (thunk) + (agenda-schedule-interval thunk interval interval)) + delay)) + (define (update-agenda) "Updates the current agenda." (%update-agenda *current-agenda*)) |