From d2b939f68eb8600012f6a85cd2c72c46b0bcdf11 Mon Sep 17 00:00:00 2001
From: Sacha Chua <sacha@sachachua.com>
Date: Thu, 3 Nov 2022 14:30:56 -0400
Subject: Add chat URL

---
 emacsconf-publish.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'emacsconf-publish.el')

diff --git a/emacsconf-publish.el b/emacsconf-publish.el
index a1b65e7..6dcf3f4 100644
--- a/emacsconf-publish.el
+++ b/emacsconf-publish.el
@@ -180,11 +180,16 @@
                                 (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open pad</a>" (plist-get o :pad-url))
                               "")
                      "</td>"
+                     "<td>" (format "<a href=\"%s\" target=\"_blank\" rel=\"noreferrer\">Open chat</a>" (plist-get o :webchat-url))
+                     ""
+                     "</td>"
                      "<td>" (format-time-string "%-l:%M" (plist-get o :start-time) emacsconf-timezone) "</td>"
                      "<td>" (or (plist-get o :slug) "") "</td>"
                      "<td>" (or (plist-get o :title) "") "</td>"
                      "</tr>"))
-                  info "\n")
+                  (seq-filter (lambda (talk) (string= (plist-get talk :track)
+                                                      (plist-get track :name))) info)
+                  "\n")
                  "</table></body></html>"))))
           emacsconf-tracks)))
 
-- 
cgit v1.2.3