summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-12-05 14:23:03 -0500
committerSacha Chua <sacha@sachachua.com>2022-12-05 14:23:03 -0500
commit44a17758585c7bbf39365ac09460b097b5d633e1 (patch)
tree3749020a09d37ae2d923152dcd8a13a9ac39eead
parent3eddc74f304938bba8a3077693377a94a814ff89 (diff)
downloademacsconf-el-44a17758585c7bbf39365ac09460b097b5d633e1.tar.xz
emacsconf-el-44a17758585c7bbf39365ac09460b097b5d633e1.zip
hyperlist for Q&A after
-rw-r--r--emacsconf-hyperlist.el12
1 files changed, 7 insertions, 5 deletions
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)))))