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

added nested format to projects

This commit is contained in:
ndwarshuis 2019-04-10 22:48:05 -04:00
parent 760038ddf1
commit 6f611182a2
1 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
conf.org
View File

@ -2231,6 +2231,19 @@ original org entry before executing BODY."
(:active . 1) (:active . 1)
(:inert . 2))) (:inert . 2)))
(defconst nd/org-x-project-status-priorities
'((:archivable . -1)
(:complete . -1)
(:scheduled-project . 0)
(:invalid-todostate . 0)
(:undone-complete . 0)
(:done-incomplete . 0)
(:stuck . 0)
(:wait . 1)
(:held . 2)
(:active . 3)
(:inert . 4)))
(setq (setq
org-agenda-custom-commands org-agenda-custom-commands
`(("a" `(("a"
@ -2292,28 +2305,24 @@ original org entry before executing BODY."
(concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Projects")) (concat (and org-x-agenda-limit-project-toplevel "Toplevel ") "Projects"))
(org-agenda-skip-function (org-agenda-skip-function
,(nd/org-x-mk-skip-function ,(nd/org-x-mk-skip-function
(let ((keyword (org-x-is-project-p))) (unless (org-x-is-project-p) (org-x-skip-heading))))
(cond
((not keyword)
(org-x-skip-heading))
((and org-x-agenda-limit-project-toplevel
(org-x-headline-has-parent 'org-x-is-todoitem-p))
(org-x-skip-subtree))))))
(org-agenda-sorting-strategy '(category-keep)) (org-agenda-sorting-strategy '(category-keep))
(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
(cl-case (org-x-get-project-status) ;; TODO this ain't DRY
(:scheduled-project "0. Scheduled Project") (let* ((status (org-x-get-project-status))
(:invalid-todostate "0. Invalid TODO State") (priority (alist-get status nd/org-x-project-status-priorities))
(:undone-complete "0. Undone Complete") (is-toplevel (org-x-headline-has-parent 'org-x-is-todoitem-p)))
(:done-incomplete "0. Done Incomplete") (if (< priority 0) "99. Other"
(:stuck "0. Stuck") (--> status
(:wait "1. Wait") (symbol-name it)
(:held "2. Held") (substring it 1)
(:active "3. Active") (s-replace "-" " " it)
(:inert "4. Inert") (s-titleize it)
(t "5. Other")))))))))) (concat "%s.%s " it)
(format it (if is-toplevel 1 0) priority)
(concat it (if is-toplevel " (τ)" " (σ)")))))))))))))
("i" ("i"
"Incubator View" "Incubator View"