diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-20 15:21:43 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-20 15:21:43 -0500 |
| commit | be5a1a32dd0ddccbbe13340b0936b59f303a2b71 (patch) | |
| tree | 46cb881c8122df24c8fd5058cbc547cbfccee00a | |
| parent | 8bc9980a9d30b14ac2c958eb1720d6dc04f3d8bb (diff) | |
| download | emacsconf-el-be5a1a32dd0ddccbbe13340b0936b59f303a2b71.tar.xz emacsconf-el-be5a1a32dd0ddccbbe13340b0936b59f303a2b71.zip | |
schedule
| -rw-r--r-- | emacsconf-publish.el | 2 | ||||
| -rw-r--r-- | 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) |