diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:23:03 -0500 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-12-05 14:23:03 -0500 |
| commit | 44a17758585c7bbf39365ac09460b097b5d633e1 (patch) | |
| tree | 3749020a09d37ae2d923152dcd8a13a9ac39eead | |
| parent | 3eddc74f304938bba8a3077693377a94a814ff89 (diff) | |
| download | emacsconf-el-44a17758585c7bbf39365ac09460b097b5d633e1.tar.xz emacsconf-el-44a17758585c7bbf39365ac09460b097b5d633e1.zip | |
hyperlist for Q&A after
| -rw-r--r-- | emacsconf-hyperlist.el | 12 |
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))))) |