[Emacs] Add completer field to TODOs

This commit is contained in:
Ivan Malison 2023-09-13 15:31:06 -06:00
parent 5560bc0ca2
commit 291f91dbb8
2 changed files with 14 additions and 1 deletions

View File

@ -22,6 +22,7 @@
helm-show-kill-ring helm-show-kill-ring
imalison:avy imalison:avy
imalison:multi-line imalison:multi-line
increase-left-margin
indent-for-tab-command indent-for-tab-command
indent-region indent-region
insert-register insert-register
@ -49,6 +50,7 @@
skeleton-pair-insert-maybe skeleton-pair-insert-maybe
sp-backward-sexp sp-backward-sexp
sp-forward-sexp sp-forward-sexp
sp-forward-slurp-sexp
sp-remove-active-pair-overlay sp-remove-active-pair-overlay
sp-splice-sexp sp-splice-sexp
sp-splice-sexp-killing-backward sp-splice-sexp-killing-backward

View File

@ -222,7 +222,7 @@ We're going to use this to write separate parts of our config to different secti
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
#+end_src #+end_src
** Assignee ** Assignee/Completer
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(defmacro imalison:def-agenda-pred (&rest forms) (defmacro imalison:def-agenda-pred (&rest forms)
`(lambda () `(lambda ()
@ -282,6 +282,15 @@ We're going to use this to write separate parts of our config to different secti
(imalison:def-agenda-pred (imalison:def-agenda-pred
(imalison:assigned-to-me))) (imalison:assigned-to-me)))
#+end_src #+end_src
*** Add a hook to automatically set completer
#+begin_src emacs-lisp :tangle org-config-config.el
(defun imalison:maybe-add-completer (state-change)
(when
(and (eq (plist-get state-change :type) 'todo-state-change)
(null (org-entry-get nil "COMPLETER")))
(org-set-property "COMPLETER" imalison:org-whoami)))
(add-hook 'org-trigger-hook 'imalison:maybe-add-completer)
#+end_src
** Agenda ** Agenda
#+begin_src emacs-lisp :tangle org-config-config.el #+begin_src emacs-lisp :tangle org-config-config.el
(require 'org-agenda) (require 'org-agenda)
@ -944,6 +953,8 @@ alphanumeric characters only."
:repo "colonelpanic8/org-window-habit" :repo "colonelpanic8/org-window-habit"
:host github :host github
:files ("org-window-habit.el")) :files ("org-window-habit.el"))
:custom
((org-window-habit-property-prefix nil))
:config :config
(progn (progn
(org-window-habit-mode +1))) (org-window-habit-mode +1)))