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

FIX show projects with errors

This commit is contained in:
Nathan Dwarshuis 2020-06-04 18:24:41 -04:00
parent d1057f0070
commit e920462c59
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
etc/conf.org
View File

@ -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"