Add Org refile configuration

1 files changed, 14 insertions, 0 deletions

diff --git a/lisp/ss-org.el b/lisp/ss-org.el
index 6f1ae1b..88590fa 100644
--- a/lisp/ss-org.el
+++ b/lisp/ss-org.el
@@ -243,6 +243,19 @@ This is for significant navigation points only and clears forward history."
   (interactive)
   (find-file (ss-require-existing-file ss-moc-file)))
 
+(defun ss-org-refresh-agenda-files-for-refile (&rest _args)
+  "Refresh `org-agenda-files' before refile when agenda setup is available."
+  (when (fboundp 'ss-refresh-org-agenda-files)
+    (ss-refresh-org-agenda-files)))
+
+(defun ss-org-configure-refile ()
+  "Configure Org refile to target any heading in `org-agenda-files'."
+  (setq org-refile-targets '((org-agenda-files :regexp . "^\\*+ "))
+        org-refile-use-outline-path 'file
+        org-outline-path-complete-in-steps nil)
+  (unless (advice-member-p #'ss-org-refresh-agenda-files-for-refile #'org-refile)
+    (advice-add 'org-refile :before #'ss-org-refresh-agenda-files-for-refile)))
+
 (defun ss-org-setup ()
   "Initialize base Org configuration."
   (use-package org
@@ -259,6 +272,7 @@ This is for significant navigation points only and clears forward history."
                       "DONE(d)" "CANCELLED(x@)"))
           org-log-done 'note
           org-log-into-drawer t)
+            (ss-org-configure-refile)
     (add-hook 'org-mode-hook
               (lambda ()
                 (setq-local org-hide-emphasis-markers t)