Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el

2 files changed, 17 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)))
 
diff --git a/emacsconf.el b/emacsconf.el
index 6b6b4b1..ada1515 100644
--- a/emacsconf.el
+++ b/emacsconf.el
@@ -1136,5 +1136,16 @@ Filter by TRACK if given.  Use INFO as the list of talks."
     (erc-cmd-BROADCAST message))
   (emacsconf-stream-broadcast message))
 
+(defun emacsconf-agenda ()
+  (interactive)
+  (let ((org-agenda-files (list emacsconf-org-file)))
+    (org-agenda-list nil emacsconf-date 2)))
+
+(defun emacsconf-track-agenda (track)
+  (interactive (list (emacsconf-complete-track)))
+  (let ((org-agenda-files (list emacsconf-org-file))
+        (org-agenda-category-filter-preset (list (concat "+" (plist-get track :id)))))
+    (org-agenda-list nil emacsconf-date 2)))
+
 (provide 'emacsconf)
 ;;; emacsconf.el ends here