DiredPlus

This page is about package Dired+ (library dired+.el), which extends functionalities provided by standard GNU Emacs libraries dired.el, dired-aux.el, and dired-x.el. The standard functions are all available, plus many more.

Dired+ Features

For help about Dired+ you can use ‘h’ (or ‘C-h m’) in DiredMode, or ‘M-x diredp-dired-plus-help’ anywhere.

Here are some of the things Dired+ does:

• Changes some key bindings and enhances some menus.
• Adds many new commands. Enhances some existing commands.
• Shows you, in the mode-line how many files and dirs are marked (with ‘*’) and flagged for deletion (with ‘D’). It also shows you how many files and dirs there are in the current listing (a subdir listing or the main listing). (Option `diredp-count-.-and-..-flag’ controls whether to count lines `.’ and `..’.) For example, if:
  • the cursor is on the 4th marked (‘*’) file in the buffer,
  • there are 18 files total that are marked,
  • there are 6 files flagged (‘D’) for deletion,
  • the cursor is on the 35th file of its listing, and
  • that listing shows 107 files, then the mode-line shows ‘4/18* 6D 35/107’.
• Lets you act not only on the marked files and subdirs in the current Dired buffer but also on the marked files and subdirs within any Dired buffers for the marked subdirs, recursively. (Separate commands are available for this.)
• Lets you use commands that normally operate on the marked files to operate instead on all files in a Dired buffer, by using ‘C-u C-u’. Especially useful in Dired buffers with files from multiple directories. Use ‘C-u C-u C-M-g’ to ‘grep’ all files, ‘C-u C-u C’ to copy all files, and so on. Use ‘C-u C-u C-u’ to operate on all directories as well as all files.
• Lets you open Dired for an arbitrary set of files and (non-root) directories, anywhere. Just use a non-positive prefix arg (e.g. ‘C--’) with ‘dired’: you are prompted for the Dired buffer name and for each file or dir to include. You can use glob patterns with wildcards to include all of the matching files and dirs at once.

• Lets you snapshot the set of files and directories in a Dired buffer, to Dired them later, regardless of whether the contents of the original Dired buffer have changed. This is particularly useful to let you Dired a set of files and dirs that results from some possibly long-lasting command, such as ‘find-dired’. Instead of recalculating the set of files to show and act on, you just create a Dired buffer with the set of names recorded previously. There are two ways to do this. One is to use command ‘diredp-define-snapshot-dired-commands’ in any buffer in ‘dired-mode’ or a derived mode, then save the resulting command defuns of commands that restore the snapshot. The other is to use ‘C-M-*’ (‘dired-marked-other-window’) to immediately give you such a snapshot Dired buffer, and then bookmark that buffer. For this latter approach you need library BookmarkPlus. In sum, you either save the definition of a command that restores the snapshot or you create a bookmark that does so.
• Lets you use ‘i’ on any directory listed, to include its own listing in the same buffer. The directory need not be in the same directory tree as the main Dired directory (Emacs enhancement request #18421). ‘i’ on an inserted subdir takes you back to the subdir line in the parent listing (it bounces between the two subdir locations).
• Makes navigational commands wrap around (by default – customize option ‘diredp-wrap-around-flag’ if you do not want this feature). For example, if you use ‘C-M-n’ to go to the next inserted subdirectory and there is none, it wraps around to the first one.
• Provides commands ‘diredp-add-to-dired-buffer’ and ‘diredp-add-to-dired-buffer-other-window’, bound globally to ‘C-x D A’ and ‘C-x 4 D A’, which let you add arbitrary files to an existing Dired buffer.
• Provides commands ‘diredp-dired-union’ and ‘diredp-dired-union-other-window’, bound globally to ‘C-x D U’ and ‘C-x 4 D U’, which let you take the union of multiple Dired listings, or convert an ordinary Dired listing to an explicit list of absolute file names. That is, the new Dired buffer contains all of the files and subdirs listed in the Dired buffers you choose. With a non-positive prefix arg, you can add extra files, just as for ‘diredp-add-to-dired-buffer’. The chosen Dired listings are included in the order you choose them, and each entry is listed only once in the new Dired buffer. The union Dired listing respects the markings, subdirectory insertions, and hidden subdirectories of the chosen Dired listings.

• Lets you open Dired on (only) the files in an Emacs fileset (commands ‘diredp-fileset’ and ‘diredp-fileset-other-window’, bound globally to ‘C-x D S’ and ‘C-x 4 D S’). See the Emacs manual, node Filesets.
• Lets you open a Dired buffer that shows recently used files (‘C-x D R’’) or directories (‘C-x D r’’) – commands ‘diredp-dired-recent-files’ and ‘diredp-dired-recent-dirs’.
• Lets you sort Dired buffers that include arbitrary files and directories (as opposed to Dired buffers that show ‘ls’ output), using ‘C-M-L’ (aka ‘C-M-S-l’). This applies to all buffers created using the commands on prefix keys ‘C-x D’ and ‘C-x 4 D’, and to some other commands.
• You can also revert Dired buffers that include arbitrary files and directories, using ‘g’. For Dired buffers listing recent files or dirs, you can use a prefix arg with ‘g’ in the same way as you can for the commands that create the buffers (e.g. ‘C-x D R’, ‘C-x D r’).

Note: When using a Dired buffer that lists arbitrary files, other than one composed of recent files, be aware that any operation that reverts the listing relists the same file names, and only those that correspond to currently existing files. This means: (1) if any of the files no longer exist then they will no longer be listed (which is likely what you would expect), and (2) if any of the files has been renamed then it will no longer be listed (which is likely not what you would expect). This applies to the use of WDired to rename files: the renamed files are not listed when you return to Dired from WDired. It applies also to the use of ‘R’ (‘dired-do-rename’).

• Lets you reuse Dired buffers (‘C-M-R’, aka ‘C-M-S-r’ toggles this behavior, so you don’t accumulate lots of them that you don’t want to keep around. If the current Dired buffer is already showing in another window, or if the target for a find-file operation is a directory that is already in a Dired buffer, then there is no reuse (the current Dired buffer is not killed when you visit the target).
• Lets you use a single invocation of command ‘dired’ to open Dired on any number of directories or sets of files (which you choose on the fly), if you use Icicles.
• Lets you create bookmarks to all of the marked files and directories, without visiting them. This means you can bookmark files that you cannot even visit in Emacs, such as sound files and image files. If you use Bookmark+, then you can also:
  • Bookmark a project: Bookmark the marked files and dirs and create a bookmark-file bookmark for them. “Jumping” to the bookmark-file bookmark opens the ‘*Bookmark List*’ for those marked-file bookmarks (only).
  • Customize file associations, to create bookmarks with appropriate handlers for additional types of files.

• If you use Bookmark+, then you can add tags to the marked files or remove tags from them. You can mark or unmark the files that have given sets of tags in various ways (files with at least one tag matching a regexp, files with all of their tags matching a list of tags you specify, and so on). These are persistent tags in the “delicious” sense. In effect, an autofile bookmark is used for each file you tag.

• If you use libraries Bookmark+ and Highlight then autofile bookmarks are highlighted in Dired. That is, files that have associated bookmarks of the same name are highlighted. And those that have tags are highlighted using a different face. This highlighting is optional – you can toggle it on/off using command ‘diredp-highlight-autofiles-mode’. Here is a screenshot:

• If you use library help-fns+.el then you can use ‘C-h RET’ (or right-click and choose menu item Describe) to describe the file or directory under the cursor. The information (displayed in ‘*Help*’) includes the file type; permissions; size in bytes times of last access, modification, and status change; number of links; UID; GID inode; and device number. If the file is an autofile then the information includes its tags.

• Provides new mouse utility (extensions) – you can select a region, then operate on its files. Alternative ways to select (mark) multiple files:
  • drag a region, then choose Mark in the popup menu
  • click, then Shift-click, as in Windows Explorer
  • Control-click, as in Windows Explorer (alternately marks and unmarks the file)
• Adds a context-sensitive popup menu on ‘mouse-3’. The menu differs, depending on whether or not a region is active in Dired.

• Shows an image preview in a tooltip when you mouseover an image-file name in Dired. User option ‘diredp-image-preview-in-tooltip’ controls whether this happens and how (full-size image, thumbnail preview of what size).

Thumbnail 100 pixels:

Thumbnail 300 pixels:

Full image:

• Provides fancy highlighting (customizable through user variables).
  • You can see immediately if a file has the wrong permissions (e.g. writable or executable when it shouldn’t be).
  • Less important files (defined by variable dired-omit-extensions or completion-ignored-extensions) are in a subdued face; other files stand out more. To hide less important files altogether, use ‘M-o’ (it’s a toggle) – see DiredOmitMode.
• Provides options controlling the behavior of hiding/showing details (`(’): ‘diredp-hide-details-propagate-flag’ and ‘diredp-hide-details-initially-flag’. This is for Emacs 24.4+ — for earlier versions use DiredDetails.
• Dired+ recognizes Sunrise Commander, so you can use them together.

Here is a screenshot of Dired+, showing highlighting and the ‘mouse-3’ menu when a region is active.

Things to notice in this screenshot:

• Different faces are used for:
  • file extension (e.g. in, htm, psgml, cache, log, status, map, el, elc, info, texi, ps)
  • file name
  • directory name (e.g. ., .., TESTS NOV 13)
  • file size
  • time and date
  • file permissions: a different face for each kind of permission (rwx-)
• File and directory names can contain spaces – the entire name is highlighted. (e.g. New PSGML Doc.htm, TESTS NOV 13)
• The entire line of a less important file is lowlighted (e.g. iso88591.map).
• When a file is marked, the entire line is highlighted (e.g. Makefile).
• Files that are marked and files that are flagged for deletion have the mark/flag highlighted differently (e.g. Makefile versus psgml-api.elc).

If you also use library mouse3.el then you can choose to use its popup menu, which is specially adapted for Dired, whenever there is an active region, rather than the simpler menu shown above. Here is a screenshot.

You can try mouse3.el if you want to see what is in each of the submenus. I’ll just mention that the first one (Dired by name in the screenshot) duplicates the complete Dired menu-bar, so you don’t really need to show the menu-bar at all. The others provide various operations on the selected (region) files.

Coming back to just Dired+ (with or without mouse3.el), here is a screenshot showing that the entire line is highlighted on mouse-over, regardless of where on the line the mouse is. Click ‘mouse-2’ anywhere on the line to open its file or directory.

If You Use Emacs on MS Windows

• If you also use libraries files+.el and ls-lisp+.el, then you can use wildcards in the file names of a cons argument to ‘dired’. This lets you open Dired on an explicit list of arbitrary files using wildcard patterns for any of the file names. (Emacs 23+ only)
• Dired+ loads library w32-browser.el if Emacs is running on Microsoft Windows, using it to extend Dired in a few ways. (In addition to being bound to the keys indicated here, these operations are added to the Dired+ menus, including the ‘mouse-3’ context menu.)
  • (‘M-RET’) You can use Windows file associations to act on a file or folder. For example, if you have the application Adobe Acrobat associated with *.pdf files, then clicking ‘mouse-2’ on a *.pdf file in Dired will open the file in Adobe Acrobat.
  • (‘C-RET’) You can open Windows Explorer on a file or folder. If a file, its containing folder is opened and the file is selected (in Windows Explorer).
  • (`^’) When at the root of a Windows drive (e.g. `C:/’) and you use `^’ (‘dired-up-directory’), you get a list of drives to choose from. (This feature is based on the contribution at WThirtyTwoBrowseNetDrives.)
  • If you use Bookmark+ you can also open bookmarks using Windows file associations.

See Also

See these wiki pages for related features.

• Icicles - Dired Enhancements for these Dired enhancements:
  • Search-and-replace on the marked files.
  • Save marked file names as completion candidates for later reuse.
  • Open Dired on saved file names, that is, names that you previously saved as an Emacs fileset or as an Icicles completion candidates set.
• DiredSortMenu – Sort Dired listings in various ways using menus
• DiredDetails – Hide/show details in a Dired listing, so all you see (and all that IncrementalSearch sees) are the file names

• ls-lisp+.el and files+.el: They add the number of files to DiredMode’s second header line, like this:

files 691 space used 49439 available 56233408

• wuxch-dired.el, wuxch-dired-copy-paste.el – libraries by WuXiaochun that build on Dired Plus

Menu Screenshots

Here are screenshots of the various Dired+ menus. Using the menus is a good way to learn some of the features (and their key bindings).

`mouse-3' Popup Menus

‘mouse-3’ pops up a menu, which can take two forms, depending on whether the region is active. If so, the menu is called Region and its items act on the files and directories in the region. If not, the menu is called This File and its items act on the file or directory you pointed to when you clicked ‘mouse-3’.

This File

The This File menu has submenu Bookmark, which is the same submenu as for menu-bar menu Single (aka Immediate).

Region

The Region menu you get depends on whether and how you use library mouse3.el – see Mouse3. The Region menu shown here has lots of submenus.

The first submenu shown here, Dired/name corresponds exactly to the major-mode, and it has submenus corresponding to all of the menu-bar menus provided by Dired+. The other submenus shown here (from library Mouse3) are as follows.

Selected Files

Remove/Replace Rectangle (available only in WDired mode, i.e., when Dired is writable)

Copy

Register

Rectangle (items except Copy to Register available only in WDired mode)

Change Text (available only in WDired mode)

Check, Correct, Convert (items except the first three available only in WDired mode)

Highlight

Print

Misc

Dir (aka Subdir) Menu-Bar Menu

Dir

If you use Icicles then this has an Icicles submenu:

Icicles

If you use find-dired+.el then it has a Run ‘find’ Command submenu:

Run ‘find’ Command

Menu Dir has a Navigate submenu:

Navigate

Menu Dir has a Bookmark submenu:

Bookmark

Menu Dir has a Hide/Show submenu:

Hide/Show

If you use DiredSortMenu then menu Dir has a Sort By submenu, which has its own submenus.

Sort By

Submenu Reversed Sort By of menu Sort By has the same items as the latter’s first pane:

Reversed Sort By

Submenu Configuration of menu Sort By:

Configuration

Marks (aka Mark) Menu-Bar Menu

Marks

Menu Marks has a Here and Below submenu:

Here and Below

Menu Marks has a Mark submenu:

Mark

Menu Marks has an Unmark submenu:

Unmark

Menu Marks has a Flag submenu:

Flag

Menu Marks has an Omit submenu:

Omit

Menu Marks has a Tagged submenu:

Tagged

Regexp Menu-Bar Menu

Regexp

Menu Regexp has a Here and Below submenu:

Here and Below

Multiple (aka Operate) Menu-Bar Menu

Multiple

If you use Icicles then this has an Icicles submenu:

Icicles

Menu Multiple has a Marked Here and Below submenu:

Marked Here and Below

Submenu Marked Here and Below of menu Multiple has a Bookmark submenu:

Bookmark

Submenu Marked Here and Below of menu Multiple has a Search submenu:

Search

Submenu Marked Here and Below of menu Multiple has a Encryption submenu:

Encryption

Submenu Marked Here and Below of menu Multiple has a Images submenu:

Images

Menu Multiple has a Bookmark submenu:

Bookmark

Menu Multiple has a Search submenu:

Search

Menu Multiple has a Encryption submenu:

Encryption

Menu Multiple has a Images submenu:

Images

Menu Multiple has a Move / Copy / Link submenu:

Move / Copy / Link

Menu Multiple has a Rename submenu:

Rename

Menu Multiple has a Delete submenu:

Delete

Menu Multiple has a Omit submenu:

Omit

Single (aka Immediate) Menu-Bar Menu

Single

This has submenus Bookmark, Encryption, Image, Move / Copy / Link, Rename, and Open.

Bookmark

Encryption

Image

Move / Copy / Link

Rename

Open

Issues (Bug Reports)

    > emacs -Q or emacs -Q -nw
    M-x version : GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.16.6) ...
    (add-to-list 'load-path "~/.emacs.d")
    (require 'dired+)

   (setq directory-listing-before-filename-regexp
         (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
	        (l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)")
                (month (concat l-or-quote l-or-quote "+\\.?"))
                (s " ")
                (yyyy "[0-9][0-9][0-9][0-9]")
                (dd "[ 0-3][0-9]")
                (HH:MM "[ 0-2][0-9][:.][0-5][0-9]")
                (seconds "[0-6][0-9]\\([.,][0-9]+\\)?")
                (zone "[-+][0-2][0-9][0-5][0-9]")
                (iso-mm-dd "[01][0-9]-[0-3][0-9]")
                (iso-time (concat HH:MM "\\(:" seconds "\\( ?" zone "\\)?\\)?"))
                (iso (concat "\\(\\(" yyyy "-\\)?" iso-mm-dd "[ T]" iso-time
		      "\\|" yyyy "-" iso-mm-dd "\\)"))
                (western (concat "\\(" month s "+" dd "\\|" dd "\\.?" s month "\\)"
			  s "+"
			  "\\(" HH:MM "\\|" yyyy "\\)"))
                (western-comma (concat month s "+" dd "," s "+" yyyy))
                (mm "[ 0-1]?[0-9]")
                (east-asian
                  (concat "\\(" mm l "?" s dd l "?" s "+"
		  "\\|" dd s mm s "+" "\\)"
		  "\\(" HH:MM "\\|" yyyy l "?" "\\)")))
            (purecopy (concat ".*[0-9][BkKMGTPEZY]?" s
	      "\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)"
	      s "+"))))

  (list dired-move-to-filename-regexp '(1 diredp-date-time t t)...

  (list dired-move-to-filename-regexp '(2 diredp-date-time t t)...

    (add-to-list 'load-path "~/.emacs.d")
    (require 'dired+)
    
    (setq directory-listing-before-filename-regexp
          (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
                 (l-or-quote "\\([A-Za-z']\\|[^\0-\177]\\)")
                 (month (concat l-or-quote l-or-quote "+\\.?"))
                 (s " ")
                 (yyyy "[0-9][0-9][0-9][0-9]")
                 (dd "[ 0-3][0-9]")
                 (HH:MM "[ 0-2][0-9][:.][0-5][0-9]")
                 (seconds "[0-6][0-9]\\([.,][0-9]+\\)?")
                 (zone "[-+][0-2][0-9][0-5][0-9]")
                 (iso-mm-dd "[01][0-9]-[0-3][0-9]")
                 (iso-time (concat HH:MM "\\(:" seconds "\\( ?" zone "\\)?\\)?"))
                 (iso (concat "\\(\\(" yyyy "-\\)?" iso-mm-dd "[ T]" iso-time
                              "\\|" yyyy "-" iso-mm-dd "\\)"))
                 (western (concat "\\(" month s "+" dd "\\|" dd "\\.?" s month "\\)"
                                  s "+"
                                  "\\(" HH:MM "\\|" yyyy "\\)"))
                 (western-comma (concat month s "+" dd "," s "+" yyyy))
                 (mm "[ 0-1]?[0-9]")
                 (east-asian
                  (concat "\\(" mm l "?" s dd l "?" s "+"
                          "\\|" dd s mm s "+" "\\)"
                          "\\(" HH:MM "\\|" yyyy l "?" "\\)")))
            (purecopy (concat ".*[0-9][BkKMGTPEZY]?" s
                              "\\(" western "\\|" western-comma "\\|" east-asian "\\|" iso "\\)"
                              s "+"))))
    
    (setq diredp-font-lock-keywords-1
          (list
           '("^  \\(.+:\\)$" 1 diredp-dir-heading) ; Directory headers
           '("^  wildcard.*$" 0 'default)       ; Override others, e.g. `l' for `diredp-other-priv'.
           '("^  (No match).*$" 0 'default)     ; Override others, e.g. `t' for `diredp-other-priv'.
           '("[^ .]\\.\\([^. /]+\\)$" 1 diredp-file-suffix) ; Suffix
           '("\\([^ ]+\\) -> [^ ]+$" 1 diredp-symlink) ; Symbolic links
           ;; 1) Date/time and 2) filename w/o suffix:
           (list dired-move-to-filename-regexp  '(1 diredp-date-time t t) ; Date/time
                 (list "\\(.+\\)$" nil nil (list 0 diredp-file-name 'keep t))) ; Filename
           ;; Files to ignore
           (list (concat "^  \\(.*\\("
                         (concat (mapconcat 'regexp-quote
                                            (or (and (boundp 'dired-omit-extensions)
                                                     dired-omit-extensions)
                                                completion-ignored-extensions)
                                            "[*]?\\|")
                                 "[*]?")        ; Allow for executable flag (*).
                         "\\|\\.\\(g?z\\|Z\\)[*]?\\)\\)$") ; Compressed.
                 1 diredp-ignored-file-name t)
           '("[^ .]\\.\\([bg]?[zZ]2?\\)[*]?$" 1 diredp-compressed-file-suffix t) ; Compressed (*.z)
           '("\\([*]\\)$" 1 diredp-executable-tag t) ; Executable (*)
           '(" \\([0-9]+\\(\\.[0-9]+\\)?[kKMGTPEZY]?\\)" 1 diredp-inode+size) ; File inode number & size
           ;; Directory names
           (list "^..\\([0-9]* \\)*d"
                 (list dired-move-to-filename-regexp nil nil)
                 (list "\\(.+\\)" nil nil '(0 diredp-dir-priv t t)))
           '("^..\\([0-9]* \\)*.........\\(x\\)" 2 diredp-exec-priv) ;o x
           '("^..\\([0-9]* \\)*.........\\([lsStT]\\)" 2 diredp-other-priv) ; o misc
           '("^..\\([0-9]* \\)*........\\(w\\)" 2 diredp-write-priv) ; o w
           '("^..\\([0-9]* \\)*.......\\(r\\)" 2 diredp-read-priv)   ; o r
           '("^..\\([0-9]* \\)*......\\(x\\)" 2 diredp-exec-priv)    ; g x
           '("^..\\([0-9]* \\)*....[^0-9].\\([lsStT]\\)" 2 diredp-other-priv) ; g misc
           '("^..\\([0-9]* \\)*.....\\(w\\)" 2 diredp-write-priv) ; g w
           '("^..\\([0-9]* \\)*....\\(r\\)" 2 diredp-read-priv)   ; g r
           '("^..\\([0-9]* \\)*...\\(x\\)" 2 diredp-exec-priv)    ; u x
           '("^..\\([0-9]* \\)*...\\([lsStT]\\)" 2 diredp-other-priv) ; u misc
           '("^..\\([0-9]* \\)*..\\(w\\)" 2 diredp-write-priv) ; u w
           '("^..\\([0-9]* \\)*.\\(r\\)" 2 diredp-read-priv)   ; u r
           '("^..\\([0-9]* \\)*.\\([-rwxlsStT]+\\)" 2 diredp-no-priv keep) ;-
           '("^..\\([0-9]* \\)*\\([bcsmpS]\\)[-rwxlsStT]" 2 diredp-rare-priv) ; (rare)
           '("^..\\([0-9]* \\)*\\(l\\)[-rwxlsStT]" 2 diredp-link-priv) ; l
           (list (concat "^\\([^\n " (char-to-string dired-del-marker) "].*$\\)")
                 1 diredp-flag-mark-line t) ; Flag/mark lines
           (list (concat "^\\([" (char-to-string dired-del-marker) "]\\)") ; Deletion flags (D)
                 '(1 diredp-deletion t)
                 '(".+" (dired-move-to-filename) nil (0 diredp-deletion-file-name t)))
           (list (concat "^\\([^\n " (char-to-string dired-del-marker) "]\\)") ; Flags, marks (except D)
                 1 diredp-flag-mark t)
           ))

  (if (and (fboundp 'version<=) (version<= emacs-version "23.2"))
      (list 2 'diredp-date-time t t)
    (list 1 'diredp-date-time t t)) ; Date/time

  (if t
      (list 2 'diredp-date-time t t)
    (list 1 'diredp-date-time t t)) ; Date/time

  NOTE: Deletion of files flagged `D' (not those marked `*')

   (defalias 'toggle-dired-find-file-reuse-dir 'diredp-toggle-find-file-reuse-dir)  ; <--- Here is the bug!
   ;;;###autoload
   (defun dired-toggle-find-file-reuse-dir (force-p) ; Not bound
     "Toggle whether Dired `find-file' commands reuse directories.
   A prefix arg specifies directly whether or not to reuse.
    If its numeric value is non-negative then reuse; else do not reuse.

   To set the behavior as a preference (default behavior), put this in
   your ~/.emacs, where VALUE is 1 to reuse or -1 to not reuse:

    (dired-toggle-find-file-reuse-dir VALUE)"

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(diredp-date-time ((((type tty)) :foreground "yellow") (t :foreground "#F0DFAF")))
 '(diredp-dir-heading ((((type tty)) :background "yellow" :foreground "blue") (t :background "#41363C" :foreground "#ECBCBC")))
 '(diredp-dir-priv ((t (:background "#3F3F3F" :foreground "thistle"))))
 '(diredp-display-msg ((((type tty)) :foreground "blue") (t :foreground "#93B3A3")))
 '(diredp-file-name ((t (:foreground "#8CD0D3"))))
 '(diredp-file-suffix ((t (:foreground "#7F9F7F"))))
 '(diredp-flag-mark-line ((t (:background "#9FAFAF"))))
 '(diredp-ignored-file-name ((t (:foreground "#80D4AA"))))
 '(diredp-number ((t (:foreground "#8F8F8F"))))
 '(diredp-symlink ((t (:foreground "#F0DFAF"))))
 '(slime-repl-inputed-output-face ((t :background "#41363C" :foreground "#ECBCBC"))))

(defvar diredp-auto-initialise t)

(defun diredp-do-delete (...) ...)

(when diredp-auto-initialise
  (defalias 'dired-do-delete diredp-do-delete))

(defvar diredp-auto-initialise nil)
(require 'dired+)
;;; Then I will manually specify what I want redefined.
(defalias 'dired-find-file 'diredp-find-file)
(defalias 'dired-get-filename 'diredp-get-filename)
(defalias 'dired-goto-file 'diredp-goto-file)
(defalias 'dired-insert-directory 'diredp-insert-directory)
(defalias 'dired-insert-set-properties 'diredp-insert-set-properties)
(defalias 'dired-mark-files-regexp 'diredp-mark-files-regexp)
(defalias 'dired-mark-pop-up 'diredp-mark-pop-up)
(defalias 'dired-pop-to-buffer 'diredp-pop-to-buffer)
(defalias 'dired-revert 'diredp-revert)
(defalias 'dired-switches-escape-p 'diredp-switches-escape-p)
(defalias 'dired-up-directory 'diredp-up-directory)

(cl-defmacro es-preserve-functions ((&rest funcs) &rest body)
  (let (( list-sym (gensym))
        ( list (mapcar (lambda (func)
                         `(,func . ,(symbol-function func)))
                       funcs)))
    `(let (( ,list-sym (quote ,list))
           ( result (progn ,@body)))
       (mapcar
        (lambda (func)
          (fset (car func) (cdr func)))
        ,list-sym))))

(es-preserve-functions
       (dired-do-delete
        dired-do-flagged-delete
        dired-find-buffer-nocreate)
       (require 'dired+))

I use helm and the latest version of Emacs 27.0.50 and when I try to rename a file or dir, I get:

dired-do-create-files: Wrong number of arguments: (lambda (&optional localp arg filter distinguish-one-marked) 
"Return names of the marked files and directories as a list of strings.
\nThe list is in the same order as the buffer, that is, the car is the\n  
first marked file.\nValues returned are normally absolute file names.\n
Optional arg LOCALP as in `dired-get-filename'.\n
Optional second argument ARG specifies files to use instead of marked.\n 
Usually ARG comes from the command's prefix arg.\n 
If ARG is an integer, use the next ARG files (previous -ARG, if < 0).\n
If ARG is a cons with element 16, 64, or 256, corresponding to\n  
`C-u C-u', `C-u C-u C-u', or `C-u C-u C-u C-u', then use all files\n  
in the Dired buffer, where:\n    16 includes NO directories (including `.' and `..')\n    
64 includes directories EXCEPT `.' and `..'\n   256 includes ALL directories (including `.' and `..')\n 
If ARG is otherwise non-nil, use the current file.\nOptional third argument FILTER, if non-nil, is a function to select\n 
some of the files: those for which (funcall FILTER FILENAME) is\n n
on-nil.\nIf DISTINGUISH-ONE-MARKED is non-nil, then return (t FILENAME) instead\n 
of (FILENAME) if only one file is marked (after any filtering by\n FILTER).\n\n
Note that the Dired+ version of this function differs from the vanilla\nversion in these respects:\n\n* 
There are more possibilities for argument ARG (prefix argument).\n* 
Directories `.' and `..' can be included as marked.\n* 
You can use arguments FILTER and DISTINGUISH-ONE-MARKED together." 
(let ((all (delq nil (save-excursion (prog1 (let ((inhibit-read-only t) (newarg arg) multi-C-u case-fold-search found results) (if (and ... ...) (progn ...)) (if (and newarg ...) (if ... ... ...) (let ... ... ... ...))) (dired-move-to-filename))))) result) (if (and distinguish-one-marked (eq (car all) t)) (if (not filter) all (and (funcall filter (car (cdr all))) (list t (car (cdr all))))) (let ((--dolist-tail-- all) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (if (or (not filter) (funcall filter file)) (progn (setq result (cons file result)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (and distinguish-one-marked (= 1 (length result))) (cons t result) result)))), 5

– caisah

CategoryDirectories CategoryFiles CategoryWThirtyTwo CategoryMouse CategoryMenus