From 9ac1d01c7e4ba9cc1acf6ac63f3569e3706e513c Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sat, 24 Jan 2026 12:25:38 -0600 Subject: fix(org-refile): skip airootfs directories to avoid permission errors --- modules/org-refile-config.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'modules') diff --git a/modules/org-refile-config.el b/modules/org-refile-config.el index 1cf976d4..05450338 100644 --- a/modules/org-refile-config.el +++ b/modules/org-refile-config.el @@ -101,13 +101,18 @@ so caching improves performance from 15-20 seconds to instant." (push (cons file file-rule) new-files))))) ;; Add todo.org files from known directories + ;; Skip directories that cause permission errors (e.g., archiso airootfs) (dolist (dir (list user-emacs-directory code-dir projects-dir)) - (let* ((todo-files (directory-files-recursively - dir "^[Tt][Oo][Dd][Oo]\\.[Oo][Rr][Gg]$")) - (file-rule '(:maxlevel . 1))) - (dolist (file todo-files) - (unless (assoc file new-files) - (push (cons file file-rule) new-files))))) + (condition-case nil + (let* ((todo-files (directory-files-recursively + dir "^[Tt][Oo][Dd][Oo]\\.[Oo][Rr][Gg]$" + nil + (lambda (d) (not (string-match-p "airootfs" d))))) + (file-rule '(:maxlevel . 1))) + (dolist (file todo-files) + (unless (assoc file new-files) + (push (cons file file-rule) new-files)))) + (permission-denied nil))) ;; Silently skip permission errors ;; Update targets and cache (setq new-files (nreverse new-files)) -- cgit v1.2.3