FIX show projects with errors
This commit is contained in:
parent
d1057f0070
commit
e920462c59
|
@ -2567,7 +2567,7 @@ original org entry before executing BODY."
|
||||||
("p"
|
("p"
|
||||||
"Project View"
|
"Project View"
|
||||||
((tags-todo
|
((tags-todo
|
||||||
"-NA-REFILE-%inc/!"
|
"-NA-REFILE-%inc"
|
||||||
((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
|
||||||
|
@ -2580,7 +2580,7 @@ original org entry before executing BODY."
|
||||||
(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)))
|
||||||
(if (< priority 0) "99. Other"
|
(unless (< priority 0)
|
||||||
(--> status
|
(--> status
|
||||||
(symbol-name it)
|
(symbol-name it)
|
||||||
(substring it 1)
|
(substring it 1)
|
||||||
|
@ -2588,7 +2588,8 @@ original org entry before executing BODY."
|
||||||
(s-titleize it)
|
(s-titleize it)
|
||||||
(concat "%s.%s " it)
|
(concat "%s.%s " it)
|
||||||
(format it (if is-subproject 1 0) priority)
|
(format it (if is-subproject 1 0) priority)
|
||||||
(concat it (if is-subproject " (σ)" " (τ)")))))))))))))
|
(concat it (if is-subproject " (σ)" " (τ)")))))))
|
||||||
|
(:discard (:anything t))))))))
|
||||||
|
|
||||||
("i"
|
("i"
|
||||||
"Incubator View"
|
"Incubator View"
|
||||||
|
|
Loading…
Reference in New Issue