REF put todo keywords in terms of org-x
This commit is contained in:
parent
8175d09a1d
commit
15dddc1b3b
54
etc/conf.org
54
etc/conf.org
|
@ -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:
|
||||||
|
@ -2113,12 +2113,12 @@ In terms of logging, I like to record the time of each change upon leaving any s
|
||||||
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)
|
||||||
|
|
Loading…
Reference in New Issue