From d1844954496b522f6a32643b6aa148cd3e5ba51a Mon Sep 17 00:00:00 2001 From: Sacha Chua Date: Thu, 3 Nov 2022 14:54:52 -0400 Subject: Add emacsconf-agenda and emacsconf-track-agenda --- emacsconf.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'emacsconf.el') 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 -- cgit v1.2.3