Commit 369c1285fdaf

Vincent Demeester <vincent@sbr.pm>
2025-06-19 23:13:44
tools/emacs: configure org-refile better…
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
1 parent d132006
Changed files (1)
tools
emacs
tools/emacs/init.el
@@ -945,6 +945,9 @@ minibuffer, even without explicitly focusing it."
   (org-list-demote-modify-bullet '(("+" . "-") ("-" . "+")))
   (org-agenda-file-regexp "^[a-zA-Z0-9-_]+.org$")
   (org-agenda-files `(,org-inbox-file ,org-todos-file))
+  (org-refile-targets '((org-agenda-files :maxlevel . 3)))
+  (org-refile-use-outline-path 'file)
+  (org-refile-allow-creating-parent-nodes 'confirm)
   (org-agenda-remove-tags t)
   (org-agenda-span 'day)
   (org-agenda-start-on-weekday 1)
@@ -1075,7 +1078,24 @@ minibuffer, even without explicitly focusing it."
   (unbind-key "C-S-<left>" org-mode-map)
   (unbind-key "C-S-<right>" org-mode-map)
   (unbind-key "C-S-<up>" org-mode-map)
-  (unbind-key "C-S-<down>" org-mode-map))
+  (unbind-key "C-S-<down>" org-mode-map)
+
+  (require 'dash)
+  (require 's)
+  (defun vde/org-refile-targets ()
+    (append '((org-inbox-file :level . 0)
+	      (org-todos-file :maxlevel . 3))
+	    (->>
+	     (directory-files org-notes-directory nil ".org$")
+	     (--remove (s-starts-with? "." it))
+	     (--remove (s-contains? "==readwise=" it))
+	     (--map (format "%s/%s" org-notes-directory it))
+	     (--map `(,it :maxlevel . 3)))
+	    (->>
+	     (directory-files org-people-dir ".org$")
+	     (--remove (s-starts-with? (format "%s/legacy" org-people-dir) it))
+	     (--map (format "%s" it))
+	     (--map `(,it :maxlevel . 3))))))
 
 (use-package org-agenda
   :after org