oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Refactor +dired/--subdirs-not-inserted

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-16 11:40:44 +00:00
parent ada97a65d5
commit 415db5a3bd
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Emacs/.config/emacs/config.org
View File

@@ -3247,13 +3247,12 @@ Here I setup dired with a few niceties
(defun +dired/--subdirs-not-inserted () (defun +dired/--subdirs-not-inserted ()
(dired-unmark-all-marks) (dired-unmark-all-marks)
(dired-mark-directories nil) (dired-mark-directories nil)
(let* ((subdirs-present (mapcar #'car dired-subdir-alist)) (let* ((subdirs-inserted (mapcar #'car dired-subdir-alist))
(subdirs-left (thread-last (subdirs-available (mapcar #'(lambda (x) (concat x "/"))
(dired-get-marked-files) (dired-get-marked-files))))
(mapcar #'(lambda (x) (concat x "/")))
(cl-remove-if #'(lambda (f) (member f subdirs-present))))))
(dired-unmark-all-marks) (dired-unmark-all-marks)
subdirs-left)) (cl-remove-if #'(lambda (f) (member f subdirs-present))
subdirs-available)))
(defun +dired/insert-all-subdirectories (&optional arg) (defun +dired/insert-all-subdirectories (&optional arg)
"Insert all subdirectories recursively." "Insert all subdirectories recursively."