added error handling and updated tags
This commit is contained in:
petrucci4prez
parent
40f20528c6
commit
3852c00842
338
conf.el
338
conf.el
|
|
@ -259,25 +259,31 @@
|
||||||
("HOLD" :foreground "violet" :weight bold)
|
("HOLD" :foreground "violet" :weight bold)
|
||||||
("CANCELLED" :foreground "deep sky blue" :weight bold))))
|
("CANCELLED" :foreground "deep sky blue" :weight bold))))
|
||||||
|
|
||||||
(setq org-tag-alist (quote ((:startgroup)
|
(setq org-tag-alist '((:startgroup)
|
||||||
("@errand" . ?e)
|
("@errand" . ?e)
|
||||||
("@work" . ?w)
|
("@work" . ?w)
|
||||||
("@home" . ?h)
|
("@home" . ?h)
|
||||||
("@travel" . ?f)
|
("@travel" . ?f)
|
||||||
(:endgroup)
|
(:endgroup)
|
||||||
("LAPTOP" . ?L)
|
("#laptop" . ?L)
|
||||||
("PERSONAL" . ?P)
|
("#hood" . ?H)
|
||||||
("WORK" . ?W)
|
|
||||||
("NOTE" . ?N)
|
("NOTE" . ?N)
|
||||||
("FLAGGED" . ??))))
|
("FLAGGED" . ??)))
|
||||||
|
|
||||||
;; TODO I'm sure there is a better way to do this in lisp
|
;; TODO I'm sure there is a better way to do this in lisp
|
||||||
(setq org-tag-faces
|
(setq org-tag-faces
|
||||||
'(("LAPTOP" . (:foreground "PaleGreen"))
|
'(("@errand" . (:foreground "PaleGreen"))
|
||||||
("PERSONAL" . (:foreground "PaleGreen"))
|
("@work" . (:foreground "PaleGreen"))
|
||||||
("WORK" . (:foreground "PaleGreen"))
|
("@home" . (:foreground "PaleGreen"))
|
||||||
("NOTE" . (:foreground "PaleGreen"))
|
("@travel" . (:foreground "PaleGreen"))
|
||||||
("FLAGGED" . (:foreground "PaleGreen"))))
|
("#laptop" . (:foreground "SkyBlue"))
|
||||||
|
("#hood" . (:foreground "SkyBlue"))))
|
||||||
|
|
||||||
|
;; this is basically the same as putting the properties at the top of all org files
|
||||||
|
(add-to-list 'org-default-properties "Project_Type")
|
||||||
|
(setq org-global-properties '(("Project_Type_ALL" . "series")))
|
||||||
|
;; TODO this may not be needed
|
||||||
|
(setq org-use-property-inheritance '("Project_Type"))
|
||||||
|
|
||||||
(setq org-capture-templates
|
(setq org-capture-templates
|
||||||
'(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\ndeliverable: \n%U\n")
|
'(("t" "todo" entry (file "~/Org/capture.org") "* TODO %?\ndeliverable: \n%U\n")
|
||||||
|
|
@ -317,94 +323,6 @@
|
||||||
(setq org-agenda-dim-blocked-tasks nil)
|
(setq org-agenda-dim-blocked-tasks nil)
|
||||||
(setq org-agenda-compact-blocks t)
|
(setq org-agenda-compact-blocks t)
|
||||||
|
|
||||||
(defvar nd/agenda-limit-project-toplevel t
|
|
||||||
"used to filter projects by all levels or top-level only")
|
|
||||||
|
|
||||||
(defun nd/toggle-project-toplevel-display ()
|
|
||||||
(interactive)
|
|
||||||
(setq nd/agenda-limit-project-toplevel (not nd/agenda-limit-project-toplevel))
|
|
||||||
(when (equal major-mode 'org-agenda-mode)
|
|
||||||
(org-agenda-redo))
|
|
||||||
(message "Showing %s project view in agenda" (if nd/agenda-limit-project-toplevel "toplevel" "complete")))
|
|
||||||
|
|
||||||
(defun nd/agenda-base-task-command (keyword skip-fun)
|
|
||||||
"shorter syntax to define task agenda commands"
|
|
||||||
`(tags-todo
|
|
||||||
"-NA-REFILE/!"
|
|
||||||
((org-agenda-overriding-header (concat ,keyword " Tasks"))
|
|
||||||
(org-agenda-skip-function ,skip-fun)
|
|
||||||
(org-agenda-todo-ignore-with-date 'all)
|
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
|
||||||
|
|
||||||
(defun nd/agenda-base-project-command (match keyword statuscode)
|
|
||||||
"shorter syntax to define project agenda commands"
|
|
||||||
`(tags
|
|
||||||
,match
|
|
||||||
((org-agenda-overriding-header (concat
|
|
||||||
(and nd/agenda-limit-project-toplevel "Toplevel ")
|
|
||||||
,keyword
|
|
||||||
" Projects"))
|
|
||||||
(org-agenda-skip-function (if nd/agenda-limit-project-toplevel
|
|
||||||
'(nd/skip-subprojects-without-statuscode ,statuscode)
|
|
||||||
'(nd/skip-projects-without-statuscode ,statuscode)))
|
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-atomic-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-atomic-task-p))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-next-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
;; TODO skip over invalid and held
|
|
||||||
(if (not (equal (nd/is-project-task-p) "NEXT"))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-waiting-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
;; TODO skip over invalid and held
|
|
||||||
(if (not (equal (nd/is-project-task-p) "WAITING"))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-held-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
;; TODO skip over invalid and held
|
|
||||||
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-discontinuous-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-discontinuous-project-task-p))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
;; projects
|
|
||||||
;; TODO skip entire subtree if we don't need to evaluate anything inside
|
|
||||||
;; otherwise (for example) a held project will still have it's subtasks show up
|
|
||||||
(defun nd/skip-projects-without-statuscode (statuscode)
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-project-status-p statuscode))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
;; top-level projects
|
|
||||||
(defun nd/skip-subprojects-without-statuscode (statuscode)
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (or (nd/heading-has-parent) (not (nd/is-project-status-p statuscode)))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
;; archiving
|
|
||||||
(defun nd/skip-non-archivable-atomic-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-archivable-atomic-task-p))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/is-todoitem-p ()
|
(defun nd/is-todoitem-p ()
|
||||||
"return todo keyword if present in headline (which defines the heading as a todoitem)
|
"return todo keyword if present in headline (which defines the heading as a todoitem)
|
||||||
this is used to both test if a heading is a todoitem and retrieving the keyword"
|
this is used to both test if a heading is a todoitem and retrieving the keyword"
|
||||||
|
|
@ -432,6 +350,10 @@ this is used to both test if a heading is a todoitem and retrieving the keyword"
|
||||||
"return timestamp if headline is scheduled"
|
"return timestamp if headline is scheduled"
|
||||||
(org-entry-get nil "SCHEDULED"))
|
(org-entry-get nil "SCHEDULED"))
|
||||||
|
|
||||||
|
(defun nd/is-series-header-p ()
|
||||||
|
"return t if headline has property Project_Type=series"
|
||||||
|
(equal "series" (org-entry-get nil "Project_Type")))
|
||||||
|
|
||||||
(defun nd/is-closed-heading-p ()
|
(defun nd/is-closed-heading-p ()
|
||||||
"return timestamp if headline is closed"
|
"return timestamp if headline is closed"
|
||||||
(let ((timestamp (org-entry-get nil "CLOSED")))
|
(let ((timestamp (org-entry-get nil "CLOSED")))
|
||||||
|
|
@ -499,40 +421,20 @@ that in turn are children of todoitems (discontinous project)"
|
||||||
(setq has-non-todoitem-parent t))))
|
(setq has-non-todoitem-parent t))))
|
||||||
(and has-todoitem-parent has-non-todoitem-parent)))
|
(and has-todoitem-parent has-non-todoitem-parent)))
|
||||||
|
|
||||||
(defun nd/test-first-order-project ()
|
|
||||||
"tests the state of a project assuming first order.
|
|
||||||
if not first order, this function will iterate to the next project
|
|
||||||
and descend into it by calling itelf recursively.
|
|
||||||
function is not meant to be called independently."
|
|
||||||
(let ((found-active)
|
|
||||||
(previous-point))
|
|
||||||
(save-excursion
|
|
||||||
(setq previous-point (point))
|
|
||||||
(outline-next-heading)
|
|
||||||
(while (and (not found-active)
|
|
||||||
(> (point) previous-point))
|
|
||||||
(when (or (and (nd/is-project-p)
|
|
||||||
(nd/test-first-order-project))
|
|
||||||
(nd/is-active-task-p))
|
|
||||||
(setq found-active t))
|
|
||||||
(setq previous-point (point))
|
|
||||||
(org-forward-heading-same-level 1 t)))
|
|
||||||
found-active))
|
|
||||||
|
|
||||||
(defconst nd/project-invalid-todostates
|
(defconst nd/project-invalid-todostates
|
||||||
'("WAITING" "NEXT")
|
'("WAITING" "NEXT")
|
||||||
"projects cannot have these todostates")
|
"projects cannot have these todostates")
|
||||||
|
|
||||||
;; project level testing
|
;; project level testing
|
||||||
;; TODO: is there a better way to handle statuscodes like this??? (array like thingy)
|
|
||||||
(defun nd/descend-into-project ()
|
(defun nd/descend-into-project ()
|
||||||
"returns statuscode according to state of project:
|
"returns statuscode according to state of project:
|
||||||
0: complete
|
0: archivable
|
||||||
|
5: complete
|
||||||
10: stuck
|
10: stuck
|
||||||
20: held
|
20: held
|
||||||
30: waiting
|
30: waiting
|
||||||
40: active
|
40: active
|
||||||
50: invalid???
|
50: invalid
|
||||||
|
|
||||||
This function works on an assumed order of precendence:
|
This function works on an assumed order of precendence:
|
||||||
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
||||||
|
|
@ -555,24 +457,38 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
(if keyword
|
(if keyword
|
||||||
(let ((cur-state
|
(let ((cur-state
|
||||||
(if (nd/heading-has-children)
|
(if (nd/heading-has-children)
|
||||||
|
;; invalid todo states or scheduled project headers auto invalidate
|
||||||
(cond ((member keyword nd/project-invalid-todostates) 50)
|
(cond ((member keyword nd/project-invalid-todostates) 50)
|
||||||
((nd/is-scheduled-heading-p) 50)
|
((nd/is-scheduled-heading-p) 50)
|
||||||
;; cancelled and hold work independent of everything underneath
|
;; cancelled and hold work independent of everything underneath
|
||||||
((equal keyword "CANCELLED") 0)
|
((equal keyword "CANCELLED") (if (nd/is-archivable-heading-p) 0 5))
|
||||||
((equal keyword "HOLD") 20)
|
((equal keyword "HOLD") 20)
|
||||||
;; all other tests require a descent into the child project hence let form
|
;; all other tests require a descent into the child project
|
||||||
(t (let ((child-statuscode (nd/descend-into-project)))
|
(t (let ((child-statuscode (nd/descend-into-project)))
|
||||||
;; projects marked TODO should not be complete
|
;; projects marked TODO should not be complete
|
||||||
(cond ((equal keyword "TODO") (if (> child-statuscode 0) child-statuscode 50))
|
(cond ((equal keyword "TODO") (if (> child-statuscode 5)
|
||||||
;; projects marked DONE should have all subtasks/projects marked DONE/CANCELLED
|
child-statuscode 50))
|
||||||
(t (if (= child-statuscode 0) 0 50))))))
|
;; assume that all projects here are DONE
|
||||||
|
;; first test if all children are archivable
|
||||||
|
(t (case child-statuscode
|
||||||
|
(5 5)
|
||||||
|
;; if this heading is archivable
|
||||||
|
;; then the entire project is archivable
|
||||||
|
;; else merely completed
|
||||||
|
(0 (if (nd/is-archivable-heading-p) 0 5))
|
||||||
|
;; if children are completed but not archivable
|
||||||
|
;; then the project is completed, otherwise
|
||||||
|
;; the project is marked DONE with incomplete
|
||||||
|
;; subtasks and therefore invalid
|
||||||
|
(t (if (= child-statuscode 5) 5 50))))))))
|
||||||
(cond ((equal keyword "HOLD") 20)
|
(cond ((equal keyword "HOLD") 20)
|
||||||
((equal keyword "WAITING") 30)
|
((equal keyword "WAITING") 30)
|
||||||
((equal keyword "NEXT") 40)
|
((equal keyword "NEXT") 40)
|
||||||
((and (equal keyword "TODO") (nd/is-scheduled-heading-p)) 40)
|
((and (equal keyword "TODO") (nd/is-scheduled-heading-p)) 40)
|
||||||
((equal keyword "TODO") 10)
|
((equal keyword "TODO") 10)
|
||||||
|
((nd/is-archivable-heading-p) 0)
|
||||||
;; catchall means CANCELLED or DONE (complete)
|
;; catchall means CANCELLED or DONE (complete)
|
||||||
(t 0)))))
|
(t 5)))))
|
||||||
(if (> cur-state project-state)
|
(if (> cur-state project-state)
|
||||||
(setq project-state cur-state)))))
|
(setq project-state cur-state)))))
|
||||||
(setq previous-point (point))
|
(setq previous-point (point))
|
||||||
|
|
@ -587,22 +503,151 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
(cond ((member keyword nd/project-invalid-todostates) (if (= statuscode 50) keyword))
|
(cond ((member keyword nd/project-invalid-todostates) (if (= statuscode 50) keyword))
|
||||||
;; if hold, t if we ask about 20
|
;; if hold, t if we ask about 20
|
||||||
((equal keyword "HOLD") (if (= statuscode 20) keyword))
|
((equal keyword "HOLD") (if (= statuscode 20) keyword))
|
||||||
((equal keyword "CANCELLED") (if (= statuscode 0) keyword))
|
;; if cancelled, figure out if archivable
|
||||||
|
;; t if archivable and we ask 0 and t if not archivable and we ask 5
|
||||||
|
((equal keyword "CANCELLED") (if (nd/is-archivable-heading-p)
|
||||||
|
(if (= statuscode 0) keyword)
|
||||||
|
(if (= statuscode 5) keyword)))
|
||||||
;; all other cases need the statuscode from the subtasks below the heading
|
;; all other cases need the statuscode from the subtasks below the heading
|
||||||
(t (let ((child-statuscode (nd/descend-into-project)))
|
(t (let ((child-statuscode (nd/descend-into-project)))
|
||||||
;; if done, t if project is done and we ask about 0
|
;; if done, t if project is done and we ask about 0
|
||||||
;; or t if project is not done (>0) and we ask about 50
|
;; or t if project is not done (>0) and we ask about 50
|
||||||
(if (equal keyword "DONE")
|
(if (equal keyword "DONE")
|
||||||
(cond ((and (> child-statuscode 0) (= statuscode 50)) keyword)
|
(if (nd/is-archivable-heading-p)
|
||||||
((= child-statuscode statuscode 0) keyword))
|
(if (= statuscode child-statuscode 0) keyword)
|
||||||
|
(if (= statuscode child-statuscode 5)
|
||||||
|
keyword
|
||||||
|
(if (and (> child-statuscode 5) (= statuscode 50)) keyword)))
|
||||||
|
|
||||||
|
;; if TODO then the subtasks must not be done (completed or archivable)
|
||||||
|
(if (equal keyword "TODO")
|
||||||
|
(if (> child-statuscode 5)
|
||||||
|
(if (= statuscode child-statuscode) keyword)
|
||||||
|
(if (= statuscode 50) keyword))
|
||||||
;; all other queries are independent of heading
|
;; all other queries are independent of heading
|
||||||
;; t if children match the statuscode we ask
|
;; t if children match the statuscode we ask
|
||||||
(if (= statuscode child-statuscode) keyword))))))))
|
(if (= statuscode child-statuscode) keyword)))))))))
|
||||||
|
|
||||||
|
;; TODO we could clean this up with macros
|
||||||
|
(defun nd/skip-non-atomic-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-atomic-task-p))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-next-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
;; TODO skip over invalid and held
|
||||||
|
(if (not (equal (nd/is-project-task-p) "NEXT"))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-waiting-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
;; TODO skip over invalid and held
|
||||||
|
(if (not (equal (nd/is-project-task-p) "WAITING"))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-held-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
;; TODO skip over invalid and held
|
||||||
|
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
;; slip functions
|
||||||
|
(defun nd/skip-non-discontinuous-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-discontinuous-project-task-p))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-done-open-todoitems ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (and (member (nd/is-todoitem-p) org-done-keywords) (not (nd/is-closed-heading-p))))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-undone-closed-todoitems ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (and (not (member (nd/is-todoitem-p)) org-done-keywords) (nd/is-closed-heading-p)))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
;; projects
|
||||||
|
;; TODO skip entire subtree if we don't need to evaluate anything inside
|
||||||
|
;; otherwise (for example) a held project will still have it's subtasks show up
|
||||||
|
(defun nd/skip-projects-without-statuscode (statuscode)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-project-status-p statuscode))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
;; top-level projects
|
||||||
|
(defun nd/skip-subprojects-without-statuscode (statuscode)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (or (nd/heading-has-parent) (not (nd/is-project-status-p statuscode)))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-series-projects-without-statuscode (statuscode)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (and (nd/is-series-heading-p) (nd/is-project-status-p statuscode)))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
;; series projects
|
||||||
|
;; defined as project with property Project_type=series
|
||||||
|
;; must have:
|
||||||
|
;; - one level of subtasks
|
||||||
|
;; - all subtasks either TODO/scheduled, NEXT, DONE, CANCELLED
|
||||||
|
;; - at least one TODO/scheduled or NEXT (active) ..else empty
|
||||||
|
;; invalid if:
|
||||||
|
;; - project header is invalid project header (typical rules apply)
|
||||||
|
|
||||||
|
;; archiving
|
||||||
|
(defun nd/skip-non-archivable-atomic-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-archivable-atomic-task-p))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defvar nd/agenda-limit-project-toplevel t
|
||||||
|
"used to filter projects by all levels or top-level only")
|
||||||
|
|
||||||
|
(defun nd/toggle-project-toplevel-display ()
|
||||||
|
(interactive)
|
||||||
|
(setq nd/agenda-limit-project-toplevel (not nd/agenda-limit-project-toplevel))
|
||||||
|
(when (equal major-mode 'org-agenda-mode)
|
||||||
|
(org-agenda-redo))
|
||||||
|
(message "Showing %s project view in agenda" (if nd/agenda-limit-project-toplevel "toplevel" "complete")))
|
||||||
|
|
||||||
|
(defun nd/agenda-base-task-command (keyword skip-fun)
|
||||||
|
"shorter syntax to define task agenda commands"
|
||||||
|
`(tags-todo
|
||||||
|
"-NA-REFILE/!"
|
||||||
|
((org-agenda-overriding-header (concat ,keyword " Tasks"))
|
||||||
|
(org-agenda-skip-function ,skip-fun)
|
||||||
|
(org-agenda-todo-ignore-with-date 'all)
|
||||||
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
|
(defun nd/agenda-base-project-command (match keyword statuscode)
|
||||||
|
"shorter syntax to define project agenda commands"
|
||||||
|
`(tags
|
||||||
|
,match
|
||||||
|
((org-agenda-overriding-header (concat
|
||||||
|
(and nd/agenda-limit-project-toplevel "Toplevel ")
|
||||||
|
,keyword
|
||||||
|
" Projects"))
|
||||||
|
(org-agenda-skip-function (if nd/agenda-limit-project-toplevel
|
||||||
|
'(nd/skip-subprojects-without-statuscode ,statuscode)
|
||||||
|
'(nd/skip-projects-without-statuscode ,statuscode)))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
(setq org-agenda-tags-todo-honor-ignore-options t)
|
(setq org-agenda-tags-todo-honor-ignore-options t)
|
||||||
(setq org-agenda-custom-commands
|
(setq org-agenda-custom-commands
|
||||||
`(("t"
|
`(("t"
|
||||||
"Task view"
|
"Task View"
|
||||||
((agenda "" nil)
|
((agenda "" nil)
|
||||||
,(nd/agenda-base-task-command "Next Project" ''nd/skip-non-next-project-tasks)
|
,(nd/agenda-base-task-command "Next Project" ''nd/skip-non-next-project-tasks)
|
||||||
,(nd/agenda-base-task-command "Waiting Project" ''nd/skip-non-waiting-project-tasks)
|
,(nd/agenda-base-task-command "Waiting Project" ''nd/skip-non-waiting-project-tasks)
|
||||||
|
|
@ -610,22 +655,33 @@ Using this scheme, we simply compare the magnitude of the statuscodes"
|
||||||
,(nd/agenda-base-task-command "Held Project" ''nd/skip-non-held-project-tasks)))
|
,(nd/agenda-base-task-command "Held Project" ''nd/skip-non-held-project-tasks)))
|
||||||
("o"
|
("o"
|
||||||
"Project Overview"
|
"Project Overview"
|
||||||
(,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Stuck" 10)
|
(,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Stuck" 10)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Waiting" 30)
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Waiting" 30)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Active" 40)
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Active" 40)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Held" 20)))
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Held" 20)))
|
||||||
("r"
|
("r"
|
||||||
"Refile and errors"
|
"Refile and errors"
|
||||||
((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile")) (org-tags-match-list-sublevels nil))
|
((tags "REFILE"
|
||||||
|
((org-agenda-overriding-header "Tasks to Refile"))
|
||||||
|
(org-tags-match-list-sublevels nil))
|
||||||
,(nd/agenda-base-task-command "Discontinous Project" ''nd/skip-non-discontinuous-project-tasks)
|
,(nd/agenda-base-task-command "Discontinous Project" ''nd/skip-non-discontinuous-project-tasks)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Unmarked Completed" 0)
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Unmarked Completed" 5)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/" "Invalid" 50)))
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/" "Invalid" 50)
|
||||||
|
;; ,(nd/agenda-base-task-command "Done But Not Closed" ''nd/skip-non-done-open-todoitems)
|
||||||
|
;; ,(nd/agenda-base-task-command "Closed But Not Done" ''nd/skip-non-open-closed-todoitems)
|
||||||
|
))
|
||||||
|
("s"
|
||||||
|
"Series projects"
|
||||||
|
(,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC+Project_Type=\"series\"/!" "Active Series" 40)
|
||||||
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC+Project_Type=\"series\"/!" "Empty Series" 5)))
|
||||||
("A"
|
("A"
|
||||||
"Archive"
|
"Archivable Tasks and Projects"
|
||||||
((tags "-NA-REFILE/"
|
((tags "-NA-REFILE/"
|
||||||
((org-agenda-overriding-header "Atomic Tasks to Archive")
|
((org-agenda-overriding-header "Atomic Tasks to Archive")
|
||||||
(org-agenda-skip-function 'nd/skip-non-archivable-atomic-tasks)
|
(org-agenda-skip-function 'nd/skip-non-archivable-atomic-tasks)
|
||||||
(org-tags-match-list-sublevels nil)))))))
|
(org-tags-match-list-sublevels nil)))
|
||||||
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC+Project_Type=\"series\"/!" "Archivable Series" 0)
|
||||||
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/" "Archivable" 0)))))
|
||||||
|
|
||||||
(evil-define-key 'motion org-agenda-mode-map "T" 'nd/toggle-project-toplevel-display)
|
(evil-define-key 'motion org-agenda-mode-map "T" 'nd/toggle-project-toplevel-display)
|
||||||
|
|
||||||
|
|
|
||||||
356
conf.org
356
conf.org
|
|
@ -404,27 +404,35 @@ vim is all about escape, not...ctrl+g???
|
||||||
("CANCELLED" :foreground "deep sky blue" :weight bold))))
|
("CANCELLED" :foreground "deep sky blue" :weight bold))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** tags
|
** tags
|
||||||
I use tags for filtering in the agenda view to narrow down tasks by project/context. I don't use tags for custom commands (easier with skip functions). I make the tags here brightly colored to distinguish from those set in FILETAGS
|
I use tags for contexts (mostly). The "@" represents location contexts and a mutually exclusive as there is only one of me. The "#" contexts represent tools which must be available.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq org-tag-alist (quote ((:startgroup)
|
(setq org-tag-alist '((:startgroup)
|
||||||
("@errand" . ?e)
|
("@errand" . ?e)
|
||||||
("@work" . ?w)
|
("@work" . ?w)
|
||||||
("@home" . ?h)
|
("@home" . ?h)
|
||||||
("@travel" . ?f)
|
("@travel" . ?f)
|
||||||
(:endgroup)
|
(:endgroup)
|
||||||
("LAPTOP" . ?L)
|
("#laptop" . ?L)
|
||||||
("PERSONAL" . ?P)
|
("#hood" . ?H)
|
||||||
("WORK" . ?W)
|
|
||||||
("NOTE" . ?N)
|
("NOTE" . ?N)
|
||||||
("FLAGGED" . ??))))
|
("FLAGGED" . ??)))
|
||||||
|
|
||||||
;; TODO I'm sure there is a better way to do this in lisp
|
;; TODO I'm sure there is a better way to do this in lisp
|
||||||
(setq org-tag-faces
|
(setq org-tag-faces
|
||||||
'(("LAPTOP" . (:foreground "PaleGreen"))
|
'(("@errand" . (:foreground "PaleGreen"))
|
||||||
("PERSONAL" . (:foreground "PaleGreen"))
|
("@work" . (:foreground "PaleGreen"))
|
||||||
("WORK" . (:foreground "PaleGreen"))
|
("@home" . (:foreground "PaleGreen"))
|
||||||
("NOTE" . (:foreground "PaleGreen"))
|
("@travel" . (:foreground "PaleGreen"))
|
||||||
("FLAGGED" . (:foreground "PaleGreen"))))
|
("#laptop" . (:foreground "SkyBlue"))
|
||||||
|
("#hood" . (:foreground "SkyBlue"))))
|
||||||
|
#+END_SRC
|
||||||
|
** properties
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
;; this is basically the same as putting the properties at the top of all org files
|
||||||
|
(add-to-list 'org-default-properties "Project_Type")
|
||||||
|
(setq org-global-properties '(("Project_Type_ALL" . "series")))
|
||||||
|
;; TODO this may not be needed
|
||||||
|
(setq org-use-property-inheritance '("Project_Type"))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
** capture templates
|
** capture templates
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
@ -480,101 +488,6 @@ I use tags for filtering in the agenda view to narrow down tasks by project/cont
|
||||||
(setq org-agenda-dim-blocked-tasks nil)
|
(setq org-agenda-dim-blocked-tasks nil)
|
||||||
(setq org-agenda-compact-blocks t)
|
(setq org-agenda-compact-blocks t)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** interactive view functions
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(defvar nd/agenda-limit-project-toplevel t
|
|
||||||
"used to filter projects by all levels or top-level only")
|
|
||||||
|
|
||||||
(defun nd/toggle-project-toplevel-display ()
|
|
||||||
(interactive)
|
|
||||||
(setq nd/agenda-limit-project-toplevel (not nd/agenda-limit-project-toplevel))
|
|
||||||
(when (equal major-mode 'org-agenda-mode)
|
|
||||||
(org-agenda-redo))
|
|
||||||
(message "Showing %s project view in agenda" (if nd/agenda-limit-project-toplevel "toplevel" "complete")))
|
|
||||||
|
|
||||||
(defun nd/agenda-base-task-command (keyword skip-fun)
|
|
||||||
"shorter syntax to define task agenda commands"
|
|
||||||
`(tags-todo
|
|
||||||
"-NA-REFILE/!"
|
|
||||||
((org-agenda-overriding-header (concat ,keyword " Tasks"))
|
|
||||||
(org-agenda-skip-function ,skip-fun)
|
|
||||||
(org-agenda-todo-ignore-with-date 'all)
|
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
|
||||||
|
|
||||||
(defun nd/agenda-base-project-command (match keyword statuscode)
|
|
||||||
"shorter syntax to define project agenda commands"
|
|
||||||
`(tags
|
|
||||||
,match
|
|
||||||
((org-agenda-overriding-header (concat
|
|
||||||
(and nd/agenda-limit-project-toplevel "Toplevel ")
|
|
||||||
,keyword
|
|
||||||
" Projects"))
|
|
||||||
(org-agenda-skip-function (if nd/agenda-limit-project-toplevel
|
|
||||||
'(nd/skip-subprojects-without-statuscode ,statuscode)
|
|
||||||
'(nd/skip-projects-without-statuscode ,statuscode)))
|
|
||||||
(org-agenda-sorting-strategy '(category-keep)))))
|
|
||||||
|
|
||||||
#+END_SRC
|
|
||||||
*** skip functions
|
|
||||||
These are the primary means we use to sort through tasks. Note that we could do this with
|
|
||||||
tags in the custom commands section but I find this easier to maintain and possibly faster.
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
|
||||||
(defun nd/skip-non-atomic-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-atomic-task-p))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-next-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
;; TODO skip over invalid and held
|
|
||||||
(if (not (equal (nd/is-project-task-p) "NEXT"))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-waiting-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
;; TODO skip over invalid and held
|
|
||||||
(if (not (equal (nd/is-project-task-p) "WAITING"))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-held-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
;; TODO skip over invalid and held
|
|
||||||
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
(defun nd/skip-non-discontinuous-project-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-discontinuous-project-task-p))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
;; projects
|
|
||||||
;; TODO skip entire subtree if we don't need to evaluate anything inside
|
|
||||||
;; otherwise (for example) a held project will still have it's subtasks show up
|
|
||||||
(defun nd/skip-projects-without-statuscode (statuscode)
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-project-status-p statuscode))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
;; top-level projects
|
|
||||||
(defun nd/skip-subprojects-without-statuscode (statuscode)
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (or (nd/heading-has-parent) (not (nd/is-project-status-p statuscode)))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
|
|
||||||
;; archiving
|
|
||||||
(defun nd/skip-non-archivable-atomic-tasks ()
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(if (not (nd/is-archivable-atomic-task-p))
|
|
||||||
(save-excursion (or (outline-next-heading) (point-max))))))
|
|
||||||
#+END_SRC
|
|
||||||
*** task helper functions
|
*** task helper functions
|
||||||
These are the building blocks for skip functions.
|
These are the building blocks for skip functions.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
@ -605,6 +518,10 @@ These are the building blocks for skip functions.
|
||||||
"return timestamp if headline is scheduled"
|
"return timestamp if headline is scheduled"
|
||||||
(org-entry-get nil "SCHEDULED"))
|
(org-entry-get nil "SCHEDULED"))
|
||||||
|
|
||||||
|
(defun nd/is-series-header-p ()
|
||||||
|
"return t if headline has property Project_Type=series"
|
||||||
|
(equal "series" (org-entry-get nil "Project_Type")))
|
||||||
|
|
||||||
(defun nd/is-closed-heading-p ()
|
(defun nd/is-closed-heading-p ()
|
||||||
"return timestamp if headline is closed"
|
"return timestamp if headline is closed"
|
||||||
(let ((timestamp (org-entry-get nil "CLOSED")))
|
(let ((timestamp (org-entry-get nil "CLOSED")))
|
||||||
|
|
@ -672,40 +589,20 @@ These are the building blocks for skip functions.
|
||||||
(setq has-non-todoitem-parent t))))
|
(setq has-non-todoitem-parent t))))
|
||||||
(and has-todoitem-parent has-non-todoitem-parent)))
|
(and has-todoitem-parent has-non-todoitem-parent)))
|
||||||
|
|
||||||
(defun nd/test-first-order-project ()
|
|
||||||
"tests the state of a project assuming first order.
|
|
||||||
if not first order, this function will iterate to the next project
|
|
||||||
and descend into it by calling itelf recursively.
|
|
||||||
function is not meant to be called independently."
|
|
||||||
(let ((found-active)
|
|
||||||
(previous-point))
|
|
||||||
(save-excursion
|
|
||||||
(setq previous-point (point))
|
|
||||||
(outline-next-heading)
|
|
||||||
(while (and (not found-active)
|
|
||||||
(> (point) previous-point))
|
|
||||||
(when (or (and (nd/is-project-p)
|
|
||||||
(nd/test-first-order-project))
|
|
||||||
(nd/is-active-task-p))
|
|
||||||
(setq found-active t))
|
|
||||||
(setq previous-point (point))
|
|
||||||
(org-forward-heading-same-level 1 t)))
|
|
||||||
found-active))
|
|
||||||
|
|
||||||
(defconst nd/project-invalid-todostates
|
(defconst nd/project-invalid-todostates
|
||||||
'("WAITING" "NEXT")
|
'("WAITING" "NEXT")
|
||||||
"projects cannot have these todostates")
|
"projects cannot have these todostates")
|
||||||
|
|
||||||
;; project level testing
|
;; project level testing
|
||||||
;; TODO: is there a better way to handle statuscodes like this??? (array like thingy)
|
|
||||||
(defun nd/descend-into-project ()
|
(defun nd/descend-into-project ()
|
||||||
"returns statuscode according to state of project:
|
"returns statuscode according to state of project:
|
||||||
0: complete
|
0: archivable
|
||||||
|
5: complete
|
||||||
10: stuck
|
10: stuck
|
||||||
20: held
|
20: held
|
||||||
30: waiting
|
30: waiting
|
||||||
40: active
|
40: active
|
||||||
50: invalid???
|
50: invalid
|
||||||
|
|
||||||
This function works on an assumed order of precendence:
|
This function works on an assumed order of precendence:
|
||||||
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
- we start by assuming all projects as complete (eg only DONE and CANCELLED)
|
||||||
|
|
@ -728,24 +625,38 @@ These are the building blocks for skip functions.
|
||||||
(if keyword
|
(if keyword
|
||||||
(let ((cur-state
|
(let ((cur-state
|
||||||
(if (nd/heading-has-children)
|
(if (nd/heading-has-children)
|
||||||
|
;; invalid todo states or scheduled project headers auto invalidate
|
||||||
(cond ((member keyword nd/project-invalid-todostates) 50)
|
(cond ((member keyword nd/project-invalid-todostates) 50)
|
||||||
((nd/is-scheduled-heading-p) 50)
|
((nd/is-scheduled-heading-p) 50)
|
||||||
;; cancelled and hold work independent of everything underneath
|
;; cancelled and hold work independent of everything underneath
|
||||||
((equal keyword "CANCELLED") 0)
|
((equal keyword "CANCELLED") (if (nd/is-archivable-heading-p) 0 5))
|
||||||
((equal keyword "HOLD") 20)
|
((equal keyword "HOLD") 20)
|
||||||
;; all other tests require a descent into the child project hence let form
|
;; all other tests require a descent into the child project
|
||||||
(t (let ((child-statuscode (nd/descend-into-project)))
|
(t (let ((child-statuscode (nd/descend-into-project)))
|
||||||
;; projects marked TODO should not be complete
|
;; projects marked TODO should not be complete
|
||||||
(cond ((equal keyword "TODO") (if (> child-statuscode 0) child-statuscode 50))
|
(cond ((equal keyword "TODO") (if (> child-statuscode 5)
|
||||||
;; projects marked DONE should have all subtasks/projects marked DONE/CANCELLED
|
child-statuscode 50))
|
||||||
(t (if (= child-statuscode 0) 0 50))))))
|
;; assume that all projects here are DONE
|
||||||
|
;; first test if all children are archivable
|
||||||
|
(t (case child-statuscode
|
||||||
|
(5 5)
|
||||||
|
;; if this heading is archivable
|
||||||
|
;; then the entire project is archivable
|
||||||
|
;; else merely completed
|
||||||
|
(0 (if (nd/is-archivable-heading-p) 0 5))
|
||||||
|
;; if children are completed but not archivable
|
||||||
|
;; then the project is completed, otherwise
|
||||||
|
;; the project is marked DONE with incomplete
|
||||||
|
;; subtasks and therefore invalid
|
||||||
|
(t (if (= child-statuscode 5) 5 50))))))))
|
||||||
(cond ((equal keyword "HOLD") 20)
|
(cond ((equal keyword "HOLD") 20)
|
||||||
((equal keyword "WAITING") 30)
|
((equal keyword "WAITING") 30)
|
||||||
((equal keyword "NEXT") 40)
|
((equal keyword "NEXT") 40)
|
||||||
((and (equal keyword "TODO") (nd/is-scheduled-heading-p)) 40)
|
((and (equal keyword "TODO") (nd/is-scheduled-heading-p)) 40)
|
||||||
((equal keyword "TODO") 10)
|
((equal keyword "TODO") 10)
|
||||||
|
((nd/is-archivable-heading-p) 0)
|
||||||
;; catchall means CANCELLED or DONE (complete)
|
;; catchall means CANCELLED or DONE (complete)
|
||||||
(t 0)))))
|
(t 5)))))
|
||||||
(if (> cur-state project-state)
|
(if (> cur-state project-state)
|
||||||
(setq project-state cur-state)))))
|
(setq project-state cur-state)))))
|
||||||
(setq previous-point (point))
|
(setq previous-point (point))
|
||||||
|
|
@ -760,24 +671,160 @@ These are the building blocks for skip functions.
|
||||||
(cond ((member keyword nd/project-invalid-todostates) (if (= statuscode 50) keyword))
|
(cond ((member keyword nd/project-invalid-todostates) (if (= statuscode 50) keyword))
|
||||||
;; if hold, t if we ask about 20
|
;; if hold, t if we ask about 20
|
||||||
((equal keyword "HOLD") (if (= statuscode 20) keyword))
|
((equal keyword "HOLD") (if (= statuscode 20) keyword))
|
||||||
((equal keyword "CANCELLED") (if (= statuscode 0) keyword))
|
;; if cancelled, figure out if archivable
|
||||||
|
;; t if archivable and we ask 0 and t if not archivable and we ask 5
|
||||||
|
((equal keyword "CANCELLED") (if (nd/is-archivable-heading-p)
|
||||||
|
(if (= statuscode 0) keyword)
|
||||||
|
(if (= statuscode 5) keyword)))
|
||||||
;; all other cases need the statuscode from the subtasks below the heading
|
;; all other cases need the statuscode from the subtasks below the heading
|
||||||
(t (let ((child-statuscode (nd/descend-into-project)))
|
(t (let ((child-statuscode (nd/descend-into-project)))
|
||||||
;; if done, t if project is done and we ask about 0
|
;; if done, t if project is done and we ask about 0
|
||||||
;; or t if project is not done (>0) and we ask about 50
|
;; or t if project is not done (>0) and we ask about 50
|
||||||
(if (equal keyword "DONE")
|
(if (equal keyword "DONE")
|
||||||
(cond ((and (> child-statuscode 0) (= statuscode 50)) keyword)
|
(if (nd/is-archivable-heading-p)
|
||||||
((= child-statuscode statuscode 0) keyword))
|
(if (= statuscode child-statuscode 0) keyword)
|
||||||
|
(if (= statuscode child-statuscode 5)
|
||||||
|
keyword
|
||||||
|
(if (and (> child-statuscode 5) (= statuscode 50)) keyword)))
|
||||||
|
|
||||||
|
;; if TODO then the subtasks must not be done (completed or archivable)
|
||||||
|
(if (equal keyword "TODO")
|
||||||
|
(if (> child-statuscode 5)
|
||||||
|
(if (= statuscode child-statuscode) keyword)
|
||||||
|
(if (= statuscode 50) keyword))
|
||||||
;; all other queries are independent of heading
|
;; all other queries are independent of heading
|
||||||
;; t if children match the statuscode we ask
|
;; t if children match the statuscode we ask
|
||||||
(if (= statuscode child-statuscode) keyword))))))))
|
(if (= statuscode child-statuscode) keyword)))))))))
|
||||||
|
#+END_SRC
|
||||||
|
*** skip functions
|
||||||
|
These are the primary means we use to sort through tasks. Note that we could do this with
|
||||||
|
tags in the custom commands section but I find this easier to maintain and possibly faster.
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
;; TODO we could clean this up with macros
|
||||||
|
(defun nd/skip-non-atomic-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-atomic-task-p))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-next-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
;; TODO skip over invalid and held
|
||||||
|
(if (not (equal (nd/is-project-task-p) "NEXT"))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-waiting-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
;; TODO skip over invalid and held
|
||||||
|
(if (not (equal (nd/is-project-task-p) "WAITING"))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-held-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
;; TODO skip over invalid and held
|
||||||
|
(if (not (equal (nd/is-project-task-p) "HOLD"))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
;; slip functions
|
||||||
|
(defun nd/skip-non-discontinuous-project-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-discontinuous-project-task-p))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-done-open-todoitems ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (and (member (nd/is-todoitem-p) org-done-keywords) (not (nd/is-closed-heading-p))))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-non-undone-closed-todoitems ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (and (not (member (nd/is-todoitem-p)) org-done-keywords) (nd/is-closed-heading-p)))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
;; projects
|
||||||
|
;; TODO skip entire subtree if we don't need to evaluate anything inside
|
||||||
|
;; otherwise (for example) a held project will still have it's subtasks show up
|
||||||
|
(defun nd/skip-projects-without-statuscode (statuscode)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-project-status-p statuscode))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
;; top-level projects
|
||||||
|
(defun nd/skip-subprojects-without-statuscode (statuscode)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (or (nd/heading-has-parent) (not (nd/is-project-status-p statuscode)))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
|
||||||
|
(defun nd/skip-series-projects-without-statuscode (statuscode)
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (and (nd/is-series-heading-p) (nd/is-project-status-p statuscode)))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
;; series projects
|
||||||
|
;; defined as project with property Project_type=series
|
||||||
|
;; must have:
|
||||||
|
;; - one level of subtasks
|
||||||
|
;; - all subtasks either TODO/scheduled, NEXT, DONE, CANCELLED
|
||||||
|
;; - at least one TODO/scheduled or NEXT (active) ..else empty
|
||||||
|
;; invalid if:
|
||||||
|
;; - project header is invalid project header (typical rules apply)
|
||||||
|
|
||||||
|
;; archiving
|
||||||
|
(defun nd/skip-non-archivable-atomic-tasks ()
|
||||||
|
(save-restriction
|
||||||
|
(widen)
|
||||||
|
(if (not (nd/is-archivable-atomic-task-p))
|
||||||
|
(save-excursion (or (outline-next-heading) (point-max))))))
|
||||||
|
#+END_SRC
|
||||||
|
*** interactive view functions
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(defvar nd/agenda-limit-project-toplevel t
|
||||||
|
"used to filter projects by all levels or top-level only")
|
||||||
|
|
||||||
|
(defun nd/toggle-project-toplevel-display ()
|
||||||
|
(interactive)
|
||||||
|
(setq nd/agenda-limit-project-toplevel (not nd/agenda-limit-project-toplevel))
|
||||||
|
(when (equal major-mode 'org-agenda-mode)
|
||||||
|
(org-agenda-redo))
|
||||||
|
(message "Showing %s project view in agenda" (if nd/agenda-limit-project-toplevel "toplevel" "complete")))
|
||||||
|
|
||||||
|
(defun nd/agenda-base-task-command (keyword skip-fun)
|
||||||
|
"shorter syntax to define task agenda commands"
|
||||||
|
`(tags-todo
|
||||||
|
"-NA-REFILE/!"
|
||||||
|
((org-agenda-overriding-header (concat ,keyword " Tasks"))
|
||||||
|
(org-agenda-skip-function ,skip-fun)
|
||||||
|
(org-agenda-todo-ignore-with-date 'all)
|
||||||
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
|
(defun nd/agenda-base-project-command (match keyword statuscode)
|
||||||
|
"shorter syntax to define project agenda commands"
|
||||||
|
`(tags
|
||||||
|
,match
|
||||||
|
((org-agenda-overriding-header (concat
|
||||||
|
(and nd/agenda-limit-project-toplevel "Toplevel ")
|
||||||
|
,keyword
|
||||||
|
" Projects"))
|
||||||
|
(org-agenda-skip-function (if nd/agenda-limit-project-toplevel
|
||||||
|
'(nd/skip-subprojects-without-statuscode ,statuscode)
|
||||||
|
'(nd/skip-projects-without-statuscode ,statuscode)))
|
||||||
|
(org-agenda-sorting-strategy '(category-keep)))))
|
||||||
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** custom commands
|
*** custom commands
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq org-agenda-tags-todo-honor-ignore-options t)
|
(setq org-agenda-tags-todo-honor-ignore-options t)
|
||||||
(setq org-agenda-custom-commands
|
(setq org-agenda-custom-commands
|
||||||
`(("t"
|
`(("t"
|
||||||
"Task view"
|
"Task View"
|
||||||
((agenda "" nil)
|
((agenda "" nil)
|
||||||
,(nd/agenda-base-task-command "Next Project" ''nd/skip-non-next-project-tasks)
|
,(nd/agenda-base-task-command "Next Project" ''nd/skip-non-next-project-tasks)
|
||||||
,(nd/agenda-base-task-command "Waiting Project" ''nd/skip-non-waiting-project-tasks)
|
,(nd/agenda-base-task-command "Waiting Project" ''nd/skip-non-waiting-project-tasks)
|
||||||
|
|
@ -785,22 +832,33 @@ These are the building blocks for skip functions.
|
||||||
,(nd/agenda-base-task-command "Held Project" ''nd/skip-non-held-project-tasks)))
|
,(nd/agenda-base-task-command "Held Project" ''nd/skip-non-held-project-tasks)))
|
||||||
("o"
|
("o"
|
||||||
"Project Overview"
|
"Project Overview"
|
||||||
(,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Stuck" 10)
|
(,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Stuck" 10)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Waiting" 30)
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Waiting" 30)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Active" 40)
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Active" 40)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Held" 20)))
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Held" 20)))
|
||||||
("r"
|
("r"
|
||||||
"Refile and errors"
|
"Refile and errors"
|
||||||
((tags "REFILE" ((org-agenda-overriding-header "Tasks to Refile")) (org-tags-match-list-sublevels nil))
|
((tags "REFILE"
|
||||||
|
((org-agenda-overriding-header "Tasks to Refile"))
|
||||||
|
(org-tags-match-list-sublevels nil))
|
||||||
,(nd/agenda-base-task-command "Discontinous Project" ''nd/skip-non-discontinuous-project-tasks)
|
,(nd/agenda-base-task-command "Discontinous Project" ''nd/skip-non-discontinuous-project-tasks)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/!" "Unmarked Completed" 0)
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/!" "Unmarked Completed" 5)
|
||||||
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/" "Invalid" 50)))
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC-Project_Type=\"series\"/" "Invalid" 50)
|
||||||
|
;; ,(nd/agenda-base-task-command "Done But Not Closed" ''nd/skip-non-done-open-todoitems)
|
||||||
|
;; ,(nd/agenda-base-task-command "Closed But Not Done" ''nd/skip-non-open-closed-todoitems)
|
||||||
|
))
|
||||||
|
("s"
|
||||||
|
"Series projects"
|
||||||
|
(,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC+Project_Type=\"series\"/!" "Active Series" 40)
|
||||||
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC+Project_Type=\"series\"/!" "Empty Series" 5)))
|
||||||
("A"
|
("A"
|
||||||
"Archive"
|
"Archivable Tasks and Projects"
|
||||||
((tags "-NA-REFILE/"
|
((tags "-NA-REFILE/"
|
||||||
((org-agenda-overriding-header "Atomic Tasks to Archive")
|
((org-agenda-overriding-header "Atomic Tasks to Archive")
|
||||||
(org-agenda-skip-function 'nd/skip-non-archivable-atomic-tasks)
|
(org-agenda-skip-function 'nd/skip-non-archivable-atomic-tasks)
|
||||||
(org-tags-match-list-sublevels nil)))))))
|
(org-tags-match-list-sublevels nil)))
|
||||||
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC+Project_Type=\"series\"/!" "Archivable Series" 0)
|
||||||
|
,(nd/agenda-base-project-command "-NA-REFILE-ATOMIC/" "Archivable" 0)))))
|
||||||
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** keymap
|
*** keymap
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue