diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 07cf0b82..a246a1d0 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -3075,9 +3075,66 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 (add-hook 'org-mode-hook 'imalison:set-display-custom-times) (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode) (add-hook 'org-agenda-mode-hook 'imalison:set-display-custom-times) - (add-hook 'org-agenda-mode-hook 'imalison:disable-linum-mode) + (defmacro imalison:def-agenda-pred (&rest forms) + `(lambda () + (unless ,@forms + (or (outline-next-heading) + (point-max))))) + + (defun imalison:org-known-assignees () + (list imalison:org-whoami)) + + (cl-defun imalison:set-assignee (&key assignee (override t)) + (interactive) + (let ((chosen-assignee (if (called-interactively-p 'interactive) + (completing-read "Choose assignee: " + (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)))) + + (defun imalison:assign-to-self-if-unassigned () + (interactive) + (imalison:set-assignee :assignee imalison:org-whoami :override nil)) + + (defun imalison:shared-org-file-p () + (string-prefix-p (file-truename imalison:shared-org-dir) + (file-truename default-directory))) + + (defun imalison:habit-or-repeating-heading () + (org-is-habit-p)) + + (defun imalison:shared-non-habit-p () + (and (not (imalison:habit-or-repeating-heading)) + (imalison:shared-org-file-p))) + + (defvar imalison:auto-assign-to-self-predicates + (list 'imalison:shared-non-habit-p)) + + (defun imalison:auto-assign-to-self-when () + (cl-loop for pred in imalison:auto-assign-to-self-predicates + when (funcall pred) + return t + finally return nil)) + + (defun imalison:maybe-auto-assign-to-self (&rest args) + (when (imalison:auto-assign-to-self-when) + (imalison:assign-to-self-if-unassigned))) + + (advice-add 'org-schedule :after 'imalison:maybe-auto-assign-to-self) + + (cl-defun imalison:assigned-to-me (&key (include-unassigned t)) + (let ((assignee (org-entry-get nil "ASSIGNEE"))) + (or (string-equal assignee imalison:org-whoami) + (and include-unassigned (null assignee))))) + + (defalias 'imalison:assigned-to-me-agenda-pred + (imalison:def-agenda-pred + (imalison:assigned-to-me))) + (cl-defun imalison:org-time-condition-met-p (&key (property "CREATED") (days 30) (future nil)) (let* ((property-value (org-entry-get (point) property)) (comparison-time @@ -3381,11 +3438,6 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 :STYLE: habit :END:")) - (defmacro imalison:def-agenda-pred (&rest forms) - `(lambda () - (unless ,@forms - (or (outline-next-heading) - (point-max))))) (defun org-get-priority-at-point () (save-excursion @@ -3448,7 +3500,8 @@ The following is taken from [[https://github.com/syl20bnr/spacemacs/blob/a650877 ((agenda "" ((org-agenda-overriding-header "Agenda:") (org-agenda-ndays 5) - (org-deadline-warning-days 0))) + (org-deadline-warning-days 0) + (org-agenda-skip-function 'imalison:assigned-to-me-agenda-pred))) ,due-today ,next ,started