ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH use inert projects/tasks only where appropriate

This commit is contained in:
Nathan Dwarshuis 2020-06-21 10:05:11 -04:00
parent e5aa53e074
commit 21452281c7
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
etc/conf.org
View File

@ -2555,10 +2555,13 @@ original org entry before executing BODY."
(org-super-agenda-groups (org-super-agenda-groups
`((:auto-map `((:auto-map
,(nd/org-x-mk-super-agenda-pred ,(nd/org-x-mk-super-agenda-pred
(let* ((status (org-x-task-status)) (let* ((is-atomic (org-x-is-atomic-task-p))
(priority (alist-get status nd/org-x-task-status-priorities)) ;; lump inert and active non-atomic tasks together
(is-atomic (org-x-is-atomic-task-p))) (status (--> (org-x-task-status)
(if (< priority 0) "99. Other" (if (and (not is-atomic) (eq it :inert))
:active it)))
(priority (alist-get status nd/org-x-task-status-priorities)))
(unless (< priority 0)
(--> status (--> status
(symbol-name it) (symbol-name it)
(substring it 1) (substring it 1)
@ -2566,7 +2569,8 @@ original org entry before executing BODY."
(s-titleize it) (s-titleize it)
(concat "%s.%s " it) (concat "%s.%s " it)
(format it priority (if is-atomic 1 0)) (format it priority (if is-atomic 1 0))
(concat it (if is-atomic " (α)" " (σ)"))))))))))))) (concat it (if is-atomic " (α)" " (σ)")))))))
(:discard (:anything t))))))))
("p" ("p"
"Project View" "Project View"
@ -2575,7 +2579,11 @@ original org entry before executing BODY."
((org-agenda-overriding-header "Projects") ((org-agenda-overriding-header "Projects")
(org-agenda-skip-function (org-agenda-skip-function
,(nd/org-x-mk-skip-function ,(nd/org-x-mk-skip-function
(unless (org-x-is-project-p) (org-x-skip-heading)))) (cond ((or (org-x-is-iterator-heading-p)
(org-x-is-periodical-heading-p))
(org-x-skip-subtree))
((not (org-x-is-project-p))
(org-x-skip-heading)))))
(org-agenda-sorting-strategy '(category-keep)) (org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups (org-super-agenda-groups
`((:auto-map `((:auto-map
@ -2583,8 +2591,12 @@ original org entry before executing BODY."
;; TODO this ain't DRY ;; TODO this ain't DRY
(let* ((status (org-x-get-project-status)) (let* ((status (org-x-get-project-status))
(priority (alist-get status nd/org-x-project-status-priorities)) (priority (alist-get status nd/org-x-project-status-priorities))
(is-subproject (org-x-headline-has-parent 'org-x-is-todoitem-p))) (is-subproject (org-x-headline-has-parent 'org-x-is-todoitem-p))
(unless (< priority 0) ;; skip anything that is in a CANC or HOLD project
(is-masked (when is-subproject
(or (org-x-is-todo-child "CANC")
(org-x-is-todo-child "HOLD")))))
(unless (or is-masked (< priority 0))
(--> status (--> status
(symbol-name it) (symbol-name it)
(substring it 1) (substring it 1)