fixed toplevel project assignment

This commit is contained in:
ndwarshuis 2019-04-14 11:39:05 -04:00
parent 6908154d8f
commit 68c9b41afe
1 changed files with 3 additions and 3 deletions

View File

@ -2320,7 +2320,7 @@ 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-toplevel (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" (if (< priority 0) "99. Other"
(--> status (--> status
(symbol-name it) (symbol-name it)
@ -2328,8 +2328,8 @@ original org entry before executing BODY."
(s-replace "-" " " it) (s-replace "-" " " it)
(s-titleize it) (s-titleize it)
(concat "%s.%s " it) (concat "%s.%s " it)
(format it (if is-toplevel 0 1) priority) (format it (if is-subproject 1 0) priority)
(concat it (if is-toplevel " (τ)" " (σ)"))))))))))))) (concat it (if is-subproject " (σ)" " (τ)")))))))))))))
("i" ("i"
"Incubator View" "Incubator View"