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 /emacsconf.el | |
parent | 8bc9980a9d30b14ac2c958eb1720d6dc04f3d8bb (diff) | |
download | emacsconf-el-be5a1a32dd0ddccbbe13340b0936b59f303a2b71.tar.xz emacsconf-el-be5a1a32dd0ddccbbe13340b0936b59f303a2b71.zip |
schedule
Diffstat (limited to 'emacsconf.el')
-rw-r--r-- | emacsconf.el | 9 |
1 files changed, 5 insertions, 4 deletions
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) |