diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:23:16 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:23:16 -0500 |
| commit | c5a4eab85deb982ff850d70c599bf4c3b7415fcf (patch) | |
| tree | de102bb4f5a72e4e31a97c3111b1b3f2f99acc9d /emacsconf.el | |
| parent | 44a17758585c7bbf39365ac09460b097b5d633e1 (diff) | |
| download | emacsconf-el-c5a4eab85deb982ff850d70c599bf4c3b7415fcf.tar.xz emacsconf-el-c5a4eab85deb982ff850d70c599bf4c3b7415fcf.zip | |
fix notifications?
Diffstat (limited to 'emacsconf.el')
| -rw-r--r-- | emacsconf.el | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/emacsconf.el b/emacsconf.el index 6197f80..51ca4b0 100644 --- a/emacsconf.el +++ b/emacsconf.el @@ -287,15 +287,19 @@ :complete (lambda () (concat "emacsconf:" (emacsconf-complete-slug))) :export #'emacsconf-export-slug)) +(defvar emacsconf-complete-talk-cache nil) +;; (setq emacsconf-complete-talk-cache (mapcar (lambda (o) (string-join (delq nil (mapcar (lambda (f) (plist-get o f)) '(:slug :title :speakers :irc))) " - ")) (emacsconf-get-talk-info))) (defun emacsconf-complete-talk (&optional info) (let ((choices - (mapcar (lambda (o) - (string-join - (delq nil - (mapcar (lambda (f) (plist-get o f)) '(:slug :title :speakers :irc))) - " - ")) - (or info (emacsconf-get-talk-info))))) + (if (and (null info) emacsconf-complete-talk-cache) + emacsconf-complete-talk-cache + (mapcar (lambda (o) + (string-join + (delq nil + (mapcar (lambda (f) (plist-get o f)) '(:slug :title :speakers :irc))) + " - ")) + (or info (emacsconf-get-talk-info)))))) (completing-read "Talk: " (lambda (string predicate action) @@ -610,9 +614,9 @@ (* 60 (string-to-number (or (plist-get o :video-time) "0"))) (* 60 (string-to-number (or (plist-get o :intro-time) "0"))) ))) - (plist-put o :qa-time - (plist-get o :live-time)) - + (unless (string-match "none\\|after" (or (plist-get o :q-and-a) "none")) + (plist-put o :qa-time + (plist-get o :live-time))) (plist-put o :checkin-label "30 minutes before the scheduled start of your Q&A, since you have a pre-recorded video") (when (plist-get o :video-time) |