From f0d83616a78458d1ca23b2bdf0e2773ab1ff4e5a Mon Sep 17 00:00:00 2001 From: Raul Benencia Date: Fri, 3 Feb 2023 08:23:14 -0800 Subject: emacs: add project and tasks view --- .emacs.local.d/modes/org.el | 54 ++++++++++++++++++++++++++++++++++++--------- 1 file changed, 44 insertions(+), 10 deletions(-) (limited to '.emacs.local.d/modes') diff --git a/.emacs.local.d/modes/org.el b/.emacs.local.d/modes/org.el index 0a3910e..627b038 100644 --- a/.emacs.local.d/modes/org.el +++ b/.emacs.local.d/modes/org.el @@ -107,7 +107,49 @@ ;; Based on Prot's config: ;; https://protesilaos.com/codelog/2021-12-09-emacs-org-block-agenda/ (setq my-org-agenda-custom-commands - `(("A" "Daily agenda and top priority tasks" + `(("P" "Projects and tasks" + ( + (tags-todo "-HOLD-CANCELLED/!" + ((org-agenda-overriding-header "\n🟢 Projects") + (org-agenda-skip-function 'bh/skip-non-projects) + (org-agenda-block-separator nil) + (org-tags-match-list-sublevels 'indented) + (org-agenda-sorting-strategy + '(category-keep)))) + + (tags-todo "-CANCELLED/!NEXT" + ((org-agenda-overriding-header (concat "\n⚡Project Next Tasks\n" + (if bh/hide-scheduled-and-waiting-next-tasks + "" + " (including WAITING and SCHEDULED tasks)"))) + (org-agenda-skip-function 'bh/skip-projects-and-habits-and-single-tasks) + (org-tags-match-list-sublevels t) + (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) + (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks) + (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks) + (org-agenda-block-separator nil) + (org-agenda-sorting-strategy + '(todo-state-down effort-up category-keep)))) + + (tags-todo "-HOLD-CANCELLED/!" + ((org-agenda-overriding-header "\n🚫 Stuck Projects\n") + (org-agenda-skip-function 'bh/skip-non-stuck-projects) + (org-agenda-block-separator nil) + (org-agenda-sorting-strategy + '(category-keep)))) + (tags-todo "-REFILE-CANCELLED-WAITING-HOLD/!" + ((org-agenda-overriding-header (concat "\n⚡Standalone Tasks\n" + (if bh/hide-scheduled-and-waiting-next-tasks + "" + " (including WAITING and SCHEDULED tasks)"))) + (org-agenda-skip-function 'bh/skip-project-tasks) + (org-agenda-todo-ignore-scheduled bh/hide-scheduled-and-waiting-next-tasks) + (org-agenda-todo-ignore-deadlines bh/hide-scheduled-and-waiting-next-tasks) + (org-agenda-todo-ignore-with-date bh/hide-scheduled-and-waiting-next-tasks) + (org-agenda-sorting-strategy + '(category-keep)))) + )) + ("A" "Daily agenda and top priority tasks" ( (tags-todo "*" ( @@ -179,20 +221,12 @@ (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) )) - (tags-todo "-CANCELLED/!" + (tags-todo "-HOLD-CANCELLED/!" ((org-agenda-overriding-header "\n🚫 Stuck Projects\n") (org-agenda-skip-function 'bh/skip-non-stuck-projects) (org-agenda-block-separator nil) (org-agenda-sorting-strategy '(category-keep)))) - - (tags-todo "-HOLD-CANCELLED/!" - ((org-agenda-overriding-header "\n🟢 Projects") - (org-agenda-skip-function 'bh/skip-non-projects) - (org-agenda-block-separator nil) - (org-tags-match-list-sublevels 'indented) - (org-agenda-sorting-strategy - '(category-keep)))) )) )) -- cgit v1.2.3