diff options
| author | Sacha Chua <sacha@sachachua.com> | 2022-11-03 14:54:52 -0400 |
|---|---|---|
| committer | Sacha Chua <sacha@sachachua.com> | 2022-11-03 14:54:52 -0400 |
| commit | d1844954496b522f6a32643b6aa148cd3e5ba51a (patch) | |
| tree | f3965754f3f7f66afe77a7c042ab7c2aa60dad75 | |
| parent | d2b939f68eb8600012f6a85cd2c72c46b0bcdf11 (diff) | |
| download | emacsconf-el-d1844954496b522f6a32643b6aa148cd3e5ba51a.tar.xz emacsconf-el-d1844954496b522f6a32643b6aa148cd3e5ba51a.zip | |
Add emacsconf-agenda and emacsconf-track-agenda
| -rw-r--r-- | emacsconf.el | 11 |
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 |