diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-16 11:40:44 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-16 11:41:15 +0000 |
| commit | 415db5a3bd043be53cd7431f2b373897b86ba4ef (patch) | |
| tree | b7d8b78f4141a5b6578e202ceff7ab8c193178f5 /Emacs | |
| parent | ada97a65d5bb364b95d9ee9f61e72926203f5309 (diff) | |
| download | dotfiles-415db5a3bd043be53cd7431f2b373897b86ba4ef.tar.gz dotfiles-415db5a3bd043be53cd7431f2b373897b86ba4ef.tar.bz2 dotfiles-415db5a3bd043be53cd7431f2b373897b86ba4ef.zip | |
Refactor +dired/--subdirs-not-inserted
Diffstat (limited to 'Emacs')
| -rw-r--r-- | Emacs/.config/emacs/config.org | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Emacs/.config/emacs/config.org b/Emacs/.config/emacs/config.org index 65ddcd9..ba8f9de 100644 --- a/Emacs/.config/emacs/config.org +++ b/Emacs/.config/emacs/config.org @@ -3247,13 +3247,12 @@ Here I setup dired with a few niceties (defun +dired/--subdirs-not-inserted () (dired-unmark-all-marks) (dired-mark-directories nil) - (let* ((subdirs-present (mapcar #'car dired-subdir-alist)) - (subdirs-left (thread-last - (dired-get-marked-files) - (mapcar #'(lambda (x) (concat x "/"))) - (cl-remove-if #'(lambda (f) (member f subdirs-present)))))) + (let* ((subdirs-inserted (mapcar #'car dired-subdir-alist)) + (subdirs-available (mapcar #'(lambda (x) (concat x "/")) + (dired-get-marked-files)))) (dired-unmark-all-marks) - subdirs-left)) + (cl-remove-if #'(lambda (f) (member f subdirs-present)) + subdirs-available))) (defun +dired/insert-all-subdirectories (&optional arg) "Insert all subdirectories recursively." |