summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEmacsConf <emacsconf-org@gnu.org>2022-11-03 11:59:21 -0700
committerEmacsConf <emacsconf-org@gnu.org>2022-11-03 11:59:21 -0700
commit51b69e924e9f92e8baaddec7a9dab5b23bdba345 (patch)
tree8e935aea27fa581c3b0d47ddc425f4a56f098a01
parent99df03c875faf14d96800fdf705379ae06b2fcb9 (diff)
parentd1844954496b522f6a32643b6aa148cd3e5ba51a (diff)
downloademacsconf-el-51b69e924e9f92e8baaddec7a9dab5b23bdba345.tar.xz
emacsconf-el-51b69e924e9f92e8baaddec7a9dab5b23bdba345.zip
Merge branch 'main' of git.emacsconf.org:pub/emacsconf-el
Diffstat (limited to '')
-rw-r--r--emacsconf-publish.el7
-rw-r--r--emacsconf.el11
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