From be5a1a32dd0ddccbbe13340b0936b59f303a2b71 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Sun, 20 Nov 2022 15:21:43 -0500 Subject: schedule --- emacsconf-publish.el | 2 +- emacsconf.el | 9 +++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/emacsconf-publish.el b/emacsconf-publish.el index 2e3bbb8..c29d245 100644 --- a/emacsconf-publish.el +++ b/emacsconf-publish.el @@ -1690,7 +1690,7 @@ ${title-info} (plist-put track :webchat (concat emacsconf-chat-base "?join=" (plist-get track :webchat-channels))) (plist-put track :channel (concat "#emacsconf-" (plist-get track :id)))) emacsconf-tracks) - (let* ((info (sort (emacsconf-get-talk-info) #'emacsconf-sort-by-scheduled)) + (let* ((info (emacsconf-prepare-for-display (emacsconf-get-talk-info))) (emacsconf-publishing-phase 'schedule) (emacsconf-use-absolute-url t)) (when emacsconf-directory diff --git a/emacsconf.el b/emacsconf.el index cdf3865..a67abc6 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -565,10 +565,11 @@ (time-subtract (plist-get o :start-time) (seconds-to-time 3600)))) (plist-put o :checkin-label "30 minutes before the scheduled start of your Q&A, since you have a pre-recorded video") - (plist-put o :checkin-time - (time-subtract (time-add (plist-get o :start-time) - (seconds-to-time (* 60 (string-to-number (plist-get o :video-time))))) - (seconds-to-time (/ 3600 2)))))) + (when (plist-get o :video-time) + (plist-put o :checkin-time + (time-subtract (time-add (plist-get o :start-time) + (seconds-to-time (* 60 (string-to-number (plist-get o :video-time))))) + (seconds-to-time (/ 3600 2))))))) o) (defun emacsconf-add-live-info (o) -- cgit v1.2.3