stop-on-nothing-to-do
%current-agenda-prompt
- start-agenda agenda-run-once!))
+ run-agenda agenda-run-once!))
\f
;;; Agenda definition
(= 0 (hash-count (const #t) (agenda-write-port-map agenda)))))
-(define* (start-agenda agenda
- #:key (stop-condition stop-on-nothing-to-do)
- ;; For live hacking madness, etc
- (post-run-hook #f))
+(define* (run-agenda agenda
+ #:key (stop-condition stop-on-nothing-to-do)
+ ;; For live hacking madness, etc
+ (post-run-hook #f))
;; TODO: Document fields
"Start up the AGENDA"
(install-suspendable-ports!)