summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-20 15:21:43 -0500
committerSacha Chua <sacha@sachachua.com>2022-11-20 15:21:43 -0500
commitbe5a1a32dd0ddccbbe13340b0936b59f303a2b71 (patch)
tree46cb881c8122df24c8fd5058cbc547cbfccee00a
parent8bc9980a9d30b14ac2c958eb1720d6dc04f3d8bb (diff)
downloademacsconf-el-be5a1a32dd0ddccbbe13340b0936b59f303a2b71.tar.xz
emacsconf-el-be5a1a32dd0ddccbbe13340b0936b59f303a2b71.zip
schedule
Diffstat (limited to '')
-rw-r--r--emacsconf-publish.el2
-rw-r--r--emacsconf.el9
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)