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

ENH simplify custom agenda commands

This commit is contained in:
Nathan Dwarshuis 2021-12-25 13:59:16 -05:00
parent 8a5547d178
commit 042c035962
1 changed files with 554 additions and 263 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

817
etc/conf.org
View File

@ -2678,7 +2678,7 @@ The agenda files are limited to as few as possible to keep scanning and startup
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-agenda-files '("~/Org" (setq org-agenda-files '("~/Org"
"~/Org/projects" "~/Org/projects"
"~/Org/reference/goals.org" "~/Org/reference/goals"
"~/Org/reference/meetings" "~/Org/reference/meetings"
"~/Org/reference/peripheral.org")) "~/Org/reference/peripheral.org"))
#+END_SRC #+END_SRC
@ -2929,280 +2929,557 @@ original function being advised and ARGS are the arguments."
(:active . 3) (:active . 3)
(:inert . 4))) (:inert . 4)))
(setq ;; (setq
org-agenda-custom-commands ;; org-agenda-custom-commands
;; Timeblock planner - for showing what I need to do in a given day ;; ;; Timeblock planner - for showing what I need to do in a given day
;; ;; ;;
;; In the order of display ;; ;; In the order of display
;; 1. morning tasks/habits (to do immediately after waking) ;; ;; 1. morning tasks/habits (to do immediately after waking)
;; 2. daily calendar (for thing that begin today at a specific time) ;; ;; 2. daily calendar (for thing that begin today at a specific time)
;; 3. evening tasks/habits (to do immediately before sleeping) ;; ;; 3. evening tasks/habits (to do immediately before sleeping)
;; 4. habits ;; ;; 4. habits
`(("b" ;; `(("b"
"Timeblock View" ;; "Timeblock View"
((agenda ;; ((agenda
"" ;; ""
((org-agenda-skip-function #'org-x-calendar-skip-function) ;; ((org-agenda-skip-function #'org-x-calendar-skip-function)
(org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep)) ;; (org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
(org-agenda-include-diary t) ;; (org-agenda-include-diary t)
(org-super-agenda-groups ;; (org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Morning routine" ;; `(,(nd/org-def-super-agenda-pred "Morning routine"
(org-x-headline-has-property org-x-prop-routine ;; (org-x-headline-has-property org-x-prop-routine
org-x-prop-routine-morning) ;; org-x-prop-routine-morning)
:order 0) ;; :order 0)
,(nd/org-def-super-agenda-pred "Evening routine" ;; ,(nd/org-def-super-agenda-pred "Evening routine"
(org-x-headline-has-property org-x-prop-routine ;; (org-x-headline-has-property org-x-prop-routine
org-x-prop-routine-evening) ;; org-x-prop-routine-evening)
:order 3) ;; :order 3)
(:name "Calendar" :order 1 :time-grid t) ;; (:name "Calendar" :order 1 :time-grid t)
(:discard (:anything t)))))))) ;; (:discard (:anything t))))))))
;; Deadline/scheduled task view ;; ;; Deadline/scheduled task view
;; ;; ;;
;; Display deadlines and scheduled tasks for the day/future. Used to ;; ;; Display deadlines and scheduled tasks for the day/future. Used to
;; create a timeblock plan for any given day ;; ;; create a timeblock plan for any given day
("a" ;; ("a"
"Agenda View" ;; "Agenda View"
((agenda ;; ((agenda
"" ;; ""
((org-agenda-skip-function #'org-x-calendar-skip-function) ;; ((org-agenda-skip-function #'org-x-calendar-skip-function)
(org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep)) ;; (org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
(org-agenda-include-diary t) ;; (org-agenda-include-diary t)
(org-super-agenda-groups ;; (org-super-agenda-groups
`( ;; `(
(:name "Habits" :order 1 :habit t) ;; (:name "Habits" :order 1 :habit t)
(:discard (:time-grid t)) ;; (:discard (:time-grid t))
(:discard (:pred ,(nd/org-mk-super-agenda-pred ;; (:discard (:pred ,(nd/org-mk-super-agenda-pred
'((or (org-x-headline-has-property ;; '((or (org-x-headline-has-property
org-x-prop-routine ;; org-x-prop-routine
org-x-prop-routine-evening) ;; org-x-prop-routine-evening)
(org-x-headline-has-property ;; (org-x-headline-has-property
org-x-prop-routine ;; org-x-prop-routine
org-x-prop-routine-morning)))))) ;; org-x-prop-routine-morning))))))
,(nd/org-def-super-agenda-pred "Deadlined Projects" ;; ,(nd/org-def-super-agenda-pred "Deadlined Projects"
(progn ;; (progn
;; TODO IDK why this is needed, but the point starts on the ;; ;; TODO IDK why this is needed, but the point starts on the
;; deadline timestamp and then the project test fails ;; ;; deadline timestamp and then the project test fails
(org-back-to-heading t) ;; (org-back-to-heading t)
(and (org-x-headline-is-deadlined-p) ;; (and (org-x-headline-is-deadlined-p)
(org-x-headline-is-project-p))) ;; (org-x-headline-is-project-p)))
:order 7) ;; :order 7)
(:name "Deadlined Tasks" :order 5 :deadline t) ;; (:name "Deadlined Tasks" :order 5 :deadline t)
(:name "Scheduled" :order 4 :scheduled t))))))) ;; (:name "Scheduled" :order 4 :scheduled t)))))))
;; Tasks - a view for all individual, non-repeated actions I need to do ;; ;; Tasks - a view for all individual, non-repeated actions I need to do
;; ;; ;;
;; Distinguish between atomic and project tasks, as well as tasks that ;; ;; Distinguish between atomic and project tasks, as well as tasks that
;; are inert (which I may move to the incubator during a review phase) ;; ;; are inert (which I may move to the incubator during a review phase)
("t" ;; ("t"
"Task View" ;; "Task View"
((tags-todo ;; ((tags-todo
,(nd/org-mk-match-string ;; ,(nd/org-mk-match-string
- org-x-tag-no-agenda ;; - org-x-tag-no-agenda
- org-x-tag-refile ;; - org-x-tag-refile
- org-x-tag-incubated ;; - org-x-tag-incubated
/ org-x-kw-todo ;; / org-x-kw-todo
| org-x-kw-next ;; | org-x-kw-next
| org-x-kw-wait ;; | org-x-kw-wait
| org-x-kw-hold ;; | org-x-kw-hold
| org-x-kw-canc) ;; | org-x-kw-canc)
((org-agenda-overriding-header "Tasks") ;; ((org-agenda-overriding-header "Tasks")
(org-agenda-skip-function #'org-x-task-skip-function) ;; (org-agenda-skip-function #'org-x-task-skip-function)
(org-agenda-todo-ignore-with-date t) ;; (org-agenda-todo-ignore-with-date t)
(org-agenda-sorting-strategy '(user-defined-up category-keep)) ;; (org-agenda-sorting-strategy '(user-defined-up category-keep))
(org-super-agenda-groups ;; (org-super-agenda-groups
',(nd/org-def-super-agenda-automap ;; ',(nd/org-def-super-agenda-automap
(let* ((is-atomic (org-x-headline-is-atomic-task-p)) ;; (let* ((is-atomic (org-x-headline-is-atomic-task-p))
;; lump inert and active non-atomic tasks together ;; ;; lump inert and active non-atomic tasks together
(status (--> (org-x-headline-get-task-status) ;; (status (--> (org-x-headline-get-task-status)
(if (and (not is-atomic) (eq it :inert)) ;; (if (and (not is-atomic) (eq it :inert))
:active it))) ;; :active it)))
(priority (alist-get status nd/org-headline-task-status-priorities))) ;; (priority (alist-get status nd/org-headline-task-status-priorities)))
(unless (< priority 0) ;; (unless (< priority 0)
(-let (((level1 subtitle) (if is-atomic '(1 "α") '(0 "σ")))) ;; (-let (((level1 subtitle) (if is-atomic '(1 "α") '(0 "σ"))))
(nd/org-mapper-title level1 priority status subtitle)))))))))) ;; (nd/org-mapper-title level1 priority status subtitle))))))))))
;; Goals - a view for putting my goals in one place ;; ;; Goals - a view for putting my goals in one place
;; ;; ;;
;; I look at this when making my long term plan. If a goal is worth pursuing, ;; ;; I look at this when making my long term plan. If a goal is worth pursuing,
;; I put it on my plan. ;; ;; I put it on my plan.
("g" ;; ("g"
"Goals" ;; "Goals"
((todo ;; ((todo
,(nd/org-mk-match-string org-x-kw-todo) ;; ,(nd/org-mk-match-string org-x-kw-todo)
((org-agenda-overriding-header "Goals") ;; ((org-agenda-overriding-header "Goals")
(org-agenda-files '("~/Org/reference/goals.org")) ;; (org-agenda-files '("~/Org/reference/goals"))
;; seems like this should be in the agenda groups, but works fine here ;; ;; seems like this should be in the agenda groups, but works fine here
(org-agenda-sorting-strategy '(time-up scheduled-down)) ;; (org-agenda-sorting-strategy '(time-up scheduled-down))
(org-super-agenda-groups ;; (org-super-agenda-groups
'((:name "lifetime" :tag "LIFETIME") ;; '((:auto-category)))))))
(:name "10 year" :tag "TENYEAR")
(:name "5 year" :tag "FIVEYEAR")
(:name "1 year" :tag "ONEYEAR")))))))
("p" ;; ("p"
"Project View" ;; "Project View"
((tags-todo ;; ((tags-todo
,(nd/org-mk-match-string ;; ,(nd/org-mk-match-string
- org-x-tag-no-agenda ;; - org-x-tag-no-agenda
- org-x-tag-refile ;; - org-x-tag-refile
- org-x-tag-incubated) ;; - org-x-tag-incubated)
((org-agenda-overriding-header "Projects") ;; ((org-agenda-overriding-header "Projects")
(org-agenda-skip-function #'org-x-project-skip-function) ;; (org-agenda-skip-function #'org-x-project-skip-function)
(org-agenda-sorting-strategy '(category-keep)) ;; (org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups ;; (org-super-agenda-groups
',(nd/org-def-super-agenda-automap ;; ',(nd/org-def-super-agenda-automap
(let* ((status (org-x-headline-get-project-status)) ;; (let* ((status (org-x-headline-get-project-status))
(priority (alist-get status nd/org-x-project-status-priorities))) ;; (priority (alist-get status nd/org-x-project-status-priorities)))
(unless (< priority 0) ;; (unless (< priority 0)
(-let* ((is-subproject (org-x-headline-has-task-parent)) ;; (-let* ((is-subproject (org-x-headline-has-task-parent))
((level1 subtitle) (if is-subproject '(1 "σ") '(0 "τ")))) ;; ((level1 subtitle) (if is-subproject '(1 "σ") '(0 "τ"))))
(nd/org-mapper-title level1 priority status subtitle)))))))))) ;; (nd/org-mapper-title level1 priority status subtitle))))))))))
("i" ;; ("i"
"Incubator View" ;; "Incubator View"
((tags ;; ((tags
,(nd/org-mk-match-string ;; ,(nd/org-mk-match-string
- org-x-tag-no-agenda ;; - org-x-tag-no-agenda
- org-x-tag-refile ;; - org-x-tag-refile
+ org-x-tag-incubated) ;; + org-x-tag-incubated)
((org-agenda-overriding-header "Incubator") ;; ((org-agenda-overriding-header "Incubator")
(org-agenda-skip-function #'org-x-incubator-skip-function) ;; (org-agenda-skip-function #'org-x-incubator-skip-function)
(org-agenda-sorting-strategy '(category-keep)) ;; (org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups ;; (org-super-agenda-groups
`((:name "Past Deadlines" :deadline past) ;; `((:name "Past Deadlines" :deadline past)
(:name "Future Deadlines" :deadline future) ;; (:name "Future Deadlines" :deadline future)
,(nd/org-def-super-agenda-pred "Stale Appointments" ;; ,(nd/org-def-super-agenda-pred "Stale Appointments"
(org-x-headline-is-stale-p)) ;; (org-x-headline-is-stale-p))
,(nd/org-def-super-agenda-pred "Future Appointments" ;; ,(nd/org-def-super-agenda-pred "Future Appointments"
(not (org-x-headline-is-todoitem-p))) ;; (not (org-x-headline-is-todoitem-p)))
,(nd/org-def-super-agenda-pred "Tasks" ;; ,(nd/org-def-super-agenda-pred "Tasks"
(org-x-headline-is-task-p)) ;; (org-x-headline-is-task-p))
,(nd/org-def-super-agenda-pred "Toplevel Projects" ;; ,(nd/org-def-super-agenda-pred "Toplevel Projects"
(org-x-headline-is-toplevel-project-p)) ;; (org-x-headline-is-toplevel-project-p))
,(nd/org-def-super-agenda-pred "Projects" ;; ,(nd/org-def-super-agenda-pred "Projects"
(org-x-headline-is-project-p)) ;; (org-x-headline-is-project-p))
(:discard (:anything t)))))))) ;; (:discard (:anything t))))))))
("P" ;; ("P"
"Periodical View" ;; "Periodical View"
((tags ;; ((tags
,(nd/org-mk-match-string - org-x-tag-no-agenda - org-x-tag-refile) ;; ,(nd/org-mk-match-string - org-x-tag-no-agenda - org-x-tag-refile)
((org-agenda-overriding-header "Periodical Status") ;; ((org-agenda-overriding-header "Periodical Status")
(org-agenda-skip-function #'org-x-periodical-skip-function) ;; (org-agenda-skip-function #'org-x-periodical-skip-function)
(org-agenda-sorting-strategy '(category-keep)) ;; (org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups ;; (org-super-agenda-groups
',(nd/org-def-super-agenda-automap ;; ',(nd/org-def-super-agenda-automap
(cl-case (org-x-headline-get-periodical-status) ;; (cl-case (org-x-headline-get-periodical-status)
(:uninit "0. Uninitialized") ;; (:uninit "0. Uninitialized")
(:unscheduled "0. Unscheduled") ;; (:unscheduled "0. Unscheduled")
(:empt "1. Empty") ;; (:empt "1. Empty")
(:actv "2. Active") ;; (:actv "2. Active")
(t "3. Other")))))))) ;; (t "3. Other"))))))))
("I" ;; ("I"
"Iterator View" ;; "Iterator View"
((tags ;; ((tags
,(nd/org-mk-match-string - org-x-tag-no-agenda - org-x-tag-refile) ;; ,(nd/org-mk-match-string - org-x-tag-no-agenda - org-x-tag-refile)
((org-agenda-overriding-header "Iterator Status") ;; ((org-agenda-overriding-header "Iterator Status")
(org-agenda-skip-function #'org-x-iterator-skip-function) ;; (org-agenda-skip-function #'org-x-iterator-skip-function)
(org-agenda-sorting-strategy '(category-keep)) ;; (org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups ;; (org-super-agenda-groups
',(nd/org-def-super-agenda-automap ;; ',(nd/org-def-super-agenda-automap
(cl-case (org-x-headline-get-iterator-status) ;; (cl-case (org-x-headline-get-iterator-status)
(:uninit "0. Uninitialized") ;; (:uninit "0. Uninitialized")
(:project-error "0. Project Error") ;; (:project-error "0. Project Error")
(:unscheduled "0. Unscheduled") ;; (:unscheduled "0. Unscheduled")
(:empt "1. Empty") ;; (:empt "1. Empty")
(:actv "2. Active") ;; (:actv "2. Active")
(t "3. Other")))))))) ;; (t "3. Other"))))))))
("r" "Refile" ;; ("r" "Refile"
((tags ,org-x-tag-refile ((org-agenda-overriding-header "Tasks to Refile")) ;; ((tags ,org-x-tag-refile ((org-agenda-overriding-header "Tasks to Refile"))
(org-tags-match-list-sublevels nil)))) ;; (org-tags-match-list-sublevels nil))))
("f" "Flagged" ;; ("f" "Flagged"
((tags ,org-x-tag-flagged ((org-agenda-overriding-header "Flagged Tasks"))))) ;; ((tags ,org-x-tag-flagged ((org-agenda-overriding-header "Flagged Tasks")))))
("e" ;; ("e"
"Critical Errors" ;; "Critical Errors"
((tags ;; ((tags
,(nd/org-mk-match-string ;; ,(nd/org-mk-match-string
- org-x-tag-no-agenda ;; - org-x-tag-no-agenda
- org-x-tag-refile ;; - org-x-tag-refile
- org-x-tag-incubated) ;; - org-x-tag-incubated)
((org-agenda-overriding-header "Critical Errors") ;; ((org-agenda-overriding-header "Critical Errors")
(org-agenda-skip-function #'org-x-error-skip-function) ;; (org-agenda-skip-function #'org-x-error-skip-function)
(org-super-agenda-groups ;; (org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Discontinuous Projects" ;; `(,(nd/org-def-super-agenda-pred "Discontinuous Projects"
(org-x-headline-is-discontinous-project-task-p)) ;; (org-x-headline-is-discontinous-project-task-p))
;; TODO this is redundant, only thing this checks is project headers ;; ;; TODO this is redundant, only thing this checks is project headers
,(nd/org-def-super-agenda-pred "Done Unclosed" ;; ,(nd/org-def-super-agenda-pred "Done Unclosed"
(org-x-headline-is-done-unclosed-task-p)) ;; (org-x-headline-is-done-unclosed-task-p))
,(nd/org-def-super-agenda-pred "Undone Closed" ;; ,(nd/org-def-super-agenda-pred "Undone Closed"
(org-x-headline-is-undone-closed-task-p)) ;; (org-x-headline-is-undone-closed-task-p))
,(nd/org-def-super-agenda-pred "Missing Creation Timestamp" ;; ,(nd/org-def-super-agenda-pred "Missing Creation Timestamp"
(org-x-headline-is-task-without-creation-timestamp-p)) ;; (org-x-headline-is-task-without-creation-timestamp-p))
,(nd/org-def-super-agenda-pred "Missing Archive Target (iterators)" ;; ,(nd/org-def-super-agenda-pred "Missing Archive Target (iterators)"
(org-x-headline-is-iterator-without-archive-target-p)) ;; (org-x-headline-is-iterator-without-archive-target-p))
,(nd/org-def-super-agenda-pred "Future Creation Timestamp" ;; ,(nd/org-def-super-agenda-pred "Future Creation Timestamp"
(org-x-headline-is-task-with-future-creation-timestamp-p)) ;; (org-x-headline-is-task-with-future-creation-timestamp-p))
,(nd/org-def-super-agenda-pred "Meeting without Effort" ;; ,(nd/org-def-super-agenda-pred "Meeting without Effort"
(org-x-headline-is-open-meeting-without-effort-p)) ;; (org-x-headline-is-open-meeting-without-effort-p))
(:discard (:anything t)))))))) ;; (:discard (:anything t))))))))
("m" ;; ("m"
"Meetings" ;; "Meetings"
((tags-todo ;; ((tags-todo
,(nd/org-mk-match-string ;; ,(nd/org-mk-match-string
- org-x-tag-refile ;; - org-x-tag-refile
+ org-x-tag-meeting) ;; + org-x-tag-meeting)
((org-agenda-overriding-header "Meetings") ;; ((org-agenda-overriding-header "Meetings")
;; seems like this should be in the agenda groups, but works fine here ;; ;; seems like this should be in the agenda groups, but works fine here
(org-agenda-skip-function ;; (org-agenda-skip-function
(lambda () ;; (lambda ()
(-when-let (ts (org-x--headline-get-property-epoch-time "SCHEDULED")) ;; (-when-let (ts (org-x--headline-get-property-epoch-time "SCHEDULED"))
(when (< ts (- (float-time) 10368000)) ;; (when (< ts (- (float-time) 10368000))
(org-x-skip-heading))))) ;; (org-x-skip-heading)))))
(org-agenda-sorting-strategy '(time-up scheduled-down)) ;; (org-agenda-sorting-strategy '(time-up scheduled-down))
(org-super-agenda-groups ;; (org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Open: Unscheduled Meetings" ;; `(,(nd/org-def-super-agenda-pred "Open: Unscheduled Meetings"
(org-x-headline-is-open-unscheduled-meeting-p)) ;; (org-x-headline-is-open-unscheduled-meeting-p))
,(nd/org-def-super-agenda-pred "Open: Invalid States" ;; ,(nd/org-def-super-agenda-pred "Open: Invalid States"
(org-x-headline-is-open-meeting-with-invalid-keyword-p)) ;; (org-x-headline-is-open-meeting-with-invalid-keyword-p))
,(nd/org-def-super-agenda-pred "Open: Needs Agenda Items" ;; ,(nd/org-def-super-agenda-pred "Open: Needs Agenda Items"
(org-x-headline-is-open-meeting-without-agenda-p)) ;; (org-x-headline-is-open-meeting-without-agenda-p))
,(nd/org-def-super-agenda-pred "Open: Missing Location" ;; ,(nd/org-def-super-agenda-pred "Open: Missing Location"
(org-x-headline-is-open-meeting-without-location-p)) ;; (org-x-headline-is-open-meeting-without-location-p))
,(nd/org-def-super-agenda-pred "Open: Scheduled" ;; ,(nd/org-def-super-agenda-pred "Open: Scheduled"
(org-x-headline-is-open-meeting-p)) ;; (org-x-headline-is-open-meeting-p))
,(nd/org-def-super-agenda-pred "Closed: Unresolved Agenda" ;; ,(nd/org-def-super-agenda-pred "Closed: Unresolved Agenda"
(org-x-headline-is-closed-meeting-with-unresolved-agenda-p)) ;; (org-x-headline-is-closed-meeting-with-unresolved-agenda-p))
,(nd/org-def-super-agenda-pred "Closed: Needs Action Items" ;; ,(nd/org-def-super-agenda-pred "Closed: Needs Action Items"
(org-x-headline-is-closed-meeting-without-action-items-p)) ;; (org-x-headline-is-closed-meeting-without-action-items-p))
,(nd/org-def-super-agenda-pred "Closed: Resolved" ;; ,(nd/org-def-super-agenda-pred "Closed: Resolved"
(org-x-headline-is-closed-meeting-p)) ;; (org-x-headline-is-closed-meeting-p))
(:discard (:anything t)))))))) ;; (:discard (:anything t))))))))
("A" ;; ("A"
"Archivable Tasks and Projects" ;; "Archivable Tasks and Projects"
((tags ;; ((tags
,(nd/org-mk-match-string ;; ,(nd/org-mk-match-string
- org-x-tag-no-agenda ;; - org-x-tag-no-agenda
- org-x-tag-refile ;; - org-x-tag-refile
- org-x-tag-no-archive) ;; - org-x-tag-no-archive)
((org-agenda-overriding-header "Archive") ;; ((org-agenda-overriding-header "Archive")
(org-agenda-skip-function #'org-x-archive-skip-function) ;; (org-agenda-skip-function #'org-x-archive-skip-function)
(org-agenda-sorting-strategy '(category-keep)) ;; (org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups ;; (org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Atomic Tasks" ;; `(,(nd/org-def-super-agenda-pred "Atomic Tasks"
(org-x-headline-is-atomic-task-p)) ;; (org-x-headline-is-atomic-task-p))
,(nd/org-def-super-agenda-pred "Toplevel Projects" ;; ,(nd/org-def-super-agenda-pred "Toplevel Projects"
(org-x-headline-is-toplevel-project-p)) ;; (org-x-headline-is-toplevel-project-p))
,(nd/org-def-super-agenda-pred "Projects" ;; ,(nd/org-def-super-agenda-pred "Projects"
(org-x-headline-is-project-p)) ;; (org-x-headline-is-project-p))
(:name "Appointments" :anything))))))))) ;; (:name "Appointments" :anything)))))))))
(defun nd/org-agenda-call (name type match settings)
(declare (indent 3))
(let ((bname (format "*Agenda: %s*" name)))
(catch 'exit
(let ((org-agenda-buffer-name bname))
(org-agenda-run-series name `(((,type ,match ,settings))))))))
(defun nd/org-agenda-timeblock ()
"Show the timeblock agenda view.
In the order of display
1. morning tasks/habits (to do immediately after waking)
2. daily calendar (for thing that begin today at a specific time)
3. evening tasks/habits (to do immediately before sleeping)
4. habits"
(interactive)
(nd/org-agenda-call "Timeblock" 'agenda ""
'((org-agenda-skip-function #'org-x-calendar-skip-function)
(org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
(org-agenda-include-diary t)
(org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Morning routine"
(org-x-headline-has-property org-x-prop-routine
org-x-prop-routine-morning)
:order 0)
,(nd/org-def-super-agenda-pred "Evening routine"
(org-x-headline-has-property org-x-prop-routine
org-x-prop-routine-evening)
:order 3)
(:name "Calendar" :order 1 :time-grid t)
(:discard (:anything t)))))))
(defun nd/org-agenda-goals ()
"Show the goals agenda view."
(interactive)
(nd/org-agenda-call "Goals" 'todo org-x-kw-todo
'((org-agenda-overriding-header "Goals")
(org-agenda-files
'("~/Org/reference/goals"))
(org-agenda-sorting-strategy
'(time-up scheduled-down))
(org-super-agenda-groups
'((:auto-category))))))
(defun nd/org-agenda-daily ()
"Show the daily agenda view"
(interactive)
(nd/org-agenda-call "Daily" 'agenda ""
'((org-agenda-skip-function #'org-x-calendar-skip-function)
(org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
(org-agenda-include-diary t)
(org-super-agenda-groups
`((:name "Habits" :order 1 :habit t)
(:discard (:time-grid t))
(:discard (:pred ,(nd/org-mk-super-agenda-pred
'((or (org-x-headline-has-property
org-x-prop-routine
org-x-prop-routine-evening)
(org-x-headline-has-property
org-x-prop-routine
org-x-prop-routine-morning))))))
,(nd/org-def-super-agenda-pred "Deadlined Projects"
(progn
;; TODO IDK why this is needed, but the point starts on the
;; deadline timestamp and then the project test fails
(org-back-to-heading t)
(and (org-x-headline-is-deadlined-p)
(org-x-headline-is-project-p)))
:order 7)
(:name "Deadlined Tasks" :order 5 :deadline t)
(:name "Scheduled" :order 4 :scheduled t))))))
(defun nd/org-agenda-tasks ()
"Show the tasks agenda view.
Distinguish between independent and project tasks, as well as
tasks that are inert (which I may move to the incubator during a
review phase)"
(interactive)
(let ((match (nd/org-mk-match-string
- org-x-tag-no-agenda
- org-x-tag-refile
- org-x-tag-incubated
/ org-x-kw-todo
| org-x-kw-next
| org-x-kw-wait
| org-x-kw-hold
| org-x-kw-canc)))
(nd/org-agenda-call "Tasks" 'tags-todo match
`((org-agenda-overriding-header "Tasks")
(org-agenda-skip-function #'org-x-task-skip-function)
(org-agenda-todo-ignore-with-date t)
(org-agenda-sorting-strategy '(user-defined-up category-keep))
(org-super-agenda-groups
',(nd/org-def-super-agenda-automap
(let* ((is-atomic (org-x-headline-is-atomic-task-p))
;; lump inert and active non-atomic tasks together
(status (--> (org-x-headline-get-task-status)
(if (and (not is-atomic) (eq it :inert))
:active it)))
(priority (alist-get status nd/org-headline-task-status-priorities)))
(unless (< priority 0)
(-let (((level1 subtitle) (if is-atomic '(1 "α") '(0 "σ"))))
(nd/org-mapper-title level1 priority status subtitle))))))))))
(defun nd/org-agenda-projects ()
"Show the projects agenda view."
(interactive)
(let ((match (nd/org-mk-match-string
- org-x-tag-no-agenda
- org-x-tag-refile
- org-x-tag-incubated)))
(nd/org-agenda-call "Projects" 'tags-todo match
`((org-agenda-overriding-header "Projects")
(org-agenda-skip-function #'org-x-project-skip-function)
(org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups
',(nd/org-def-super-agenda-automap
(let* ((status (org-x-headline-get-project-status))
(priority (alist-get status nd/org-x-project-status-priorities)))
(unless (< priority 0)
(-let* ((is-subproject (org-x-headline-has-task-parent))
((level1 subtitle) (if is-subproject '(1 "σ") '(0 "τ"))))
(nd/org-mapper-title level1 priority status subtitle))))))))))
(defun nd/org-agenda-incubator ()
"Show the incubator agenda view."
(interactive)
(let ((match
(nd/org-mk-match-string
- org-x-tag-no-agenda
- org-x-tag-refile
+ org-x-tag-incubated)))
(nd/org-agenda-call "Incubator" 'tags-todo match
'((org-agenda-overriding-header "Incubator")
(org-agenda-skip-function #'org-x-incubator-skip-function)
(org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups
`((:name "Past Deadlines" :deadline past)
(:name "Future Deadlines" :deadline future)
,(nd/org-def-super-agenda-pred "Stale Appointments"
(org-x-headline-is-stale-p))
,(nd/org-def-super-agenda-pred "Future Appointments"
(not (org-x-headline-is-todoitem-p)))
,(nd/org-def-super-agenda-pred "Tasks"
(org-x-headline-is-task-p))
,(nd/org-def-super-agenda-pred "Toplevel Projects"
(org-x-headline-is-toplevel-project-p))
,(nd/org-def-super-agenda-pred "Projects"
(org-x-headline-is-project-p))
(:discard (:anything t))))))))
(defun nd/org-agenda-periodical ()
"Show the periodical agenda view."
(interactive)
(let ((match (nd/org-mk-match-string - org-x-tag-no-agenda
- org-x-tag-refile)))
(nd/org-agenda-call "Periodicals" 'tags match
`((org-agenda-overriding-header "Periodical Status")
(org-agenda-skip-function #'org-x-periodical-skip-function)
(org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups
',(nd/org-def-super-agenda-automap
(cl-case (org-x-headline-get-periodical-status)
(:uninit "0. Uninitialized")
(:unscheduled "0. Unscheduled")
(:empt "1. Empty")
(:actv "2. Active")
(t "3. Other"))))))))
(defun nd/org-agenda-iterators ()
"Show the iterator agenda view."
(interactive)
(let ((match (nd/org-mk-match-string - org-x-tag-no-agenda
- org-x-tag-refile)))
(nd/org-agenda-call "Iterators" 'tags match
`((org-agenda-overriding-header "Iterator Status")
(org-agenda-skip-function #'org-x-iterator-skip-function)
(org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups
',(nd/org-def-super-agenda-automap
(cl-case (org-x-headline-get-iterator-status)
(:uninit "0. Uninitialized")
(:project-error "0. Project Error")
(:unscheduled "0. Unscheduled")
(:empt "1. Empty")
(:actv "2. Active")
(t "3. Other"))))))))
(defun nd/org-agenda-refile ()
"Show the refile agenda view."
(interactive)
(let ((match (nd/org-mk-match-string - org-x-tag-no-agenda
- org-x-tag-refile)))
(nd/org-agenda-call "Refile" 'tags org-x-tag-refile
'((org-agenda-overriding-header "Tasks to Refile")))))
(defun nd/org-agenda-errors ()
"Show the critical errors agenda view."
(interactive)
(let ((match (nd/org-mk-match-string
- org-x-tag-no-agenda
- org-x-tag-refile
- org-x-tag-incubated)))
(nd/org-agenda-call "Errors" 'tags match
'((org-agenda-overriding-header "Critical Errors")
(org-agenda-skip-function #'org-x-error-skip-function)
(org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Discontinuous Projects"
(org-x-headline-is-discontinous-project-task-p))
;; TODO this is redundant, only thing this checks is project headers
,(nd/org-def-super-agenda-pred "Done Unclosed"
(org-x-headline-is-done-unclosed-task-p))
,(nd/org-def-super-agenda-pred "Undone Closed"
(org-x-headline-is-undone-closed-task-p))
,(nd/org-def-super-agenda-pred "Missing Creation Timestamp"
(org-x-headline-is-task-without-creation-timestamp-p))
,(nd/org-def-super-agenda-pred "Missing Archive Target (iterators)"
(org-x-headline-is-iterator-without-archive-target-p))
,(nd/org-def-super-agenda-pred "Future Creation Timestamp"
(org-x-headline-is-task-with-future-creation-timestamp-p))
,(nd/org-def-super-agenda-pred "Meeting without Effort"
(org-x-headline-is-open-meeting-without-effort-p))
(:discard (:anything t))))))))
(defun nd/org-agenda-meetings ()
"Show the meetings agenda view."
(interactive)
(let ((match (nd/org-mk-match-string
- org-x-tag-refile
+ org-x-tag-meeting)))
(nd/org-agenda-call "Meetings" 'tags-todo match
'((org-agenda-overriding-header "Meetings")
;; seems like this should be in the agenda groups, but works fine here
(org-agenda-skip-function
(lambda ()
(-when-let (ts (org-x--headline-get-property-epoch-time "SCHEDULED"))
(when (< ts (- (float-time) 10368000))
(org-x-skip-heading)))))
(org-agenda-sorting-strategy '(time-up scheduled-down))
(org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Open: Unscheduled Meetings"
(org-x-headline-is-open-unscheduled-meeting-p))
,(nd/org-def-super-agenda-pred "Open: Invalid States"
(org-x-headline-is-open-meeting-with-invalid-keyword-p))
,(nd/org-def-super-agenda-pred "Open: Needs Agenda Items"
(org-x-headline-is-open-meeting-without-agenda-p))
,(nd/org-def-super-agenda-pred "Open: Missing Location"
(org-x-headline-is-open-meeting-without-location-p))
,(nd/org-def-super-agenda-pred "Open: Scheduled"
(org-x-headline-is-open-meeting-p))
,(nd/org-def-super-agenda-pred "Closed: Unresolved Agenda"
(org-x-headline-is-closed-meeting-with-unresolved-agenda-p))
,(nd/org-def-super-agenda-pred "Closed: Needs Action Items"
(org-x-headline-is-closed-meeting-without-action-items-p))
,(nd/org-def-super-agenda-pred "Closed: Resolved"
(org-x-headline-is-closed-meeting-p))
(:discard (:anything t))))))))
(defun nd/org-agenda-archive ()
"Show the archive agenda view."
(interactive)
(let ((match (nd/org-mk-match-string
- org-x-tag-no-agenda
- org-x-tag-refile
- org-x-tag-no-archive)))
(nd/org-agenda-call "Archive" 'tags-todo match
'((org-agenda-overriding-header "Archive")
(org-agenda-skip-function #'org-x-archive-skip-function)
(org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups
`(,(nd/org-def-super-agenda-pred "Atomic Tasks"
(org-x-headline-is-atomic-task-p))
,(nd/org-def-super-agenda-pred "Toplevel Projects"
(org-x-headline-is-toplevel-project-p))
,(nd/org-def-super-agenda-pred "Projects"
(org-x-headline-is-project-p))
(:name "Appointments" :anything)))))))
#+END_SRC #+END_SRC
** tracking and analytics ** tracking and analytics
:PROPERTIES: :PROPERTIES:
@ -4571,7 +4848,21 @@ This key collides with plenty of other stuff, notably scheduling in org mode
:END: :END:
The function keys are nice because they are almost (not always) free in every mode. Therefore I use these for functions that I need to access anywhere, but not necessary extremely often (because they are out of the way and harder to reach). The function keys are nice because they are almost (not always) free in every mode. Therefore I use these for functions that I need to access anywhere, but not necessary extremely often (because they are out of the way and harder to reach).
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(global-set-key (kbd "<f1>") 'org-agenda) (defhydra hydra-modes (global-map "<f1>" :exit t)
"agenda views"
("b" #'nd/org-agenda-timeblock)
("d" #'nd/org-agenda-daily)
("g" #'nd/org-agenda-goals)
("r" #'nd/org-agenda-refile)
("t" #'nd/org-agenda-tasks)
("p" #'nd/org-agenda-projects)
("i" #'nd/org-agenda-incubator)
("I" #'nd/org-agenda-iterators)
("I" #'nd/org-agenda-periodical)
("a" #'nd/org-agenda-archive)
("m" #'nd/org-agenda-meetings)
("e" #'nd/org-agenda-errors))
(global-set-key (kbd "<f2>") 'org-capture) (global-set-key (kbd "<f2>") 'org-capture)
(global-set-key (kbd "<f3>") 'cfw:open-org-calendar) (global-set-key (kbd "<f3>") 'cfw:open-org-calendar)
(global-set-key (kbd "C-<f3>") 'org-x-agg-show-conflicts) (global-set-key (kbd "C-<f3>") 'org-x-agg-show-conflicts)