diff options
| author | Sacha Chua <sacha@sachachua.com> | 2025-11-27 14:39:56 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2025-11-27 14:40:17 -0500 |
| commit | 166ca83fa5d9772ae4fc69eb9e6547059a9f4888 (patch) | |
| tree | 3d14e414c1df9f9a8abf376d6cc18294c817f1e3 /emacsconf-stream.el | |
| parent | 21f3f00fa7c0a790703c09f2d71358048f8ebbd6 (diff) | |
| download | emacsconf-el-166ca83fa5d9772ae4fc69eb9e6547059a9f4888.tar.xz emacsconf-el-166ca83fa5d9772ae4fc69eb9e6547059a9f4888.zip | |
test mode
Diffstat (limited to 'emacsconf-stream.el')
| -rw-r--r-- | emacsconf-stream.el | 7 |
1 files 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) |