From 44a17758585c7bbf39365ac09460b097b5d633e1 Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Mon, 5 Dec 2022 14:23:03 -0500 Subject: hyperlist for Q&A after --- emacsconf-hyperlist.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'emacsconf-hyperlist.el') diff --git a/emacsconf-hyperlist.el b/emacsconf-hyperlist.el index b60d243..df1ed02 100644 --- a/emacsconf-hyperlist.el +++ b/emacsconf-hyperlist.el @@ -177,11 +177,13 @@ (mapcar (lambda (talk) (if (plist-get talk :video-file) - (list - (cons (plist-get talk :start-time) - (emacsconf-hyperlist-format-talk-streamer talk)) - (cons (plist-get talk :qa-time) - (emacsconf-hyperlist-format-qa-streamer talk))) + (delq nil + (list + (cons (plist-get talk :start-time) + (emacsconf-hyperlist-format-talk-streamer talk)) + (unless (string-match "none\\|after" (or (plist-get talk :q-and-a) "none")) + (cons (plist-get talk :qa-time) + (emacsconf-hyperlist-format-qa-streamer talk))))) (list (cons (plist-get talk :start-time) (emacsconf-hyperlist-format-talk-streamer talk))))) -- cgit v1.2.3