From c5a4eab85deb982ff850d70c599bf4c3b7415fcf Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 5 Dec 2022 14:23:16 -0500 Subject: fix notifications? --- emacsconf.el | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) (limited to 'emacsconf.el') 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) -- cgit v1.2.3