REF put todo keywords in terms of org-x

This commit is contained in:
Nathan Dwarshuis 2021-04-18 14:17:31 -04:00
parent 8175d09a1d
commit 15dddc1b3b
1 changed files with 29 additions and 27 deletions

View File

@ -2086,25 +2086,25 @@ These keywords are used universally for all org files (see below on quick explan
In terms of logging, I like to record the time of each change upon leaving any state, and I like recording information in notes when waiting, holding, or canceling (as these usually have some external trigger or barrier that should be specified). In terms of logging, I like to record the time of each change upon leaving any state, and I like recording information in notes when waiting, holding, or canceling (as these usually have some external trigger or barrier that should be specified).
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-todo-keywords (setq org-todo-keywords
'((sequence `((sequence
;; default undone state ;; default undone state
"TODO(t/!)" ,(format "%s(t/!)" org-x-kw-todo)
;; undone but available to do now (projects only) ;; undone but available to do now (projects only)
"NEXT(n/!)" "|" ,(format "%s(n/!)" org-x-kw-next) "|"
;; done and complete ;; done and complete
"DONE(d/!)") ,(format "%s(d/!)" org-x-kw-done))
(sequence (sequence
;; undone and waiting on some external dependency ;; undone and waiting on some external dependency
"WAIT(w@/!)" ,(format "%s(w@/!)" org-x-kw-wait)
;; undone but signifies tasks on which I don't wish to focus at the moment ;; undone but signifies tasks on which I don't wish to focus at the moment
"HOLD(h@/!)" "|" ,(format "%s(h@/!)" org-x-kw-hold) "|"
;; done but not complete ;; done but not complete
"CANC(c@/!)"))) ,(format "%s(c@/!)" org-x-kw-canc))))
#+END_SRC #+END_SRC
**** colors **** colors
:PROPERTIES: :PROPERTIES:
@ -2112,13 +2112,13 @@ In terms of logging, I like to record the time of each change upon leaving any s
:END: :END:
Aesthetically, I like all my keywords to have bold colors. Aesthetically, I like all my keywords to have bold colors.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(setq org-todo-keyword-faces (setq org-todo-keyword-faces
'(("TODO" :foreground "light coral" :weight bold) `((,org-x-kw-todo :foreground "light coral" :weight bold)
("NEXT" :foreground "khaki" :weight bold) (,org-x-kw-next :foreground "khaki" :weight bold)
("DONE" :foreground "light green" :weight bold) (,org-x-kw-done :foreground "light green" :weight bold)
("WAIT" :foreground "orange" :weight bold) (,org-x-kw-wait :foreground "orange" :weight bold)
("HOLD" :foreground "violet" :weight bold) (,org-x-kw-hold :foreground "violet" :weight bold)
("CANC" :foreground "deep sky blue" :weight bold))) (,org-x-kw-canc :foreground "deep sky blue" :weight bold)))
#+END_SRC #+END_SRC
**** habits **** habits
:PROPERTIES: :PROPERTIES:
@ -2128,7 +2128,7 @@ Habits consider any "done" todo keyword as "complete." I have =CANC= as a done k
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defun nd/org-habit-parse-todo-advice (orig-fn &rest args) (defun nd/org-habit-parse-todo-advice (orig-fn &rest args)
"Advice to make the habit tracker only mark DONE habits as complete." "Advice to make the habit tracker only mark DONE habits as complete."
(let ((org-done-keywords '("DONE"))) (let ((org-done-keywords `(,org-x-kw-done)))
(unwind-protect (apply orig-fn args)))) (unwind-protect (apply orig-fn args))))
(advice-add #'org-habit-parse-todo :around #'nd/org-habit-parse-todo-advice) (advice-add #'org-habit-parse-todo :around #'nd/org-habit-parse-todo-advice)
@ -2254,8 +2254,10 @@ NOTE: Capitalized entries store a link to the capture along with writing to the
(time-add (current-time) (days-to-time 1)))) (time-add (current-time) (days-to-time 1))))
(let* ((capfile "~/Org/capture.org") (let* ((capfile "~/Org/capture.org")
(todo-options `(entry (file ,capfile) "* TODO %?\n")) (todo-options `(entry (file ,capfile) "* %(eval org-x-kw-todo) %?\n"))
(deadline-options `(entry (file ,capfile) "* TODO %?\nDEADLINE: %^t\n"))) (deadline-options `(entry (file ,capfile)
,(concat "* %(eval org-x-kw-todo) %?\n"
"DEADLINE: %^t\n"))))
(setq org-capture-templates (setq org-capture-templates
;; regular TODO task ;; regular TODO task
`(("t" "todo" ,@todo-options) `(("t" "todo" ,@todo-options)
@ -2281,7 +2283,7 @@ NOTE: Capitalized entries store a link to the capture along with writing to the
;; for converting mu4e emails to tasks, defaults to next-day deadline ;; for converting mu4e emails to tasks, defaults to next-day deadline
("e" "email" entry (file ,capfile) ("e" "email" entry (file ,capfile)
,(concat "* TODO Respond to %:fromaddress; Re: %:subject\t:%(eval org-x-tag-laptop):\n" ,(concat "* %(eval org-x-kw-todo) Respond to %:fromaddress; Re: %:subject\t:%(eval org-x-tag-laptop):\n"
"DEADLINE: %(nd/org-timestamp-future 1)\n" "DEADLINE: %(nd/org-timestamp-future 1)\n"
"%a\n")) "%a\n"))
@ -2396,7 +2398,7 @@ Org mode has no way of detecting if conflicts exist. It also has no way of alert
The main code is defined in =org-x= so the following is only to set some domain-specific options. The main code is defined in =org-x= so the following is only to set some domain-specific options.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-x-agg-filtered-files '("incubator" "peripheral") (setq org-x-agg-filtered-files '("incubator" "peripheral")
org-x-agg-filtered-keywords '("CANC" "DONE")) org-x-agg-filtered-keywords (list org-x-kw-canc org-x-kw-done))
#+end_src #+end_src
*** agenda *** agenda
:PROPERTIES: :PROPERTIES:
@ -2626,11 +2628,11 @@ original org entry before executing BODY."
- 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
/ "TODO" / org-x-kw-todo
| "NEXT" | org-x-kw-next
| "WAIT" | org-x-kw-wait
| "HOLD" | org-x-kw-hold
| "CANC") | org-x-kw-canc)
((org-agenda-overriding-header "Tasks") ((org-agenda-overriding-header "Tasks")
(org-agenda-skip-function (org-agenda-skip-function
,(nd/org-x-mk-skip-function ,(nd/org-x-mk-skip-function
@ -2648,7 +2650,7 @@ original org entry before executing BODY."
((org-x-is-project-p) ((org-x-is-project-p)
(org-x-skip-heading)) (org-x-skip-heading))
;; skip canceled tasks ;; skip canceled tasks
((and (equal keyword "CANC") ((and (equal keyword org-x-kw-canc)
(org-x-is-task-p)) (org-x-is-task-p))
(org-x-skip-heading)) (org-x-skip-heading))
;; skip habits ;; skip habits
@ -2701,8 +2703,8 @@ original org entry before executing BODY."
(is-subproject (org-x-headline-has-parent 'org-x-is-todoitem-p)) (is-subproject (org-x-headline-has-parent 'org-x-is-todoitem-p))
;; skip anything that is in a CANC or HOLD project ;; skip anything that is in a CANC or HOLD project
(is-masked (when is-subproject (is-masked (when is-subproject
(or (org-x-is-todo-child "CANC") (or (org-x-is-todo-child org-x-kw-canc)
(org-x-is-todo-child "HOLD"))))) (org-x-is-todo-child org-x-kw-hold)))))
(unless (or is-masked (< priority 0)) (unless (or is-masked (< priority 0))
(--> status (--> status
(symbol-name it) (symbol-name it)