From bcf210fdfafdd07cea5838764f759c1eb664d0a0 Mon Sep 17 00:00:00 2001 From: petrucci4prez Date: Wed, 27 Jun 2018 21:12:46 -0400 Subject: [PATCH] added toplevel override --- conf.org | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/conf.org b/conf.org index 05a3a11..ec383bc 100644 --- a/conf.org +++ b/conf.org @@ -1196,12 +1196,13 @@ Projects are handled quite simply. They have statuscodes for which I test, and this can all be handled by one function. Note that this is used for "normal" projects as well as iterators #+BEGIN_SRC emacs-lisp -(defun nd/skip-non-projects () +(defun nd/skip-non-projects (&optional ignore-toplevel) (save-restriction (widen) (let ((keyword (nd/is-project-p))) (if keyword (if (and nd/agenda-limit-project-toplevel + (not ignore-toplevel) (nd/heading-has-parent 'nd/is-todoitem-p)) (nd/skip-subtree)) (nd/skip-heading))))) @@ -1448,8 +1449,7 @@ set as a text property for further sorting" (tags-todo ,(concat actionable "-" periodical "-" iterator) ((org-agenda-overriding-header - (concat (and - nd/agenda-limit-project-toplevel "Toplevel ") + (concat (and nd/agenda-limit-project-toplevel "Toplevel ") "Archivable Projects")) (org-agenda-skip-function '(nd/skip-non-projects)) (org-agenda-before-sorting-filter-function