summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSacha Chua <sacha@sachachua.com>2022-11-03 14:54:52 -0400
committerSacha Chua <sacha@sachachua.com>2022-11-03 14:54:52 -0400
commitd1844954496b522f6a32643b6aa148cd3e5ba51a (patch)
treef3965754f3f7f66afe77a7c042ab7c2aa60dad75
parentd2b939f68eb8600012f6a85cd2c72c46b0bcdf11 (diff)
downloademacsconf-el-d1844954496b522f6a32643b6aa148cd3e5ba51a.tar.xz
emacsconf-el-d1844954496b522f6a32643b6aa148cd3e5ba51a.zip
Add emacsconf-agenda and emacsconf-track-agenda
-rw-r--r--emacsconf.el11
1 files changed, 11 insertions, 0 deletions
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