diff options
| -rw-r--r-- | oni/home/config/pop-os/emacs.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/oni/home/config/pop-os/emacs.el b/oni/home/config/pop-os/emacs.el index 19434c5..daaaac9 100644 --- a/oni/home/config/pop-os/emacs.el +++ b/oni/home/config/pop-os/emacs.el @@ -1289,3 +1289,16 @@ Optional argument STOPP means stop on any defect." (global-set-key (kbd "C-c g b") '("Git Blame current file" . magit-blame)) (global-set-key (kbd "C-c g l") '("Show file's git log" . magit-log-buffer-file)) +(defun my-set-agenda-files (&rest _) + (setq org-agenda-files + (cl-loop + for file in (org-mem-all-files) + unless (string-search "archive" file) + when (seq-find (lambda (entry) + (or (org-mem-entry-active-timestamps entry) + (org-mem-entry-todo-state entry) + (org-mem-entry-scheduled entry) + (org-mem-entry-deadline entry))) + (org-mem-entries-in file)) + collect file))) +(add-hook 'org-mem-post-full-scan-functions #'my-set-agenda-files) |