summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-03 14:30:56 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-03 14:30:56 -0400
commitd2b939f68eb8600012f6a85cd2c72c46b0bcdf11 (patch)
tree240a3ca334d371d0208aabc6affbacaa3c9d4df8
parent7572190709a6dfad9a641ad35b7e98bbdbb5bc03 (diff)
downloademacsconf-el-d2b939f68eb8600012f6a85cd2c72c46b0bcdf11.tar.xz
emacsconf-el-d2b939f68eb8600012f6a85cd2c72c46b0bcdf11.zip
Add chat URL
-rw-r--r--emacsconf-publish.el7
1 files changed, 6 insertions, 1 deletions
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)))