pop-os/emacs: Add agenda file collection function

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)