summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2020-09-21 22:19:00 +0200
committerfpi2022-03-17 14:44:36 +0100
commitaff02836d1cad271c666985db191b5fe5238dd14 (patch)
tree940d57198b8c35c37be69e762e6c31d891569779
parentFix agenda view of all projects (diff)
Add agenda view to show all non-project tasks
-rw-r--r--emacs-init.org15
1 files changed, 12 insertions, 3 deletions
diff --git a/emacs-init.org b/emacs-init.org
index c209501..767ef7e 100644
--- a/emacs-init.org
+++ b/emacs-init.org
@@ -3656,9 +3656,9 @@ Simple day agenda with =INPROGRESS= tasks
(when (not (member "HOT" (my-org-current-tags (fpi/org-project-depth 10))))
(or (outline-next-heading)
(goto-char (point-max)))))
-(defun fpi/org-agenda-skip-all-not-project ()
- "Skip all not hot entries."
- (when (not (member "HOT" (my-org-current-tags 1)))
+(defun fpi/org-agenda-skip-all-project-tasks ()
+ "Skip all entries which belong to a project."
+ (when (fpi/is-part-of-project-p 10)
(or (outline-next-heading)
(goto-char (point-max)))))
(defun my-org-current-tags (depth)
@@ -3693,6 +3693,9 @@ Simple day agenda with =INPROGRESS= tasks
(when (fpi/is-not-done-project-p)
(setq top (point)))))
(goto-char top))))
+(defun fpi/is-part-of-project-p (depth)
+ "Return t if any parent heading is a project."
+ (< 0 (fpi/org-project-depth depth)))
(defun fpi/parent-is-not-done-project-p ()
"Return t if parent heading is a not done project."
(save-excursion
@@ -3732,6 +3735,12 @@ To narrow the agenda to the currently selected project this function from [[http
((org-agenda-overriding-header "Non-Hot Projects")))
))
#+end_src
+Some tasks do not go into projects. Let's list only those.
+#+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands
+("g" "Non-Project (general) Tasks" tags "TODO={NEXT\\|INPROGRESS\\|REVIEW\\|WAITING}"
+ ((org-agenda-overriding-header "Non-Project Tasks")
+ (org-agenda-skip-function (function fpi/org-agenda-skip-all-project-tasks))))
+#+end_src
*******
#+begin_src emacs-lisp :tangle no :noweb-ref org-agenda-custom-commands
("n" "Project Next Actions" alltodo ""