colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Add the ability to set completer

Browse Source
This commit is contained in:
Ivan Malison 2023-09-14 22:19:10 -06:00
parent 96371e574b
commit 8d08d746e5
1 changed files with 25 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
dotfiles/emacs.d/org-config.org
View File

@ -237,15 +237,29 @@ We're going to use this to write separate parts of our config to different secti
(defun imalison:org-known-assignees ()
imalison:org-people)
(cl-defun imalison:set-assignee (&key assignee (override t))
(defun imalison:set-person-for-prop (&rest args)
(interactive)
(let ((chosen-assignee (if (called-interactively-p 'interactive)
(completing-read "Choose assignee: "
(if (eq major-mode 'org-agenda-mode)
(org-agenda-with-point-at-orig-entry nil
(apply 'imalison--set-person-for-prop args))
(apply 'imalison--set-person-for-prop args)))
(cl-defun imalison--set-person-for-prop (&key assignee (override t) (property "ASSIGNEE"))
(interactive)
(let ((chosen-person
(if (null assignee)
(completing-read "Choose person: "
(imalison:org-known-assignees)
nil t)
(or assignee imalison:org-whoami))))
(when (or override (not (org-entry-get nil "ASSIGNEE")))
(org-set-property "ASSIGNEE" chosen-assignee))))
(when (or override (not (org-entry-get nil property)))
(org-set-property property chosen-person))))
(defalias 'imalison:set-assignee 'imalison:set-person-for-prop)
(defun imalison:set-completer (&rest args)
(interactive)
(apply 'imalison:set-person-for-prop :property "COMPLETER" args))
(defun imalison:assign-to-self-if-unassigned ()
(interactive)