diff --git a/conf.org b/conf.org index 9664f4a..a999058 100644 --- a/conf.org +++ b/conf.org @@ -2256,15 +2256,18 @@ original org entry before executing BODY." (org-super-agenda-groups `((:auto-map ,(nd/org-x-mk-super-agenda-pred - (let ((prefix (cl-case (org-x-task-status) - (:undone-closed "0. Undone Closed") - (:done-unclosed "0. Done Closed") - (:actv "1. Active") - (:inrt "2. Inert") - (t "3. Other"))) - (sufix (if (org-x-is-atomic-task-p) - " 2-(α)" " 1-(σ)"))) - (concat prefix sufix)))))))))) + (let* ((status (org-x-task-status)) + (priority (alist-get status nd/org-x-task-status-priorities)) + (is-atomic (org-x-is-atomic-task-p))) + (if (< priority 0) "99. Other" + (--> status + (symbol-name it) + (substring it 1) + (s-replace "-" " " it) + (s-titleize it) + (concat "%s.%s " it) + (format it priority (if is-atomic 1 0)) + (concat it (if is-atomic " (α)" " (σ)"))))))))))))) ("p" "Project View"