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

format task headers

This commit is contained in:
ndwarshuis 2019-04-10 00:33:24 -04:00
parent b3a3b0c765
commit ec0249cd43
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
conf.org
View File

@ -2256,15 +2256,18 @@ 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 ((prefix (cl-case (org-x-task-status) (let* ((status (org-x-task-status))
(:undone-closed "0. Undone Closed") (priority (alist-get status nd/org-x-task-status-priorities))
(:done-unclosed "0. Done Closed") (is-atomic (org-x-is-atomic-task-p)))
(:actv "1. Active") (if (< priority 0) "99. Other"
(:inrt "2. Inert") (--> status
(t "3. Other"))) (symbol-name it)
(sufix (if (org-x-is-atomic-task-p) (substring it 1)
" 2-(α)" " 1-(σ)"))) (s-replace "-" " " it)
(concat prefix sufix)))))))))) (s-titleize it)
(concat "%s.%s " it)
(format it priority (if is-atomic 1 0))
(concat it (if is-atomic " (α)" " (σ)")))))))))))))
("p" ("p"
"Project View" "Project View"