From 166ca83fa5d9772ae4fc69eb9e6547059a9f4888 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 27 Nov 2025 14:39:56 -0500 Subject: test mode --- emacsconf-stream.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/emacsconf-stream.el b/emacsconf-stream.el index 6641392..3cae93a 100644 --- a/emacsconf-stream.el +++ b/emacsconf-stream.el @@ -1210,10 +1210,13 @@ XDG_RUNTIME_DIR=\"/run/user/%d\" (defun emacsconf-stream-crontabs (&optional test-mode info) "Write the streaming users' crontab files. If TEST-MODE is non-nil, use the videos in the test directory. +If TEST-MODE is a date, use that as the starting date. If INFO is non-nil, use that as the schedule instead." - (interactive) + (interactive (list (when current-prefix-arg (org-read-date t t nil "Start time: ")))) (let ((emacsconf-publishing-phase 'conference)) - (setq info (or info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (setq info (or info (emacsconf-publish-prepare-for-display (emacsconf-get-talk-info)))) + (when (and test-mode (listp test-mode)) + (setq info (emacsconf-schedule-prepare-test-schedule test-mode info))) (dolist (track emacsconf-tracks) (let ((talks (seq-filter (lambda (talk) (string= (plist-get talk :track) -- cgit v1.2.3