diff options
| -rw-r--r-- | chickadee/scripting/agenda.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/chickadee/scripting/agenda.scm b/chickadee/scripting/agenda.scm index f16dc45..83cb4b7 100644 --- a/chickadee/scripting/agenda.scm +++ b/chickadee/scripting/agenda.scm @@ -26,6 +26,7 @@ agenda-time update-agenda clear-agenda + reset-agenda schedule-at schedule-after schedule-every @@ -83,6 +84,12 @@ "Remove all scheduled tasks from the current agenda." (%agenda-clear! (current-agenda))) +(define (reset-agenda) + "Remove all scheduled tasks from the current agenda and reset time +to 0." + (%agenda-clear! (current-agenda)) + (set-agenda-time! (current-agenda) 0)) + (define (update-agenda dt) "Advance the current agenda by DT." (%update-agenda (current-agenda) dt)) |