summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
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)