578ed1ba98
Moving all of my Emacs-related files into their own directory at the root of this repository.
13696 lines
698 KiB
EmacsLisp
13696 lines
698 KiB
EmacsLisp
;;; dired+.el --- Extensions to Dired.
|
|
;;
|
|
;; Filename: dired+.el
|
|
;; Description: Extensions to Dired.
|
|
;; Author: Drew Adams
|
|
;; Maintainer: Drew Adams (concat "drew.adams" "@" "oracle" ".com")
|
|
;; Copyright (C) 1999-2019, Drew Adams, all rights reserved.
|
|
;; Created: Fri Mar 19 15:58:58 1999
|
|
;; Version: 2019.04.21
|
|
;; Package-Requires: ()
|
|
;; Last-Updated: Sun Jul 21 09:47:33 2019 (-0700)
|
|
;; By: dradams
|
|
;; Update #: 11727
|
|
;; URL: https://www.emacswiki.org/emacs/download/dired%2b.el
|
|
;; Doc URL: https://www.emacswiki.org/emacs/DiredPlus
|
|
;; Keywords: unix, mouse, directories, diredp, dired
|
|
;; Compatibility: GNU Emacs: 20.x, 21.x, 22.x, 23.x, 24.x, 25.x, 26.x
|
|
;;
|
|
;; Features that might be required by this library:
|
|
;;
|
|
;; `apropos', `apropos+', `autofit-frame', `avoid', `backquote',
|
|
;; `bookmark', `bookmark+', `bookmark+-1', `bookmark+-bmu',
|
|
;; `bookmark+-key', `bookmark+-lit', `button', `bytecomp', `cconv',
|
|
;; `cl', `cl-lib', `cmds-menu', `col-highlight', `crosshairs',
|
|
;; `dired', `dired+', `dired-aux', `dired-loaddefs', `dired-x',
|
|
;; `easymenu', `fit-frame', `font-lock', `font-lock+',
|
|
;; `format-spec', `frame-fns', `gv', `help+', `help-fns',
|
|
;; `help-fns+', `help-macro', `help-macro+', `help-mode',
|
|
;; `highlight', `hl-line', `hl-line+', `image', `image-dired',
|
|
;; `image-file', `image-mode', `info', `info+', `kmacro',
|
|
;; `macroexp', `menu-bar', `menu-bar+', `misc-cmds', `misc-fns',
|
|
;; `naked', `pp', `pp+', `radix-tree', `replace', `second-sel',
|
|
;; `strings', `syntax', `text-mode', `thingatpt', `thingatpt+',
|
|
;; `vline', `w32-browser', `w32browser-dlgopen', `wid-edit',
|
|
;; `wid-edit+', `widget'.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Commentary:
|
|
;;
|
|
;; Extensions to Dired.
|
|
;;
|
|
;; This file extends functionalities provided by standard GNU Emacs
|
|
;; files `dired.el', `dired-aux.el', and `dired-x.el'.
|
|
;;
|
|
;; Key bindings changed. Menus redefined. `diredp-mouse-3-menu'
|
|
;; popup menu added. New commands. Some commands enhanced.
|
|
;;
|
|
;; All of the new functions, variables, and faces defined here have
|
|
;; the prefix `diredp-' (for Dired Plus) in their names.
|
|
;;
|
|
;;
|
|
;; Wraparound Navigation
|
|
;; ---------------------
|
|
;;
|
|
;; In vanilla Dired, `dired-next-marked-file' (`M-}' or `* C-n') and
|
|
;; `dired-previous-marked-file' (`M-{' or `* C-p') wrap around when
|
|
;; you get to the end or the beginning of the Dired buffer. Handy.
|
|
;;
|
|
;; But the other navigation commands do not wrap around. In `Dired+'
|
|
;; they do, provided option `diredp-wrap-around-flag' is non-nil,
|
|
;; which it is by default. This means the following commands:
|
|
;;
|
|
;; `diredp-next-line' - `n', `C-n', `down', `SPC'
|
|
;; `diredp-previous-line' - `p', `C-p', `up'
|
|
;; `diredp-next-dirline' - `>'
|
|
;; `diredp-prev-dirline' - `<'
|
|
;; `diredp-next-subdir' - `C-M-n'
|
|
;; `diredp-prev-subdir' - `C-M-p'
|
|
;;
|
|
;;
|
|
;; Quick Viewing While Navigating
|
|
;; ------------------------------
|
|
;;
|
|
;; You can use key `C-down' or `C-up' to navigate to the next or
|
|
;; previous file line, respectively, and at the same time show its
|
|
;; file in another window. The focus remains on the Dired buffer.
|
|
;; A numeric prefix arg means move that many lines first.
|
|
;;
|
|
;; Names of files and directories that match either of the options
|
|
;; `diredp-visit-ignore-extensions' or `diredp-visit-ignore-regexps'
|
|
;; are skipped.
|
|
;;
|
|
;; You can use `e' to show the file of the current line. If it is
|
|
;; already shown in the same frame, and if Dired is the only other
|
|
;; window there, then the file is hidden (its window is deleted).
|
|
;;
|
|
;;
|
|
;; Font-Lock Highlighting
|
|
;; ----------------------
|
|
;;
|
|
;; If you want a maximum or minimum fontification for Dired mode,
|
|
;; then customize option `font-lock-maximum-decoration'. If you want
|
|
;; a different fontification level for Dired than for other modes,
|
|
;; you can do this too by customizing
|
|
;; `font-lock-maximize-decoration'.
|
|
;;
|
|
;; A few of the user options defined here have an effect on
|
|
;; font-locking, and this effect is established only when Dired+ is
|
|
;; loaded, which defines the font-lock keywords for Dired. These
|
|
;; options include `diredp-compressed-extensions',
|
|
;; `diredp-ignore-compressed-flag', `dired-omit-extensions', and
|
|
;; `diredp-omit-files-regexp'. This means that if you change the
|
|
;; value of such an option then you will see the change only in a new
|
|
;; Emacs session.
|
|
;;
|
|
;; (You can see the effect in the same session if you use `C-M-x' on
|
|
;; the `defvar' sexp for `diredp-font-lock-keywords-1', and then you
|
|
;; toggle font-lock off and back on.)
|
|
;;
|
|
;;
|
|
;; Act on All Files
|
|
;; ----------------
|
|
;;
|
|
;; Most of the commands (such as `C' and `M-g') that operate on the
|
|
;; marked files have the added feature here that multiple `C-u' use
|
|
;; not the files that are marked or the next or previous N files, but
|
|
;; *all* of the files in the Dired buffer. Just what "all" files
|
|
;; means changes with the number of `C-u', as follows:
|
|
;;
|
|
;; `C-u C-u' - Use all files present, but no directories.
|
|
;; `C-u C-u C-u' - Use all files and dirs except `.' and `..'.
|
|
;; `C-u C-u C-u C-u' - use all files and dirs, `.' and `..'.
|
|
;;
|
|
;; (More than four `C-u' act the same as two.)
|
|
;;
|
|
;; This feature can be particularly useful when you have a Dired
|
|
;; buffer with files chosen from multiple directories.
|
|
;;
|
|
;; Note that in most cases this behavior is described only in the doc
|
|
;; string of function `dired-get-marked-files'. It is generally
|
|
;; *not* described in the doc strings of the various commands,
|
|
;; because that would require redefining each command separately
|
|
;; here. Instead, we redefine macro `dired-map-over-marks' and
|
|
;; function `dired-get-filename' in order to achieve this effect.
|
|
;;
|
|
;; Commands such as `dired-do-load' for which it does not make sense
|
|
;; to act on directories generally treat more than two `C-u' the same
|
|
;; as two `C-u'.
|
|
;;
|
|
;; Exceptions to the general behavior described here are called out
|
|
;; in the doc strings. In particular, the behavior of a prefix arg
|
|
;; for `dired-do-query-replace-regexp' is different, so that you can
|
|
;; use it also to specify word-delimited replacement.
|
|
;;
|
|
;;
|
|
;; Act on Marked (or All) Files Here and Below
|
|
;; -------------------------------------------
|
|
;;
|
|
;; The prefix argument behavior just described does not apply to the
|
|
;; `diredp-*-recursive' commands. These commands act on the marked
|
|
;; files in the current Dired buffer or on all files in the directory
|
|
;; if none are marked.
|
|
;;
|
|
;; But these commands also handle marked subdirectories recursively,
|
|
;; in the same way. That is, they act also on the marked files in
|
|
;; any marked subdirectories, found recursively. If such a
|
|
;; descendant directory is listed in a Dired buffer then its marked
|
|
;; files and subdirs are handled the same way. If there is no Dired
|
|
;; buffer that lists a given marked subdirectory then all of its
|
|
;; files and subdirs are acted on.
|
|
;;
|
|
;; For most such here-and-below commands, a prefix argument means
|
|
;; ignore all marks. The commands then act on all files in the
|
|
;; current Dired buffer and all of its subdirectories, recursively.
|
|
;;
|
|
;; But here-and-below commands that unmark or change marks act
|
|
;; differently for different kinds of prefix argument:
|
|
;;
|
|
;; * A non-positive prefix arg means ignore subdir markings and act
|
|
;; instead on ALL subdirs.
|
|
;;
|
|
;; * A non-negative prefix arg means do not change marks on subdirs
|
|
;; themselves.
|
|
;;
|
|
;; For example, `M-+ U' removes all marks, including from marked
|
|
;; subdirs, recursively. `C-- M-+ U' removes them from all files in
|
|
;; all subdirs (marked or not), recursively. `C-9 M-+ U' removes all
|
|
;; marks, recursively, except the marks on subdirs themselves. `C-0
|
|
;; M-+ U' acts like those two combined: it descends everywhere,
|
|
;; ignoring which subdirs are marked, but it does not remove marks
|
|
;; from subdirs themselves.
|
|
;;
|
|
;; All of the `diredp-*-recursive' commands are on prefix key `M-+',
|
|
;; and most are available on submenu `Marked Here and Below' of the
|
|
;; `Multiple' menu-bar menu. The commands that unmark and change
|
|
;; marks are also in submenu `Here and Below' of menu-bar menu
|
|
;; `Marks'.
|
|
;;
|
|
;; If you use library `Icicles' then you have the following
|
|
;; additional commands/keys that act recursively on marked files.
|
|
;; They are in the `Icicles' submenu of menu `Multiple' > `Marked
|
|
;; Here and Below'.
|
|
;;
|
|
;; * `M-+ M-s M-s' or `M-s M-s m' - Use Icicles search (and its
|
|
;; on-demand replace) on the marked files.
|
|
;;
|
|
;; * Save the names of the marked files:
|
|
;;
|
|
;; `M-+ C-M->' - Save as a completion set, for use during
|
|
;; completion (e.g. with `C-x C-f').
|
|
;;
|
|
;; `M-+ C->' - Add marked names to the names in the current saved
|
|
;; completion set.
|
|
;;
|
|
;; `M-+ C-}' - Save persistently to an Icicles cache file, for
|
|
;; use during completion in another session.
|
|
;;
|
|
;; `icicle-dired-save-marked-to-fileset-recursive' - Like `M-+
|
|
;; C-}', but save persistently to an Emacs fileset.
|
|
;;
|
|
;; `M-+ C-M-}' - Save to a Lisp variable.
|
|
;;
|
|
;;
|
|
;; In the other direction, if you have a saved set of file names then
|
|
;; you can use `C-M-<' (`icicle-dired-chosen-files-other-window') in
|
|
;; Dired to open a Dired buffer for just those files. So you can
|
|
;; mark some files and subdirs in a hierarchy of Dired buffers, use
|
|
;; `M-+ C-}' to save their names persistently, then later use `C-{'
|
|
;; to retrieve them, and `C-M-<' (in Dired) to open Dired on them.
|
|
;;
|
|
;;
|
|
;; Image Files
|
|
;; -----------
|
|
;;
|
|
;; `Dired+' provides several enhancements regarding image files.
|
|
;; Most of these require standard library `image-dired.el'. One of
|
|
;; them, command `diredp-do-display-images', which displays all of
|
|
;; the marked image files, requires standard library `image-file.el'.
|
|
;;
|
|
;; `Dired+' loads these libraries automatically, if available, which
|
|
;; means an Emacs version that supports image display (Emacs 22 or
|
|
;; later). (You must of course have installed whatever else your
|
|
;; Emacs version needs to display images.)
|
|
;;
|
|
;; Besides command `diredp-do-display-images', see the commands whose
|
|
;; names have prefix `diredp-image-'. And see options
|
|
;; `diredp-image-preview-in-tooltip' and
|
|
;; `diredp-auto-focus-frame-for-thumbnail-tooltip-flag'.
|
|
;;
|
|
;;
|
|
;; Inserted Subdirs, Multiple Dired Buffers, Files from Anywhere,...
|
|
;; -----------------------------------------------------------------
|
|
;;
|
|
;; These three standard Dired features are worth pointing out. The
|
|
;; third in particular is little known because (a) it is limited in
|
|
;; vanilla Dired and (b) you cannot use it interactively.
|
|
;;
|
|
;; * You can pass a glob pattern with wildcards to `dired'
|
|
;; interactively, as the file name.
|
|
;;
|
|
;; * You can insert multiple subdirectory listings into a single
|
|
;; Dired buffer using `i' on each subdir line. Use `C-u i' to
|
|
;; specify `ls' switches. Specifying switch `R' inserts the
|
|
;; inserted subdirectory's subdirs also, recursively. You can
|
|
;; also use `i' to bounce between a subdirectory line and its
|
|
;; inserted-listing header line. You can delete a subdir listing
|
|
;; using `C-u k' on its header line. You can hide/show an
|
|
;; inserted subdir using `$'. You can use `C-_' to undo any of
|
|
;; these operations.
|
|
;;
|
|
;; * You can open a Dired buffer for an arbitrary set of files from
|
|
;; different directories. You do this by invoking `dired'
|
|
;; non-interactively, passing it a cons of a Dired buffer name and
|
|
;; the file names. Relative file names are interpreted relative
|
|
;; to the value of `default-directory'. Use absolute file names
|
|
;; when appropriate.
|
|
;;
|
|
;; `Dired+' makes these features more useful.
|
|
;;
|
|
;; `$' is improved: It is a simple toggle - it does not move the
|
|
;; cursor forward. `M-$' advances the cursor, in addition to
|
|
;; toggling like `$'. `C-u $' does hide/show all (what `M-$' does in
|
|
;; vanilla Dired).
|
|
;;
|
|
;; `i' is improved in these ways:
|
|
;;
|
|
;; * Once a subdir has been inserted, `i' bounces between the subdir
|
|
;; listing and the subdir line in the parent listing. If the
|
|
;; parent dir is hidden, then `i' from a subdir opens the parent
|
|
;; listing so it can move to the subdir line there (Emacs 24+).
|
|
;;
|
|
;; * Vanilla Dired lets you create a Dired listing with files and
|
|
;; directories from arbitrary locations, but you cannot insert
|
|
;; (`i') such a directory if it is not in the same directory tree
|
|
;; as the `default-directory' used to create the Dired buffer.
|
|
;; `Dired+' removes this limitation; you can insert any non-root
|
|
;; directories (that is, not `/', `c:/', etc.).
|
|
;;
|
|
;; `Dired+' lets you create Dired buffers that contain arbitrary
|
|
;; files and directories interactively, not just using Lisp. Just
|
|
;; use a non-positive prefix arg (e.g., `C--') when invoking `dired'.
|
|
;;
|
|
;; You are then prompted for the Dired buffer name (anything you
|
|
;; like, not necessarily a directory name) and the individual files
|
|
;; and directories that you want listed.
|
|
;;
|
|
;; A non-negative prefix arg still prompts you for the `ls' switches
|
|
;; to use. (So `C-0' does both: prompts for `ls' switches and for
|
|
;; the Dired buffer name and the files to list.)
|
|
;;
|
|
;; `Dired+' adds commands for combining and augmenting Dired
|
|
;; listings:
|
|
;;
|
|
;; * `diredp-add-to-dired-buffer', bound globally to `C-x D A', lets
|
|
;; you add arbitrary file and directory names to an existing Dired
|
|
;; buffer.
|
|
;;
|
|
;; * `diredp-dired-union', bound globally to `C-x D U', lets you
|
|
;; take the union of multiple Dired listings, or convert an
|
|
;; ordinary Dired listing to an explicit list of absolute file
|
|
;; names. With a non-positive prefix arg, you can add extra file
|
|
;; and directory names, just as for `diredp-add-to-dired-buffer'.
|
|
;;
|
|
;; You can optionally add a header line to a Dired buffer using
|
|
;; toggle command `diredp-breadcrumbs-in-header-line-mode'. (A
|
|
;; header line remains at the top of the window - no need to scroll
|
|
;; to see it.) If you want to show the header line automatically in
|
|
;; all Dired buffers, you can do this:
|
|
;;
|
|
;; (add-hook 'dired-before-readin-hook
|
|
;; 'diredp-breadcrumbs-in-header-line-mode)
|
|
;;
|
|
;; Some other libraries, such as `Bookmark+' and `Icicles', make it
|
|
;; easy to create or re-create Dired buffers that list specific files
|
|
;; and have a particular set of markings. `Bookmark+' records Dired
|
|
;; buffers persistently, remembering `ls' switches, markings, subdir
|
|
;; insertions, and hidden subdirs. If you use `Icicles' then `dired'
|
|
;; is a multi-command: you can open multiple Dired buffers with one
|
|
;; `dired' invocation.
|
|
;;
|
|
;; Dired can help you manage projects. You might have multiple Dired
|
|
;; buffers with quite specific contents. You might have some
|
|
;; subdirectories inserted in the same Dired buffer, and you might
|
|
;; have separate Dired buffers for some subdirectories. Sometimes it
|
|
;; is useful to have both for the same subdirectory. And sometimes
|
|
;; it is useful to move from one presentation to the other.
|
|
;;
|
|
;; This is one motivation for the `Dired+' `diredp-*-recursive'
|
|
;; commands, which act on the marked files in marked subdirectories,
|
|
;; recursively. In one sense, these commands are an alternative to
|
|
;; using a single Dired buffer with inserted subdirectories. They
|
|
;; let you use the same operations on the files in a set of Dired
|
|
;; directories, without inserting those directories into an ancestor
|
|
;; Dired buffer.
|
|
;;
|
|
;; You can use command `diredp-dired-inserted-subdirs' to open a
|
|
;; separate Dired buffer for each of the subdirs that is inserted in
|
|
;; the current Dired buffer. Markings and Dired switches are
|
|
;; preserved.
|
|
;;
|
|
;; In the opposite direction, if you use `Icicles' then you can use
|
|
;; multi-command `icicle-dired-insert-as-subdir', which lets you
|
|
;; insert any number of directories you choose interactively into a
|
|
;; Dired ancestor directory listing. If a directory you choose to
|
|
;; insert already has its own Dired buffer, then its markings and
|
|
;; switches are preserved for the new, subdirectory listing in the
|
|
;; ancestor Dired buffer.
|
|
;;
|
|
;;
|
|
;; Hide/Show Details
|
|
;; -----------------
|
|
;;
|
|
;; Starting with Emacs 24.4, listing details are hidden by default.
|
|
;; Note that this is different from the vanilla Emacs behavior, which
|
|
;; is to show details by default.
|
|
;;
|
|
;; Use `(' anytime to toggle this hiding. You can use option
|
|
;; `diredp-hide-details-initially-flag' to change the default/initial
|
|
;; state. See also option `diredp-hide-details-propagate-flag'.
|
|
;;
|
|
;; NOTE: If you do not want to hide details initially then you must
|
|
;; either (1) change `diredp-hide-details-initially-flag' using
|
|
;; Customize (recommended) or (2) set it to `nil' (e.g., using
|
|
;; `setq') *BEFORE* loading `dired+.el'.
|
|
;;
|
|
;; If you have an Emacs version older than 24.4, you can use library
|
|
;; `dired-details+.el' (plus `dired-details.el') to get similar
|
|
;; behavior.
|
|
;;
|
|
;;
|
|
;; Mode-Line
|
|
;; ---------
|
|
;;
|
|
;; The number of files and dirs that are marked with `*', and the
|
|
;; number that are flagged for deletion (marked `D') are indicated in
|
|
;; the mode-line. When the cursor is on such a line the indication
|
|
;; tells you how many more there are. For example, if the cursor is
|
|
;; on the line of the third file that is marked `*', and there are
|
|
;; seven of them total, then the mode-line shows `3/7*'.
|
|
;;
|
|
;; The mode-line also indicates, for the current listing (which could
|
|
;; be a subdir listing), how many files and dirs are listed. If the
|
|
;; cursor is on the 27th file in a listing of 78 files then the
|
|
;; mode-line shows 27/78.
|
|
;;
|
|
;; For counting files and dirs in a listing, option
|
|
;; `diredp-count-.-and-..-flag' controls whether to count the lines
|
|
;; for `.' and `..'. By default it is nil, meaning they are not
|
|
;; counted.
|
|
;;
|
|
;;
|
|
;; If You Use Dired+ in Terminal Mode
|
|
;; ----------------------------------
|
|
;;
|
|
;; By default, Dired+ binds some keys that can be problematic in some
|
|
;; terminals when you use Emacs in terminal mode (i.e., `emacs -nw').
|
|
;; This is controlled by option
|
|
;; `diredp-bind-problematic-terminal-keys'.
|
|
;;
|
|
;; In particular, keys that use modifiers Meta and Shift together can
|
|
;; be problematic. If you use Dired+ in text-only terminal, and you
|
|
;; find that your terminal does not support such keys, then you might
|
|
;; want to customize the option to set the value to `nil', and then
|
|
;; bind the commands to some other keys, which your terminal
|
|
;; supports.
|
|
;;
|
|
;; The problematic keys used by Dired+ include these:
|
|
;;
|
|
;; `M-M' (aka `M-S-m') - `diredp-chmod-this-file'
|
|
;; `M-O' (aka `M-S-o') - `diredp-chown-this-file'
|
|
;; `M-T' (aka `M-S-t') - `diredp-touch-this-file'
|
|
;; `C-M-B' (aka `C-M-S-b') - `diredp-do-bookmark-in-bookmark-file'
|
|
;; `C-M-G' (aka `C-M-S-g') - `diredp-chgrp-this-file'
|
|
;; `C-M-R' (aka `C-M-S-r') - `diredp-toggle-find-file-reuse-dir'
|
|
;; `C-M-T' (aka `C-M-S-t') - `dired-do-touch'
|
|
;; `M-+ M-B' (aka `M-+ M-S-b') -
|
|
;; `diredp-do-bookmark-dirs-recursive'
|
|
;; `M-+ C-M-B' (aka `M-+ C-M-S-b') -
|
|
;; `diredp-do-bookmark-in-bookmark-file-recursive'
|
|
;; `M-+ C-M-T' (aka `M-+ C-M-S-t') - `diredp-do-touch-recursive'
|
|
;;
|
|
;; (See also `(info "(org) TTY keys")' for more information about
|
|
;; keys that can be problematic in a text-only terminal.)
|
|
;;
|
|
;;
|
|
;; Faces defined here:
|
|
;;
|
|
;; `diredp-autofile-name', `diredp-compressed-file-suffix',
|
|
;; `diredp-date-time', `diredp-deletion',
|
|
;; `diredp-deletion-file-name', `diredp-dir-heading',
|
|
;; `diredp-dir-priv', `diredp-exec-priv', `diredp-executable-tag',
|
|
;; `diredp-file-name', `diredp-file-suffix', `diredp-flag-mark',
|
|
;; `diredp-flag-mark-line', `diredp-get-file-or-dir-name',
|
|
;; `diredp-ignored-file-name', `diredp-link-priv',
|
|
;; `diredp-mode-line-flagged', `diredp-mode-line-marked'
|
|
;; `diredp-omit-file-name', `diredp-no-priv', `diredp-number',
|
|
;; `diredp-other-priv', `diredp-rare-priv', `diredp-read-priv',
|
|
;; `diredp-symlink', `diredp-tagged-autofile-name',
|
|
;; `diredp-write-priv'.
|
|
;;
|
|
;; Commands defined here:
|
|
;;
|
|
;; `diredp-add-to-dired-buffer', `diredp-add-to-this-dired-buffer',
|
|
;; `diredp-do-apply-function',
|
|
;; `diredp-do-apply-function-recursive',
|
|
;; `diredp-async-shell-command-this-file',
|
|
;; `diredp-bookmark-this-file',
|
|
;; `diredp-breadcrumbs-in-header-line-mode' (Emacs 22+),
|
|
;; `diredp-byte-compile-this-file', `diredp-capitalize',
|
|
;; `diredp-capitalize-recursive', `diredp-capitalize-this-file',
|
|
;; `diredp-change-marks-recursive' (Emacs 22+),
|
|
;; `diredp-chgrp-this-file', `diredp-chmod-this-file',
|
|
;; `diredp-chown-this-file',
|
|
;; `diredp-compilation-files-other-window' (Emacs 24+),
|
|
;; `diredp-compress-this-file',
|
|
;; `diredp-copy-abs-filenames-as-kill',
|
|
;; `diredp-copy-abs-filenames-as-kill-recursive',
|
|
;; `diredp-copy-filename-as-kill-recursive',
|
|
;; `diredp-copy-tags-this-file', `diredp-copy-this-file',
|
|
;; `diredp-decrypt-this-file', `diredp-delete-this-file',
|
|
;; `diredp-describe-autofile', `diredp-describe-file',
|
|
;; `diredp-describe-marked-autofiles', `diredp-describe-mode',
|
|
;; `diredp-dired-for-files', `diredp-dired-for-files-other-window',
|
|
;; `diredp-dired-inserted-subdirs', `diredp-dired-plus-help',
|
|
;; `diredp-dired-recent-dirs',
|
|
;; `diredp-dired-recent-dirs-other-window',
|
|
;; `diredp-dired-this-subdir', `diredp-dired-union',
|
|
;; `diredp-do-async-shell-command-recursive', `diredp-do-bookmark',
|
|
;; `diredp-do-bookmark-dirs-recursive',
|
|
;; `diredp-do-bookmark-in-bookmark-file',
|
|
;; `diredp-do-bookmark-in-bookmark-file-recursive',
|
|
;; `diredp-do-bookmark-recursive', `diredp-do-chmod-recursive',
|
|
;; `diredp-do-chgrp-recursive', `diredp-do-chown-recursive',
|
|
;; `diredp-do-copy-recursive', `diredp-do-decrypt-recursive',
|
|
;; `diredp-do-delete-recursive', `diredp-do-display-images' (Emacs
|
|
;; 22+), `diredp-do-emacs-command', `diredp-do-encrypt-recursive',
|
|
;; `diredp-do-find-marked-files-recursive', `diredp-do-grep',
|
|
;; `diredp-do-grep-recursive', `diredp-do-hardlink-recursive',
|
|
;; `diredp-do-isearch-recursive',
|
|
;; `diredp-do-isearch-regexp-recursive', `diredp-do-lisp-sexp'
|
|
;; (Emacs 22+), `diredp-do-move-recursive',
|
|
;; `diredp-do-paste-add-tags', `diredp-do-paste-replace-tags',
|
|
;; `diredp-do-print-recursive',
|
|
;; `diredp-do-query-replace-regexp-recursive',
|
|
;; `diredp-do-redisplay-recursive',
|
|
;; `diredp-do-relsymlink-recursive', `diredp-do-remove-all-tags',
|
|
;; `diredp-do-search-recursive', `diredp-do-set-tag-value',
|
|
;; `diredp-do-shell-command-recursive', `diredp-do-sign-recursive',
|
|
;; `diredp-do-symlink-recursive', `diredp-do-tag',
|
|
;; `diredp-do-touch-recursive', `diredp-do-untag',
|
|
;; `diredp-do-verify-recursive', `diredp-downcase-recursive',
|
|
;; `diredp-downcase-this-file', `diredp-ediff',
|
|
;; `diredp-encrypt-this-file', `diredp-fileset',
|
|
;; `diredp-fileset-other-window', `diredp-find-a-file',
|
|
;; `diredp-find-a-file-other-frame',
|
|
;; `diredp-find-a-file-other-window',
|
|
;; `diredp-find-file-other-frame',
|
|
;; `diredp-find-file-reuse-dir-buffer',
|
|
;; `diredp-find-line-file-other-window',
|
|
;; `diredp-flag-auto-save-files-recursive',
|
|
;; `diredp-flag-region-files-for-deletion',
|
|
;; `diredp-grepped-files-other-window', `diredp-grep-this-file',
|
|
;; `diredp-hardlink-this-file', `diredp-highlight-autofiles-mode',
|
|
;; `diredp-image-dired-comment-file',
|
|
;; `diredp-image-dired-comment-files-recursive',
|
|
;; `diredp-image-dired-copy-with-exif-name',
|
|
;; `diredp-image-dired-create-thumb',
|
|
;; `diredp-image-dired-delete-tag',
|
|
;; `diredp-image-dired-delete-tag-recursive',
|
|
;; `diredp-image-dired-display-thumb',
|
|
;; `diredp-image-dired-display-thumbs-recursive',
|
|
;; `diredp-image-dired-edit-comment-and-tags',
|
|
;; `diredp-image-dired-tag-file',
|
|
;; `diredp-image-dired-tag-files-recursive',
|
|
;; `diredp-image-show-this-file', `diredp-insert-as-subdir',
|
|
;; `diredp-insert-subdirs', `diredp-insert-subdirs-recursive',
|
|
;; `diredp-kill-this-tree', `diredp-list-marked-recursive',
|
|
;; `diredp-load-this-file', `diredp-mark-autofiles',
|
|
;; `diredp-marked', `diredp-marked-other-window',
|
|
;; `diredp-marked-recursive',
|
|
;; `diredp-marked-recursive-other-window',
|
|
;; `diredp-mark-extension-recursive',
|
|
;; `diredp-mark-files-containing-regexp-recursive',
|
|
;; `diredp-mark-files-regexp-recursive',
|
|
;; `diredp-mark-files-tagged-all', `diredp-mark-files-tagged-none',
|
|
;; `diredp-mark-files-tagged-not-all',
|
|
;; `diredp-mark-files-tagged-some',
|
|
;; `diredp-mark-files-tagged-regexp', `diredp-mark-region-files',
|
|
;; `diredp-mark-sexp-recursive' (Emacs 22+),
|
|
;; `diredp-mark/unmark-autofiles', `diredp-mark/unmark-extension',
|
|
;; `diredp-mouse-3-menu', `diredp-mouse-backup-diff',
|
|
;; `diredp-mouse-copy-tags', `diredp-mouse-describe-autofile',
|
|
;; `diredp-mouse-describe-file', `diredp-mouse-diff',
|
|
;; `diredp-mouse-do-bookmark', `diredp-mouse-do-byte-compile',
|
|
;; `diredp-mouse-do-chgrp', `diredp-mouse-do-chmod',
|
|
;; `diredp-mouse-do-chown', `diredp-mouse-do-compress',
|
|
;; `diredp-mouse-do-copy', `diredp-mouse-do-delete',
|
|
;; `diredp-mouse-do-grep', `diredp-mouse-do-hardlink',
|
|
;; `diredp-mouse-do-load', `diredp-mouse-do-print',
|
|
;; `diredp-mouse-do-remove-all-tags', `diredp-mouse-do-rename',
|
|
;; `diredp-mouse-do-set-tag-value',
|
|
;; `diredp-mouse-do-shell-command', `diredp-mouse-do-symlink',
|
|
;; `diredp-mouse-do-tag', `diredp-mouse-do-untag',
|
|
;; `diredp-mouse-downcase', `diredp-mouse-ediff',
|
|
;; `diredp-mouse-find-line-file-other-window',
|
|
;; `diredp-mouse-find-file-other-frame',
|
|
;; `diredp-mouse-find-file-reuse-dir-buffer',
|
|
;; `diredp-mouse-flag-file-deletion', `diredp-mouse-mark',
|
|
;; `diredp-mouse-mark-region-files', `diredp-mouse-mark/unmark',
|
|
;; `diredp-mouse-unmark', `diredp-mouse-upcase',
|
|
;; `diredp-mouse-view-file', `diredp-move-file' (Emacs 24+),
|
|
;; `diredp-multiple-w32-browser-recursive',
|
|
;; `diredp-nb-marked-in-mode-name', `diredp-next-dirline',
|
|
;; `diredp-next-line', `diredp-next-subdir', `diredp-omit-marked',
|
|
;; `diredp-omit-unmarked', `diredp-paste-add-tags-this-file',
|
|
;; `diredp-paste-files', `diredp-paste-replace-tags-this-file',
|
|
;; `diredp-prev-dirline', `diredp-previous-line',
|
|
;; `diredp-prev-subdir', `diredp-print-this-file',
|
|
;; `diredp-relsymlink-this-file',
|
|
;; `diredp-remove-all-tags-this-file', `diredp-rename-this-file',
|
|
;; `diredp-send-bug-report',
|
|
;; `diredp-set-bookmark-file-bookmark-for-marked',
|
|
;; `diredp-set-bookmark-file-bookmark-for-marked-recursive',
|
|
;; `diredp-set-tag-value-this-file',
|
|
;; `diredp-shell-command-this-file', `diredp-show-metadata',
|
|
;; `diredp-show-metadata-for-marked', `diredp-sign-this-file',
|
|
;; `diredp-symlink-this-file', `diredp-tag-this-file',
|
|
;; `diredp-toggle-find-file-reuse-dir',
|
|
;; `diredp-toggle-marks-in-region', `diredp-touch-this-file',
|
|
;; `diredp-unmark-all-files-recursive' (Emacs 22+),
|
|
;; `diredp-unmark-all-marks-recursive' (Emacs 22+),
|
|
;; `diredp-unmark-autofiles', `diredp-unmark-files-tagged-all',
|
|
;; `diredp-unmark-files-tagged-none',
|
|
;; `diredp-unmark-files-tagged-not-all',
|
|
;; `diredp-unmark-files-tagged-some', `diredp-unmark-region-files',
|
|
;; `diredp-untag-this-file', `diredp-upcase-recursive',
|
|
;; `diredp-up-directory', `diredp-up-directory-reuse-dir-buffer',
|
|
;; `diredp-upcase-this-file', `diredp-verify-this-file',
|
|
;; `diredp-visit-next-file', `diredp-visit-previous-file',
|
|
;; `diredp-visit-this-file', `diredp-w32-drives',
|
|
;; `diredp-w32-drives-mode', `diredp-yank-files',
|
|
;; `global-dired-hide-details-mode' (Emacs 24.4+),
|
|
;; `toggle-diredp-find-file-reuse-dir'.
|
|
;;
|
|
;; User options defined here:
|
|
;;
|
|
;; `diredp-auto-focus-frame-for-thumbnail-tooltip-flag',
|
|
;; `diredp-bind-problematic-terminal-keys',
|
|
;; `diredp-compressed-extensions', `diredp-count-.-and-..-flag'
|
|
;; (Emacs 22+), `diredp-do-report-echo-limit',
|
|
;; `diredp-dwim-any-frame-flag' (Emacs 22+),
|
|
;; `diredp-image-preview-in-tooltip', `diff-switches',
|
|
;; `diredp-hide-details-initially-flag' (Emacs 24.4+),
|
|
;; `diredp-highlight-autofiles-mode',
|
|
;; `diredp-hide-details-propagate-flag' (Emacs 24.4+),
|
|
;; `diredp-ignore-compressed-flag',
|
|
;; `diredp-image-show-this-file-use-frame-flag' (Emacs 22+),
|
|
;; `diredp-list-file-attributes', `diredp-max-frames',
|
|
;; `diredp-move-file-dirs' (Emacs 24+), `diredp-omit-files-regexp'
|
|
;; `diredp-prompt-for-bookmark-prefix-flag',
|
|
;; `diredp-visit-ignore-extensions', `diredp-visit-ignore-regexps',
|
|
;; `diredp-w32-local-drives', `diredp-wrap-around-flag'.
|
|
;;
|
|
;; Non-interactive functions defined here:
|
|
;;
|
|
;; `derived-mode-p' (Emacs < 22), `diredp-all-files',
|
|
;; `diredp-ancestor-dirs', `diredp-apply-function-to-file-name',
|
|
;; `diredp-bookmark',
|
|
;; `diredp-create-files-non-directory-recursive',
|
|
;; `diredp-delete-dups', `diredp-delete-if',
|
|
;; `diredp-delete-if-not', `diredp-directories-within',
|
|
;; `diredp-dired-plus-description',
|
|
;; `diredp-dired-plus-description+links',
|
|
;; `diredp-dired-plus-help-link', `diredp-dired-union-1',
|
|
;; `diredp-dired-union-interactive-spec', `diredp-display-image'
|
|
;; (Emacs 22+), `diredp-do-chxxx-recursive',
|
|
;; `diredp-do-create-files-recursive', `diredp-do-grep-1',
|
|
;; `diredp-ensure-bookmark+', `diredp-ensure-mode',
|
|
;; `diredp-eval-lisp-sexp' (Emacs 22+),
|
|
;; `diredp-existing-dired-buffer-p', `diredp-fewer-than-2-files-p',
|
|
;; `diredp-fewer-than-echo-limit-files-p',
|
|
;; `diredp-fewer-than-N-files-p', `diredp-fileset-1',
|
|
;; `diredp-find-a-file-read-args',
|
|
;; `diredp-file-for-compilation-hit-at-point' (Emacs 24+),
|
|
;; `diredp-files-within', `diredp-files-within-1',
|
|
;; `diredp-fit-frame-unless-buffer-narrowed' (Emacs 24.4+),
|
|
;; `diredp-get-confirmation-recursive', `diredp-get-files',
|
|
;; `diredp-get-files-for-dir', `diredp-get-subdirs',
|
|
;; `diredp-hide-details-if-dired' (Emacs 24.4+),
|
|
;; `diredp-hide/show-details' (Emacs 24.4+),
|
|
;; `diredp-highlight-autofiles', `diredp-image-dired-required-msg',
|
|
;; `diredp-get-image-filename', `diredp-internal-do-deletions',
|
|
;; `diredp-invoke-emacs-command', `diredp-invoke-function-no-args',
|
|
;; `diredp-list-file', `diredp-list-files', `diredp-looking-at-p',
|
|
;; `diredp-make-find-file-keys-reuse-dirs',
|
|
;; `diredp-make-find-file-keys-not-reuse-dirs', `diredp-maplist',
|
|
;; `diredp-map-over-marks-and-report', `diredp-marked-here',
|
|
;; `diredp-mark-files-tagged-all/none',
|
|
;; `diredp-mark-files-tagged-some/not-all',
|
|
;; `diredp-nonempty-region-p', `diredp-parent-dir',
|
|
;; `diredp-paste-add-tags', `diredp-paste-replace-tags',
|
|
;; `diredp-read-bookmark-file-args', `diredp-read-command',
|
|
;; `diredp-read-expression' (Emacs 22+),
|
|
;; `diredp-read-include/exclude', `diredp-read-regexp',
|
|
;; `diredp-recent-dirs', `diredp-refontify-buffer',
|
|
;; `diredp-remove-if', `diredp-remove-if-not',
|
|
;; `diredp-report-file-result', `diredp--reuse-dir-buffer-helper',
|
|
;; `diredp-root-directory-p', `diredp-set-header-line-breadcrumbs'
|
|
;; (Emacs 22+), `diredp-set-tag-value', `diredp-set-union',
|
|
;; `diredp--set-up-font-locking', `diredp-string-match-p',
|
|
;; `diredp-tag', `diredp-this-file-marked-p',
|
|
;; `diredp-this-file-unmarked-p', `diredp-this-subdir',
|
|
;; `diredp-untag', `diredp-visit-ignore-regexp',
|
|
;; `diredp-y-or-n-files-p'.
|
|
;;
|
|
;; Variables defined here:
|
|
;;
|
|
;; `diredp-bookmark-menu', `diredp-file-line-overlay',
|
|
;; `diredp-files-within-dirs-done', `diredp-font-lock-keywords-1',
|
|
;; `diredp-hide-details-last-state' (Emacs 24.4+),
|
|
;; `diredp-hide-details-toggled' (Emacs 24.4+),
|
|
;; `diredp-hide/show-menu', `diredp-images-recursive-menu',
|
|
;; `diredp-last-copied-filenames', `diredp-list-files-map',
|
|
;; `diredp-loaded-p', `diredp-marks-recursive-menu',
|
|
;; `diredp-menu-bar-dir-menu', `diredp-menu-bar-marks-menu',
|
|
;; `diredp-menu-bar-multiple-menu', `diredp-menu-bar-regexp-menu',
|
|
;; `diredp-menu-bar-single-menu', `diredp-multiple-bookmarks-menu',
|
|
;; `diredp-multiple-delete-menu', `diredp-multiple-dired-menu',
|
|
;; `diredp-multiple-images-menu',
|
|
;; `diredp-multiple-encryption-menu',
|
|
;; `diredp-multiple-move-copy-link-menu',
|
|
;; `diredp-multiple-omit-menu', `diredp-multiple-recursive-menu',
|
|
;; `diredp-multiple-rename-menu', `diredp-multiple-search-menu',
|
|
;; `diredp-navigate-menu', `diredp-regexp-recursive-menu',
|
|
;; `diredp-re-no-dot', `diredp-single-bookmarks-menu',
|
|
;; `diredp-single-encryption-menu', `diredp-single-image-menu',
|
|
;; `diredp-single-move-copy-link-menu', `diredp-single-open-menu',
|
|
;; `diredp-single-rename-menu', `diredp-w32-drives-mode-map'.
|
|
;;
|
|
;; Macros defined here:
|
|
;;
|
|
;; `diredp-mark-if', `diredp-user-error',
|
|
;; `diredp-with-help-window'.
|
|
;;
|
|
;;
|
|
;; ***** NOTE: The following macros defined in `dired.el' have
|
|
;; been REDEFINED HERE:
|
|
;;
|
|
;; `dired-map-over-marks' - Treat multiple `C-u' specially.
|
|
;;
|
|
;;
|
|
;; ***** NOTE: The following functions defined in `dired.el' have
|
|
;; been REDEFINED or ADVISED HERE:
|
|
;;
|
|
;; `dired' - Handle non-positive prefix arg.
|
|
;; `dired-do-delete' - Display message to warn that marked,
|
|
;; not flagged, files will be deleted.
|
|
;; `dired-do-flagged-delete' - Display message to warn that flagged,
|
|
;; not marked, files will be deleted.
|
|
;; `dired-dwim-target-directory' - Uses `diredp-dwim-any-frame-flag'.
|
|
;; `dired-find-file' - Allow `.' and `..' (Emacs 20 only).
|
|
;; `dired-get-filename' - Test `./' and `../' (like `.', `..').
|
|
;; `dired-get-marked-files' - Can include `.' and `..'.
|
|
;; Allow FILTER + DISTINGUISH-ONE-MARKED.
|
|
;; `dired-goto-file' - Fix Emacs bug #7126.
|
|
;; Remove `/' from dir before compare.
|
|
;; (Emacs < 24 only.)
|
|
;; `dired-hide-details-mode' - Respect new user options:
|
|
;; * `diredp-hide-details-initially-flag'
|
|
;; * `diredp-hide-details-propagate-flag'
|
|
;; (Emacs 24.4+)
|
|
;; `dired-insert-directory' - Compute WILDCARD arg for
|
|
;; `insert-directory' for individual file
|
|
;; (don't just use nil). (Emacs 23+, and
|
|
;; only for MS Windows)
|
|
;; `dired-insert-set-properties' - `mouse-face' on whole line.
|
|
;; `dired-flag-auto-save-files', `dired-mark-directories',
|
|
;; `dired-mark-executables', `dired-mark-files-containing-regexp',
|
|
;; `dired-mark-files-regexp', `dired-mark-symlinks'
|
|
;; - Use `diredp-mark-if', not `dired-mark-if'.
|
|
;; `dired-mark-files-regexp' - Add regexp to `regexp-search-ring'.
|
|
;; More matching possibilities.
|
|
;; Added optional arg LOCALP.
|
|
;; `dired-mark-pop-up' - Delete the window or frame popped up,
|
|
;; afterward, and bury its buffer. Do not
|
|
;; show a menu bar for pop-up frame.
|
|
;; `dired-other-frame' - Handle non-positive prefix arg.
|
|
;; `dired-other-window' - Handle non-positive prefix arg.
|
|
;; `dired-pop-to-buffer' - Put window point at bob (bug #12281).
|
|
;; (Emacs 22-24.1)
|
|
;; `dired-read-dir-and-switches' - Non-positive prefix arg behavior.
|
|
;;
|
|
;;; NOT YET:
|
|
;;; ;; `dired-readin-insert' - Use t as WILDCARD arg to
|
|
;;; ;; `dired-insert-directory'. (Emacs 23+,
|
|
;;; ;; and only for MS Windows)
|
|
;;
|
|
;; `dired-revert' - Reset `mode-line-process' to nil.
|
|
;; `dired-switches-escape-p' - Made compatible with Emacs 20, 21.
|
|
;;
|
|
;;
|
|
;; ***** NOTE: The following functions are included here with little
|
|
;; or no change to their definitions. They are here to
|
|
;; take advantage of the new definition of macro
|
|
;; `dired-map-over-marks':
|
|
;;
|
|
;; `dired-do-redisplay', `dired-map-over-marks-check',
|
|
;; `image-dired-dired-insert-marked-thumbs',
|
|
;; `image-dired-dired-toggle-marked-thumbs'.
|
|
;;
|
|
;;
|
|
;; ***** NOTE: The following functions defined in `dired-aux.el' have
|
|
;; been REDEFINED HERE:
|
|
;;
|
|
;; `dired-do-byte-compile', `dired-do-compress', `dired-do-load' -
|
|
;; Redisplay only if at most one file is being treated.
|
|
;; `dired-do-find-regexp', `dired-do-find-regexp-and-replace' -
|
|
;; Prefix arg lets you act on files other than those marked.
|
|
;; `dired-do-isearch', `dired-do-isearch-regexp',
|
|
;; `dired-do-query-replace-regexp', `dired-do-search' -
|
|
;; Use new `dired-get-marked-files'.
|
|
;; `dired-insert-subdir-newpos' - If not a descendant, put at eob.
|
|
;; `dired-insert-subdir-validate' - Do nothing: no restrictions.
|
|
;; `dired-maybe-insert-subdir' - Go back to subdir line if in listing.
|
|
;; `dired-handle-overwrite' - Added optional arg FROM, for listing.
|
|
;; `dired-copy-file(-recursive)', `dired-hardlink', `dired-query',
|
|
;; `dired-rename-file' - You can list (`l') the files involved.
|
|
;;
|
|
;;
|
|
;; ***** NOTE: The following functions defined in `dired-x.el' have
|
|
;; been REDEFINED HERE:
|
|
;;
|
|
;; `dired-copy-filename-as-kill' -
|
|
;; Put file names also in var `diredp-last-copied-filenames'.
|
|
;; `dired-do-find-marked-files' -
|
|
;; Call `dired-get-marked-files' with original ARG.
|
|
;; Added optional arg INTERACTIVEP - no error if nil and no files.
|
|
;; `dired-do-run-mail' - Require confirmation.
|
|
;; `dired-mark-sexp' - 1. Variable `s' -> `blks'.
|
|
;; 2. Fixes to `uid' and `gid'.
|
|
;; `dired-mark-unmarked-files' (Emacs < 24 only) - Emacs 24+ version.
|
|
;; `dired-simultaneous-find-file' -
|
|
;; Use separate frames instead of windows if `pop-up-frames' is
|
|
;; non-nil, or if prefix arg < 0.
|
|
;;
|
|
;;
|
|
;; ***** NOTE: (Emacs 20 only) The following variable defined in
|
|
;; `dired.el' has been REDEFINED HERE:
|
|
;;
|
|
;; `dired-move-to-filename-regexp' - Recognize file size in k etc.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Change Log:
|
|
;;
|
|
;; 2019/07/03 dadams
|
|
;; dired-mark-unmarked-files: Apply fix for Emacs bug #27465.
|
|
;; diredp-mark-if, diredp-mark-sexp(-recursive), dired-mark-unmarked-files:
|
|
;; Use char-after, not diredp-looking-at-p.
|
|
;; 2019/07/19 dadams
|
|
;; diredp-change-marks-recursive, diredp-unmark-all-files-recursive,
|
|
;; diredp-mark-files(-containing)-regexp-recursive, diredp-mark-sexp-recursive, diredp-mark-recursive-1:
|
|
;; Added missing PREDICATE arg in calls to diredp-get-subdirs.
|
|
;; 2019/06/25 dadams
|
|
;; diredp-mark-if, diredp-this-file-(un)marked-p: Use regexp-quote for marker char.
|
|
;; 2019/06/03 dadams
|
|
;; Removed autoload cookie for diredp-omit-files-regexp - it evaluates dired-omit-files, from dired-x.el.
|
|
;; Hard-require dired-x.el. (No reason not to.) Removed fboundp guards for it.
|
|
;; 2019/04/22 dadams
|
|
;; Added diredp-move-files-named-in-kill-ring. Bound to C-w.
|
|
;; 2019/04/21 dadams
|
|
;; Added redefinitions of dired-do-find-regexp, dired-do-find-regexp-and-replace.
|
|
;; diredp-multiple-search-menu: Added "Using TAGS Table" for dired-do-(query-replace|search).
|
|
;; 2019/04/20 dadams
|
|
;; Added:
|
|
;; diredp-map-over-marks-and-report, diredp-do-emacs-command, diredp-invoke-emacs-command,
|
|
;; diredp-read-command, diredp-do-lisp-sexp, diredp-eval-lisp-sexp, diredp-report-file-result,
|
|
;; diredp-do-report-echo-limit, diredp-fewer-than-N-files-p, diredp-fewer-than-echo-limit-files-p,
|
|
;; diredp-apply-function-to-file-name, diredp-invoke-function-no-args, diredp-list-file-attributes.
|
|
;; diredp-do-apply-function: Redefine to use diredp-map-over-marks-and-report.
|
|
;; diredp-dired-plus-description, diredp-menu-bar-multiple-menu:
|
|
;; Added diredp-do-emacs-command, diredp-do-lisp-sexp.
|
|
;; diredp-menu-bar-multiple-menu: Reordered items.
|
|
;; diredp-list-marked, diredp-*-recursive, diredp-describe-marked-autofiles:
|
|
;; Use diredp-list-file-attributes for DETAILS arg interactively.
|
|
;; diredp-yank-files, dired-query: Use diredp-list-file-attributes, not harcoded list (5 8).
|
|
;; diredp-set-bookmark-file-bookmark-for-marked-recursive: Corrected interactive spec.
|
|
;; 2019/04/16 dadams
|
|
;; Added: diredp-delete-if.
|
|
;; dired-map-over-marks-check: Added &rest argument FUN-ARGS, so FUN can accept arguments.
|
|
;; 2019/04/12 dadams
|
|
;; dired-get-marked-files: Do not add t to RESULT. Thx to Jeff Spencer for bug report.
|
|
;; If all marked is (t) for some reason reset it to nil, per vanilla Emacs 24+.
|
|
;; diredp-compressed-extensions: Added .rar, .rev.
|
|
;; 2019/04/10 dadams
|
|
;; Added diredp-read-expression (forgot it when added diredp-mark-sexp-recursive).
|
|
;; diredp-mark-sexp-recursive is thus only for Emacs 22+.
|
|
;; 2019/03/20 dadams
|
|
;; Added option diredp-omit-files-regexp.
|
|
;; Face diredp-omit-file-name: Added strike-through.
|
|
;; diredp-font-lock-keywords-1, for face diredp-omit-file-name:
|
|
;; Move to file name. Use diredp-omit-files-regexp. Append * for executable flag. Highlight whole line.
|
|
;; 2019/03/17 dadams
|
|
;; diredp-font-lock-keywords-1:
|
|
;; Use just dired-omit-files as regexp - its components already have ^...$.
|
|
;; Removed superfluous execute *'s in regexps and superfluous concat for compressed extensions.
|
|
;; Face diredp-omit-file-name: Removed :strike-through for default value.
|
|
;; 2019/03/16 dadms
|
|
;; Added face diredp-omit-file-name.
|
|
;; diredp-font-lock-keywords-1: Use face diredp-omit-file-name for dired-omit-files matches.
|
|
;; 2019/03/15 dadams
|
|
;; diredp-font-lock-keywords-1: Treat dired-omit-files like dired-omit-extensions.
|
|
;; 2019/01/27 dadams
|
|
;; Added: diredp-mark-files-containing-regexp-recursive.
|
|
;; Bound to M-+ % g. Added to diredp-marks-recursive-menu, diredp-regexp-recursive-menu.
|
|
;; 2019/01/17 dadams
|
|
;; Added: diredp-mark-sexp-recursive. Bound to M-+ M-(, M-+ * (. Added to diredp-marks-recursive-menu.
|
|
;; dired-query: Use dired-query-alist only when available.
|
|
;; diredp-move-file: Fix format string in error call.
|
|
;; diredp-mark-symlinks-recursive: Added missing DETAILS arg for diredp-mark-recursive-1.
|
|
;; 2019/01/01 dadams
|
|
;; Added: diredp-list-file.
|
|
;; Added redefinitions of dired-query, dired-handle-overwrite, dired-copy-file(-recursive), dired-rename-file,
|
|
;; dired-hardlink.
|
|
;; Added optional arg DETAILS to these functions: diredp-get-(subdirs|files), diredp-y-or-n-files-p,
|
|
;; diredp-list-(marked|files), diredp-yank-files, diredp-describe-marked-autofiles, plus all functions with
|
|
;; "recursive" in their name except diredp-get-confirmation-recursive.
|
|
;; Added optional arg DETAILS.
|
|
;; diredp-get-(subdirs|files), diredp-y-or-n-files-p, diredp-list-(marked|files), diredp-yank-files,
|
|
;; diredp-describe-marked-autofiles:
|
|
;; Added optional arg DETAILS.
|
|
;; diredp-list-files: Use dired-list-file, to optionally show details.
|
|
;; diredp-yank-files: Non-positive prefix arg shows details now.
|
|
;; 2018/12/02 dadams
|
|
;; dired-mark-pop-up: Work around Emacs 22 bug in dired-pop-to-buffer which can exit in Dired buffer.
|
|
;; 2018/10/17 dadams
|
|
;; dired-read-dir-and-switches: Removed mention of icicle-file-sort-first-time-p (no longer used in Icicles).
|
|
;; 2018/09/21 dadams
|
|
;; diredp-image-dired-edit-comment-and-tags, diredp-w32-drives:
|
|
;; Use pop-to-buffer-same-window, not switch-to-buffer.
|
|
;; 2018/09/14 dadams
|
|
;; Added: diredp-move-file-dirs, diredp-move-file.
|
|
;; 2018/06/30 dadams
|
|
;; Added: diredp-delete-if-not.
|
|
;; 2018/06/16 dadams
|
|
;; Added: diredp-visit-ignore-extensions, diredp-visit-ignore-regexps, diredp-visit-next-file,
|
|
;; diredp-visit-previous-file, diredp-visit-this-file, diredp-visit-ignore-regexp.
|
|
;; Bind the commands to C-down, C-up, e.
|
|
;; 2018/03/25 dadams
|
|
;; Added: diredp-user-error.
|
|
;; Updated for Emacs 27-pretest-2 change in dired-get-marked-files signature.
|
|
;; dired-get-marked-files: Added optional arg ERROR-IF-NONE-P.
|
|
;; diredp-list-marked, diredp-insert-subdirs, dired-do-(i)search(-regexp), dired-do-query-replace-regexp,
|
|
;; dired-do-find-marked-files, diredp-describe-marked-autofiles:
|
|
;; Added optional arg INTERACTIVEP.
|
|
;; Pass non-nil ERROR-IF-NONE-P to dired-get-marked-files when INTERACTIVEP. (See Emacs bug #30938.)
|
|
;; 2018/03/23 dadams
|
|
;; Added diredp-mark-if. Removed: redefinition of dired-mark-if.
|
|
;; Differences: msg and return value include both number of matches and number of changes.
|
|
;; Added redefinitions (use diredp-mark-if) of dired-flag-auto-save-files,
|
|
;; dired-mark-(files-containing-regexp|symlinks|directories|executables).
|
|
;; Everywhere: Use diredp-mark-if, not dired-mark-if.
|
|
;; 2018/03/03 dadams
|
|
;; diredp-delete-dups: defalias the symbol, not its symbol-function (dunno why I did the latter).
|
|
;; 2018/02/28 dadams
|
|
;; Added: diredp-last-copied-filenames, diredp-copy-abs-filenames-as-kill-recursive,
|
|
;; and redefinition of vanilla diredp-last-copied-filenames.
|
|
;; diredp-copy-abs-filenames-as-kill: Use diredp-ensure-mode in interactive spec.
|
|
;; diredp-copy-filename-as-kill-recursive: Update diredp-last-copied-filenames with filenames string.
|
|
;; diredp-yank-files: Require confirmation for pasting, using diredp-y-or-n-files-p.
|
|
;; Get file names from variable diredp-last-copied-filenames, not kill-ring.
|
|
;; Added NO-CONFIRM-P arg.
|
|
;; diredp-ensure-mode: Added doc string.
|
|
;; diredp-do-grep, diredp-do-grep-recursive: Changed bindings to C-M-G and M-+ C-M-G, due to M-g conflict.
|
|
;; 2018/02/27 dadams
|
|
;; Added: diredp-copy-abs-filenames-as-kill, diredp-yank-files (aka diredp-paste-files) (bound to C-y).
|
|
;; diredp-menu-bar-multiple-menu: Added diredp-copy-abs-filenames-as-kill.
|
|
;; diredp-menu-bar-dir-menu: Added diredp-yank-files.
|
|
;; 2018/01/11 dadams
|
|
;; diredp-get-files:
|
|
;; Set IGNORE-MARKS-P to non-nil if nothing marked here. (It was not getting all if nothing marked.)
|
|
;; diredp-marked-recursive(-other-window):
|
|
;; Corrected interactive spec, which was missing nil DIRNAME arg. Corrected body: use DIRNAME.
|
|
;; diredp-get-files-for-dir, diredp-do-bookmark-dirs-recursive, diredp-change-marks-recursive,
|
|
;; diredp-unmark-all-files-recursive, diredp-mark-files-regexp-recursive, diredp-mark-recursive-1,
|
|
;; diredp-do-delete-recursive:
|
|
;; Factor out (dired-buffers-for-dir (expand-file-name directory)).
|
|
;; 2018/01/03 dadams
|
|
;; dired-mark-files-regexp: Corrected doc string wrt prefix args. Thx to John Mastro.
|
|
;; diredp-do-grep-recursive: Removed unused optional arg IGNORE-MARKS-P.
|
|
;; diredp-marked-recursive(-other-window): Moved handling of optional arg from interactive spec to body.
|
|
;; 2018/01/02 dadams
|
|
;; Added: diredp-flag-auto-save-files-recursive. Bound to M-+ #.
|
|
;; diredp-get-file-or-dir-name, diredp-marked-here: Doubled backslashes to escape dots.
|
|
;; diredp-marked-here: Fixed regexp to match only double-dot, not single-dot.
|
|
;; diredp-flag-auto-save-files-recursive: Updated to include more M-+ keys.
|
|
;; diredp-marks-recursive-menu: Added diredp-flag-auto-save-files-recursive.
|
|
;; 2017/12/31 dadams
|
|
;; diredp-get-files-for-dir: Pass non-nil NO-DOT-DOT-P arg to diredp-marked-here.
|
|
;; dired-get-marked-files: Allow use of FILTER and DISTINGUISH-ONE-MARKED together.
|
|
;; diredp-marked-here: Added optional arg NO-DOT-DOT-P.
|
|
;; diredp-change-marks-recursive, diredp-unmark-all-files-recursive: Removed unused vars include-dirs, files.
|
|
;; 2017/12/30 dadams
|
|
;; Added: diredp-change-marks-recursive, diredp-unmark-all-files-recursive, diredp-unmark-all-marks-recursive.
|
|
;; Bound to M-+ * c, M-+ M-DEL, M-+ U, respectively.
|
|
;; diredp-menu-bar-marks-menu: Rename item Change Marks to Change Mark.
|
|
;; diredp-marks-recursive-menu, diredp-multiple-recursive-menu:
|
|
;; Added diredp-change-marks-recursive, diredp-unmark-all-(files|marks)-recursive.
|
|
;; 2017/12/21 dadams
|
|
;; Added: diredp-mark-recursive-1. Forgot to add it last June.
|
|
;; 2017/12/17 dadams
|
|
;; Removed: diredp-display-graphic-p.
|
|
;; Do not use diredp-display-graphic-p to allow binding diredp-bind-problematic-terminal-keys by default.
|
|
;; 2017/11/25 dadams
|
|
;; diredp-nb-marked-in-mode-name: Wrap last :eval sexp in save-excursion.
|
|
;; Protect Call dired-current-directory only when dired-subdir-alist.
|
|
;; 2017/10/23 dadams
|
|
;; Added: diredp-count-.-and-..-flag, diredp--reuse-dir-buffer-helper.
|
|
;; Removed: diredp-mouse-find-file.
|
|
;; diredp-find-file-reuse-dir-buffer, diredp-mouse-find-file-reuse-dir-buffer,
|
|
;; diredp-up-directory-reuse-dir-buffer:
|
|
;; Use diredp--reuse-dir-buffer-helper.
|
|
;; diredp-find-file-reuse-dir-buffer: Changed logic: do find-alternate-file only if target is a dir not in
|
|
;; Dired and current Dired buffer is in only this window.
|
|
;; diredp-mouse-find-file-reuse-dir-buffer: Added optional args FIND-FILE-FUNC and FIND-DIR-FUNC.
|
|
;; diredp-up-directory, diredp-up-directory-reuse-dir-buffer: Pass OTHER-WINDOW arg to diredp-w32-drives.
|
|
;; diredp-nb-marked-in-mode-name: Show also number of lines in current listing, and listing-relative lineno,
|
|
;; respecting diredp-count-.-and-..-flag.
|
|
;; diredp-find-a-file*: Added autoload cookies.
|
|
;; 2017/08/18 dadams
|
|
;; Fixed emacswiki URLs everywhere. They changed the locations and changed http to https.
|
|
;; 2017/06/30 dadams
|
|
;; Added: diredp-bind-problematic-terminal-keys, diredp-display-graphic-p.
|
|
;; Guard bindings of problematic keys with diredp-display-graphic-p & diredp-bind-problematic-terminal-keys.
|
|
;; Documented problematic keys for terminal mode in commentary.
|
|
;; 2017/06/23 dadams
|
|
;; Added: diredp-read-regexp (removed alias to read-regexp), diredp-marks-recursive-menu,
|
|
;; diredp-mark-executables-recursive (bound to M-+ * *),
|
|
;; diredp-mark-directories-recursive (bound to M-+ * /),
|
|
;; diredp-mark-extension-recursive (bound to M-+ * .),
|
|
;; diredp-mark-autofiles-recursive (bound to M-+ * B),
|
|
;; diredp-mark-executables-recursive (bound to M-+ * *),
|
|
;; diredp-mark-directories-recursive (bound to M-+ * /),
|
|
;; diredp-mark-symlinks-recursive (bound to M-+ * @),
|
|
;; Bind diredp-mark-autofiles to * B.
|
|
;; diredp-marked-here: Bind dired-marker-char to ?*.
|
|
;; diredp-mark-files-regexp-recursive: Better msgs - show total count.
|
|
;; Everywhere: Use diredp-looking-at, not looking-at. Use diredp-read-regexp, not dired-read-regexp.
|
|
;; 2017/05/30 dadams
|
|
;; Fixed typo: direp--set-up-font-locking -> diredp--set-up-font-locking.
|
|
;; 2017/05/22 dadams
|
|
;; Added: direp--set-up-font-locking.
|
|
;; Use direp--set-up-font-locking instead of lambda in dired-mode-hook.
|
|
;; 2017/04/09 dadams
|
|
;; Version 2017.04.09.
|
|
;; Added: diredp-multiple-move-copy-link-menu, diredp-multiple-rename-menu, diredp-multiple-dired-menu,
|
|
;; diredp-multiple-omit-menu, diredp-multiple-delete-menu, diredp-single-bookmarks-menu,
|
|
;; diredp-single-encryption-menu, diredp-single-image-menu, diredp-single-open-menu,
|
|
;; diredp-single-move-copy-link-menu, diredp-single-rename-menu.
|
|
;; Moved single menu items there.
|
|
;; Renamed: diredp-menu-bar-encryption-menu to diredp-multiple-encryption-menu,
|
|
;; diredp-menu-bar-mark-menu to diredp-menu-bar-marks-menu,
|
|
;; diredp-menu-bar-operate-menu to diredp-menu-bar-multiple-menu,
|
|
;; diredp-menu-bar-operate-bookmarks-menu to diredp-multiple-bookmarks-menu,
|
|
;; diredp-menu-bar-operate-recursive-menu to diredp-multiple-recursive-menu,
|
|
;; diredp-menu-bar-operate-search-menu to diredp-multiple-search-menu,
|
|
;; diredp-menu-bar-images-menu to diredp-multiple-images-menu,
|
|
;; diredp-menu-bar-images-recursive-menu to diredp-images-recursive-menu,
|
|
;; diredp-menu-bar-immediate-menu to diredp-menu-bar-single-menu,
|
|
;; diredp-menu-bar-regexp-recursive-menu to diredp-regexp-recursive-menu,
|
|
;; diredp-menu-bar-subdir-menu to diredp-menu-bar-dir-menu.
|
|
;; Added dired-do-rename to diredp-multiple-rename-menu.
|
|
;; diredp-nonempty-region-p: Ensure (mark) also.
|
|
;; 2017/03/30 dadams
|
|
;; Moved key bindings to end of file. Moved defgroup before defcustoms.
|
|
;; Bind dired-multiple-w32-browser to C-M-RET, diredp-multiple-w32-browser-recursive to M-+ C-M-RET.
|
|
;; 2017/03/29 dadams
|
|
;; Added: diredp-dired-union-other-window, diredp-add-to-dired-buffer-other-window.
|
|
;; diredp-dired-union-1: Added optional arg OTHERWIN.
|
|
;; diredp-dired-plus-description: Updated doc string.
|
|
;; diredp-menu-bar-subdir-menu: Added diredp-dired-for-files.
|
|
;; Bind diredp-w32-drives to :/, diredp-dired-inserted-subdirs to C-M-i.
|
|
;; Bind diredp-add-to-dired-buffer to C-x D A (not C-x E), diredp-dired-union to C-x D U (not C-x D),
|
|
;; diredp-fileset to C-x D S (not C-M-f), diredp-dired-recent-dirs to C-x D R (not C-x R),
|
|
;; diredp-dired-for-files to C-x D F, plus other-window versions.
|
|
;; 2017/03/24 dadams
|
|
;; Added defalias for dired-read-regexp.
|
|
;; diredp-mouse-3-menu: Removed second arg to mouse-save-then-kill.
|
|
;; 2017/02/20 dadams
|
|
;; diredp-(next|previous)-line, diredp-(next|prev)-dirline, diredp-(next|prev)-subdir:
|
|
;; Update interactive spec to use (in effect) ^p for prefix arg (for shift-select-mode).
|
|
;; 2017/01/12 dadams
|
|
;; dired-mark-files-regexp: Swapped prefix-arg behavior for relative and absolute name matching.
|
|
;; 2017/01/01 dadams
|
|
;; dired-mark-files-regexp: Fix to prompt for no prefix arg.
|
|
;; 2016/12/28 dadams
|
|
;; dired-mark-files-regexp: Corrected prompt string for Mark/UNmark. Thx to Tino Calancha.
|
|
;; 2016/11/20 dadams
|
|
;; diredp-menu-bar-operate-search-menu: Added dired-do-find-regexp and dired-do-find-regexp-and-replace.
|
|
;; Bind dired-do-search to M-a and dired-do-query(-replace)-regexp to M-q.
|
|
;; diredp-dired-plus-description: Added dired-do-find-regexp and dired-do-find-regexp-and-replace.
|
|
;; 2016/10/12 dadams
|
|
;; diredp-compressed-extensions: Added extensions .xz and .lzma. Thx to xuhdev (https://www.topbug.net/).
|
|
;; 2016/09/20 dadams
|
|
;; Emacs 25.1: Bind M-z to dired-do-compress-to (replaces c). (Emacs bug #24484.)
|
|
;; diredp-menu-bar-operate-menu: Added item: Compress to (dired-do-compress-to).
|
|
;; 2016/09/15 dadams
|
|
;; Added: diredp-max-frames.
|
|
;; dired-do-find-marked-files: Pass non-nil ARG to dired-get-marked-files only if it is a cons.
|
|
;; Clarified doc string wrt prefix arg.
|
|
;; dired-simultaneous-find-file: Require confirmation if more files than diredp-max-frames.
|
|
;; diredp-do-find-marked-files-recursive: Clarified doc string wrt prefix arg.
|
|
;; Thx to Tino Calancha.
|
|
;; 2016/09/14 dadams
|
|
;; diredp-dired-plus-description: Added entry for dired-hide-details-mode - ( key.
|
|
;; 2016/08/26 dadams
|
|
;; diredp-y-or-n-files-p: pop-to-buffer only when the buffer was created.
|
|
;; Update wrt vanilla (scroll actions).
|
|
;; diredp-do-query-replace-regexp-recursive:
|
|
;; Call diredp-get-confirmation-recursive.
|
|
;; Use only diredp-get-files, not dired-get-marked-files.
|
|
;; Non-positive prefix arg means DELIMITED.
|
|
;; 2016/08/08 dadams
|
|
;; diredp-menu-bar-mark-menu:
|
|
;; Added: dired-mark-files-containing-regexp, dired-mark-sexp, image-dired-mark-tagged-files,
|
|
;; 2016/05/28 dadams
|
|
;; diredp-mark-files-regexp-recursive: Use nil for dired-get-filename LOCALP arg.
|
|
;; dired-mark-files-regexp: Corrected doc string: absolute filename matching by default.
|
|
;; 2016/05/24 dadams
|
|
;; dired-mark-files-regexp: Added optional arg LOCALP, so can mark/unmark matching different file-name forms.
|
|
;; 2016/05/15 dadams
|
|
;; Added: diredp-bookmark-menu, diredp-hide/show-menu, diredp-navigate-menu.
|
|
;; Move insert after revert and rename it to Insert/Move-To This Subdir. Move create-directory before revert.
|
|
;; 2016/04/29 dadams
|
|
;; diredp-next-line: Respect goal-column.
|
|
;; 2016/01/24 dadams
|
|
;; Added: diredp-ensure-bookmark+, diredp-mark-autofiles, diredp-unmark-autofiles,
|
|
;; diredp-mark/unmark-autofiles, diredp-describe-autofile, diredp-show-metadata,
|
|
;; diredp-mouse-describe-autofile, diredp-describe-marked-autofiles, diredp-show-metadata-for-marked
|
|
;; Soft-require help-fns+.el (Emacs 22+) or help+20.el (Emacs 20-21).
|
|
;; Add to menu-bar menus:
|
|
;; diredp-(un)mark-autofiles, diredp-describe-autofile, diredp-describe-marked-autofiles.
|
|
;; diredp-menu-bar-immediate-menu: Add diredp-describe-file only if defined.
|
|
;; Bind diredp-describe-file to keys only if defined.
|
|
;; Use diredp-ensure-bookmark+ everywhere, instead of its definition.
|
|
;; diredp(-mouse)-describe-file: Define only if describe-file is defined. Removed raising error if not.
|
|
;; diredp-mouse-3-menu: Use diredp-describe-autofile if diredp-describe-file is not defined.
|
|
;; diredp-dired-plus-description: Add diredp-mouse-describe-autofile, when bound.
|
|
;; dired-mark-if: Do not count non-changes.
|
|
;; 2015/12/15 dadams
|
|
;; diredp-font-lock-keywords-1: Follow # with optional [/ ], for face diredp-number. Thx to Tino Calancha.
|
|
;; 2015/11/10 dadams
|
|
;; diredp-fileset(-other-window): Separate error msgs for unloaded filesets.el and empty filesets-data.
|
|
;; 2015/10/02 dadams
|
|
;; dired-mark-sexp: Like vanilla, skip extended attributes marker before setting NLINK. Thx to Tino Calancha.
|
|
;; 2015/09/29 dadams
|
|
;; diredp-delete-this-file: Redefined to use delete-file instead of dired-do-delete.
|
|
;; 2015/09/07 dadams
|
|
;; diredp-font-lock-keywords-1: Do not test diredp-ignore-compressed-flag when highlighting file names.
|
|
;; Use separate entries for compressed and non-compressed file names.
|
|
;; Added missing \\| before ignored compressed extensions.
|
|
;; 2015/09/06 dadams
|
|
;; diredp-compressed-extensions: Added .tgz. Removed duplicate .gz.
|
|
;; diredp-font-lock-keywords-1: Use regexp-opt where possible, instead of mapcar regexp-quote.
|
|
;; 2015/09/05 dadams
|
|
;; Added: diredp-compressed-extensions, diredp-ignore-compressed-flag, diredp-compressed-file-name,
|
|
;; diredp-dir-name.
|
|
;; diredp-font-lock-keywords-1:
|
|
;; Allow spaces in symlink names. Highlight compressed-file names, if diredp-ignore-compressed-flag.
|
|
;; Use diredp-compressed-extensions instead of hardcoding extensions.
|
|
;; Highlight d with diredp-dir-priv (fix).
|
|
;; Treat l in third column the same as - and d there.
|
|
;; Highlight whole line for D-flagged files, with face diredp-deletion-file-name.
|
|
;; Thx to Nick Helm.
|
|
;; 2015/08/30 dadams
|
|
;; dired-mark-sexp: Updated per Emacs 25 code.
|
|
;; 2015/07/30 dadams
|
|
;; diredp-fileset(-other-window): Changed key binding from C-x F to C-x C-M-f (conflicted with find-function).
|
|
;; 2015/06/24 dadams
|
|
;; Added: diredp-parent-dir, diredp-breadcrumbs-in-header-line-mode, diredp-set-header-line-breadcrumbs.
|
|
;; 2015/06/06 dadams
|
|
;; Added dired-other-(frame|window).
|
|
;; diredp-font-lock-keywords-1:
|
|
;; Use dired-re-maybe-mark and dired-re-inode-size for permission matchings and directory names.
|
|
;; dired(-other-(frame|window)) advice:
|
|
;; Add interactive spec, to handle arg <= 0 (broken by change to dired-read-dir-and-switches 2015/02/02).
|
|
;; diredp-dired-for-files: Typo: pass empy string.
|
|
;; 2015/06/05 dadams
|
|
;; Added: diredp-grepped-files-other-window as alias for diredp-compilation-files-other-window.
|
|
;; diredp-compilation-files-other-window: Added SWITCHES optional arg (prefix arg).
|
|
;; 2015/06/04 dadams
|
|
;; diredp-dired-for-files(-other-window):
|
|
;; Updated to fit change to dired-read-dir-and-switches made 2015/02/02: addition of READ-EXTRA-FILES-P.
|
|
;; Use prefix arg to prompt for switches.
|
|
;; 2015/05/31 dadams
|
|
;; Added: diredp-image-show-this-file,diredp-image-show-this-file-use-frame-flag, diredp-get-image-filename.
|
|
;; image-dired-dired-toggle-marked-thumbs, diredp-menu-bar-immediate-menu [image]:
|
|
;; Use diredp-get-image-filename.
|
|
;; Bound diredp-image-show-this-file to C-t I.
|
|
;; diredp-menu-bar-immediate-image-menu: Added diredp-image-show-this-file and dired-find-file.
|
|
;; Added autoload cookies for image commands.
|
|
;; 2015/04/16 dadams
|
|
;; Added: diredp-do-apply-function, diredp-do-apply-function-recursive. Added to menus. Bind to @, M-+ @.
|
|
;; dired-do-query-replace-regexp: Handle nil ARG properly.
|
|
;; 2015/03/26 dadams
|
|
;; Added: redefinitions of dired-do-isearch, dired-do-isearch-regexp, dired-do-query-replace-regexp,
|
|
;; dired-do-search, to handle multi-C-u.
|
|
;; Added: dired-nondirectory-p (Emacs 20), diredp-refontify-buffer.
|
|
;; dired-do-byte-compile, dired-do-load, : Corrected interactive spec, to treat more than two C-u as two.
|
|
;; dired-after-readin-hook: Add diredp-refontify-buffer. In particular, this ensures that reverting Dired
|
|
;; for a listing of explicit file names gets refontified. (Just turn-on-font-lock does not refontify.)
|
|
;; 2015/03/24 dadams
|
|
;; Added: diredp-compilation-files-other-window, diredp-file-for-compilation-hit-at-point.
|
|
;; 2015/03/06 dadams
|
|
;; Renamed: diredp-menu-bar-recursive-marked-menu to diredp-menu-bar-operate-recursive-menu.
|
|
;; Added: diredp-do-delete-recursive: M-+ D. Added to diredp-menu-bar-operate-recursive-menu.
|
|
;; Added: diredp-mark-files-regexp-recursive: M-+ % m. Added to diredp-menu-bar-regexp-recursive-menu.
|
|
;; 2015/03/04 dadams
|
|
;; Added: diredp-dwim-any-frame-flag, (redefinition of) dired-dwim-target-directory.
|
|
;; 2015/02/22 dadams
|
|
;; diredp-bookmark: Corrected for use without Bookmark+ - bookmark-store signature.
|
|
;; Pass correct value to bmkp-autofile-set for its MSG-P arg.
|
|
;; diredp-mouse-do-bookmark: Do not pass non-nil NO-MSG-P arg to diredp-bookmark.
|
|
;; 2015/02/03 dadams
|
|
;; Added: diredp-add-to-this-dired-buffer.
|
|
;; Removed: diredp-add-to-dired-buffer-other-window, diredp-dired-union-other-window.
|
|
;; diredp-dired-union-1: Removed optional arg OTHER-WINDOW-P.
|
|
;; diredp-menu-bar-subdir-menu: Added diredp-add-to-this-dired-buffer.
|
|
;; dired-read-dir-and-switches, diredp-dired-union-interactive-spec:
|
|
;; Added optional arg DIRED-BUFFER. If nil, use current buffer name as default when reading buffer name.
|
|
;; 2015/02/02 dadams
|
|
;; Added: diredp-add-to-dired-buffer, diredp-add-to-dired-buffer-other-window, diredp-set-union,
|
|
;; diredp-existing-dired-buffer-p.
|
|
;; Bind diredp-add-to-dired-buffer(-other-window) globally to C-x E, C-x 4 E.
|
|
;; diredp-dired-union(-other-window):
|
|
;; Added args DIRNAME and EXTRA. Pass them to diredp-dired-union-1. Moved "UNION" to *-interactive-spec.
|
|
;; Pass values for new args NO-DIRED-BUFS and READ-EXTRA-FILES-P to diredp-dired-union-interactive-spec.
|
|
;; diredp-dired-union-interactive-spec:
|
|
;; Added args NO-DIRED-BUFS and READ-EXTRA-FILES-P. Use (updated) dired-read-dir-and-switches.
|
|
;; Delete dead buffers from dired-buffers. Remove DIRNAME buffer as candidate.
|
|
;; Apply expand-file-name to default-directory. Return list of DIRNAME BUFS SWITCHES EXTRA-FILES.
|
|
;; diredp-dired-union-1:
|
|
;; Added args DIRED-NAME and EXTRA.
|
|
;; For existing Dired buffer whose dired-directory is a cons:
|
|
;; Include its current listing. Replace buffer with new one of same name, after deleting its window.
|
|
;; dired-read-dir-and-switches:
|
|
;; Added arg READ-EXTRA-FILES-P.
|
|
;; If chosen Dired buffer exists and is an ordinary listing then start out with its directory-files.
|
|
;; diredp-dired-union, diredp-fileset, diredp-dired-recent-dirs: Bind globally, not just in Dired mode.
|
|
;; 2015/01/30 dadams
|
|
;; dired-read-dir-and-switches: Remove any killed buffers from dired-buffers, before using for completion.
|
|
;; 2014/10/25 dadams
|
|
;; diredp-dired-union-interactive-spec: Typo: quote buffer-name-history. Pass other-window STRING.
|
|
;; diredp-dired-union-other-window: Pass other-window STRING.
|
|
;; dired-read-dir-and-switches: Include STRING for reading buffer name also.
|
|
;; dired (defadvice): Corrected doc string for prefix arg >= and <= 0.
|
|
;; 2014/10/15 dadams
|
|
;; diredp-hide-details-initially-flag:
|
|
;; Added :set, to ensure that diredp-hide-details-last-state is kept up-to-date.
|
|
;; 2014/09/28 dadams
|
|
;; Added: diredp-recent-dirs, diredp-read-include/exclude, diredp-root-directory-p, diredp-remove-if.
|
|
;; diredp-dired-recent-dirs(-other-window): Added optional ARG. Use diredp-recent-dirs. Pass SWITCHES.
|
|
;; dired-read-dir-and-switches: Use diredp-root-directory-p.
|
|
;; Bound diredp-dired-recent-dirs(-other-window) to C-x R and C-x 4 R.
|
|
;; Added diredp-dired-recent-dirs to Dir menu.
|
|
;; 2014/09/27 dadams
|
|
;; Added: diredp-dired-recent-dirs, diredp-dired-recent-dirs-other-window, diredp-delete-dups.
|
|
;; 2014/09/26 dadams
|
|
;; diredp-mouseover-help: dired-get-filename etc. has to be inside the save-excursion.
|
|
;; diredp-image-dired-create-thumb: Added FILE arg. Use numeric prefix arg as the new thumbnail size.
|
|
;; 2014/09/22 dadams
|
|
;; diredp-mouse-3-menu: Do not place overlay unless on a file/dir name (i.e., dired-get-filename).
|
|
;; 2014/09/15 dadams
|
|
;; dired-read-dir-and-switches: Made it (thus dired too) an Icicles multi-command.
|
|
;; dired (defadvice): Added doc about using it with Icicles.
|
|
;; 2014/09/14 dadams
|
|
;; Added: diredp-kill-this-tree.
|
|
;; Removed: diredp-dired-files(-other-window), diredp-dired-files-interactive-spec.
|
|
;; dired-read-dir-and-switches:
|
|
;; Based on diredp-dired-files-interactive-spec implementation now, but:
|
|
;; Moved unwind-protect outside call to list. completing-read, not read-string, for DIRBUF.
|
|
;; Do not allow inclusion of root directories. Protected icicle-sort-comparer with boundp.
|
|
;; dired-insert-subdir-validate: Make it a no-op.
|
|
;; dired advice (doc string): Mention wildcards, Icicles.
|
|
;; diredp-dired-for-files(-other-window):
|
|
;; Use dired-read-dir-and-switches and dired, not diredp-dired-files-interactive-spec and
|
|
;; diredp-dired-files.
|
|
;; diredp-menu-bar-immediate-menu, diredp-mouse-3-menu:
|
|
;; Added item for diredp-kill-this-tree.
|
|
;; Corrected visible condition: expand-file-name, so ~/ compares with its expansion.
|
|
;; diredp-font-lock-keywords-1: Include period (.) for diredp(-compressed)-file-suffix.
|
|
;; 2014/09/09 dadams
|
|
;; Added: dired-read-dir-and-switches.
|
|
;; Advise dired, for doc string.
|
|
;; dired-get-filename: Hack for Emacs 20-22, to expand ~/...
|
|
;; 2014/09/07 dadams
|
|
;; Added: redefinitions of dired-insert-subdir-newpos, dired-insert-subdir-validate.
|
|
;; 2014/07/26 dadams
|
|
;; diredp-do-find-marked-files-recursive:
|
|
;; Only ARG >= 0 ignores marks now. And ARG <= 0 means find but do not display.
|
|
;; 2014/07/13 dadams
|
|
;; diredp-mouseover-help: Wrap (goto-char pos) in save-excursion (Emacs bug #18011).
|
|
;; 2014/07/12 dadams
|
|
;; Faces diredp(-tagged)-autofile-name: Made paler/darker (less saturated).
|
|
;; Moved diredp-highlight-autofiles before diredp-highlight-autofiles-mode, so will be
|
|
;; defined for first revert.
|
|
;; diredp-mouse-3-menu: Renamed items Tag, Untag to Add Tags, Remove Tags.
|
|
;; diredp-dired-plus-description: Updated.
|
|
;; 2014/07/11 dadams
|
|
;; Added: diredp-highlight-autofiles-mode, diredp-highlight-autofiles,
|
|
;; diredp-autofile-name, diredp-tagged-autofile-name.
|
|
;; Soft-require bookmark+.el. Soft-require highlight.el if bookmark+.el is provided.
|
|
;; diredp-menu-bar-subdir-menu: Added item Toggle Autofile Highlighting.
|
|
;; Removed unused face: diredp-display-msg.
|
|
;; 2014/06/29 dadams
|
|
;; dired-get-marked-files, diredp-internal-do-deletions:
|
|
;; Remove nils from dired-map-over-marks result.
|
|
;; 2014/05/28 dadams
|
|
;; diredp-mode-line-marked: Use DarkViolet for both light and dark background modes.
|
|
;; 2014/05/23 dadams
|
|
;; Added: diredp-with-help-window.
|
|
;; diredp-list-files, diredp-dired-plus-help:
|
|
;; Use diredp-with-help-window, not with-output-to-temp-buffer. See Emacs bug #17109.
|
|
;; 2014/05/06 dadams
|
|
;; Added: diredp-image-dired-required-msg, diredp-list-files-map,
|
|
;; diredp-find-line-file-other-window, diredp-mouse-find-line-file-other-window,
|
|
;; image-dired-dired-toggle-marked-thumbs, diredp-list-marked.
|
|
;; Soft-require image-dired.el and image-file.el.
|
|
;; diredp-image-dired-create-thumb: Define unconditionally.
|
|
;; image-dired-dired-insert-marked-thumbs, diredp-image-dired-comment-file,
|
|
;; diredp-image-dired-tag-file, diredp-image-dired-delete-tag,
|
|
;; diredp-image-dired-display-thumb, diredp-image-dired-copy-with-exif-name,
|
|
;; diredp-image-dired-edit-comment-and-tags, diredp-do-display-images:
|
|
;; Define unconditionally and raise error if no image-(dired|file).el.
|
|
;; diredp-menu-bar-immediate-image-menu, diredp-menu-bar-images-menu,
|
|
;; diredp-menu-bar-images-recursive-menu, image-dired-mark-tagged-files:
|
|
;; Define unconditionally and use :enable.
|
|
;; diredp-menu-bar-images-menu, diredp-menu-bar-images-recursive-menu:
|
|
;; Add defalias so can use menu-item with :enable.
|
|
;; diredp-list-files: Add properties mouse-face, keymap, and help-echo.
|
|
;; diredp-mouseover-help: Make it work also for diredp-list-files listings.
|
|
;; image-dired-dired-insert-marked-thumbs: Add autoload cookie.
|
|
;; dired-get-marked-files: Pass non-nil 2nd arg to dired-get-filename, to include . and .. .
|
|
;; Bind diredp-list-marked to C-M-l and diredp-list-marked-recursive to M+ C-M-l.
|
|
;; diredp-insert-subdirs: Exclude . and .., as dired-get-marked-files can now include them.
|
|
;; diredp-menu-bar-operate-menu: Add diredp-menu-bar-operate-menu to menu.
|
|
;; diredp-dired-plus-description: Mention diredp-list-marked*.
|
|
;; 2014/05/03 dadams
|
|
;; dired-switches-escape-p: Use dired-switches-check if available, based on bug #17218 fix.
|
|
;; 2014/04/25 dadams
|
|
;; diredp-image-dired-create-thumb:
|
|
;; Do not call diredp-image-dired-create-thumb twice: reuse THUMB-NAME.
|
|
;; 2014/04/24 dadams
|
|
;; Added: diredp-mouseover-help, diredp-auto-focus-frame-for-thumbnail-tooltip-flag,
|
|
;; diredp-image-preview-in-tooltip.
|
|
;; dired-insert-set-properties: Show image-file preview in tooltip.
|
|
;; diredp-image-dired-create-thumb: Return thumbnail file name or nil.
|
|
;; 2014/04/23 dadams
|
|
;; Added: diredp-looking-at-p.
|
|
;; dired-insert-set-properties: Applied fix for bug #17228.
|
|
;; 2014/04/05 dadams
|
|
;; Added: diredp-do-bookmark-dirs-recursive.
|
|
;; Renamed from bmkp-create-dired-bookmarks-recursive in bookmark+-1.el (removed).
|
|
;; Bound to M-B (aka M-S-b).
|
|
;; Added to menus *-subdir-menu, *-operate-bookmarks-menu, *-bookmarks-menu.
|
|
;; diredp-get-confirmation-recursive: Added optional TYPE arg.
|
|
;; diredp-insert-subdirs-recursive: Call diredp-get-confirmation-recursive with TYPE arg.
|
|
;; 2014/02/16 dadams
|
|
;; dired-pop-to-buffer: Do not redefine for Emacs > 24.1.
|
|
;; dired-mark-pop-up: Updated doc string.
|
|
;; 2014/02/13 dadams
|
|
;; Added: diredp-fileset-other-window, diredp-fileset-1.
|
|
;; diredp-fileset: Use diredp-fileset-1.
|
|
;; Bind diredp-dired-union(-other-window) to C-x D, C-x 4 D,
|
|
;; diredp-fileset(-other-window) to C-x F, C-x 4 F.
|
|
;; Use diredp-fileset-other-window, not diredp-fileset, in menu.
|
|
;; 2014/02/03 dadams
|
|
;; Added: diredp-hide-subdir-nomove.
|
|
;; Added: dired-goto-file for Emacs 24+ - open hidden parent dir, so can goto destination.
|
|
;; Replace bindings for dired-hide-subdir with diredp-hide-subdir-nomove.
|
|
;; Bind dired-hide-subdir to M-$ (not $).
|
|
;; 2014/02/02 dadams
|
|
;; dired-goto-file: Redefine only for Emacs < 24.
|
|
;; 2014/01/15 dadams
|
|
;; Bind diredp-toggle-find-file-reuse-dir to C-M-R (aka C-M-S-r).
|
|
;; 2014/01/05 dadams
|
|
;; Bind dired-omit-mode (aka dired-omit-toggle) to C-x M-o.
|
|
;; 2013/12/05 dadams
|
|
;; diredp-do-grep-1: Call grep-default-command with arg, if grep+.el is loaded.
|
|
;; 2013/11/05 dadams
|
|
;; Added: diredp-get-subdirs.
|
|
;; diredp-get-files, diredp-get-files-for-dir, diredp-marked-here: Added optional arg NIL-IF-NONE-P.
|
|
;; diredp-get-files: Pass INCLUDE-DIRS-P to diredp-files-within.
|
|
;; 2013/11/04 dadams
|
|
;; Renamed Bookmarks submenus to Bookmark.
|
|
;; Added Bookmark Dired Buffer to Dir menu.
|
|
;; Alias dired-toggle-marks to dired-do-toggle for Emacs 20, instead of backwards for others.
|
|
;; Use dired-toggle-marks everywhere instead of dired-do-toggle.
|
|
;; 2013/11/03 dadams
|
|
;; Created submenus of Multiple menu: Bookmarks, Search.
|
|
;; Created submenus of Multiple > Marked Here and Below menu:
|
|
;; Images, Encryption, Search, Bookmarks.
|
|
;; Reordered menus.
|
|
;; 2013/09/26 dadams
|
|
;; diredp-next-line: Use let*, so line-move sees let bindings.
|
|
;; 2013/08/11 dadams
|
|
;; diredp-dired-files-interactive-spec:
|
|
;; Protect icicle-file-sort with boundp. Thx to Vladimir Lomov.
|
|
;; 2013/08/06 dadams
|
|
;; diredp-display-image,diredp-menu-bar-immediate-image-menu (:enable's):
|
|
;; Protect diredp-string-match-p from nil argument.
|
|
;; 2013/07/24 dadams
|
|
;; Added: diredp-nonempty-region-p. Use everywhere, in place of its definition.
|
|
;; 2013/07/21 dadams
|
|
;; Added: diredp-image-dired-(comment-file|copy-with-exif-name|(create|display)-thumb|
|
|
;; delete-tag|edit-comment-and-tags|tag-file),
|
|
;; diredp-string-match-p, diredp-menu-bar-immediate-image-menu.
|
|
;; Put this-file image commands on new menu diredp-menu-bar-immediate-image-menu.
|
|
;; diredp-menu-bar-images-menu: Added diredp-do-display-images.
|
|
;; Use diredp-string-match-p instead of string-match where appropriate.
|
|
;; diredp-find-a-file-read-args: Removed #' from lambda.
|
|
;; 2013/07/19 dadams
|
|
;; Added redefinition of dired-hide-details-mode.
|
|
;; Added: diredp-hide-details-propagate-flag, diredp-hide-details-initially-flag,
|
|
;; diredp-hide-details-last-state, diredp-hide-details-toggled,
|
|
;; diredp-hide-details-if-dired, global-dired-hide-details-mode,
|
|
;; diredp-fit-frame-unless-buffer-narrowed, diredp-hide/show-details,
|
|
;; diredp-do-display-images, diredp-display-image.
|
|
;; On dired-after-readin-hook: diredp-hide/show-details.
|
|
;; On dired-hide-details-mode-hook: diredp-fit-frame-unless-buffer-narrowed.
|
|
;; diredp-maplist: Use diredp-maplist, not maplist, in recursive call.
|
|
;; diredp-next-line: Added bobp test for negative ARG.
|
|
;; Emacs 20 line-move returns nil, so use (progn ... t).
|
|
;; Soft-require autofit-frame.el.
|
|
;; 2013/07/18 dadams
|
|
;; diredp-next-line: Protect visible-p with fboundp for Emacs 20.
|
|
;; 2013/07/17 dadams
|
|
;; Added: diredp-menu-bar-encryption-menu, diredp-menu-bar-images-menu,
|
|
;; diredp-menu-bar-immediate-encryption-menu,
|
|
;; diredp-(decrypt|verify|sign|encrypt)-this-file.
|
|
;; Added diredp-(decrypt|verify|sign|encrypt)-this-file to *-immediate-encryption-menu.
|
|
;; Moved encryption and image-dired items to the new Multiple submenus from Multiple menu.
|
|
;; 2013/07/15 dadams
|
|
;; Added: diredp-async-shell-command-this-file, diredp-do-async-shell-command-recursive.
|
|
;; Added them to menus. Bind diredp-do-async-shell-command-recursive to M-+ &.
|
|
;; diredp-menu-bar-mark-menu, diredp-dired-plus-description: Added dired-mark-omitted.
|
|
;; diredp-menu-bar-subdir-menu: Added dired-omit-mode, dired-hide-details-mode.
|
|
;; diredp-menu-bar-regexp-menu: Added image-dired-mark-tagged-files.
|
|
;; diredp-menu-bar-subdir-menu: Added dired-hide-details-mode.
|
|
;; diredp-shell-command-this-file: Corrected: provide file list to dired-do-shell-command.
|
|
;; 2013/07/13 dadams
|
|
;; diredp-font-lock-keywords-1:
|
|
;; Ensure diredp-dir-priv is not used for directory header of d:/... (Windows drive name).
|
|
;; dired-insert-directory:
|
|
;; Update wrt Emacs 24.4: Do dired-insert-set-properties last; use saved CONTENT-POINT.
|
|
;; dired-insert-set-properties: Updated for Emacs 24.4, for dired-hide-details-mode.
|
|
;; Add frame-fitting to dired-hide-details-mode-hook.
|
|
;; dired-mouse-find-file(-other-window): Error msg if click off a file name.
|
|
;; 2013/07/12 dadams
|
|
;; Added: diredp-wrap-around-flag, diredp-(next|previous)-(subdir|(dir)line).
|
|
;; Renamed dired-up-directory to diredp-up-directory.
|
|
;; Replaced vanilla commands by these new commands everywhere.
|
|
;; 2013/07/11 dadams
|
|
;; Added: diredp-up-directory-reuse-dir-buffer.
|
|
;; diredp-make-find-file-keys(-not)-reuse-dirs: Added diredp-up-directory-reuse-dir-buffer.
|
|
;; 2013/02/06 dadams
|
|
;; dired-mark-pop-up: goto point-min, so show start of file list. Thx to Michael Heerdegen.
|
|
;; 2013/01/28 dadams
|
|
;; Added redefinition of dired-do-run-mail. Fixes Emacs bug #13561.
|
|
;; 2012/12/18 dadams
|
|
;; diredp-ediff: Better default for FILE2. Thx to Michael Heerdegen.
|
|
;; Require subr-21.el for Emacs 20.
|
|
;; 2012/11/17 dadams
|
|
;; Added: derived-mode-p (for Emacs < 22), diredp-ensure-mode.
|
|
;; Use diredp-ensure-mode everywhere for mode, so compatible with Sunrise Commander etc.
|
|
;; 2012/11/01 dadams
|
|
;; Do not require ediff.el. It is required in diredp-ediff itself.
|
|
;; 2012/10/06 dadams
|
|
;; Added: minibuffer-with-setup-hook for code byte-compiled using Emacs < 22.
|
|
;; 2012/09/28 dadams
|
|
;; Moved dired-*w32* bindings after normal mouse bindings, so they override them.
|
|
;; 2012/09/05 dadams
|
|
;; diredp-(rename|copy|(rel)symlink|hardlink)-this-file: Bind use-file-dialog to nil.
|
|
;; 2012/08/26 dadams
|
|
;; Set font-lock-defaults to a 3-element list, so it works with font-menus(-da).el.
|
|
;; 2012/08/25 dadams
|
|
;; Added: redefinition of dired-pop-to-buffer (fix for bug #12281).
|
|
;; dired-mark-pop-up: If buffer is shown in a separate frame, do not show menu bar.
|
|
;; 2012/07/10 dadams
|
|
;; Removed unneeded substitute-key-definition for (next|previous)-line.
|
|
;; 2012/07/09 dadams
|
|
;; Added redefinition of dired-mark-files-regexp: Push REGEXP onto regexp-search-ring.
|
|
;; 2012/06/21 dadams
|
|
;; diredp-nb-marked-in-mode-name:
|
|
;; Add marker numbers regardless of name match.
|
|
;; Use text property dired+-mode-name to tell whether mode-name was already changed.
|
|
;; 2012/06/20 dadams
|
|
;; Added: diredp-nb-marked-in-mode-name, diredp-mode-line-(flagged|marked). Added to hooks.
|
|
;; Thx to Michael Heerdegen.
|
|
;; 2012/06/14 dadams
|
|
;; dired-mark-pop-up: Wrap save-excursion around window/frame deletion.
|
|
;; dired-do-redisplay: Updated wrt Emacs 23: bind, (then run) dired-after-readin-hook.
|
|
;; diredp-y-or-n-files-p: Corrected construction of prompt wrt final SPC.
|
|
;; 2012/06/13 dadams
|
|
;; dired-buffers-for-dir: Updated wrt Emacs 23:
|
|
;; If dired-directory is a list then expand FILE in DIR & check whether in cdr of list.
|
|
;; diredp-get-files-for-dir, diredp-files-within-1, diredp-insert-as-subdir:
|
|
;; Expand dir name before passing it to dired-buffers-for-dir.
|
|
;; 2012/06/05 dadams
|
|
;; MS Windows: Just do not define commands that are inappropriate for Windows (instead of
|
|
;; defining them to raise an error or making them invisible in menus).
|
|
;; 2012/06/02 dadams
|
|
;; Added: diredp-do-(print|encrypt|decrypt|sign|verify)-recursive. Menus. Keys.
|
|
;; diredp-do-move-recursive: Corrected to use dired-rename-file, not dired-copy-file.
|
|
;; 2012/05/30 dadams
|
|
;; diredp-insert-as-subdir: Added optional arg IN-DIRED-NOW-P. Pick up markings & switches
|
|
;; from sole Dired buffer for CHILD if not in Dired now.
|
|
;; 2012/05/29 dadams
|
|
;; Added: diredp-do-(chxxx|chgrp|chown|touch)-recursive, diredp-touch-this-file,
|
|
;; diredp-menu-bar-(immediate|operate)-bookmarks-menu. Added to menus. Bound to keys.
|
|
;; Factored bookmark stuff into Bookmark(s) submenus.
|
|
;; diredp-menu-bar-immediate-menu: Added dired-kill-subdir, [goto-subdir].
|
|
;; diredp-dired-this-subdir, dired-maybe-insert-subdir: Corrected :visible/enable.
|
|
;; diredp-dired-inserted-subdirs: Do dired-(remember-marks|mark-remembered) in this-buff.
|
|
;; diredp-mouse-3-menu:
|
|
;; Do not use save-excursion, because some commands move point on purpose. Just return to
|
|
;; original point unless command intends to MOVEP.
|
|
;; Added to menu dired-maybe-insert-subdir (two entries), dired-kill-subdir.
|
|
;; Use *-this-file*, not *-do-*: copy|symlink|shell-command|grep|load (don't use :keys).
|
|
;; 2012/05/26 dadams
|
|
;; diredp-dired-inserted-subdirs, diredp-insert-as-subdir:
|
|
;; Preserve markings and switches in target buffer.
|
|
;; dired-mark-pop-up: Use unwind-protect. Bury buffer too.
|
|
;; diredp-do-chmod-recursive: Use only 5 args if < Emacs 23.
|
|
;; 2012/05/25 dadams
|
|
;; Added: diredp-insert-as-subdir, diredp-ancestor-dirs, diredp-maplist,
|
|
;; diredp-do-redisplay-recursive, diredp-do-chmod-recursive.
|
|
;; Bound diredp-do-chmod-recursive. to M-+ M and added to menu.
|
|
;; diredp-get-files: Added optional arg DONT-ASKP.
|
|
;; diredp-y-or-n-files-p: Kill list buffer if it was never shown.
|
|
;; dired-mark-pop-up: ignore error when delete frame/window.
|
|
;; 2012/05/22 dadams
|
|
;; diredp-get-files(-for-dir): Added optional arg INCLUDE-DIRS-P.
|
|
;; Added: diredp-insert-subdirs(-recursive), diredp(-this)-dired-inserted-subdir(s).
|
|
;; Added to menus. Bound diredp-insert-subdirs* to (M-+) M-i.
|
|
;; Bound diredp-capitalize(-recursive) to (M-+) %c.
|
|
;; Added diredp-dired-union-other-window to Dirs menu.
|
|
;; Updated diredp-dired-plus-description.
|
|
;; 2012/05/19 dadams
|
|
;; Added: diredp-image-dired-*-recursive, diredp-*link-recursive,
|
|
;; diredp-do-isearch(-regexp)-recursive, diredp-do-query-replace-regexp-recursive,
|
|
;; diredp-do-search-recursive, diredp-(capitalize|(up|down)case)-recursive,
|
|
;; diredp-create-files-non-directory-recursive.
|
|
;; Bound on M-+ prefix key. Added to menus.
|
|
;; diredp-get-files, diredp-y-or-n-files-p, diredp-list-files, diredp-list-marked-recursive:
|
|
;; Added optional arg PREDICATE.
|
|
;; diredp-do-create-files-recursive: Removed MARKER-CHAR arg. Hard-code to keep markings.
|
|
;; diredp-do-(copy|move)-recursive: Use arg IGNORE-MARKS-P (forgot to use it).
|
|
;; Removed MARKER-CHAR arg in call to d-d-c-f-r.
|
|
;; Added missing autoload cookies.
|
|
;; 2012/05/06 dadsms
|
|
;; diredp-y-or-n-files-p: Do not kill buffer *Files* - just bury it.
|
|
;; 2012/05/05 dadams
|
|
;; Added: diredp-do-bookmark-recursive, diredp-do-bookmark-in-bookmark-file-recursive,
|
|
;; diredp-set-bookmark-file-bookmark-for-marked-recursive.
|
|
;; Bound to M-+ M-b, M-+ C-M-B (aka C-M-S-b), M-+ C-M-b, respectively. Added to menus.
|
|
;; diredp-bookmark: Added optional arg FILE.
|
|
;; diredp-do-bookmark-in-bookmark-file: Added optional arg FILES.
|
|
;; diredp-dired-plus-description: Updated.
|
|
;; diredp-get-confirmation-recursive: Raise error if not in Dired.
|
|
;; diredp-do-bookmark-recursive, diredp-marked-recursive(-other-window),
|
|
;; diredp-multiple-w32-browser-recursive:
|
|
;; Use diredp-get-confirmation-recursive.
|
|
;; 2012/05/04 dadams
|
|
;; Added: dired-mark-unmarked-files for Emacs < 24.
|
|
;; diredp-do-create-files-recursive: Corrected for Emacs < 24.
|
|
;; diredp-do-create-files-recursive, diredp-(un)mark-files-tagged-regexp,
|
|
;; diredp(-mouse)-do-(un)tag, diredp(-mouse)-do-remove-all-tags,
|
|
;; diredp(-mouse)-do-paste-(add|replace)-tags, diredp(-mouse)-do-set-tag-value,
|
|
;; diredp(-mouse)-do-bookmark(-in-bookmark-file), diredp-find-a-file-read-args,
|
|
;; diredp-mouse-do-shell-command:
|
|
;; Use lexical-let(*), to get closures for free vars in lambdas.
|
|
;; 2012/04/28 dadams
|
|
;; Added:
|
|
;; diredp-copy-filename-as-kill-recursive, diredp-do-copy-recursive,
|
|
;; diredp-do-find-marked-files-recursive, diredp-do-grep-recursive,
|
|
;; diredp-do-move-recursive, diredp-do-shell-command-recursive,
|
|
;; diredp-list-marked-recursive, diredp-marked-recursive(-other-window),
|
|
;; diredp-multiple-w32-browser-recursive, diredp-do-create-files-recursive,
|
|
;; diredp-get-confirmation-recursive, diredp-list-files, diredp-y-or-n-files-p,
|
|
;; diredp-menu-bar-recursive-marked-menu.
|
|
;; diredp-get-files: Use diredp-y-or-n-files-p, not y-or-n-p.
|
|
;; Commented out dired-readin-insert - see comment.
|
|
;; Moved bookmark menu items to submenu Bookmarks.
|
|
;; Added keys (with M-+ prefix) and menu items for new (*-recursive) commands.
|
|
;; Reordered w32-browser stuff in menus.
|
|
;; diredp-do-grep: Combined defs for diff Emacs versions - do version test at runtime.
|
|
;; 2012/04/25 dadams
|
|
;; dired-insert-directory: Updated per Emacs 24.
|
|
;; 2012/04/23 dadams
|
|
;; Added (moved here from Icicles, and renamed prefix):
|
|
;; diredp-re-no-dot, diredp-get-files, diredp-get-files-for-dir, diredp-files-within,
|
|
;; diredp-files-within-dirs-done.
|
|
;; 2012/04/05 dadams
|
|
;; Added redefinition of dired-mark-pop-up, to fix Emacs bug #7533. If they ever fix it
|
|
;; then remove this hack.
|
|
;; 2012/03/13 dadams
|
|
;; diredp-dired(-for)-files(-other-window):
|
|
;; Bind: icicle-sort-comparer, icicle-all-candidates-list-alt-action-fn.
|
|
;; Use icicle-(un)bind-file-candidate-keys.
|
|
;; diredp-dired-files-interactive-spec: Updated doc strings accordingly.
|
|
;; 2012/03/07 dadams
|
|
;; Added: dired-switches-escape-p.
|
|
;; dired-get-filename: Updated wrt Emacs 24:
|
|
;; whitespace quoting for bug #10469, filename quoting per Emacs 23.3+,
|
|
;; MS Windows conversion of \ to / per Emacs 23.3+.
|
|
;; dired-goto-file: Escape whitespace, per Emacs 24 (for bug #10469).
|
|
;; 2012/03/02 dadams
|
|
;; Require cl.el at compile time even for Emacs 22+, for case macro.
|
|
;; 2012/02/28 dadams
|
|
;; Do not bother to soft-require mkhtml.el anymore.
|
|
;; 2012/02/18 dadams
|
|
;; Swapped keys for dired-w32(-browser|explore), so the former is M-RET, as in Bookmark+.
|
|
;; 2012/01/10 dadams
|
|
;; diredp-font-lock-keywords-1: Corrected for date/time when locale is used, not iso.
|
|
;; 2011/12/19 dadams
|
|
;; dired-insert-set-properties, dired-mark-sexp, diredp-(un)mark-region-files,
|
|
;; diredp-flag-region-files-for-deletion, diredp-mouse-3-menu:
|
|
;; Use line-(beginning|end)-position.
|
|
;; 2011/12/16 dadams
|
|
;; diredp-menu-bar-mark-menu: Removed Revert item.
|
|
;; diredp-menu-bar-subdir-menu: Add image-dired-dired-toggle-marked-thumbs.
|
|
;; diredp-mouse-3-menu:
|
|
;; Use commands bound to keys, so the keys show up in the menu. Prefer *-this-file.
|
|
;; Correct the mark/unmark/flag menu-item visibility. Added Capitalize.
|
|
;; 2011/12/09 dadams
|
|
;; diredp-w32-drives: Use dolist, not mapcar.
|
|
;; diredp-mouse-3-menu: Use easymenu to build the menu. Conditionalize some items.
|
|
;; Bind down-mouse-3, not mouse-3, to diredp-mouse-3-menu. (bind mouse-3 to ignore).
|
|
;; Added eval-when-compile for easymenu.el.
|
|
;; 2011/12//02 dadams
|
|
;; Added diredp-internal-do-deletions.
|
|
;; dired(-mouse)-do(-flagged)-delete, : Use diredp-internal-do-deletions, for trash.
|
|
;; 2011/11/29 dadams
|
|
;; diredp-read-bookmark-file-args: Corrected use of list of default file names: > Emacs 23.1.
|
|
;; 2011/10/31 dadams
|
|
;; dired-mode-hook: Call font-lock-refresh-defaults - see Emacs 24 bugs #6662 and #9919.
|
|
;; 2011/10/24 dadams
|
|
;; Protect dired-show-file-type with fboundp.
|
|
;; 2011/09/03 dadams
|
|
;; diredp-do-grep-1: Map shell-quote-argument over file names. Thx to Joe Bloggs.
|
|
;; 2011/08/07 dadams
|
|
;; diredp-bookmark (need to keep in sync with bmkp-make-record-for-target-file):
|
|
;; Instead of image-bookmark-make-record, use explicit function that includes file, type.
|
|
;; 2011/07/25 dadams
|
|
;; Changed featurep to eval-after-load, for bookmark+-1.el and w32-browser.el.
|
|
;; 2011/07/01 dadams
|
|
;; Fixed typo: dired-toggle-find-file-reuse-dir -> ...diredp.... Thx to pasja on Emacs Wiki.
|
|
;; 2011/06/18 dadams
|
|
;; Added: diredp-describe-mode, diredp-dired-plus-help(-link), diredp-help-button,
|
|
;; diredp-dired-plus-description(+links), diredp-send-bug-report.
|
|
;; Bound diredp-describe-mode to whatever describe-mode is bound to.
|
|
;; All menus, :enable with mark-active: Added transient-mark-mode and mark != point.
|
|
;; toggle-diredp-find-file-reuse-dir: Swapped which one is the alias.
|
|
;; diredp-w32-list-mapped-drives: Display *Shell Command Output* at end.
|
|
;; diredp-mouse-(describe-file|3-menu|mark/unmark|(find|view)-file(-other-window)):
|
|
;; save-excursion set-buffer -> with-current-buffer.
|
|
;; 2011/06/08 dadams
|
|
;; Added: diredp-dired-for-files(-other-window).
|
|
;; 2011/06/07 dadams
|
|
;; Bound dired-show-file-type to _, since y is diredp-relsymlink-this-file.
|
|
;; 2011/04/25 dadams
|
|
;; Added (from files+.el): dired(-mouse)-describe-file. Bound to C-h (C-)RET, added to menus.
|
|
;; 2011/04/23 dadams
|
|
;; Added, bound (T c, T M-w, T 0, T v, T p, T C-y, T q), and added to menus:
|
|
;; diredp-copy-tags-this-file, diredp-mouse-copy-tags,
|
|
;; diredp(-mouse)(-do)-remove-all-tags(-this-file),
|
|
;; diredp(-mouse)(-do)-set-tag-value(-this-file),
|
|
;; diredp(-mouse)(-do)-paste-(add|replace)-tags(-this-file).
|
|
;; diredp-mark-files-tagged-(all/none|some/not-all): Bound free var presentp.
|
|
;; dired-map-over-marks: Corrected: Bind NEWARG and use that, not ARG.
|
|
;; dired-get-marked-files: let* -> let.
|
|
;; dired-do-redisplay, diredp-mouse-diff: when/if -> and.
|
|
;; dired-readin-insert, dired-get-filename: if -> unless/when.
|
|
;; diredp-mouse-find-file-reuse-dir-buffer: with-current-buffer, not save...
|
|
;; diredp-mouse-mark/unmark: Removed unused bol/eol vars.
|
|
;; 2011/04/19 dadams
|
|
;; Added: diredp-(un)mark-files-tagged-((not-)all|none|some|regexp|all/none|some/not-all),
|
|
;; dired-mark-if. Added Tagged submenu for Mark menu.
|
|
;; Put tags commands on prefix key T, as in Bookmark+. Removed C-(M-)+/- tags-cmd bindings.
|
|
;; diredp-untag-this-file: Added prefix-arg behavior.
|
|
;; 2011/04/18 dadams
|
|
;; Added: diredp-prompt-for-bookmark-prefix-flag.
|
|
;; Use it in diredp(-mouse)-do-(un)tag, diredp-read-bookmark-file-args,
|
|
;; diredp(-mouse)-do-bookmark, diredp-(bookmark|(un)tag)-this-file.
|
|
;; diredp-(bookmark|(un)tag)-this-file, diredp(-do)-bookmark, diredp-(un)tag,
|
|
;; diredp-do-bookmark-in-bookmark-file, diredp-set-bookmark-file-bookmark-for-marked:
|
|
;; Made PREFIX arg optional.
|
|
;; 2011/04/17 dadams
|
|
;; Added: diredp-(bookmark|(un)tag)-this-file, diredp(-mouse)(-do)-(un)tag.
|
|
;; diredp-mouse-3-menu: Added: diredp-mouse-do-(un)tag.
|
|
;; diredp-menu-bar-immediate-menu: Added diredp-(un)tag-this-file, diredp-bookmark-this-file.
|
|
;; diredp-menu-bar-operate-menu: Added diredp-do-(un)tag.
|
|
;; Bound diredp-do-tag to C-+, diredp-tag-this-file to C-M-+, diredp-do-untag to C--,
|
|
;; diredp-untag-this-file to C-M--, diredp-bookmark-this-file to C-B.
|
|
;; diredp-bookmark: Use bmkp-autofile-set, not bmkp-file-target-set, so get autofile.
|
|
;; diredp-read-bookmark-file-args, diredp(-mouse)-do-bookmark:
|
|
;; Default for prefix is now an empty string, not the directory.
|
|
;; diredp-mouse-do-bookmark: Removed optional second arg.
|
|
;; Corrected typo: direp-read-bookmark-file-args -> diredp-read-bookmark-file-args.
|
|
;; 2011/03/25 dadams
|
|
;; diredp-bookmark: Fixed typo: bmkp-file-indirect-set -> bmkp-file-target-set.
|
|
;; 2011/02/11 dadams
|
|
;; diredp-deletion, diredp-deletion-file-name, diredp-executable-tag:
|
|
;; Made default the same for dark background as for light.
|
|
;; diredp-ignored-file-name: Made default a bit darker for dark background.
|
|
;; 2011/02/03 dadams
|
|
;; All deffaces: Provided default values for dark-background screens too.
|
|
;; 2011/01/12 dadams
|
|
;; dired-do-flagged-delete: Removed sit-for added on 1/02.
|
|
;; 2011/01/04 dadams
|
|
;; defsubst -> defun everywhere.
|
|
;; Removed autoload cookies from non def* sexps, defvar, and non-interactive functions.
|
|
;; Added some missing autoload cookies for defcustom and commands.
|
|
;; 2011/01/02 dadams
|
|
;; Added: diredp-this-file-(un)marked-p, diredp-toggle-marks-in-region.
|
|
;; diredp-(un)mark-region-files, diredp-flag-region-files-for-deletion:
|
|
;; Act only on marked/unmarked files (opposite). Fix 2nd arg to dired-mark-if.
|
|
;; diredp-mouse-3-menu:
|
|
;; If region is active and mouse3.el was loaded, then use its popup.
|
|
;; Fix Toggle Marked/Unmarked:
|
|
;; Use diredp-toggle-marks-in-region, so widen, show details and use bol/eol.
|
|
;; dired-do-flagged-delete: Added sit-for.
|
|
;; 2010/11/28 dadams
|
|
;; diredp-mouse-3-menu: Added Toggle Marked/Unmarked for region menu.
|
|
;; 2010/10/20 dadams
|
|
;; Moved Emacs 20 tweak to recognize k in file sizes to var dired-move-to-filename-regexp.
|
|
;; Added diredp-loaded-p.
|
|
;; 2010/10/19 dadams
|
|
;; diredp-font-lock-keywords-1:
|
|
;; Handle decimal pt in file size. Thx to Michael Heerdegen.
|
|
;; Enable Emacs 20/21 to handle -h option (decimal point size).
|
|
;; Renamed: face diredp-inode+size to diredp-number.
|
|
;; 2010/10/01 dadams
|
|
;; dired-goto-file: Avoid infloop from looking for dir line. Thx to not-use.dilines.net.
|
|
;; 2010/09/29 dadams
|
|
;; Added: diredp-dired-union(-1|-other-window|-interactive-spec).
|
|
;; dired-goto-file: fix for Emacs bug #7126.
|
|
;; 2010/09/27 dadams
|
|
;; Renamed diredp-dired-interactive-spec to diredp-dired-files-interactive-spec.
|
|
;; diredp-dired-files-interactive-spec: Respect file-list arg: kill existing Dired buffer.
|
|
;; Fix use of prefix arg for switches.
|
|
;; 2010/09/26 dadams
|
|
;; Added: dired-insert-directory: Compute WILDCARD arg for individual files.
|
|
;; Added: dired-readin-insert: Use t as WILDCARD arg to dired-insert-directory.
|
|
;; Added: diredp-dired-files(-other-window), diredp-dired-interactive-spec.
|
|
;; 2010/08/27 dadams
|
|
;; Use diredp-font-lock-keywords-1 properly as a second level of fontification.
|
|
;; Added: diredp-w32-drives(-mode(-map)), dired-up-directory.
|
|
;; 2010/08/07 dadams
|
|
;; dired-map-over-marks: Removed loop that used dired-between-files.
|
|
;; diredp-get-file-or-dir-name: test against subdir/..? also.
|
|
;; dired-do-find-marked-files: Pass original ARG to dired-get-marked-files.
|
|
;; 2010/08/05 dadams
|
|
;; diredp-bookmark:
|
|
;; Handle image files (and sound files, if Bookmark+ is used).
|
|
;; Use bmkp-file-indirect-set if available.
|
|
;; Use error-message-string to get failure msg.
|
|
;; 2010/07/11 dadams
|
|
;; Added: diredp-set-bookmark-file-bookmark-for-marked (C-M-b), diredp-mouse-do-bookmark,
|
|
;; diredp-do-bookmark-in-bookmark-file (C-M-B, aka C-M-S-b), diredp-read-bookmark-file-args.
|
|
;; Added them to the operate menu. Added diredp-do-bookmark to mouse-3 menu.
|
|
;; 2010/07/07 dadams
|
|
;; dired-do-*: Updated doc strings for prefix arg treatment from dired-map-over-marks-check.
|
|
;; Added missing autoload cookies.
|
|
;; 2010/05/29 dadams
|
|
;; diredp-bookmark: Use relative file name in bookmark name.
|
|
;; Removed defvar of directory-listing-before-filename-regexp.
|
|
;; 2010/05/28 dadams
|
|
;; Changed menu item for dired-create-directory to New Directory. Moved it before Up Dir.
|
|
;; 2010/03/19 dadams
|
|
;; diredp-font-lock-keywords-1: Handle date+time wrt regexp changes for Emacs 23.2.
|
|
;; 2010/01/31 dadams
|
|
;; diredp-bookmark:
|
|
;; Don't use bookmark-set or find-file-noselect - inline the needed bookmark-store code.
|
|
;; Call bookmark-maybe-load-default-file. Use rudimentary bookmark-make-record-function.
|
|
;; 2010/01/21 dadams
|
|
;; Renamed:
|
|
;; diredp-subst-find-alternate-for-find to diredp-make-find-file-keys-reuse-dirs
|
|
;; diredp-subst-find-for-find-alternate to diredp-make-find-file-keys-not-reuse-dirs.
|
|
;; diredp-make-find-file-keys(-not)-reuse-dirs: Handle also dired(-mouse)-w32-browser.
|
|
;; 2010/01/10 dadams
|
|
;; Added: face diredp-inode+size. Use in diredp-font-lock-keywords-1.
|
|
;; diredp-font-lock-keywords-1: Allow decimal point in file size. Thx to Regis.
|
|
;; 2010/01/05 dadams
|
|
;; dired-insert-set-properties:
|
|
;; Add text property dired-filename to the file name (for Emacs 23).
|
|
;; 2009/10/23 dadams
|
|
;; diredp-font-lock-keywords-1: Override `l' and `t' matches in headings with default face.
|
|
;; 2009/10/13 dadams
|
|
;; Added: diredp(-do)-bookmark. Added to Multiple menu, and bound to M-b.
|
|
;; 2009/10/11 dadams
|
|
;; diredp-menu-bar-immediate-menu:
|
|
;; Added items: image display items, dired-maybe-insert-subdir.
|
|
;; Test dired-do-relsymlink, not diredp-relsymlink-this-file.
|
|
;; diredp-menu-bar-operate-menu:
|
|
;; Added items: epa encryption items, image items, isearch items.
|
|
;; diredp-menu-bar-subdir-menu:
|
|
;; Added items: revert, isearch file names, dired-compare-directories.
|
|
;; Removed macro menu-item-any-version - use menu-item everywhere (works for Emacs 20+).
|
|
;; Added wdired-change-to-wdired-mode to subdir menu even for Emacs 20, if defined.
|
|
;; 2009/07/09 dadams
|
|
;; dired-goto-file: Make sure we have a string before calling directory-file-name.
|
|
;; 2009/05/08 dadams
|
|
;; dired-find-file (Emacs 20): Raise error if dired-get-filename returns nil.
|
|
;; 2009/04/26 dadams
|
|
;; dired-insert-set-properties, diredp-(un)mark-region-files,
|
|
;; diredp-flag-region-files-for-deletion, diredp-mouse-3-menu, diredp-mouse-mark/unmark:
|
|
;; Bind inhibit-field-text-motion to t, to ensure real eol.
|
|
;; 2008/12/17 dadams
|
|
;; diredp-font-lock-keywords-1: Don't do diredp-deletion, diredp-flag-mark for empty lines.
|
|
;; 2008/09/22 dadams
|
|
;; Added: diredp-fileset, diredp-get-file-or-dir-name, and redefinitions of
|
|
;; dired-map-over-marks, dired-find-file, and dired-mouse-find-file-other-window.
|
|
;; Added vanilla code to pick up macro dired-map-over-marks:
|
|
;; dired-get-marked-files, dired-do-delete, dired-map-over-marks-check,
|
|
;; dired-do-redisplay, image-dired-dired-insert-marked-thumbs.
|
|
;; diredp-find-file-other-frame, diredp-mouse-(find|view)-file:
|
|
;; Added nil t args to dired-get-filename calls.
|
|
;; diredp-do-grep(-1): Use new dired-get-marked-files instead of ad-hoc treatment of C-u.
|
|
;; 2008/09/21 dadams
|
|
;; diredp-marked(-other-window): Don't treat zero prefix arg as numerical (no empty Dired).
|
|
;; Added dired-find-file redefinition for Emacs 20.
|
|
;; 2008/09/11 dadams
|
|
;; diredp-do-grep: Plain C-u means grep all files in Dired buffer.
|
|
;; diredp-do-grep-1: Treat 'all value of FILES arg.
|
|
;; Added: diredp-all-files.
|
|
;; 2008/09/09 dadams
|
|
;; Added: diredp-marked(-other-window). Added to menus. Bound *-other-window to C-M-*.
|
|
;; 2008/09/07 dadams
|
|
;; Added: diredp(-mouse)-do-grep(-1), diredp-grep-this-file.
|
|
;; Bound diredp-do-grep to M-g. Added grep commands to menus.
|
|
;; 2008/07/18 dadams
|
|
;; Soft-require w32-browser.el. Bind its commands in Dired map and menus.
|
|
;; 2008/03/08 dadams
|
|
;; dired-maybe-insert-subdir: Fit one-window frame after inserting subdir.
|
|
;; 2008/03/07 dadams
|
|
;; Added: redefinitions of dired-maybe-insert-subdir, dired-goto-file, dired-get-filename.
|
|
;; Added: diredp-this-subdir.
|
|
;; 2007/11/27 dadams
|
|
;; diredp-mouse(-backup)-diff: If available, use icicle-read-string-completing.
|
|
;; 2007/09/23 dadams
|
|
;; Removed second arg to undefine-killer-commands.
|
|
;; 2007/07/27 dadams
|
|
;; diredp-font-lock-keywords-1: Allow also for bz2 compressed files - Thx to Andreas Eder.
|
|
;; 2006/09/03 dadams
|
|
;; diredp-font-lock-keywords-1: Corrected file size and inode number. Thx to Peter Barabas.
|
|
;; 2006/08/20 dadams
|
|
;; Added: diredp-find-a-file*.
|
|
;; 2006/06/18 dadams
|
|
;; diredp-font-lock-keywords-1: Highlight file name (also) of flagged files.
|
|
;; Use dired-del-marker instead of literal D.
|
|
;; Added: diredp-deletion-file-name.
|
|
;; 2006/03/31 dadams
|
|
;; No longer use display-in-minibuffer.
|
|
;; 2006/01/07 dadams
|
|
;; Added: link for sending bug report.
|
|
;; 2006/01/06 dadams
|
|
;; Added defgroup Dired-Plus and used it. Added :link.
|
|
;; 2006/01/04 dadams
|
|
;; Added defvar of directory-listing-before-filename-regexp, for Emacs 22 compatibility.
|
|
;; 2005/12/29 dadams
|
|
;; Added: diredp-mouse-mark/unmark-mark-region-files.
|
|
;; 2005/12/26 dadams
|
|
;; Updated groups.
|
|
;; 2005/12/05 dadams
|
|
;; diredp-ignored-file-name: Made it slightly darker.
|
|
;; 2005/11/05 dadams
|
|
;; Renamed all stuff defined here to have diredp- prefix.
|
|
;; diredp-relsymlink-this-file: Protected with fboundp.
|
|
;; Changed to soft require: dired-x.el.
|
|
;; Removed comment to require this inside eval-after-load.
|
|
;; 2005/11/03 dadams
|
|
;; Added: dired-display-msg. Replace blue-foreground-face with it.
|
|
;; Alias dired-do-toggle to dired-toggle-marks, if defined.
|
|
;; 2005/11/02 dadams
|
|
;; Added: dired-get-file-for-visit, dired(-mouse)-find-alternate-file*,
|
|
;; togglep-dired-find-file-reuse-dir, dired+-subst-find-*.
|
|
;; Use defface for all faces. Renamed without "-face". No longer require def-face-const.
|
|
;; dired-simultaneous-find-file: Minor bug fix (typo).
|
|
;; 2005/07/10 dadams
|
|
;; dired-unmark-all-files-no-query -> dired-unmark-all-marks
|
|
;; (thanks to Sivaram Neelakantan for bug report).
|
|
;; 2005/05/25 dadams
|
|
;; string-to-int -> string-to-number everywhere.
|
|
;; 2005/05/17 dadams
|
|
;; Updated to work with Emacs 22.x.
|
|
;; 2005/02/16 dadams
|
|
;; Added dired-mark/unmark-extension. Replaced dired-mark-extension with it everywhere.
|
|
;; 2005/01/08 dadams
|
|
;; Bind [S-mouse-1], instead of [S-down-mouse-1], to dired-mouse-mark-region-files.
|
|
;; 2004/11/20 dadams
|
|
;; dired-mark-sexp: Search for literal month names only for versions before Emacs 20.
|
|
;; Refined to deal with Emacs 21 < 21.3.50 (soon to be 22.x)
|
|
;; 2004/11/14 dadams
|
|
;; Bound dired-no-confirm to non-nil for dired-mouse-*.
|
|
;; Updated for Emacs 21 and improved highlighting:
|
|
;; Spaces OK in file and directory names. Highlight date/time and size.
|
|
;; 2004/10/17 dadams
|
|
;; Require cl only for Emacs 20, and only when compile.
|
|
;; 2004/10/01 dadams
|
|
;; Updated to work with Emacs 21 also.
|
|
;; 2004/04/02 dadams
|
|
;; dired-font-lock-keywords-1: Prefer using dired-omit-extensions
|
|
;; to completion-ignored-extensions, if available.
|
|
;; 2004/03/22 dadams
|
|
;; Added dired-mouse-mark-region-files and dired-mouse-mark/unmark.
|
|
;; 2000/09/27 dadams
|
|
;; 1. dired-font-lock-keywords-1: fixed for spaces in dir names.
|
|
;; 2. Added: dired-buffers-for-dir.
|
|
;; 1999/09/06 dadams
|
|
;; Added S-*-mouse-2 bindings (same as C-*-mouse-2).
|
|
;; 1999/08/26 dadams
|
|
;; 1. Added *-face vars and dired-font-lock-keywords-1.
|
|
;; 2. Added possibility to use dired-font-lock-keywords-1 via hook.
|
|
;; 1999/08/26 dadams
|
|
;; Changed key binding of dired-mouse-find-file from down-mouse-2 to mouse-2.
|
|
;; 1999/08/25 dadams
|
|
;; Changed (C-)(M-)mouse-2 bindings.
|
|
;; 1999/08/25 dadams
|
|
;; 1. Added cmds & menu bar and key bindings: (dired-)find-file-other-frame.
|
|
;; 2. Changed binding for dired-display-file.
|
|
;; 1999/03/26 dadams
|
|
;; 1. Get rid of Edit menu-bar menu.
|
|
;; 2. dired-mouse-3-menu: Changed popup titles and item names.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;; This program is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program; see the file COPYING. If not, write to
|
|
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
|
|
;; Floor, Boston, MA 02110-1301, USA.
|
|
;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;
|
|
;;; Code:
|
|
|
|
(eval-when-compile (require 'cl)) ;; case (plus, for Emacs 20: dolist, pop, push)
|
|
(eval-when-compile (require 'easymenu)) ;; easy-menu-create-menu
|
|
|
|
(require 'dired) ;; dired-revert
|
|
(require 'dired-aux) ;; dired-bunch-files, dired-do-chxxx, dired-do-create-files,
|
|
;; dired-mark-read-string, dired-read-shell-command,
|
|
;; dired-run-shell-command, dired-shell-stuff-it
|
|
(require 'dired-x) ;; dired-do-relsymlink
|
|
(require 'autofit-frame nil t) ;; (no error if not found) fit-frame-if-one-window
|
|
(require 'bookmark+ nil t) ;; (no error if not found)
|
|
;; bmkp-autofile-add-tags, bmkp-autofile-remove-tags, bmkp-autofile-set, bmkp-copied-tags,
|
|
;; bmkp-current-bookmark-file, bmkp-describe-bookmark, bmkp-empty-file, bmkp-get-autofile-bookmark,
|
|
;; bmkp-get-bookmark-in-alist, bmkp-get-tags, bmkp-read-tag-completing,
|
|
;; bmkp-read-tags-completing, bmkp-refresh/rebuild-menu-list, bmkp-remove-all-tags,
|
|
;; bmkp-same-file-p, bmkp-set-bookmark-file-bookmark, bmkp-set-sequence-bookmark,
|
|
;; bmkp-set-tag-value, bmkp-some, bmkp-switch-bookmark-file, bmkp-tag-name
|
|
|
|
;; For now at least, `highlight.el' is needed only if you use `bookmark+.el'.
|
|
(when (featurep 'bookmark+) (require 'highlight nil t)) ;; (no error if not found):
|
|
;; hlt-highlight-region
|
|
|
|
(if (> emacs-major-version 21) (require 'help-fns+ nil t) (require 'help+20 nil t)) ;; (no error if not found):
|
|
;; describe-file
|
|
|
|
(require 'misc-fns nil t) ;; (no error if not found): undefine-killer-commands
|
|
(require 'image-file nil t) ;; (no error if not found): image-file-name-regexp
|
|
(require 'image-dired nil t) ;; (no error if not found):
|
|
;; image-dired-create-thumb, image-dired-create-thumbnail-buffer,
|
|
;; image-dired-dired-after-readin-hook, image-dired-delete-tag, image-dired-dired-comment-files,
|
|
;; image-dired-dired-display-external, image-dired-dired-display-image,
|
|
;; image-dired-display-thumbs, image-dired-get-comment, image-dired-get-exif-file-name,
|
|
;; image-dired-get-thumbnail-image, image-dired-insert-thumbnail, image-dired-line-up,
|
|
;; image-dired-line-up-dynamic, image-dired-line-up-interactive, image-dired-line-up-method,
|
|
;; image-dired-list-tags, image-dired-main-image-directory, image-dired-mark-tagged-files,
|
|
;; image-dired-read-comment, image-dired-remove-tag, image-dired-save-information-from-widgets,
|
|
;; image-dired-tag-files, image-dired-thumb-height, image-dired-thumbnail-buffer,
|
|
;; image-dired-thumb-name, image-dired-thumb-size, image-dired-thumb-width,
|
|
;; image-dired-widget-list, image-dired-write-comments, image-dired-write-tags
|
|
(when (memq system-type '(windows-nt ms-dos))
|
|
;; (no error if not found):
|
|
(require 'w32-browser nil t));; dired-w32explore, dired-w32-browser, dired-mouse-w32-browser,
|
|
;; dired-multiple-w32-browser
|
|
(when (< emacs-major-version 21) (require 'subr-21)) ;; replace-regexp-in-string
|
|
|
|
;; Provide macro for code byte-compiled using Emacs < 22.
|
|
(eval-when-compile
|
|
(when (< emacs-major-version 22)
|
|
(defmacro minibuffer-with-setup-hook (fun &rest body)
|
|
"Temporarily add FUN to `minibuffer-setup-hook' while executing BODY.
|
|
BODY should use the minibuffer at most once.
|
|
Recursive uses of the minibuffer are unaffected (FUN is not
|
|
called additional times).
|
|
|
|
This macro actually adds an auxiliary function that calls FUN,
|
|
rather than FUN itself, to `minibuffer-setup-hook'."
|
|
;; (declare (indent 1) (debug t))
|
|
(let ((hook (make-symbol "setup-hook")))
|
|
`(let (,hook)
|
|
(setq ,hook (lambda ()
|
|
;; Clear out this hook so it does not interfere
|
|
;; with any recursive minibuffer usage.
|
|
(remove-hook 'minibuffer-setup-hook ,hook)
|
|
(funcall ,fun)))
|
|
(unwind-protect
|
|
(progn (add-hook 'minibuffer-setup-hook ,hook) ,@body)
|
|
(remove-hook 'minibuffer-setup-hook ,hook)))))))
|
|
|
|
(defmacro diredp-user-error (&rest args)
|
|
`(if (fboundp 'user-error) (user-error ,@args) (error ,@args)))
|
|
|
|
;; Define these for Emacs 20 and 21.
|
|
(unless (fboundp 'dired-get-file-for-visit) ; Emacs 22+
|
|
(defun dired-get-file-for-visit () ; Not bound
|
|
"Get the current line's file name, with an error if file does not exist."
|
|
(interactive)
|
|
(let ((raw (dired-get-filename nil t)) ; Pass t for second arg so no error for `.' and `..'.
|
|
file-name)
|
|
(unless raw (error "No file on this line"))
|
|
(setq file-name (file-name-sans-versions raw t))
|
|
(if (file-exists-p file-name)
|
|
file-name
|
|
(if (file-symlink-p file-name)
|
|
(error "File is a symlink to a nonexistent target")
|
|
(error "File no longer exists; type `g' to update Dired buffer")))))
|
|
|
|
(defun dired-find-alternate-file () ; Not bound
|
|
"In Dired, visit this file or directory instead of the Dired buffer."
|
|
(interactive)
|
|
(set-buffer-modified-p nil)
|
|
(find-alternate-file (dired-get-file-for-visit))))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
|
(provide 'dired+)
|
|
(require 'dired+) ; Ensure loaded before compile this.
|
|
|
|
;; Quiet the byte-compiler.
|
|
(defvar bmkp-copied-tags) ; In `bookmark+-1.el'
|
|
(defvar bmkp-current-bookmark-file) ; In `bookmark+-1.el'
|
|
(defvar bookmark-default-file) ; In `bookmark.el'
|
|
(defvar compilation-current-error) ; In `compile.el'
|
|
(defvar delete-by-moving-to-trash) ; Built-in, Emacs 23+
|
|
(defvar dired-always-read-filesystem) ; In `dired.el', Emacs 26+
|
|
(defvar dired-auto-revert-buffer) ; In `dired.el', Emacs 23+
|
|
(defvar dired-create-files-failures) ; In `dired-aux.el', Emacs 22+
|
|
(defvar dired-details-state) ; In `dired-details+.el'
|
|
(defvar dired-keep-marker-hardlink) ; In `dired-x.el'
|
|
(defvar dired-overwrite-confirmed) ; In `dired-aux.el'
|
|
(defvar dired-query-alist) ; In `dired-aux.el', Emacs < 24
|
|
(defvar dired-recursive-copies) ; In `dired-aux.el', Emacs 22+
|
|
(defvar dired-recursive-deletes) ; In `dired.el', Emacs 22+
|
|
(defvar dired-shrink-to-fit) ; In `dired.el'
|
|
(defvar dired-switches-alist) ; In `dired.el'
|
|
(defvar dired-subdir-switches) ; In `dired.el'
|
|
(defvar dired-touch-program) ; Emacs 22+
|
|
(defvar dired-use-ls-dired) ; Emacs 22+
|
|
(defvar diredp-count-.-and-..-flag) ; Here, Emacs 22+
|
|
(defvar diredp-hide-details-initially-flag) ; Here, Emacs 24.4+
|
|
(defvar diredp-hide-details-last-state) ; Here, Emacs 24.4+
|
|
(defvar diredp-hide-details-propagate-flag) ; Here, Emacs 24.4+
|
|
(defvar diredp-hide-details-toggled) ; Here, Emacs 24.4+
|
|
(defvar diredp-highlight-autofiles-mode) ; Here, Emacs 22+
|
|
(defvar diredp-menu-bar-encryption-menu) ; Here, Emacs 23+
|
|
(defvar diredp-menu-bar-images-recursive-menu) ; Here (old name)
|
|
(defvar diredp-menu-bar-regexp-recursive-menu) ; Here (old name)
|
|
(defvar diredp-menu-bar-subdir-menu) ; Here (old name)
|
|
(defvar diredp-move-file-dirs) ; Here, Emacs 24+
|
|
(defvar diredp-single-bookmarks-menu) ; Here, if Bookmark+ is available
|
|
(defvar filesets-data) ; In `filesets.el'
|
|
(defvar grep-use-null-device) ; In `grep.el'
|
|
(defvar header-line-format) ; Emacs 22+
|
|
(defvar icicle-file-sort) ; In `icicles-opt.el'
|
|
;; $$$$ (defvar icicle-file-sort-first-time-p) ; In `icicles-var.el'
|
|
(defvar icicle-files-ido-like-flag) ; In `icicles-opt.el'
|
|
(defvar icicle-ignored-directories) ; In `icicles-opt.el'
|
|
(defvar icicle-sort-comparer) ; In `icicles-opt.el'
|
|
(defvar image-dired-display-image-buffer) ; In `image-dired.el'
|
|
(defvar image-dired-line-up-method) ; In `image-dired.el'
|
|
(defvar image-dired-main-image-directory) ; In `image-dired.el'
|
|
(defvar image-dired-thumbnail-buffer) ; In `image-dired.el'
|
|
(defvar image-dired-thumb-height) ; In `image-dired.el'
|
|
(defvar image-dired-thumb-width) ; In `image-dired.el'
|
|
(defvar image-dired-widget-list) ; In `image-dired.el'
|
|
(defvar ls-lisp-use-insert-directory-program) ; In `ls-lisp.el'
|
|
(defvar minibuffer-default-add-function) ; In `simple.el', Emacs 23+
|
|
(defvar mouse3-dired-function) ; In `mouse3.el'
|
|
(defvar read-file-name-completion-ignore-case) ; In `minibuffer.el', Emacs 23+. In C code, Emacs 22.
|
|
(defvar recentf-list) ; In `recentf.el'
|
|
(defvar switch-to-buffer-preserve-window-point) ; In `window.el', Emacs 24+
|
|
(defvar tooltip-mode) ; In `tooltip.el'
|
|
(defvar vc-directory-exclusion-list) ; In `vc'
|
|
(defvar w32-browser-wait-time) ; In `w32-browser.el'
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defgroup Dired-Plus nil
|
|
"Various enhancements to Dired."
|
|
:prefix "diredp-" :group 'dired
|
|
:link `(url-link :tag "Send Bug Report"
|
|
,(concat "mailto:" "drew.adams" "@" "oracle" ".com?subject=\
|
|
dired+.el bug: \
|
|
&body=Describe bug here, starting with `emacs -q'. \
|
|
Don't forget to mention your Emacs and library versions."))
|
|
:link '(url-link :tag "Other Libraries by Drew"
|
|
"https://www.emacswiki.org/emacs/DrewsElispLibraries")
|
|
:link '(url-link :tag "Download"
|
|
"https://www.emacswiki.org/emacs/download/dired%2b.el")
|
|
:link '(url-link :tag "Description"
|
|
"https://www.emacswiki.org/emacs/DiredPlus")
|
|
:link '(emacs-commentary-link :tag "Commentary" "dired+"))
|
|
|
|
;;; Variables
|
|
|
|
;; `dired-do-toggle' was renamed to `dired-toggle-marks' after Emacs 20.
|
|
(unless (fboundp 'dired-toggle-marks) (defalias 'dired-toggle-marks 'dired-do-toggle))
|
|
|
|
;;; This is duplicated in `diff.el' and `vc.el'.
|
|
;;;###autoload
|
|
(defcustom diff-switches "-c"
|
|
"*A string or list of strings specifying switches to be passed to diff."
|
|
:type '(choice string (repeat string))
|
|
:group 'dired :group 'diff)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-auto-focus-frame-for-thumbnail-tooltip-flag nil
|
|
"*Non-nil means automatically focus the frame for a thumbnail tooltip.
|
|
If nil then you will not see a thumbnail image tooltip when you
|
|
mouseover an image-file name in Dired, unless you first give the frame
|
|
the input focus (e.g., by clicking its title bar).
|
|
|
|
This option has no effect if `diredp-image-preview-in-tooltip' is nil.
|
|
It also has no effect for Emacs versions prior to Emacs 22."
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-bind-problematic-terminal-keys t
|
|
"*Non-nil means bind some keys that might not work in a text-only terminal.
|
|
This applies to keys that use modifiers Meta and Shift together.
|
|
If you use Emacs in text-only terminal and your terminal does not
|
|
support the use of such keys then customize this option to nil."
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-compressed-extensions '(".tar" ".taz" ".tgz" ".arj" ".lzh"
|
|
".lzma" ".xz" ".zip" ".z" ".Z" ".gz" ".bz2" ".rar" ".rev")
|
|
"*List of compressed-file extensions, for highlighting.
|
|
|
|
Note: If you change the value of this option then you need to restart
|
|
Emacs to see the effect of the new value on font-locking."
|
|
:type '(repeat string) :group 'Dired-Plus)
|
|
|
|
(when (> emacs-major-version 21) ; Emacs 22+
|
|
(defcustom diredp-count-.-and-..-flag nil
|
|
"Non-nil means count `.' and `..' when counting files for mode-line."
|
|
:type 'boolean :group 'Dired-Plus))
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-do-report-echo-limit 5
|
|
"Echo result for each file, for fewer than this many files.
|
|
If more than this many files are acted on then there is no echoing.
|
|
|
|
Used by some do-and-report commands such as `diredp-do-emacs-command'.
|
|
Results that are not echoed are anyway reported by `dired-log', so you
|
|
can show them with `?' in the Dired buffer."
|
|
:type '(restricted-sexp :match-alternatives (wholenump)) :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-dwim-any-frame-flag pop-up-frames
|
|
"*Non-nil means the target directory can be in a window in another frame.
|
|
Only visible frames are considered.
|
|
This is used by ``dired-dwim-target-directory'.
|
|
This option has no effect for Emacs versions before Emacs 22."
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
(when (fboundp 'dired-hide-details-mode) ; Emacs 24.4+
|
|
(defcustom diredp-hide-details-initially-flag t
|
|
"*Non-nil means hide details in Dired from the outset."
|
|
:type 'boolean :group 'Dired-Plus
|
|
:set (lambda (sym defs)
|
|
(custom-set-default sym defs)
|
|
(setq diredp-hide-details-last-state diredp-hide-details-initially-flag)))
|
|
|
|
(defcustom diredp-hide-details-propagate-flag t
|
|
"*Non-nil means display the next Dired buffer the same way as the last.
|
|
The last `dired-hide-details-mode' value set is used by the next Dired
|
|
buffer created."
|
|
:type 'boolean :group 'Dired-Plus))
|
|
|
|
;; Emacs 20 only.
|
|
;;;###autoload
|
|
(unless (fboundp 'define-minor-mode)
|
|
(defcustom diredp-highlight-autofiles-mode t
|
|
"*Non-nil means highlight names of files that are autofile bookmarks.
|
|
Autofiles that have tags are highlighted using face
|
|
`diredp-tagged-autofile-name'. Those with no tags are highlighted
|
|
using face `diredp-autofile-name'.
|
|
|
|
Setting this option directly does not take effect; use either
|
|
\\[customize] or command `diredp-highlight-autofiles-mode'.
|
|
|
|
NOTE: When `dired+.el' is loaded (for the first time per Emacs
|
|
session), the highlighting is turned ON, regardless of the option
|
|
value. To prevent this and have the highlighting OFF by default, you
|
|
must do one of the following:
|
|
|
|
* Put (diredp-highlight-autofiles-mode -1) in your init file, AFTER
|
|
it loads `dired+.el'.
|
|
|
|
* Customize the option to `nil', AND ensure that your `custom-file'
|
|
(or the `custom-saved-variables' part of your init file) is
|
|
evaluated before `dired+.el' is loaded.
|
|
|
|
This option has no effect unless you use libraries `Bookmark and
|
|
`highlight.el'."
|
|
:set (lambda (symbol value) (diredp-highlight-autofiles-mode (if value 1 -1)))
|
|
:initialize 'custom-initialize-default
|
|
:type 'boolean :group 'Dired-Plus :require 'dired+))
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-ignore-compressed-flag t
|
|
"*Non-nil means to font-lock names of compressed files as ignored files.
|
|
This applies to filenames whose extensions are in
|
|
`diredp-compressed-extensions'. If nil they are highlighted using
|
|
face `diredp-compressed-file-name'.
|
|
|
|
Note: If you change the value of this option then you need to restart
|
|
Emacs to see the effect of the new value on font-locking."
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-image-preview-in-tooltip (or (and (boundp 'image-dired-thumb-size) image-dired-thumb-size)
|
|
100)
|
|
"*Whether and what kind of image preview to show in a tooltip.
|
|
The possible values are:
|
|
|
|
`nil' : do not show a tooltip preview
|
|
integer N>0 : show a thumbnail preview of that size
|
|
`full' : show a full-size preview of the image
|
|
|
|
To enable tooltip image preview you must turn on `tooltip-mode' and
|
|
load library `image-dired.el'. See also option
|
|
`diredp-auto-focus-frame-for-thumbnail-tooltip-flag'.
|
|
|
|
This option has no effect for Emacs versions prior to Emacs 22."
|
|
:type '(choice
|
|
(restricted-sexp :tag "Show a thumnail image of size"
|
|
:match-alternatives ((lambda (x) (and (wholenump x) (not (zerop x))))))
|
|
(const :tag "Show a full-size image preview" full)
|
|
(const :tag "OFF: Do not show an image preview" nil))
|
|
:group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-image-show-this-file-use-frame-flag t
|
|
"Non-nil means `diredp-image-show-this-file' uses another frame.
|
|
If nil then it uses another window. Using another frame means you
|
|
have more control over the image size when you use a prefix arg.
|
|
|
|
If it uses another window then the prefix arg controls only the
|
|
minimum window height, not necessarily the image scale (height).
|
|
|
|
\(If the buffer displaying the image is already considered a
|
|
special-display buffer by your Emacs setup, then a nil value of this
|
|
option has no effect.)"
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-list-file-attributes (list '(5 8) 'auto)
|
|
"Which file attributes `diredp-list-file' uses, and when."
|
|
:group 'Dired-Plus :type '(list (repeat integer)
|
|
(choice
|
|
(const :tag "Show automatically, immediately" 'auto)
|
|
(const :tag "Show on demand via `l'" 'on-demand))))
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-max-frames 200
|
|
"*Max number of frames, for commands that find files in separate frames.
|
|
These commands are `dired-do-find-marked-files' and
|
|
`diredp-do-find-marked-files-recursive'. See their descriptions for
|
|
the circumstances in which they show the files in separate frames."
|
|
:type '(restricted-sexp :match-alternatives ((lambda (x) (and (wholenump x) (not (zerop x))))))
|
|
:group 'Dired-Plus)
|
|
|
|
(when (fboundp 'file-equal-p) ; Emacs 24+
|
|
(defcustom diredp-move-file-dirs ()
|
|
"Alist of names of files and preferred directories to move them to.
|
|
File names should be relative (no directory component).
|
|
Target directory names should be absolute."
|
|
:group 'files :type '(alist :key-type file :value-type directory)))
|
|
|
|
;; (Not used - just use the body directly in the option default value.
|
|
;; (defun diredp-omit-files-regexp ()
|
|
;; "Return regexp to use for font-locking, using `dired-omit-files' as base."
|
|
;; (let* ((strg dired-omit-files)
|
|
;; (strg (if (eq ?^ (aref strg 0)) (substring strg 1) strg)) ; Remove initial ^
|
|
;; (strg (replace-regexp-in-string "\\(\\\\[|]\\)\\^" "\\1" strg 'FIXEDCASE nil)) ; Remove other ^'s
|
|
;; (strg (replace-regexp-in-string "\\([$]\\)" "" strg 'FIXEDCASE nil))) ; Remove $'s
|
|
;; strg))
|
|
|
|
(defcustom diredp-omit-files-regexp (let* ((strg dired-omit-files)
|
|
(strg (if (eq ?^ (aref strg 0)) ; Remove initial ^
|
|
(substring strg 1)
|
|
strg))
|
|
(strg (replace-regexp-in-string "\\(\\\\[|]\\)\\^" ; Remove other ^'s
|
|
"\\1"
|
|
strg
|
|
'FIXEDCASE
|
|
nil))
|
|
(strg (replace-regexp-in-string "\\([$]\\)" ; Remove $'s
|
|
""
|
|
strg
|
|
'FIXEDCASE
|
|
nil)))
|
|
strg)
|
|
"Regexp for font-locking file names to be omitted by `dired-omit-mode'.
|
|
The regexp is matched only against the file name, but the entire line
|
|
is highlighted (with face `diredp-omit-file-name').
|
|
|
|
The default value of this option differs from that of
|
|
`dired-omit-files' by removing \"^\" from the beginning, and \"$\"
|
|
from the end, of each regexp choice. (The default value of
|
|
`dired-omit-files', at least prior to Emacs 27, uses \"^\" and \"$\",
|
|
but it should not.)
|
|
|
|
If you want to control the beginning and end of choice matches then
|
|
use \"\\`\" and \"\\'\" instead of \"^\" and \"$\".
|
|
|
|
Note: If you change the value of this option then you need to restart
|
|
Emacs to see the effect of the new value on font-locking."
|
|
:group 'Dired-Plus :type 'regexp)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-prompt-for-bookmark-prefix-flag nil
|
|
"*Non-nil means prompt for a prefix string for bookmark names."
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-visit-ignore-regexps ()
|
|
"Regexps matching file names for `diredp-visit-(next|previous)' to skip.
|
|
A file or directory name matching one of these regexps is skipped,
|
|
along with those with an extension in `diredp-visit-ignore-extensions'."
|
|
:type '(repeat regexp) :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-visit-ignore-extensions '("elc")
|
|
"Extensions of file names for `diredp-visit-(next|previous)' to skip.
|
|
A file name with one of these extensions is skipped, along with those
|
|
matching a regexp in `diredp-visit-ignore-regexps'."
|
|
:type '(repeat string) :group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-w32-local-drives '(("C:" "Local disk"))
|
|
"*Local MS Windows drives that you want to use for `diredp-w32-drives'.
|
|
Each entry is a list (DRIVE DESCRIPTION), where DRIVE is the drive
|
|
name and DESCRIPTION describes DRIVE."
|
|
:type '(alist
|
|
:key-type (string :tag "Drive name")
|
|
:value-type (group (string :tag "Drive description")))
|
|
:group 'Dired-Plus)
|
|
|
|
;;;###autoload
|
|
(defcustom diredp-wrap-around-flag t
|
|
"*Non-nil means Dired \"next\" commands wrap around to buffer beginning."
|
|
:type 'boolean :group 'Dired-Plus)
|
|
|
|
(when (fboundp 'dired-hide-details-mode) ; Emacs 24.4+
|
|
(defvar diredp-hide-details-last-state diredp-hide-details-initially-flag
|
|
"Last `dired-hide-details-mode' value.
|
|
Initialized to the value of option `diredp-hide-details-initially-flag'.")
|
|
|
|
(defvar diredp-hide-details-toggled nil
|
|
"Non-nil means you have already toggled hiding details in this buffer.")
|
|
(make-variable-buffer-local 'diredp-hide-details-toggled))
|
|
|
|
;; Same value as the default value of `icicle-re-no-dot'.
|
|
(defvar diredp-re-no-dot "^\\([^.]\\|\\.\\([^.]\\|\\..\\)\\).*"
|
|
"Regexp that matches anything except `.' and `..'.")
|
|
|
|
(defvar diredp-w32-drives-mode-map (let ((map (make-sparse-keymap)))
|
|
(define-key map "q" 'bury-buffer)
|
|
(define-key map "\r" 'widget-button-press)
|
|
(define-key map [mouse-2] 'widget-button-click)
|
|
map)
|
|
"Keymap for `diredp-w32-drives-mode'.")
|
|
|
|
;;; $$$$$$ Starting with Emacs 22, *-move-to* is defvaraliased to *-listing-before*.
|
|
;;; But `files+.el' defines *-listing-before*, so we define it here too.
|
|
;;; (unless (> emacs-major-version 21)
|
|
;;; (defvar directory-listing-before-filename-regexp dired-move-to-filename-regexp
|
|
;;; "Regular expression to match up to the file name in a directory listing.
|
|
;;; The default value is designed to recognize dates and times
|
|
;;; regardless of the language."))
|
|
|
|
;;; Macros
|
|
|
|
|
|
;; Unlike `dired-mark-if':
|
|
;;
|
|
;; 1. Value returned and message indicate both the number matched and the number changed.
|
|
;; 2. Added optional arg PLURAL, for irregular plurals (e.g. "directories").
|
|
;;
|
|
(defmacro diredp-mark-if (predicate singular &optional plural)
|
|
"Mark files for PREDICATE, according to `dired-marker-char'.
|
|
PREDICATE is evaluated on each line, with point at beginning of line.
|
|
SINGULAR is a singular noun phrase for the type of files being marked.
|
|
Optional arg PLURAL is a plural noun phrase for the type of files
|
|
being marked.
|
|
If PLURAL is nil then SINGULAR should end with a noun that can be
|
|
pluralized by adding `s'.
|
|
|
|
Return nil if no files matched PREDICATE.
|
|
Otherwise return a cons (CHANGED . MATCHED), where:
|
|
CHANGED is the number of markings that were changed by the operation.
|
|
MATCHED is the number of files that matched PREDICATE."
|
|
`(let ((inhibit-read-only t)
|
|
changed matched)
|
|
(save-excursion
|
|
(setq matched 0
|
|
changed 0)
|
|
(when ,singular (message "%s %s%s..."
|
|
(cond ((eq dired-marker-char ?\040) "Unmarking")
|
|
((eq dired-del-marker dired-marker-char) "Flagging")
|
|
(t "Marking"))
|
|
(or ,plural (concat ,singular "s"))
|
|
(if (eq dired-del-marker dired-marker-char) " for deletion" "")))
|
|
(goto-char (point-min))
|
|
(while (not (eobp))
|
|
(when ,predicate
|
|
(setq matched (1+ matched))
|
|
(unless (eq dired-marker-char (char-after))
|
|
(delete-char 1) (insert dired-marker-char) (setq changed (1+ changed))))
|
|
(forward-line 1))
|
|
(when ,singular (message "%s %s%s%s newly %s%s"
|
|
matched
|
|
(if (= matched 1) ,singular (or ,plural (concat ,singular "s")))
|
|
(if (not (= matched changed)) " matched, " "")
|
|
(if (not (= matched changed)) changed "")
|
|
(if (eq dired-marker-char ?\040) "un" "")
|
|
(if (eq dired-marker-char dired-del-marker) "flagged" "marked"))))
|
|
(and (> matched 0) (cons changed matched))))
|
|
|
|
|
|
;; Just a helper function for `dired-map-over-marks'.
|
|
(defun diredp-get-file-or-dir-name (arg)
|
|
"Return name of next file or directory or nil if none.
|
|
Argument ARG:
|
|
`all-files-no-dirs' or nil means skip directories.
|
|
`all-files-no-dots' means skip `.' and `..'."
|
|
(let ((fname nil))
|
|
(while (and (not fname) (not (eobp)))
|
|
(setq fname (dired-get-filename t t))
|
|
(when (and fname (or (not arg) (eq arg 'all-files-no-dirs)) (file-directory-p fname))
|
|
(setq fname nil))
|
|
(when (and fname (eq arg 'all-files-no-dots) (or (member fname '("." ".."))
|
|
(diredp-string-match-p "/\\.\\.?$" fname)))
|
|
(setq fname nil))
|
|
(forward-line 1))
|
|
(forward-line -1)
|
|
fname))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Treat multiple `C-u' specially.
|
|
;;
|
|
(defmacro dired-map-over-marks (body arg &optional show-progress
|
|
distinguish-one-marked)
|
|
"Eval BODY with point on each marked line. Return a list of BODY's results.
|
|
If no marked file could be found, execute BODY on the current line.
|
|
ARG, if non-nil, specifies the files to use instead of the marked files.
|
|
If ARG is an integer, use the next ARG files (previous -ARG, if < 0).
|
|
In that case, point is dragged along. This is so that commands on
|
|
the next ARG (instead of the marked) files can be easily chained.
|
|
If ARG is a cons with element 16, 64, or 256, corresponding to
|
|
`C-u C-u', `C-u C-u C-u', or `C-u C-u C-u C-u', then use all files
|
|
in the Dired buffer, where:
|
|
16 includes NO directories (including `.' and `..')
|
|
64 includes directories EXCEPT `.' and `..'
|
|
256 includes ALL directories (including `.' and `..')
|
|
If ARG is otherwise non-nil, use the current file.
|
|
If optional third arg SHOW-PROGRESS evaluates to non-nil,
|
|
redisplay the Dired buffer after each file is processed.
|
|
|
|
No guarantee is made about the position on the marked line. BODY must
|
|
ensure this itself, if it depends on this.
|
|
|
|
Search starts at the beginning of the buffer, thus the car of the list
|
|
corresponds to the line nearest the end of the buffer. This is also
|
|
true for (positive and negative) integer values of ARG.
|
|
|
|
BODY should not be too long, because it is expanded four times.
|
|
|
|
If DISTINGUISH-ONE-MARKED is non-nil, then return (t FILENAME) instead
|
|
of (FILENAME), if only one file is marked."
|
|
;; WARNING: BODY must not add new lines before point - this may cause an
|
|
;; endless loop. This warning should not apply any longer, sk 2-Sep-1991 14:10.
|
|
`(prog1
|
|
(let ((inhibit-read-only t)
|
|
(newarg ,arg)
|
|
multi-C-u case-fold-search found results)
|
|
(when (and (consp newarg) (> (prefix-numeric-value newarg) 4))
|
|
(setq newarg (case (prefix-numeric-value newarg)
|
|
(16 'all-files-no-dirs) ; `C-u C-u'
|
|
(64 'all-files-no-dots) ; `C-u C-u C-u'
|
|
(256 'all-files) ; `C-u C-u C-u C-u'
|
|
(t 'all-files-no-dirs))
|
|
multi-C-u t))
|
|
(if (and newarg (not multi-C-u))
|
|
(if (integerp newarg)
|
|
(progn ; No `save-excursion', want to move point.
|
|
(dired-repeat-over-lines newarg #'(lambda ()
|
|
(when ,show-progress (sit-for 0))
|
|
(setq results (cons ,body results))))
|
|
(if (< newarg 0) (nreverse results) results))
|
|
;; Non-nil, non-integer ARG means use current file:
|
|
(list ,body))
|
|
(let ((regexp (dired-marker-regexp))
|
|
next-position)
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
;; Remember position of next marked file before BODY can insert lines before the
|
|
;; just found file, confusing us by finding the same marked file again and again...
|
|
(setq next-position (and (if multi-C-u
|
|
(diredp-get-file-or-dir-name newarg)
|
|
(re-search-forward regexp nil t))
|
|
(point-marker))
|
|
found (not (null next-position)))
|
|
(while next-position
|
|
(goto-char next-position)
|
|
(when ,show-progress (sit-for 0))
|
|
(setq results (cons ,body results))
|
|
;; move after last match
|
|
(goto-char next-position)
|
|
(forward-line 1)
|
|
(set-marker next-position nil)
|
|
(setq next-position (and (if multi-C-u
|
|
(diredp-get-file-or-dir-name newarg)
|
|
(re-search-forward regexp nil t))
|
|
(point-marker)))))
|
|
(when (and ,distinguish-one-marked (= (length results) 1))
|
|
(setq results (cons t results)))
|
|
(if found results (list ,body)))))
|
|
;; `save-excursion' loses, again
|
|
(dired-move-to-filename)))
|
|
|
|
;; Same as `icicle-with-help-window' in `icicles-mac.el'
|
|
;; and `bmkp-with-help-window' in `bookmark+-mac.el'.
|
|
(defmacro diredp-with-help-window (buffer &rest body)
|
|
"`with-help-window', if available; else `with-output-to-temp-buffer'."
|
|
(if (fboundp 'with-help-window)
|
|
`(with-help-window ,buffer ,@body)
|
|
`(with-output-to-temp-buffer ,buffer ,@body)))
|
|
|
|
(put 'diredp-with-help-window 'common-lisp-indent-function '(4 &body))
|
|
|
|
;;; Utility functions
|
|
|
|
;; Same as `imenup-delete-if-not'.
|
|
;;
|
|
(defun diredp-delete-if-not (predicate xs)
|
|
"Remove all elements of list XS that do not satisfy PREDICATE.
|
|
This operation is destructive, reusing conses of XS whenever possible."
|
|
(while (and xs (not (funcall predicate (car xs))))
|
|
(setq xs (cdr xs)))
|
|
(let ((cl-p xs))
|
|
(while (cdr cl-p)
|
|
(if (not (funcall predicate (cadr cl-p))) (setcdr cl-p (cddr cl-p)) (setq cl-p (cdr cl-p)))))
|
|
xs)
|
|
|
|
;; Same as `imenup-delete-if'.
|
|
;;
|
|
(defun diredp-delete-if (predicate xs)
|
|
"Remove all elements of list XS that satisfy PREDICATE.
|
|
This operation is destructive, reusing conses of XS whenever possible."
|
|
(while (and xs (funcall predicate (car xs)))
|
|
(setq xs (cdr xs)))
|
|
(let ((cl-p xs))
|
|
(while (cdr cl-p)
|
|
(if (funcall predicate (cadr cl-p))
|
|
(setcdr cl-p (cddr cl-p))
|
|
(setq cl-p (cdr cl-p)))))
|
|
xs)
|
|
|
|
;; Same as `tap-string-match-p' in `thingatpt+.el'.
|
|
(if (fboundp 'string-match-p)
|
|
(defalias 'diredp-string-match-p 'string-match-p) ; Emacs 23+
|
|
(defun diredp-string-match-p (regexp string &optional start)
|
|
"Like `string-match', but this saves and restores the match data."
|
|
(save-match-data (string-match regexp string start))))
|
|
|
|
(if (fboundp 'looking-at-p)
|
|
(defalias 'diredp-looking-at-p 'looking-at-p) ; Emacs 23+
|
|
(defun diredp-looking-at-p (regexp)
|
|
"Like `looking-at', but this saves and restores the match data."
|
|
(save-match-data (looking-at regexp))))
|
|
|
|
;; `dired-read-regexp' does not accept DEFAULT and HISTORY for older Emacsen, so use this.
|
|
(defun diredp-read-regexp (prompt &optional default history)
|
|
"Read a regexp.
|
|
HISTORY defaults to `dired-regexp-history'."
|
|
(setq history (or history 'dired-regexp-history))
|
|
(if (fboundp 'read-regexp)
|
|
(read-regexp prompt default history)
|
|
(read-from-minibuffer prompt nil nil nil history default)))
|
|
|
|
(if (fboundp 'delete-dups)
|
|
(defalias 'diredp-delete-dups 'delete-dups)
|
|
(defun diredp-delete-dups (list)
|
|
"Destructively remove `equal' duplicates from LIST.
|
|
Store the result in LIST and return it. LIST must be a proper list.
|
|
Of several `equal' occurrences of an element in LIST, the first
|
|
one is kept."
|
|
(let ((tail list))
|
|
(while tail
|
|
(setcdr tail (delete (car tail) (cdr tail)))
|
|
(setq tail (cdr tail))))
|
|
list))
|
|
|
|
(defun diredp-nonempty-region-p ()
|
|
"Return non-nil if region is active and non-empty."
|
|
(and transient-mark-mode mark-active (mark) (> (region-end) (region-beginning))))
|
|
|
|
(defun diredp-get-image-filename (&optional localp no-error-if-not-filep)
|
|
"Return the image-file name on this line, or nil if no image file.
|
|
If not in Dired (or a mode derived from Dired), then test the entire
|
|
text of the current line as the file name.
|
|
|
|
The optional args are the same as for `dired-get-filename'. They are
|
|
ignored if not in a Dired mode.
|
|
|
|
\(Prior to Emacs 22, this function just returns nil.)"
|
|
(let ((file (if (derived-mode-p 'dired-mode)
|
|
(dired-get-filename localp no-error-if-not-filep)
|
|
;; Make it work also for `diredp-list-files' listings.
|
|
(buffer-substring-no-properties (line-beginning-position) (line-end-position)))))
|
|
(and file
|
|
(fboundp 'image-file-name-regexp) ; Emacs 22+, `image-file.el'.
|
|
(diredp-string-match-p (image-file-name-regexp) file)
|
|
file)))
|
|
|
|
(defun diredp-root-directory-p (file)
|
|
"Return non-nil if FILE is a root directory."
|
|
(if (fboundp 'ange-ftp-root-dir-p)
|
|
(ange-ftp-root-dir-p (file-name-as-directory file))
|
|
;; This is essentially `ange-ftp-root-dir-p' applied to `file-name-as-directory'.
|
|
;; If `ange-ftp-root-dir-p' changes, update this code.
|
|
(or (and (eq system-type 'windows-nt) (diredp-string-match-p "\\`[a-zA-Z]:[/\\]\\'"
|
|
(file-name-as-directory file)))
|
|
(string= "/" file))))
|
|
|
|
(defun diredp-parent-dir (file &optional relativep)
|
|
"Return the parent directory of FILE, or nil if none.
|
|
Optional arg RELATIVEP non-nil means return a relative name, that is,
|
|
just the parent component."
|
|
(let ((parent (file-name-directory (directory-file-name (expand-file-name file))))
|
|
relparent)
|
|
(when relativep (setq relparent (file-name-nondirectory (directory-file-name parent))))
|
|
(and (not (equal parent file)) (or relparent parent))))
|
|
|
|
(unless (fboundp 'derived-mode-p) ; Emacs 20, 21.
|
|
(defun derived-mode-p (&rest modes)
|
|
"Non-nil if the current major mode is derived from one of MODES.
|
|
Uses the `derived-mode-parent' property of the symbol to trace backwards."
|
|
(let ((parent major-mode))
|
|
(while (and (not (memq parent modes)) (setq parent (get parent 'derived-mode-parent))))
|
|
parent)))
|
|
|
|
(defun diredp-ensure-mode ()
|
|
"Raise an error if not in Dired or a mode derived from it."
|
|
(unless (derived-mode-p 'dired-mode)
|
|
(error "You must be in Dired or a mode derived from it to use this command")))
|
|
|
|
(defun diredp-ensure-bookmark+ ()
|
|
(unless (require 'bookmark+ nil t) (error "This command requires library `bookmark+.el'")))
|
|
|
|
|
|
(unless (fboundp 'dired-nondirectory-p) ; Emacs 20, 21.
|
|
(defun dired-nondirectory-p (file)
|
|
"Return non-nil if FILE is not a directory."
|
|
(not (file-directory-p file))))
|
|
|
|
|
|
;;; Some of the redefinitions that follow are essentially unaltered vanilla Emacs code to be
|
|
;;; reloaded, to use the new definition of `dired-map-over-marks' here.
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; 1. Pass non-nil second arg to `dired-get-filename' so we can include `.' and `..'.
|
|
;; 2. Doc string is updated to reflect the new ARG behavior.
|
|
;; 3. Allow, unlike vanilla Emacs, use of FILTER and DISTINGUISH-ONE-MARKED together.
|
|
;;
|
|
(defun dired-get-marked-files (&optional localp arg filter distinguish-one-marked error-if-none-p)
|
|
"Return names of the marked files and directories as a list of strings.
|
|
The list is in the same order as the buffer, that is, the car is the
|
|
first marked file.
|
|
Values returned are normally absolute file names.
|
|
Optional arg LOCALP as in `dired-get-filename'.
|
|
Optional second argument ARG specifies files to use instead of marked.
|
|
Usually ARG comes from the command's prefix arg.
|
|
If ARG is an integer, use the next ARG files (previous -ARG, if < 0).
|
|
If ARG is a cons with element 16, 64, or 256, corresponding to
|
|
`C-u C-u', `C-u C-u C-u', or `C-u C-u C-u C-u', then use all files
|
|
in the Dired buffer, where:
|
|
16 includes NO directories (including `.' and `..')
|
|
64 includes directories EXCEPT `.' and `..'
|
|
256 includes ALL directories (including `.' and `..')
|
|
If ARG is otherwise non-nil, use the current file.
|
|
Optional third argument FILTER, if non-nil, is a function to select
|
|
some of the files: those for which (funcall FILTER FILENAME) is
|
|
non-nil.
|
|
If DISTINGUISH-ONE-MARKED is non-nil, then return (t FILENAME) instead
|
|
of (FILENAME) if only one file is marked (after any filtering by
|
|
FILTER).
|
|
If ERROR-IF-NONE-P is non-nil, signal an error if the list of files is
|
|
empty. If ERROR-IF-NONE-P is a string then it is the error message.
|
|
|
|
Note that the Dired+ version of this function differs from the vanilla
|
|
version in these respects:
|
|
|
|
* There are more possibilities for argument ARG (prefix argument).
|
|
* Directories `.' and `..' can be included as marked.
|
|
* You can use arguments FILTER and DISTINGUISH-ONE-MARKED together."
|
|
(let ((all (delq nil (save-excursion (dired-map-over-marks (dired-get-filename localp 'NO-ERROR-IF-NOT-FILEP)
|
|
arg
|
|
nil
|
|
distinguish-one-marked))))
|
|
result)
|
|
(when (equal all '(t)) (setq all nil)) ; Added by vanilla Emacs 24+.
|
|
(if (and distinguish-one-marked (eq (car all) t))
|
|
(if (not filter)
|
|
all
|
|
(and (funcall filter (cadr all)) (list t (cadr all))))
|
|
(dolist (file all)
|
|
(when (or (not filter) (funcall filter file)) (push file result)))
|
|
(when (and (null result) error-if-none-p)
|
|
(diredp-user-error (if (stringp error-if-none-p) error-if-none-p "No files specified")))
|
|
result)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
;; 1. Define here to make use of my `dired-map-over-marks'.
|
|
;; 2. Added &rest arg FUN-ARGS.
|
|
;; 3. Added doc string.
|
|
;;
|
|
(defun dired-map-over-marks-check (fun mark-arg op-symbol &optional show-progress &rest fun-args)
|
|
"Map FUN over marked lines and display failures.
|
|
FUN returns non-nil (the offending object, e.g. the short form of the
|
|
filename) for a failure and probably logs a detailed error explanation
|
|
using function `dired-log'.
|
|
|
|
MARK-ARG is as the second argument of `dired-map-over-marks'.
|
|
|
|
OP-SYMBOL is a symbol describing the operation performed (e.g.
|
|
`compress'). It is used with `dired-mark-pop-up' to prompt the user
|
|
\(e.g. with `Compress * [2 files]? ') and to display errors (e.g.
|
|
`Failed to compress 1 of 2 files - type ? for details (\"foo\")')
|
|
|
|
SHOW-PROGRESS if non-nil means redisplay Dired after each file.
|
|
|
|
FUN-ARGS is the list of any remaining args to
|
|
`dired-map-over-marks-check'. Function FUN is applied to these
|
|
arguments."
|
|
(and (dired-mark-confirm op-symbol mark-arg)
|
|
(let* ((results (dired-map-over-marks (apply fun fun-args) mark-arg show-progress)) ; FUN return vals.
|
|
(nb-results (length results))
|
|
(failures (delq nil results))
|
|
(nb-fail (length failures))
|
|
(op-strg (if (eq op-symbol 'compress) "Compress or uncompress" (capitalize
|
|
(symbol-name op-symbol)))))
|
|
(if (null failures)
|
|
(message "%s: %d file%s." op-strg nb-results (dired-plural-s nb-results))
|
|
(dired-log-summary (format "Failed to %s %d of %d file%s"
|
|
(downcase op-strg) nb-fail nb-results (dired-plural-s nb-results))
|
|
failures)))))
|
|
|
|
;; Like `dired-map-over-marks-check', but `dired-log-summary' is always called, and first arg passed is different.
|
|
;;
|
|
(defun diredp-map-over-marks-and-report (fun mark-arg op-symbol &optional show-progress &rest fun-args)
|
|
"Map FUN over marked lines and report the results.
|
|
FUN returns non-nil (the offending object, e.g. the short form of the
|
|
filename) for a failure and probably logs a detailed error explanation
|
|
using function `dired-log'.
|
|
|
|
MARK-ARG is as the second argument of `dired-map-over-marks'.
|
|
|
|
OP-SYMBOL is a symbol describing the operation performed (e.g.
|
|
`compress'). It is used with `dired-mark-pop-up' to prompt the user
|
|
\(e.g. with `Compress * [2 files]? ') and to display errors (e.g.
|
|
`Failed to compress 1 of 2 files - type ? to see why (\"foo\")')
|
|
|
|
SHOW-PROGRESS if non-nil means redisplay Dired after each file.
|
|
|
|
FUN-ARGS is the list of any remaining args to
|
|
`diredp-map-over-marks-and-report'. Function FUN is applied to these
|
|
arguments."
|
|
(and (dired-mark-confirm op-symbol mark-arg)
|
|
(let* ((results (dired-map-over-marks (apply fun fun-args) mark-arg show-progress)) ; FUN return vals.
|
|
(nb-results (length results))
|
|
(failures (delq nil results))
|
|
(nb-fail (length failures))
|
|
(op-strg (capitalize (symbol-name op-symbol))))
|
|
(dired-log-summary (format "%s for %d file%s%s"
|
|
op-strg nb-results (dired-plural-s nb-results)
|
|
(if failures (format ": %d failures" nb-fail) ""))
|
|
failures))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
(when (boundp 'dired-subdir-switches) ; Emacs 22+
|
|
(defun dired-do-redisplay (&optional arg test-for-subdir) ; Bound to `l'
|
|
"Redisplay all marked (or next ARG) files.
|
|
If on a subdir line, redisplay that subdirectory. In that case,
|
|
a prefix arg lets you edit the `ls' switches used for the new listing.
|
|
|
|
Dired remembers switches specified with a prefix arg, so that reverting
|
|
the buffer will not reset them. However, using `dired-undo' to re-insert
|
|
or delete subdirectories can bypass this machinery. Hence, you sometimes
|
|
may have to reset some subdirectory switches after a `dired-undo'.
|
|
You can reset all subdirectory switches to the default using
|
|
\\<dired-mode-map>\\[dired-reset-subdir-switches].
|
|
See Info node `(emacs)Subdir switches' for more details."
|
|
;; Moves point if the next ARG files are redisplayed.
|
|
(interactive "P\np")
|
|
(if (and test-for-subdir (dired-get-subdir))
|
|
(let* ((dir (dired-get-subdir))
|
|
(switches (cdr (assoc-string dir dired-switches-alist))))
|
|
(dired-insert-subdir dir (and arg (read-string "Switches for listing: "
|
|
(or switches
|
|
dired-subdir-switches
|
|
dired-actual-switches)))))
|
|
(message "Redisplaying...")
|
|
;; `message' is much faster than making `dired-map-over-marks' show progress
|
|
(dired-uncache (if (consp dired-directory) (car dired-directory) dired-directory))
|
|
(dired-map-over-marks (let ((fname (dired-get-filename))
|
|
;; Postpone readin hook map over all marked files (Bug#6810).
|
|
(dired-after-readin-hook nil))
|
|
(message "Redisplaying... `%s'" fname)
|
|
(dired-update-file-line fname))
|
|
arg)
|
|
(run-hooks 'dired-after-readin-hook)
|
|
(dired-move-to-filename)
|
|
(message "Redisplaying...done"))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
(unless (boundp 'dired-subdir-switches) ; Emacs 20, 21
|
|
(defun dired-do-redisplay (&optional arg test-for-subdir) ; Bound to `l'
|
|
"Redisplay all marked (or next ARG) files.
|
|
If on a subdir line, redisplay that subdirectory. In that case,
|
|
a prefix arg lets you edit the `ls' switches used for the new listing."
|
|
;; Moves point if the next ARG files are redisplayed.
|
|
(interactive "P\np")
|
|
(if (and test-for-subdir (dired-get-subdir))
|
|
(dired-insert-subdir (dired-get-subdir)
|
|
(and arg (read-string "Switches for listing: " dired-actual-switches)))
|
|
(message "Redisplaying...")
|
|
;; `message' is much faster than making dired-map-over-marks show progress
|
|
(dired-uncache (if (consp dired-directory) (car dired-directory) dired-directory))
|
|
(dired-map-over-marks (let ((fname (dired-get-filename)))
|
|
(message "Redisplaying... `%s'" fname)
|
|
(dired-update-file-line fname))
|
|
arg)
|
|
(dired-move-to-filename)
|
|
(message "Redisplaying...done"))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
(when (fboundp 'get-window-with-predicate) ; Emacs 22+
|
|
(defun dired-dwim-target-directory ()
|
|
"Guess a target directory to use for Dired.
|
|
If there is a Dired buffer displayed in another window, use its
|
|
current subdir, else use current subdir of this Dired buffer."
|
|
(let ((this-dir (and (eq major-mode 'dired-mode) (dired-current-directory))))
|
|
;; Non-dired buffer may want to profit from this function, e.g. `vm-uudecode'.
|
|
(if dired-dwim-target
|
|
(let* ((other-win (get-window-with-predicate (lambda (window)
|
|
(with-current-buffer (window-buffer window)
|
|
(eq major-mode 'dired-mode)))
|
|
nil
|
|
(and diredp-dwim-any-frame-flag 'visible)))
|
|
(other-dir (and other-win (with-current-buffer (window-buffer other-win)
|
|
(and (eq major-mode 'dired-mode) (dired-current-directory))))))
|
|
(or other-dir this-dir))
|
|
this-dir))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; 1. Added behavior for non-positive prefix arg:
|
|
;; * Construct a cons DIRNAME arg.
|
|
;; * Read a Dired buffer name (not a directory) for its car.
|
|
;; * If READ-EXTRA-FILES-P is non-nil then read any number of file and dir names, to be included as its cdr.
|
|
;; * If chosen Dired buffer exists and is an ordinary listing then start out with its `directory-files'.
|
|
;;
|
|
;; 2. If you use Icicles then this is a multi-command - see doc for `dired' defadvice.
|
|
;;
|
|
(defun dired-read-dir-and-switches (string &optional read-extra-files-p dired-buffer)
|
|
"Read arguments for `dired' commands.
|
|
STRING is added to the prompt after \"Dired \". If not \"\", it should
|
|
end with a space.
|
|
|
|
With a non-negative prefix arg, read the `ls' switches.
|
|
With a non-negative prefix arg or none, read the directory to Dired.
|
|
|
|
With a non-positive prefix arg:
|
|
* If DIRED-BUFFER is non-nil, it is the name of the Dired buffer to
|
|
use. Otherwise, read it (it is not necessarily a directory name).
|
|
If in Dired now, the current buffer name is the default.
|
|
* If READ-EXTRA-FILES-P is non-nil then read any number of directory
|
|
or file names, to make up the Dired arbitrary-files listing. You
|
|
can use file-name wildcards (i.e., `*' for globbing), to include the
|
|
matching files and directories. Use `C-g' when done entering the
|
|
files and directories to list.
|
|
|
|
Return a list of arguments for `dired': (DIRNAME SWITCHES). DIRNAME
|
|
here has the same form as `dired-directory'. When a non-positive
|
|
prefix arg is used, DIRNAME is a cons of the buffer name and the list
|
|
of file names.
|
|
|
|
If you use Icicles then reading uses Icicles completion, with
|
|
additional multi-command keys. See `dired' (defadvice doc)."
|
|
(let* ((switchs (and current-prefix-arg
|
|
(natnump (prefix-numeric-value current-prefix-arg))
|
|
(read-string "Dired listing switches: "
|
|
dired-listing-switches)))
|
|
(icicle-candidate-action-fn
|
|
(lambda (cand)
|
|
(dired-other-window cand (and current-prefix-arg (read-string "Dired listing switches: "
|
|
dired-listing-switches)))
|
|
(select-window (minibuffer-window))
|
|
(select-frame-set-input-focus (selected-frame))))
|
|
;;; $$$$$$ Alternative: Could choose no-op for non-dir candidate.
|
|
;;; (icicle-candidate-action-fn
|
|
;;; (lambda (cand)
|
|
;;; (cond ((file-directory-p cand)
|
|
;;; (dired-other-window cand (and current-prefix-arg (read-string "Dired listing switches: "
|
|
;;; dired-listing-switches)))
|
|
;;; (select-window (minibuffer-window))
|
|
;;; (select-frame-set-input-focus (selected-frame)))
|
|
;;; (t
|
|
;;; (message "Not a directory: `%s'" cand) (sit-for 2)))))
|
|
(icicle-all-candidates-list-alt-action-fn ; M-|'
|
|
(lambda (files)
|
|
(let ((enable-recursive-minibuffers t))
|
|
(dired-other-window (cons (read-string (format "Dired %s(buffer name): " string)) files)))))
|
|
(icicle-sort-comparer (or (and (boundp 'icicle-file-sort) ; If not reading files
|
|
icicle-file-sort) ; then dirs first.
|
|
(and (> (prefix-numeric-value current-prefix-arg) 0)
|
|
'icicle-dirs-first-p)
|
|
(and (boundp 'icicle-sort-comparer)
|
|
icicle-sort-comparer)))
|
|
|
|
;; The rest of the bindings are from `icicle-file-bindings', in `icicles-mac.el'.
|
|
(completion-ignore-case
|
|
(or (and (boundp 'read-file-name-completion-ignore-case) read-file-name-completion-ignore-case)
|
|
completion-ignore-case))
|
|
(icicle-show-Completions-initially-flag (and (boundp 'icicle-show-Completions-initially-flag)
|
|
(or icicle-show-Completions-initially-flag
|
|
icicle-files-ido-like-flag)))
|
|
(icicle-top-level-when-sole-completion-flag (and (boundp 'icicle-top-level-when-sole-completion-flag)
|
|
(or icicle-top-level-when-sole-completion-flag
|
|
icicle-files-ido-like-flag)))
|
|
(icicle-default-value (and (boundp 'icicle-default-value)
|
|
(if (and icicle-files-ido-like-flag
|
|
icicle-default-value)
|
|
icicle-files-ido-like-flag
|
|
;; Get default via `M-n', but do not insert it.
|
|
(and (memq icicle-default-value '(t nil))
|
|
icicle-default-value))))
|
|
(icicle-must-match-regexp (and (boundp 'icicle-file-match-regexp)
|
|
icicle-file-match-regexp))
|
|
(icicle-must-not-match-regexp (and (boundp 'icicle-file-no-match-regexp)
|
|
icicle-file-no-match-regexp))
|
|
(icicle-must-pass-after-match-predicate (and (boundp 'icicle-file-predicate)
|
|
icicle-file-predicate))
|
|
(icicle-require-match-flag (and (boundp 'icicle-file-require-match-flag)
|
|
icicle-file-require-match-flag))
|
|
(icicle-file-completing-p t)
|
|
(icicle-extra-candidates (and (boundp 'icicle-file-extras) icicle-file-extras))
|
|
(icicle-transform-function 'icicle-remove-dups-if-extras)
|
|
;; Put `icicle-file-sort' first. If already in the list, move it, else add it, to beginning.
|
|
(icicle--temp-orders (and (boundp 'icicle-sort-orders-alist)
|
|
(copy-sequence icicle-sort-orders-alist)))
|
|
(icicle-candidate-help-fn (lambda (cand)
|
|
(icicle-describe-file cand current-prefix-arg t)))
|
|
(icicle-candidate-alt-action-fn (and (boundp 'icicle-candidate-alt-action-fn)
|
|
(or icicle-candidate-alt-action-fn
|
|
(icicle-alt-act-fn-for-type "file"))))
|
|
(icicle-delete-candidate-object 'icicle-delete-file-or-directory)
|
|
(icicle-sort-orders-alist
|
|
(and (boundp 'icicle-sort-orders-alist)
|
|
(progn (when t ; $$$$ (and icicle-file-sort-first-time-p icicle-file-sort)
|
|
(setq icicle-sort-comparer icicle-file-sort))
|
|
; $$$$ (setq icicle-file-sort-first-time-p nil))
|
|
(if icicle-file-sort
|
|
(let ((already-there (rassq icicle-file-sort icicle--temp-orders)))
|
|
(if already-there
|
|
(cons already-there (setq icicle--temp-orders (delete already-there
|
|
icicle--temp-orders)))
|
|
(cons `("by `icicle-file-sort'" ,@icicle-file-sort) icicle--temp-orders)))
|
|
icicle--temp-orders)))))
|
|
(when (fboundp 'icicle-bind-file-candidate-keys) (icicle-bind-file-candidate-keys))
|
|
(unwind-protect
|
|
(list
|
|
(if (> (prefix-numeric-value current-prefix-arg) 0)
|
|
;; If a dialog box is about to be used, call `read-directory-name' so the dialog
|
|
;; code knows we want directories. Some dialog boxes can only select directories
|
|
;; or files when popped up, not both. If no dialog box is used, call `read-file-name'
|
|
;; because the user may want completion of file names for use in a wildcard pattern.
|
|
(funcall (if (and (fboundp 'read-directory-name) (next-read-file-uses-dialog-p))
|
|
#'read-directory-name
|
|
#'read-file-name)
|
|
(format "Dired %s(directory): " string) nil default-directory nil)
|
|
(dolist (db dired-buffers) ; Remove any killed buffers from `dired-buffers' (even if DIRED-BUFFER).
|
|
(unless (buffer-name (cdr db)) (setq dired-buffers (delq db dired-buffers))))
|
|
(let* ((dbufs (and (not dired-buffer)
|
|
(mapcar (lambda (db) (list (buffer-name (cdr db)))) dired-buffers)))
|
|
(dirbuf (or dired-buffer
|
|
(completing-read (format "Dired %s(buffer name): " string) dbufs nil nil nil nil
|
|
(and (derived-mode-p 'dired-mode) (buffer-name)))))
|
|
(files (and (diredp-existing-dired-buffer-p dirbuf)
|
|
(with-current-buffer (get-buffer dirbuf)
|
|
(and (not (consp dired-directory))
|
|
(directory-files dired-directory 'FULL diredp-re-no-dot)))))
|
|
file)
|
|
(when read-extra-files-p
|
|
(while (condition-case nil ; Use lax completion, to allow wildcards.
|
|
(setq file (read-file-name "File or dir (C-g when done): "))
|
|
(quit nil))
|
|
;; Do not allow root dir (`/' or a Windows drive letter, e.g. `d:/').
|
|
(if (diredp-root-directory-p file)
|
|
(progn (message "Cannot choose root directory") (sit-for 1))
|
|
(push file files))))
|
|
(cons dirbuf files)))
|
|
switchs)
|
|
(when (fboundp 'icicle-unbind-file-candidate-keys) (icicle-unbind-file-candidate-keys)))))
|
|
|
|
|
|
;;; $$$$$$$$ An alternative implementation - different behavior.
|
|
;;;
|
|
;;; ;; REPLACE ORIGINAL in `dired.el'.
|
|
;;; ;;
|
|
;;; ;; Non-positive prefix arg means construct cons DIRNAME arg: Read Dired name and files/dirs.
|
|
;;; ;;
|
|
;;; (defun dired-read-dir-and-switches (string)
|
|
;;; "Read arguments for `dired'.
|
|
;;; With a non-negative prefix arg, prompt first for `ls' switches.
|
|
;;; With a non-positive prefix arg, read the Dired buffer name and then
|
|
;;; read any number of dir or file names, to make up the Dired listing.
|
|
|
|
;;; STRING is appended to the prompt, unless prefix arg is non-positive.
|
|
;;; If non-empty, STRING should begin with a SPC."
|
|
;;; (let ((switches (and current-prefix-arg
|
|
;;; (>= (prefix-numeric-value current-prefix-arg) 0)
|
|
;;; (read-string "Dired listing switches: " dired-listing-switches)))
|
|
;;; (formt (format "Dired %s(directory): " string))
|
|
;;; (entries ())
|
|
;;; (curr-entry ""))
|
|
;;; (when (and current-prefix-arg (<= (prefix-numeric-value current-prefix-arg) 0))
|
|
;;; (push (completing-read "Dired buffer name: " dired-buffers) entries)
|
|
;;; (setq curr-entry (read-file-name (format "Dir or file: ") nil "" 'MUST-MATCH))
|
|
;;; (while (not (equal "" curr-entry))
|
|
;;; (push curr-entry entries)
|
|
;;; (setq curr-entry (read-file-name (format "Dir or file: ") nil "" 'MUST-MATCH)))
|
|
;;; (unless (cadr entries) (push default-directory entries)))
|
|
;;; (list (or (nreverse entries) (if (and (fboundp 'next-read-file-uses-dialog-p)
|
|
;;; (next-read-file-uses-dialog-p))
|
|
;;; (read-directory-name formt nil default-directory nil)
|
|
;;; (read-file-name formt nil default-directory nil)))
|
|
;;; switches)))
|
|
|
|
|
|
;; ADVISE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Add to doc string, to document non-positive prefix arg.
|
|
;;
|
|
(defadvice dired (before diredp-doc-cons-arg activate)
|
|
"Interactively, a prefix argument changes the behavior as follows:
|
|
|
|
* If >= 0, you are first prompted for the `ls' switches to use.
|
|
|
|
* If <= 0, you are prompted first for the name of the Dired buffer.
|
|
Then you are prompted repeatedly for the names of the directories
|
|
or files to list in the buffer. You can use file-name wildcards
|
|
(i.e., `*' for globbing), to include the matching files and
|
|
directories. Use `C-g' to end.
|
|
|
|
In other words, instead of listing a single directory, the Dired
|
|
buffer can list any number of directories and file names, which can
|
|
even belong to different directory trees.
|
|
|
|
The rest of this description applies only if you use Icicles.
|
|
|
|
In Icicle mode this is a multi-command: You can cycle among file-name
|
|
completion candidates and act individually on those that name
|
|
directories. The action is to open Dired for the directory. While
|
|
cycling, these keys are active:
|
|
|
|
\\<minibuffer-local-completion-map>\
|
|
`C-mouse-2', `C-return' - Act on current completion candidate only
|
|
`C-down', `C-wheel-down' - Move to next completion candidate and act
|
|
`C-up', `C-wheel-up' - Move to previous completion candidate and act
|
|
`C-next' - Move to next apropos-completion candidate and act
|
|
`C-prior' - Move to previous apropos-completion candidate and act
|
|
`C-end' - Move to next prefix-completion candidate and act
|
|
`C-home' - Move to previous prefix-completion candidate and act
|
|
`\\[icicle-all-candidates-action]' - Act on *all* candidates, successively (careful!)
|
|
`\\[icicle-all-candidates-list-alt-action]' - Open Dired on all candidates
|
|
|
|
When candidate action and cycling are combined (e.g. `C-next'), user
|
|
option `icicle-act-before-cycle-flag' determines which occurs first.
|
|
|
|
With prefix `C-M-' instead of `C-', the same keys (`C-M-mouse-2',
|
|
`C-M-RET', `C-M-down', and so on) provide help about candidates.
|
|
|
|
Use `mouse-2', `RET', or `S-RET' to finally choose a candidate, or
|
|
`C-g' to quit.
|
|
|
|
These keys are also bound in the minibuffer during completion (`*'
|
|
means the key requires library `Bookmark+'):
|
|
|
|
S-delete - Delete candidate file or (empty) dir
|
|
C-c + - Create a new directory
|
|
C-backspace - Go up one directory level
|
|
* C-x C-t * - Narrow to files with all of the tags you specify
|
|
* C-x C-t + - Narrow to files with some of the tags you specify
|
|
* C-x C-t % * - Narrow to files with all tags matching a regexp
|
|
* C-x C-t % + - Narrow to files with some tags matching a regexp
|
|
* C-x a + - Add tags to the current-candidate file
|
|
* C-x a - - Remove tags from the current-candidate file
|
|
* C-x m - Access file bookmarks (not just autofiles)"
|
|
(interactive (dired-read-dir-and-switches "" 'READ-EXTRA-FILES-P)))
|
|
|
|
|
|
;; ADVISE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Add to doc string, to document non-positive prefix arg.
|
|
;;
|
|
(defadvice dired-other-window (before diredp-doc-cons-arg activate)
|
|
"Interactively, a prefix argument changes the behavior.
|
|
A non-positive prefix arg lets you choose an explicit set of files and
|
|
directories to list. See the advice for `dired' for more information."
|
|
(interactive (dired-read-dir-and-switches "" 'READ-EXTRA-FILES-P)))
|
|
|
|
|
|
;; ADVISE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Add to doc string, to document non-positive prefix arg.
|
|
;;
|
|
(defadvice dired-other-frame (before diredp-doc-cons-arg activate)
|
|
"Interactively, a prefix argument changes the behavior.
|
|
A non-positive prefix arg lets you choose an explicit set of files and
|
|
directories to list. See the advice for `dired' for more information."
|
|
(interactive (dired-read-dir-and-switches "" 'READ-EXTRA-FILES-P)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Made compatible with Emacs 20, 21, which do not have [:alnum].
|
|
;; Also, this is defined here because it is used elsewhere in the file.
|
|
;;
|
|
(defun dired-switches-escape-p (switches)
|
|
"Return non-nil if the string SWITCHES contains `-b' or `--escape'."
|
|
(if (fboundp 'dired-switches-check) ; Emacs 24.4+ - see Emacs bug #17218.
|
|
(dired-switches-check switches "escape" "b")
|
|
;; Do not match things like "--block-size" that happen to contain "b".
|
|
(if (> emacs-major-version 21) ; SWITCHES must be a string here, not nil.
|
|
(diredp-string-match-p "\\(\\`\\| \\)-[[:alnum:]]*b\\|--escape\\>" switches)
|
|
(diredp-string-match-p "\\(\\`\\| \\)-\\(\w\\|[0-9]\\)*b\\|--escape\\>" switches))))
|
|
|
|
|
|
;; From `dired.el'
|
|
|
|
(when (and (> emacs-major-version 22) (featurep 'ls-lisp+))
|
|
|
|
;;; 2012/04/26: Commented this out.
|
|
;;; Might need it again when update `ls-lisp+.el' to fix other things.
|
|
;;;
|
|
;;; ;; Use t as WILDCARD arg to `dired-insert-directory'.
|
|
;;; ;;
|
|
;;; (defun dired-readin-insert ()
|
|
;;; ;; Insert listing for the specified dir (and maybe file list)
|
|
;;; ;; already in dired-directory, assuming a clean buffer.
|
|
;;; (let (dir file-list)
|
|
;;; (if (consp dired-directory)
|
|
;;; (setq dir (car dired-directory)
|
|
;;; file-list (cdr dired-directory))
|
|
;;; (setq dir dired-directory
|
|
;;; file-list ()))
|
|
;;; (setq dir (expand-file-name dir))
|
|
;;; (if (and (equal "" (file-name-nondirectory dir)) (not file-list))
|
|
;;; ;; If we are reading a whole single directory...
|
|
;;; (dired-insert-directory dir dired-actual-switches nil nil t)
|
|
;;; (unless (file-readable-p (directory-file-name (file-name-directory dir)))
|
|
;;; (error "Directory `%s' inaccessible or nonexistent" dir))
|
|
;;; ;; Else treat it as a wildcard spec.
|
|
;;; (dired-insert-directory dir dired-actual-switches file-list t t))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Compute WILDCARD arg for `insert-directory' for individual file (don't just use nil).
|
|
;;
|
|
(defun dired-insert-directory (dir switches &optional file-list wildcard hdr)
|
|
"Insert a directory listing of DIR, Dired style.
|
|
Use SWITCHES to make the listings.
|
|
If FILE-LIST is non-nil, list only those files.
|
|
Otherwise, if WILDCARD is non-nil, expand wildcards;
|
|
in that case, DIR should be a file name that uses wildcards.
|
|
In other cases, DIR should be a directory name or a directory filename.
|
|
If HDR is non-nil, insert a header line with the directory name."
|
|
(let ((opoint (point))
|
|
(process-environment (copy-sequence process-environment))
|
|
end)
|
|
(when (and
|
|
;; Do not try to invoke `ls' if on DOS/Windows, where `ls-lisp' is used, unless
|
|
;; the user really wants to use `ls', as indicated by
|
|
;; `ls-lisp-use-insert-directory-program'.
|
|
(or (not (featurep 'ls-lisp)) ls-lisp-use-insert-directory-program)
|
|
(or (if (eq dired-use-ls-dired 'unspecified)
|
|
;; Check if "ls --dired" gives exit code 0. Put it in `dired-use-ls-dired'.
|
|
(or (setq dired-use-ls-dired (eq 0 (call-process insert-directory-program
|
|
nil nil nil "--dired")))
|
|
(progn (message "Command `ls' does not support switch `--dired' - see \
|
|
`dired-use-ls-dired'.")
|
|
nil))
|
|
dired-use-ls-dired)
|
|
(file-remote-p dir)))
|
|
(setq switches (concat "--dired " switches)))
|
|
;; We used to specify the C locale here, to force English month names. This should not be
|
|
;; necessary any more with the new value of `directory-listing-before-filename-regexp'.
|
|
(if file-list
|
|
(dolist (f file-list)
|
|
(let ((beg (point)))
|
|
;; Compute wildcard arg for this file.
|
|
(insert-directory f switches (diredp-string-match-p "[[?*]" f) nil)
|
|
;; Re-align fields, if necessary.
|
|
(dired-align-file beg (point))))
|
|
(insert-directory dir switches wildcard (not wildcard)))
|
|
;; Quote certain characters, unless `ls' quoted them for us.
|
|
(unless (dired-switches-escape-p dired-actual-switches)
|
|
(save-excursion
|
|
(setq end (point-marker))
|
|
(goto-char opoint)
|
|
(while (search-forward "\\" end t)
|
|
(replace-match (apply #'propertize "\\\\" (text-properties-at (match-beginning 0)))
|
|
nil t))
|
|
(goto-char opoint)
|
|
(while (search-forward "\^m" end t)
|
|
(replace-match (apply #'propertize "\\015" (text-properties-at (match-beginning 0)))
|
|
nil t))
|
|
(set-marker end nil))
|
|
;; Comment in original, from some Emacs Dev developer:
|
|
;;
|
|
;; Replace any newlines in DIR with literal "\n" for the sake of the header line. To
|
|
;; disambiguate a literal "\n" in the actual dirname, we also replace "\" with "\\".
|
|
;; I think this should always be done, irrespective of the value of
|
|
;; dired-actual-switches, because:
|
|
;; i) Dired does not work with an unescaped newline in the directory name used in the
|
|
;; header (bug=10469#28), and
|
|
;; ii) "\" is always replaced with "\\" in the listing, so doing it in the header as
|
|
;; well makes things consistent.
|
|
;; But at present it is done only if "-b" is in ls-switches, because newlines in dirnames
|
|
;; are uncommon, and people may have gotten used to seeing unescaped "\" in the headers.
|
|
;; Note: adjust `dired-build-subdir-alist' if you change this.
|
|
(setq dir (replace-regexp-in-string "\\\\" "\\\\" dir nil t)
|
|
dir (replace-regexp-in-string "\n" "\\n" dir nil t)))
|
|
;; If we used `--dired' and it worked, the lines are already indented. Else indent them.
|
|
(unless (save-excursion (goto-char opoint) (diredp-looking-at-p " "))
|
|
(let ((indent-tabs-mode nil)) (indent-rigidly opoint (point) 2)))
|
|
;; Insert text at the beginning to standardize things.
|
|
(let ((content-point opoint))
|
|
(save-excursion
|
|
(goto-char opoint)
|
|
(when (and (or hdr wildcard) (not (and (looking-at "^ \\(.*\\):$")
|
|
(file-name-absolute-p (match-string 1)))))
|
|
;; `dired-build-subdir-alist' will replace the name by its expansion, so it does not
|
|
;; matter whether what we insert here is fully expanded, but it should be absolute.
|
|
(insert " " (directory-file-name (file-name-directory dir)) ":\n")
|
|
(setq content-point (point)))
|
|
(when wildcard
|
|
;; Insert "wildcard" line where "total" line would be for a full dir.
|
|
(insert " wildcard " (file-name-nondirectory dir) "\n")))
|
|
(dired-insert-set-properties content-point (point))))))
|
|
|
|
|
|
;;; Image stuff.
|
|
|
|
(defun diredp-image-dired-required-msg ()
|
|
"Raise an error if `image-dired.el' is not loaded."
|
|
(unless (require 'image-dired nil t) (error "This command requires library `image-dired.el'")))
|
|
|
|
;; See `image-dired-create-thumb'.
|
|
;; Define this even if `image-dired.el' is not loaded.
|
|
;; Do NOT raise an error if not loaded, because this is used in `diredp-mouseover-help'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-create-thumb (file &optional arg)
|
|
"Create thumbnail image file for FILE (default: file on current line).
|
|
With a prefix arg, replace any existing thumbnail for FILE.
|
|
With a numeric prefix arg (not a cons), use it as the thumbnail size.
|
|
Return the name of the thumbnail image file, or nil if none."
|
|
(interactive (list (if (derived-mode-p 'dired-mode)
|
|
(dired-get-filename nil 'NO-ERROR)
|
|
;; Make it work also for `diredp-list-files' listings.
|
|
(buffer-substring-no-properties (line-beginning-position) (line-end-position)))
|
|
current-prefix-arg))
|
|
(and (fboundp 'image-dired-thumb-name) ; No-op (return nil) if `image-dired.el' not loaded.
|
|
(let ((thumb-name (image-dired-thumb-name file)))
|
|
(when arg (clear-image-cache))
|
|
(when (or arg (not (file-exists-p thumb-name)))
|
|
(let ((image-dired-thumb-width (or (and arg (atom arg) arg) image-dired-thumb-width))
|
|
(image-dired-thumb-height (or (and arg (atom arg) arg) image-dired-thumb-height)))
|
|
(unless (zerop (image-dired-create-thumb file thumb-name))
|
|
(error "Thumbnail image file could not be created"))))
|
|
(and (file-exists-p thumb-name) thumb-name))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `image-dired.el' (Emacs 22-23).
|
|
;;
|
|
;; 1. Raise an error if `image-dired.el' is not available.
|
|
;; 2. Repro it here so it picks up `Dired+' version of `dired-map-over-marks'.
|
|
;;
|
|
;;;###autoload
|
|
(defun image-dired-dired-insert-marked-thumbs () ; Bound to `C-t C-t' (Emacs 22-23)
|
|
"Insert thumbnails before file names of marked files in the Dired buffer."
|
|
(interactive (progn (diredp-image-dired-required-msg) ()))
|
|
(dired-map-over-marks
|
|
(let* ((image-pos (dired-move-to-filename))
|
|
(image-file (dired-get-filename))
|
|
(thumb-file (image-dired-get-thumbnail-image image-file))
|
|
overlay)
|
|
;; If image is not already added, then add it.
|
|
(unless (delq nil (mapcar (lambda (o) (overlay-get o 'put-image))
|
|
;; Can't use (overlays-at (point)), BUG?
|
|
(overlays-in (point) (1+ (point)))))
|
|
(put-image thumb-file image-pos)
|
|
(setq overlay (car (delq nil (mapcar (lambda (ov) (and (overlay-get ov 'put-image) ov))
|
|
(overlays-in (point) (1+ (point)))))))
|
|
(overlay-put overlay 'image-file image-file)
|
|
(overlay-put overlay 'thumb-file thumb-file)))
|
|
nil)
|
|
(add-hook 'dired-after-readin-hook 'image-dired-dired-after-readin-hook nil t))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `image-dired.el' (Emacs 24+).
|
|
;;
|
|
;; 1. Raise an error if `image-dired.el' is not available.
|
|
;; 2. Repro it here so it picks up `Dired+' version of `dired-map-over-marks'.
|
|
;;
|
|
;;;###autoload
|
|
(defun image-dired-dired-toggle-marked-thumbs (&optional arg) ; Bound to `C-t C-t' (Emacs 24+)
|
|
"Toggle thumbnails in front of file names in Dired.
|
|
If no files are marked, insert or hide thumbnails on the current line.
|
|
With a numeric prefix arg N, ignore marked files and act on the next N
|
|
files (previous -N files, if N < 0)."
|
|
(interactive (progn (diredp-image-dired-required-msg) (list current-prefix-arg)))
|
|
(dired-map-over-marks
|
|
(let* ((image-pos (dired-move-to-filename))
|
|
(image-file (diredp-get-image-filename nil 'NO-ERROR))
|
|
thumb-file overlay)
|
|
(when image-file
|
|
(setq thumb-file (image-dired-get-thumbnail-image image-file))
|
|
;; If image is not already added, then add it.
|
|
(let* ((cur-ovs (overlays-in (point) (1+ (point))))
|
|
(thumb-ov (car (diredp-remove-if-not (lambda (ov) (overlay-get ov 'thumb-file))
|
|
cur-ovs))))
|
|
(if thumb-ov
|
|
(delete-overlay thumb-ov)
|
|
(put-image thumb-file image-pos)
|
|
(setq overlay (car (delq nil (mapcar (lambda (ov) (and (overlay-get ov 'put-image) ov))
|
|
(overlays-in (point) (1+ (point)))))))
|
|
(overlay-put overlay 'image-file image-file)
|
|
(overlay-put overlay 'thumb-file thumb-file)))))
|
|
arg
|
|
'SHOW-PROGRESS)
|
|
(add-hook 'dired-after-readin-hook 'image-dired-dired-after-readin-hook nil t))
|
|
|
|
;; Corresponds to `image-dired-dired-comment-files'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-comment-file ()
|
|
"Add comment to this image file."
|
|
(interactive (progn (diredp-image-dired-required-msg) ()))
|
|
(image-dired-write-comments (cons (dired-get-filename) (image-dired-read-comment))))
|
|
|
|
;; Corresponds to `image-dired-tag-files'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-tag-file ()
|
|
"Tag this image file with an `image-dired' tag."
|
|
(interactive (progn (diredp-image-dired-required-msg) ()))
|
|
(image-dired-write-tags (cons (dired-get-filename)
|
|
(read-string "Tags to add (use `;' to separate): "))))
|
|
|
|
;; Corresponds to `image-dired-delete-tag'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-delete-tag ()
|
|
"Remove an `image-dired' tag from this image file."
|
|
(interactive (progn (diredp-image-dired-required-msg) ()))
|
|
(image-dired-remove-tag (list (dired-get-filename)) (read-string "Tag to remove: ")))
|
|
|
|
;; Corresponds to `image-dired-display-thumbs'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-display-thumb (&optional append)
|
|
"Pop to thumbnail of this image file, in `image-dired-thumbnail-buffer'.
|
|
If a thumbnail image does not yet exist for this file, create it.
|
|
With a prefix arg, append the thumbnail to the thumbnails buffer,
|
|
instead of clearing the buffer first."
|
|
(interactive (progn (diredp-image-dired-required-msg) (list current-prefix-arg)))
|
|
(let* ((dired-buf (current-buffer))
|
|
(curr-file (dired-get-filename))
|
|
(thumb-name (image-dired-thumb-name curr-file)))
|
|
(with-current-buffer (image-dired-create-thumbnail-buffer)
|
|
(let ((inhibit-read-only t))
|
|
(if (not append) (erase-buffer) (goto-char (point-max)))
|
|
(if (and (not (file-exists-p thumb-name))
|
|
(not (zerop (image-dired-create-thumb curr-file thumb-name))))
|
|
(message "Cannot create thumbnail image for file `%s'" curr-file)
|
|
(image-dired-insert-thumbnail thumb-name curr-file dired-buf)))
|
|
(cond ((eq 'dynamic image-dired-line-up-method) (image-dired-line-up-dynamic))
|
|
((eq 'fixed image-dired-line-up-method) (image-dired-line-up))
|
|
((eq 'interactive image-dired-line-up-method) (image-dired-line-up-interactive))
|
|
((eq 'none image-dired-line-up-method) nil)
|
|
(t (image-dired-line-up-dynamic))))
|
|
(pop-to-buffer image-dired-thumbnail-buffer)))
|
|
|
|
;; Corresponds to `image-dired-copy-with-exif-file-name'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-copy-with-exif-name ()
|
|
"Copy this image file to your main image directory.
|
|
Uses `image-dired-get-exif-file-name' to name the new file."
|
|
(interactive (progn (diredp-image-dired-required-msg) ()))
|
|
(let* ((curr-file (dired-get-filename))
|
|
(new-name (format "%s/%s" (file-name-as-directory
|
|
(expand-file-name image-dired-main-image-directory))
|
|
(image-dired-get-exif-file-name curr-file))))
|
|
(message "Copying `%s' to `%s'..." curr-file new-name)
|
|
(copy-file curr-file new-name)
|
|
(message "Copying `%s' to `%s'...done" curr-file new-name)))
|
|
|
|
;; Corresponds to `image-dired-dired-edit-comment-and-tags'.
|
|
;;;###autoload
|
|
(defun diredp-image-dired-edit-comment-and-tags ()
|
|
"Edit comment and tags for this image file."
|
|
(interactive (progn (diredp-image-dired-required-msg) ()))
|
|
(setq image-dired-widget-list ())
|
|
(let ((file (dired-get-filename)))
|
|
(if (fboundp 'pop-to-buffer-same-window)
|
|
(pop-to-buffer-same-window "*Image-Dired Edit Meta Data*")
|
|
(switch-to-buffer "*Image-Dired Edit Meta Data*"))
|
|
(kill-all-local-variables)
|
|
(make-local-variable 'widget-example-repeat)
|
|
(let ((inhibit-read-only t))
|
|
(erase-buffer)
|
|
(remove-overlays)
|
|
(widget-insert
|
|
"\nEdit comment and tags for the image. Separate multiple tags
|
|
with a comma (`,'). Move forward among fields using `TAB' or `RET'.
|
|
Move backward using `S-TAB'. Click `Save' to save your edits or
|
|
`Cancel' to abandon them.\n\n")
|
|
(let* ((thumb-file (image-dired-thumb-name file))
|
|
(img (create-image thumb-file))
|
|
comment-widget tag-widget)
|
|
(insert-image img)
|
|
(widget-insert "\n\nComment: ")
|
|
(setq comment-widget (widget-create 'editable-field :size 60 :format "%v "
|
|
:value (or (image-dired-get-comment file) "")))
|
|
(widget-insert "\nTags: ")
|
|
(setq tag-widget (widget-create 'editable-field :size 60 :format "%v "
|
|
:value (or (mapconcat #'identity (image-dired-list-tags file) ",") "")))
|
|
;; Save info in widgets to use when the user saves the form.
|
|
(setq image-dired-widget-list (append image-dired-widget-list
|
|
(list (list file comment-widget tag-widget))))
|
|
(widget-insert "\n\n")))
|
|
(widget-insert "\n")
|
|
(widget-create 'push-button :notify (lambda (&rest _ignore)
|
|
(image-dired-save-information-from-widgets)
|
|
(bury-buffer)
|
|
(message "Done"))
|
|
"Save")
|
|
(widget-insert " ")
|
|
(widget-create 'push-button :notify (lambda (&rest _ignore)
|
|
(bury-buffer)
|
|
(message "Operation canceled"))
|
|
"Cancel")
|
|
(widget-insert "\n")
|
|
(use-local-map widget-keymap)
|
|
(widget-setup)
|
|
(widget-forward 1))) ; Jump to the first widget.
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-display-images (&optional arg)
|
|
"Display the marked image files.
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any files are marked).
|
|
More than one `C-u' means use all files in the Dired buffer, as if
|
|
they were all marked."
|
|
(interactive (progn (unless (require 'image-file nil t)
|
|
(error "This command requires library `image-file.el'"))
|
|
(diredp-ensure-mode)
|
|
(list current-prefix-arg)))
|
|
(dired-map-over-marks-check #'diredp-display-image arg 'display\ image
|
|
(diredp-fewer-than-2-files-p arg)))
|
|
|
|
(defun diredp-display-image ()
|
|
"Display image file at point. Log an error using `dired-log'."
|
|
(let ((file (dired-get-filename 'LOCAL 'NO-ERROR))
|
|
(failure nil))
|
|
(save-excursion
|
|
(if (let ((inhibit-changing-match-data t))
|
|
(and file (diredp-string-match-p (image-file-name-regexp) file)))
|
|
(condition-case err
|
|
(let ((find-file-run-dired nil)) (find-file-other-window file))
|
|
(error (setq failure (error-message-string err))))
|
|
(dired-log (format "Not an image file: `%s'" file))
|
|
(setq failure t)))
|
|
(and failure ; Return nil for success.
|
|
(prog1 file ; Return file name for failure.
|
|
(unless (eq t failure) (dired-log "Cannot display image file `%s':\n%s\n" file failure) t)))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-image-show-this-file (&optional arg)
|
|
"Show the image file named on this line in another frame or window.
|
|
Option `diredp-image-show-this-file-use-frame-flag' which is used.
|
|
|
|
With a prefix arg, shrink the image to fit a frame that many lines
|
|
high or a window at least that many lines high.
|
|
Otherwise, show the image full size.
|
|
Note:
|
|
* To show the image full size, you can also use `\\<dired-mode-map>\\[dired-find-file]'.
|
|
* To show the image in another window, at whatever scale fits there,
|
|
you can use `\\[image-dired-dired-display-image]'."
|
|
(interactive (progn (diredp-image-dired-required-msg) (list current-prefix-arg)))
|
|
(image-dired-create-display-image-buffer)
|
|
(let ((fit-frame-inhibit-fitting-flag t) ; In `fit-frame.el'.
|
|
(img-file (diredp-get-image-filename)))
|
|
(if img-file
|
|
(with-current-buffer image-dired-display-image-buffer
|
|
(let* ((window-min-height (if arg
|
|
(prefix-numeric-value arg)
|
|
(ceiling (cdr (image-size (create-image img-file))))))
|
|
(special-display-frame-alist (if diredp-image-show-this-file-use-frame-flag
|
|
(cons `(height . ,window-min-height)
|
|
special-display-frame-alist)
|
|
special-display-frame-alist))
|
|
(special-display-buffer-names (if diredp-image-show-this-file-use-frame-flag
|
|
(cons image-dired-display-image-buffer
|
|
special-display-buffer-names)
|
|
special-display-buffer-names)))
|
|
(display-buffer image-dired-display-image-buffer)
|
|
(image-dired-display-image img-file (not arg))))
|
|
(message "No image file here")))) ; An error is handled by `diredp-get-image-filename'.
|
|
|
|
(defun diredp-report-file-result (file result failure echop)
|
|
(cond (failure
|
|
(when echop (message "Error for %s:\n%s\n" file failure) (sit-for 1))
|
|
(dired-log "Error for %s:\n%s\n" file failure)
|
|
(dired-make-relative file)) ; Return file name for failure.
|
|
(t
|
|
(when echop (message "Result for %s:\n%s\n" file result) (sit-for 1))
|
|
(dired-log "Result for %s:\n%s\n" file result)
|
|
nil))) ; Return nil for success.
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-emacs-command (command &optional arg)
|
|
"Invoke an Emacs COMMAND in each marked file.
|
|
Visit each marked file at its beginning, then invoke COMMAND.
|
|
You are prompted for the COMMAND.
|
|
|
|
The result returned for each file is logged by `dired-log'. Use `?'
|
|
to see all such results and any error messages. If there are fewer
|
|
marked files than `diredp-do-report-echo-limit' then each result is
|
|
also echoed momentarily.
|
|
|
|
A prefix argument behaves according to the ARG argument of
|
|
`dired-get-marked-files'. In particular, `C-u C-u' operates on all
|
|
files in the Dired buffer."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(list (diredp-read-command) current-prefix-arg)))
|
|
(save-selected-window
|
|
(diredp-map-over-marks-and-report
|
|
#'diredp-invoke-emacs-command arg 'invoke\ emacs\ command (diredp-fewer-than-2-files-p arg)
|
|
command (diredp-fewer-than-echo-limit-files-p arg))))
|
|
|
|
(defun diredp-invoke-emacs-command (command &optional echop)
|
|
"Visit file of this line at its beginning, then invoke COMMAND.
|
|
Log the result returned or any error.
|
|
Non-nil optional arg ECHOP means also echo the result."
|
|
(let* ((file (dired-get-filename))
|
|
(failure (not (file-exists-p file)))
|
|
result)
|
|
(unless failure
|
|
(condition-case err
|
|
(with-current-buffer (find-file-noselect file)
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(setq result (call-interactively command))))
|
|
(error (setq failure err))))
|
|
(diredp-report-file-result file result failure echop)))
|
|
|
|
(defun diredp-read-command (&optional prompt default)
|
|
"Read the name of a command and return a symbol with that name.
|
|
\(A command is anything that satisfies predicate `commandp'.)
|
|
Prompt with PROMPT, which defaults to \"Command: \".
|
|
By default, return the command named DEFAULT (or, with Emacs 23+, its
|
|
first element if DEFAULT is a list). (If DEFAULT does not name a
|
|
command then it is ignored.)"
|
|
(setq prompt (or prompt "Command: "))
|
|
(let ((name (completing-read prompt obarray #'commandp t nil
|
|
'extended-command-history default)))
|
|
(while (string= "" name)
|
|
(setq name (completing-read prompt obarray #'commandp t nil
|
|
'extended-command-history default)))
|
|
(intern name)))
|
|
|
|
(when (fboundp 'diredp-read-expression) ; Emacs 22+
|
|
|
|
(defun diredp-do-lisp-sexp (sexp &optional arg)
|
|
"Evaluate an Emacs-Lisp SEXP in each marked file.
|
|
Visit each marked file at its beginning, then evaluate SEXP.
|
|
You are prompted for the SEXP.
|
|
|
|
The result returned for each file is logged by `dired-log'. Use `?'
|
|
to see all such results and any error messages. If there are fewer
|
|
marked files than `diredp-do-report-echo-limit' then each result is
|
|
also echoed momentarily.
|
|
|
|
A prefix argument behaves according to the ARG argument of
|
|
`dired-get-marked-files'. In particular, `C-u C-u' operates on all
|
|
files in the Dired buffer."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(list (diredp-read-expression "Sexp: ") current-prefix-arg)))
|
|
(save-selected-window
|
|
(diredp-map-over-marks-and-report
|
|
#'diredp-eval-lisp-sexp arg 'eval\ elisp\ sexp (diredp-fewer-than-2-files-p arg)
|
|
sexp (diredp-fewer-than-echo-limit-files-p arg))))
|
|
|
|
(defun diredp-eval-lisp-sexp (sexp &optional echop)
|
|
"Visit file of this line at its beginning, then evaluate SEXP.
|
|
Log the result returned or any error.
|
|
Non-nil optional arg ECHOP means also echo the result."
|
|
(let* ((file (dired-get-filename))
|
|
(failure (not (file-exists-p file)))
|
|
result)
|
|
(unless failure
|
|
(condition-case err
|
|
(with-current-buffer (find-file-noselect file)
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(setq result (eval-expression sexp))))
|
|
(error (setq failure err))))
|
|
(diredp-report-file-result file result failure echop)))
|
|
|
|
)
|
|
|
|
;;; Face Definitions
|
|
|
|
(defface diredp-autofile-name
|
|
'((((background dark)) (:background "#111313F03181")) ; Very dark blue
|
|
(t (:background "#EEECEC0FCE7E"))) ; Very pale goldenrod
|
|
"*Face used in Dired for names of files that are autofile bookmarks."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-autofile-name 'diredp-autofile-name)
|
|
|
|
(defface diredp-compressed-file-name
|
|
'((((background dark)) (:foreground "Blue"))
|
|
(t (:foreground "Brown")))
|
|
"*Face used for compressed file names."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-compressed-file-name 'diredp-compressed-file-name)
|
|
|
|
(defface diredp-compressed-file-suffix
|
|
'((((background dark)) (:foreground "Blue"))
|
|
(t (:foreground "Yellow")))
|
|
"*Face used for compressed file suffixes in Dired buffers.
|
|
This means the `.' plus the file extension. Example: `.zip'."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-compressed-file-suffix 'diredp-compressed-file-suffix)
|
|
|
|
(defface diredp-date-time
|
|
'((((background dark)) (:foreground "#74749A9AF7F7")) ; ~ med blue
|
|
(t (:foreground "DarkGoldenrod4")))
|
|
"*Face used for date and time in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-date-time 'diredp-date-time)
|
|
|
|
(defface diredp-deletion
|
|
'((t (:foreground "Yellow" :background "Red")))
|
|
"*Face used for deletion flags (D) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-deletion 'diredp-deletion)
|
|
|
|
(defface diredp-deletion-file-name
|
|
'((t (:foreground "Red")))
|
|
"*Face used for names of deleted files in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-deletion-file-name 'diredp-deletion-file-name)
|
|
|
|
(defface diredp-dir-heading
|
|
'((((background dark)) (:foreground "Yellow" :background "#00003F3F3434")) ; ~ dark green
|
|
(t (:foreground "Blue" :background "Pink")))
|
|
"*Face used for directory headings in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-dir-heading 'diredp-dir-heading)
|
|
|
|
(defface diredp-dir-name
|
|
'((((background dark))
|
|
(:foreground "#7474FFFFFFFF" :background "#2C2C2C2C2C2C")) ; ~ cyan, dark gray
|
|
(t (:foreground "DarkRed" :background "LightGray")))
|
|
"*Face used for directory names."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-dir-name 'diredp-dir-name)
|
|
|
|
(defface diredp-dir-priv
|
|
'((((background dark))
|
|
(:foreground "#7474FFFFFFFF" :background "#2C2C2C2C2C2C")) ; ~ cyan, dark gray
|
|
(t (:foreground "DarkRed" :background "LightGray")))
|
|
"*Face used for directory privilege indicator (d) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-dir-priv 'diredp-dir-priv)
|
|
|
|
(defface diredp-exec-priv
|
|
'((((background dark)) (:background "#4F4F3B3B2121")) ; ~ dark brown
|
|
(t (:background "LightSteelBlue")))
|
|
"*Face used for execute privilege indicator (x) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-exec-priv 'diredp-exec-priv)
|
|
|
|
;; For this to show up, you need `F' among the options in `dired-listing-switches'.
|
|
;; For example, I use "-alF" for `dired-listing-switches'.
|
|
(defface diredp-executable-tag
|
|
'((t (:foreground "Red")))
|
|
"*Face used for executable tag (*) on file names in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-executable-tag 'diredp-executable-tag)
|
|
|
|
(defface diredp-file-name
|
|
'((((background dark)) (:foreground "Yellow"))
|
|
(t (:foreground "Blue")))
|
|
"*Face used for file names (without suffixes) in Dired buffers.
|
|
This means the base name. It does not include the `.'."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-file-name 'diredp-file-name)
|
|
|
|
(defface diredp-file-suffix
|
|
'((((background dark)) (:foreground "#7474FFFF7474")) ; ~ light green
|
|
(t (:foreground "DarkMagenta")))
|
|
"*Face used for file suffixes in Dired buffers.
|
|
This means the `.' plus the file extension. Example: `.elc'."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-file-suffix 'diredp-file-suffix)
|
|
|
|
(defface diredp-flag-mark
|
|
'((((background dark)) (:foreground "Blue" :background "#7575D4D41D1D")) ; ~ olive green
|
|
(t (:foreground "Yellow" :background "Blueviolet")))
|
|
"*Face used for flags and marks (except D) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-flag-mark 'diredp-flag-mark)
|
|
|
|
(defface diredp-flag-mark-line
|
|
'((((background dark)) (:background "#787831311414")) ; ~ dark red brown
|
|
(t (:background "Skyblue")))
|
|
"*Face used for flagged and marked lines in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-flag-mark-line 'diredp-flag-mark-line)
|
|
|
|
(defface diredp-ignored-file-name
|
|
'((((background dark)) (:foreground "#C29D6F156F15")) ; ~ salmon
|
|
(t (:foreground "#00006DE06DE0"))) ; ~ dark cyan
|
|
"*Face used for files whose names are omitted based on the extension.
|
|
See also face `diredp-omit-file-name'."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-ignored-file-name 'diredp-ignored-file-name)
|
|
|
|
(defface diredp-link-priv
|
|
'((((background dark)) (:foreground "#00007373FFFF")) ; ~ blue
|
|
(t (:foreground "DarkOrange")))
|
|
"*Face used for link privilege indicator (l) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-link-priv 'diredp-link-priv)
|
|
|
|
(when (> emacs-major-version 21)
|
|
(defface diredp-mode-line-marked
|
|
'((t (:foreground "DarkViolet")))
|
|
"*Face for marked number in mode-line `mode-name' for Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
|
|
(defface diredp-mode-line-flagged
|
|
'((t (:foreground "Red")))
|
|
"*Face for flagged number in mode-line `mode-name' for Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces))
|
|
|
|
(defface diredp-no-priv
|
|
'((((background dark)) (:background "#2C2C2C2C2C2C")) ; ~ dark gray
|
|
(t (:background "LightGray")))
|
|
"*Face used for no privilege indicator (-) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-no-priv 'diredp-no-priv)
|
|
|
|
(defface diredp-number
|
|
'((((background dark)) (:foreground "#FFFFFFFF7474")) ; ~ light yellow
|
|
(t (:foreground "DarkBlue")))
|
|
"*Face used for numerical fields in Dired buffers.
|
|
In particular, inode number, number of hard links, and file size."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-number 'diredp-number)
|
|
|
|
(defface diredp-omit-file-name
|
|
(if (assq :inherit custom-face-attributes) ; Emacs 22+
|
|
'((((background dark)) (:inherit diredp-ignored-file-name :strike-through "#555555555555")) ; ~ dark gray
|
|
(t (:inherit diredp-ignored-file-name :strike-through "#AAAAAAAAAAAA"))) ; ~ light gray
|
|
'((((background dark)) (:foreground "#C29D6F156F15")) ; ~ salmon
|
|
(t (:foreground "#00006DE06DE0")))) ; ~ dark cyan
|
|
"*Face used for files whose names will be omitted in `dired-omit-mode'.
|
|
This means file names that match regexp `diredp-omit-files-regexp'.
|
|
\(File names matching `dired-omit-extensions' are highlighted with face
|
|
`diredp-ignored-file-name' instead.)"
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-omit-file-name 'diredp-omit-file-name)
|
|
|
|
(defface diredp-other-priv
|
|
'((((background dark)) (:background "#111117175555")) ; ~ dark blue
|
|
(t (:background "PaleGoldenrod")))
|
|
"*Face used for l,s,S,t,T privilege indicators in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-other-priv 'diredp-other-priv)
|
|
|
|
(defface diredp-rare-priv
|
|
'((((background dark)) (:foreground "Green" :background "#FFFF00008080")) ; ~ hot pink
|
|
(t (:foreground "Magenta" :background "SpringGreen")))
|
|
"*Face used for rare privilege indicators (b,c,s,m,p,S) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-rare-priv 'diredp-rare-priv)
|
|
|
|
(defface diredp-read-priv
|
|
'((((background dark)) (:background "#999932325555")) ; ~ burgundy / dark magenta
|
|
(t (:background "MediumAquamarine")))
|
|
"*Face used for read privilege indicator (w) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-read-priv 'diredp-read-priv)
|
|
|
|
(defface diredp-symlink
|
|
'((((background dark)) (:foreground "#00007373FFFF")) ; ~ blue
|
|
(t (:foreground "DarkOrange")))
|
|
"*Face used for symbolic links in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-symlink 'diredp-symlink)
|
|
|
|
(defface diredp-tagged-autofile-name
|
|
'((((background dark)) (:background "#328C0411328C")) ; Very dark magenta
|
|
(t (:background "#CD73FBEECD73"))) ; Very pale green
|
|
"*Face used in Dired for names of files that are autofile bookmarks."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-tagged-autofile-name 'diredp-tagged-autofile-name)
|
|
|
|
(defface diredp-write-priv
|
|
'((((background dark)) (:background "#25258F8F2929")) ; ~ dark green
|
|
(t (:background "Orchid")))
|
|
"*Face used for write privilege indicator (w) in Dired buffers."
|
|
:group 'Dired-Plus :group 'font-lock-highlighting-faces)
|
|
(defvar diredp-write-priv 'diredp-write-priv)
|
|
|
|
;; Fix Emacs 20 recognition of fields up through file name when size is expressed using `k' etc.
|
|
(when (and (< emacs-major-version 21) (not (boundp 'diredp-loaded-p))
|
|
dired-move-to-filename-regexp ; These last two checks are just in case.
|
|
(eq (aref dired-move-to-filename-regexp 7) ?\ ))
|
|
(setq dired-move-to-filename-regexp (concat "[0-9][BkKMGTPEZY]?"
|
|
(substring dired-move-to-filename-regexp 7))))
|
|
|
|
;;; Define second level of fontifying.
|
|
(defvar 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, including `.'.
|
|
'("\\([^ ]+\\) -> .+$" 1 diredp-symlink) ; Symbolic links
|
|
|
|
;; 1) Date/time and 2) filename w/o suffix.
|
|
;; This is a bear, and it is fragile - Emacs can change `dired-move-to-filename-regexp'.
|
|
(if (or (not (fboundp 'version<)) (version< emacs-version "23.2"))
|
|
(list dired-move-to-filename-regexp
|
|
(list 1 'diredp-date-time t t) ; Date/time
|
|
(list (concat "\\(.+\\)\\(" (concat (funcall #'regexp-opt diredp-compressed-extensions)
|
|
"\\)[*]?$")) ; Compressed-file name
|
|
nil nil (list 0 diredp-compressed-file-name 'keep t)))
|
|
`(,dired-move-to-filename-regexp
|
|
(7 diredp-date-time t t) ; Date/time, locale (western or eastern)
|
|
(2 diredp-date-time t t) ; Date/time, ISO
|
|
(,(concat "\\(.+\\)\\(" (concat (funcall #'regexp-opt diredp-compressed-extensions)
|
|
"\\)[*]?$"))
|
|
nil nil (0 diredp-compressed-file-name keep t)))) ; Compressed-file suffix
|
|
(if (or (not (fboundp 'version<)) (version< emacs-version "23.2"))
|
|
(list dired-move-to-filename-regexp
|
|
(list 1 'diredp-date-time t t) ; Date/time
|
|
(list "\\(.+\\)$" nil nil (list 0 diredp-file-name 'keep t))) ; Filename
|
|
`(,dired-move-to-filename-regexp
|
|
(7 diredp-date-time t t) ; Date/time, locale (western or eastern)
|
|
(2 diredp-date-time t t) ; Date/time, ISO
|
|
("\\(.+\\)$" nil nil (0 diredp-file-name keep t)))) ; Filename (not a compressed file)
|
|
|
|
;; Files to ignore.
|
|
;; Use face `diredp-ignored-file-name' for omission by file-name extension.
|
|
;; Use face `diredp-omit-file-name' for omission by entire file name.
|
|
(let* ((omit-exts (or (and (boundp 'dired-omit-extensions) dired-omit-extensions)
|
|
completion-ignored-extensions))
|
|
(omit-exts (and omit-exts (mapconcat #'regexp-quote omit-exts "\\|")))
|
|
(compr-exts (and diredp-ignore-compressed-flag
|
|
(concat "\\|" (mapconcat #'regexp-quote diredp-compressed-extensions "\\|")))))
|
|
(list (concat "^ \\(.*\\(" omit-exts compr-exts "\\)[*]?\\)$") ; [*]? allows for executable flag (*).
|
|
1 diredp-ignored-file-name t))
|
|
`(,(concat "^.*" dired-move-to-filename-regexp
|
|
"\\(" diredp-omit-files-regexp "\\).*[*]?$") ; [*]? allows for executable flag (*).
|
|
(0 diredp-omit-file-name t))
|
|
|
|
;; Compressed-file (suffix)
|
|
(list (concat "\\(" (funcall #'regexp-opt diredp-compressed-extensions) "\\)[*]?$")
|
|
1 diredp-compressed-file-suffix t)
|
|
'("\\([*]\\)$" 1 diredp-executable-tag t) ; Executable (*)
|
|
|
|
;; Inode, hard-links, & file size (. and , are for the decimal point, depending on locale)
|
|
;; See comment for `directory-listing-before-filename-regexp' in `files.el' or `files+.el'.
|
|
'("\\(\\([0-9]+\\([.,][0-9]+\\)?\\)[BkKMGTPEZY]?[ /]?\\)" 1 diredp-number)
|
|
|
|
;; Directory names - exclude d:/..., Windows drive letter in a dir heading.
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "\\(d\\)[^:]")
|
|
'(1 diredp-dir-priv t) '(".+" (dired-move-to-filename) nil (0 diredp-dir-name t)))
|
|
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]........\\(x\\)") ; o x
|
|
'(1 diredp-exec-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]........\\([lsStT]\\)") ; o misc
|
|
'(1 diredp-other-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].......\\(w\\).") ; o w
|
|
'(1 diredp-write-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]......\\(r\\)..") ; o r
|
|
'(1 diredp-read-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].....\\(x\\)...") ; g x
|
|
'(1 diredp-exec-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].....\\([lsStT]\\)...") ; g misc
|
|
'(1 diredp-other-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]....\\(w\\)....") ; g w
|
|
'(1 diredp-write-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]...\\(r\\).....") ; g r
|
|
'(1 diredp-read-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]..\\(x\\)...") ; u x
|
|
'(1 diredp-exec-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]..\\([lsStT]\\)...") ; u misc
|
|
'(1 diredp-other-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].\\(w\\)....") ; u w
|
|
'(1 diredp-write-priv))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]\\(r\\).....") ; u r
|
|
'(1 diredp-read-priv))
|
|
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]........\\([-rwxlsStT]\\)") ; o -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].......\\([-rwxlsStT]\\).") ; g -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]......\\([-rwxlsStT]\\)..") ; u -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].....\\([-rwxlsStT]\\)...") ; o -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]....\\([-rwxlsStT]\\)....") ; g -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]...\\([-rwxlsStT]\\).....") ; u -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]..\\([-rwxlsStT]\\)......") ; o -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl].\\([-rwxlsStT]\\).......") ; g -
|
|
'(1 diredp-no-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "[-dl]\\([-rwxlsStT]\\)........") ; u -
|
|
'(1 diredp-no-priv keep))
|
|
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "\\([bcsmpS]\\)") ; (rare)
|
|
'(1 diredp-rare-priv keep))
|
|
(list (concat dired-re-maybe-mark dired-re-inode-size "\\(l\\)[-rwxlsStT]") ; l
|
|
'(1 diredp-rare-priv keep))
|
|
|
|
(list (concat "^\\([^\n " (char-to-string dired-del-marker) "].*$\\)")
|
|
1 diredp-flag-mark-line t) ; Flag/mark lines
|
|
(list (concat "^\\([^\n " (char-to-string dired-del-marker) "]\\)") ; Flags, marks (except D)
|
|
1 diredp-flag-mark t)
|
|
|
|
(list (concat "^\\([" (char-to-string dired-del-marker) "].*$\\)") ; Deletion-flagged lines
|
|
1 diredp-deletion-file-name t)
|
|
(list (concat "^\\([" (char-to-string dired-del-marker) "]\\)") ; Deletion flags (D)
|
|
1 diredp-deletion t)
|
|
|
|
) "2nd level of Dired highlighting. See `font-lock-maximum-decoration'.")
|
|
|
|
|
|
(defun diredp--set-up-font-locking ()
|
|
"Add this to `dired-mode-hook' to provide for second-level fontifying."
|
|
(set (make-local-variable 'font-lock-defaults)
|
|
;; Two levels. Use 3-element list, since it is standard to have one more
|
|
;; than the number of levels. This is necessary for it to work with
|
|
;; `font(-lock)-menus.el'.
|
|
'((dired-font-lock-keywords
|
|
dired-font-lock-keywords
|
|
diredp-font-lock-keywords-1)
|
|
t nil nil beginning-of-line))
|
|
;; Refresh `font-lock-keywords' from `font-lock-defaults'
|
|
(when (fboundp 'font-lock-refresh-defaults) (font-lock-refresh-defaults)))
|
|
|
|
;;; Provide for the second level of fontifying.
|
|
(add-hook 'dired-mode-hook 'diredp--set-up-font-locking)
|
|
|
|
;; Ensure that Dired buffers are refontified when you use `g' or otherwise read in the file list.
|
|
(defun diredp-refontify-buffer ()
|
|
"Turn `font-lock-mode' off, then on."
|
|
(setq font-lock-mode nil)
|
|
(font-lock-mode))
|
|
(add-hook 'dired-after-readin-hook 'diredp-refontify-buffer)
|
|
|
|
;;; Function Definitions
|
|
|
|
;;; $$$$$$$$
|
|
;;; (defun diredp-dired-files (arg &optional switches) ; Not bound
|
|
;;; "Like `dired', but non-positive prefix arg prompts for files to list.
|
|
;;; This is like `dired' unless you use a non-positive prefix arg.
|
|
;;; In that case, you are prompted for names of files and directories to
|
|
;;; list, and then you are prompted for the name of the Dired buffer that
|
|
;;; lists them. Use `C-g' when you are done entering file names to list.
|
|
|
|
;;; In all cases, when inputting a file or directory name you can use
|
|
;;; shell wildcards.
|
|
|
|
;;; If you use Icicles, then in Icicle mode the following keys are bound
|
|
;;; in the minibuffer during completion (`*' means the key requires
|
|
;;; library `Bookmark+'):
|
|
|
|
;;; M-| - Open Dired on the file names matching your input
|
|
;;; C-c + - Create a new directory
|
|
;;; *C-x a + - Add tags to the current-candidate file
|
|
;;; *C-x a - - Remove tags from the current-candidate file
|
|
;;; *C-x m - Access file bookmarks (not just autofiles)"
|
|
;;; (interactive (diredp-dired-files-interactive-spec ""))
|
|
;;; (when (consp arg)
|
|
;;; (let ((buf (dired-find-buffer-nocreate (car arg)))) ; Respect file list.
|
|
;;; (when buf (kill-buffer buf))))
|
|
;;; (if (fboundp 'pop-to-buffer-same-window)
|
|
;;; (pop-to-buffer-same-window (dired-noselect arg switches))
|
|
;;; (switch-to-buffer (dired-noselect arg switches))))
|
|
|
|
;;; (defun diredp-dired-files-other-window (arg &optional switches) ; Not bound
|
|
;;; "Same as `diredp-dired-files' except uses another window."
|
|
;;; (interactive (diredp-dired-files-interactive-spec "in other window "))
|
|
;;; (when (consp arg)
|
|
;;; (let ((buf (dired-find-buffer-nocreate (car arg)))) ; Respect file list.
|
|
;;; (when buf (kill-buffer buf))))
|
|
;;; (dired-other-window arg switches))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-for-files (arg &optional switches) ; Bound to `C-x D F'
|
|
"Dired file names that you enter, in a Dired buffer that you name.
|
|
You are prompted for the name of the Dired buffer to use.
|
|
You are then prompted for names of files and directories to list,
|
|
which can be located anywhere.
|
|
Use `C-g' when you are done.
|
|
|
|
With a prefix arg you are first prompted for the `ls' switches to use.
|
|
|
|
See also `dired' (including the advice)."
|
|
(interactive (let ((current-prefix-arg (if current-prefix-arg 0 -1)))
|
|
(dired-read-dir-and-switches "" 'READ-EXTRA-FILES-P)))
|
|
(dired arg switches))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-for-files-other-window (arg &optional switches) ; Bound to `C-x 4 D F'
|
|
"Same as `diredp-dired-for-files', except uses another window."
|
|
(interactive (let ((current-prefix-arg (if current-prefix-arg 0 -1)))
|
|
(dired-read-dir-and-switches "in other window " 'READ-EXTRA-FILES-P)))
|
|
(dired-other-window arg switches))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-recent-dirs (buffer &optional arg) ; Bound to `C-x D R'
|
|
"Open Dired in BUFFER, showing recently used directories.
|
|
You are prompted for BUFFER.
|
|
|
|
No prefix arg or a plain prefix arg (`C-u', `C-u C-u', etc.) means
|
|
list all of the recently used directories.
|
|
|
|
With a prefix arg:
|
|
* If 0, `-', or plain (`C-u') then you are prompted for the `ls'
|
|
switches to use.
|
|
* If not plain (`C-u') then:
|
|
* If >= 0 then the directories to include are read, one by one.
|
|
* If < 0 then the directories to exclude are read, one by one.
|
|
|
|
When entering directories to include or exclude, use `C-g' to end."
|
|
(interactive (list (completing-read "Dired buffer name: " dired-buffers) current-prefix-arg))
|
|
(unless (require 'recentf nil t) (error "This command requires library `recentf.el'"))
|
|
(let ((switches (and (or (zerop (prefix-numeric-value arg)) (consp arg))
|
|
(read-string "Dired listing switches: " dired-listing-switches))))
|
|
(dired (cons (generate-new-buffer-name buffer) (diredp-recent-dirs arg)) switches)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-recent-dirs-other-window (buffer &optional arg) ; Bound to `C-x 4 D R'
|
|
"Same as `diredp-dired-recent-dirs', but use other window."
|
|
(interactive (list (completing-read "Dired buffer name: " dired-buffers) current-prefix-arg))
|
|
(unless (require 'recentf nil t) (error "This command requires library `recentf.el'"))
|
|
(let ((switches (and (or (zerop (prefix-numeric-value arg)) (consp arg) (eq '- arg))
|
|
(read-string "Dired listing switches: " dired-listing-switches))))
|
|
(dired-other-window (cons (generate-new-buffer-name buffer) (diredp-recent-dirs arg)) switches)))
|
|
|
|
(defun diredp-recent-dirs (arg)
|
|
"Return a list of recently used directories.
|
|
ARG is as for `diredp-dired-recent-dirs'."
|
|
(let ((recent-dirs (diredp-remove-if #'diredp-root-directory-p
|
|
(diredp-delete-dups
|
|
(mapcar (lambda (f/d)
|
|
(if (file-directory-p f/d) f/d (file-name-directory f/d)))
|
|
recentf-list)))))
|
|
(if (and arg (atom arg))
|
|
(diredp-read-include/exclude 'Dir recent-dirs (not (natnump (prefix-numeric-value arg))))
|
|
recent-dirs)))
|
|
|
|
(defun diredp-read-include/exclude (thing things &optional exclude)
|
|
"Read which THINGs to include (or to EXCLUDE, if non-nil) from list THINGS.
|
|
The things are read one by one. `C-g' stops reading.
|
|
|
|
THING is a string or symbol naming the type of thing to read, e.g.,
|
|
`File' or `Directory'. It is used only in the prompt, which is THING
|
|
followed by \" to exclude\" or \" to include\" and a reminder about `C-g'.
|
|
|
|
A new list is returned - list THINGS is not modified."
|
|
(let* ((thgs (if exclude (copy-sequence things) ()))
|
|
(prompt (format "%s to %s (C-g when done): " thing (if exclude 'EXCLUDE 'INCLUDE)))
|
|
(completion-ignore-case (or (and (boundp 'read-file-name-completion-ignore-case)
|
|
(memq thing '(Dir Directory File "Dir" "Directory" "File")) ; Hack
|
|
read-file-name-completion-ignore-case)
|
|
completion-ignore-case))
|
|
thing)
|
|
(while (condition-case nil
|
|
(setq thing (completing-read prompt (mapcar #'list things) nil t))
|
|
(quit nil))
|
|
(if exclude (delete thing thgs)
|
|
(push thing thgs)))
|
|
thgs))
|
|
|
|
;;; $$$$$$$$
|
|
;;; (defun diredp-dired-files-interactive-spec (str)
|
|
;;; "`interactive' spec for `diredp-dired-files' commands.
|
|
;;; STR is a string appended to the prompt.
|
|
;;; With non-negative prefix arg, read switches.
|
|
;;; With non-positive prefix arg, read files and dirs to list and then the
|
|
;;; Dired buffer name. User uses `C-g' when done reading files and dirs.
|
|
|
|
;;; If you use Icicles, then in Icicle mode the following keys are bound
|
|
;;; in the minibuffer during completion (`*' means the key requires
|
|
;;; library `Bookmark+'):
|
|
|
|
;;; M-| - Open Dired on the file names matching your input
|
|
;;; C-c + - Create a new directory
|
|
;;; *C-x a + - Add tags to the current-candidate file
|
|
;;; *C-x a - - Remove tags from the current-candidate file
|
|
;;; *C-x m - Access file bookmarks (not just autofiles)"
|
|
;;; (list
|
|
;;; (unwind-protect
|
|
;;; (let ((icicle-sort-comparer (or (and (boundp 'icicle-file-sort) ;; If not reading files
|
|
;;; icicle-file-sort) ;; then dirs first.
|
|
;;; (and (> (prefix-numeric-value current-prefix-arg) 0)
|
|
;;; 'icicle-dirs-first-p)
|
|
;;; icicle-sort-comparer))
|
|
;;; (icicle-all-candidates-list-alt-action-fn ; M-|'
|
|
;;; (lambda (files)
|
|
;;; (let ((enable-recursive-minibuffers t))
|
|
;;; (dired-other-window (cons (read-string "Dired buffer name: ") files))))))
|
|
;;; (when (fboundp 'icicle-bind-file-candidate-keys) (icicle-bind-file-candidate-keys))
|
|
;;; (if (> (prefix-numeric-value current-prefix-arg) 0)
|
|
;;; ;; If a dialog box is about to be used, call `read-directory-name' so the dialog
|
|
;;; ;; code knows we want directories. Some dialog boxes can only select directories
|
|
;;; ;; or files when popped up, not both.
|
|
;;; (if (and (fboundp 'read-directory-name) (next-read-file-uses-dialog-p))
|
|
;;; (read-directory-name (format "Dired %s(directory): " str) nil
|
|
;;; default-directory nil)
|
|
;;; (read-file-name (format "Dired %s(directory): " str) nil default-directory nil))
|
|
;;; (let ((insert-default-directory nil)
|
|
;;; (files ())
|
|
;;; file)
|
|
;;; (while (condition-case nil ; Use lax completion, to allow wildcards.
|
|
;;; (setq file (read-file-name "File or dir (C-g when done): "))
|
|
;;; (quit nil))
|
|
;;; (push file files))
|
|
;;; (cons (read-string "Dired buffer name: " nil nil default-directory) files))))
|
|
;;; (when (fboundp 'icicle-unbind-file-candidate-keys)
|
|
;;; (icicle-unbind-file-candidate-keys)))
|
|
;;; (and current-prefix-arg (natnump (prefix-numeric-value current-prefix-arg))
|
|
;;; (read-string "Dired listing switches: " dired-listing-switches))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-union (dired-name dirbufs &optional switches extra) ; Bound to `C-x D U'
|
|
"Create a Dired buffer that is the union of some existing Dired buffers.
|
|
With a non-negative prefix arg, you are prompted for `ls' switches.
|
|
With a non-positive prefix arg, you are prompted for file and dir
|
|
names to add to the listing - see below.
|
|
|
|
You are prompted for the name of the Dired union buffer. Completion
|
|
against names of existing Dired buffers is available, but you can
|
|
enter any other name to create a new Dired buffer of that name.
|
|
|
|
If the union buffer name you choose names an existing Dired buffer,
|
|
then what happens depends on whether that buffer is an ordinary Dired
|
|
directory listing or a list of arbitrary file names. That is, it
|
|
depends on whether `dired-directory' is a directory name or a cons of
|
|
a Dired buffer name plus file names.
|
|
|
|
* If the buffer is an ordinary Dired listing, then it is converted to
|
|
an explicit list of absolute file names, just as if these had been
|
|
chosen individually. The existing buffer and window are replaced by
|
|
new ones that show the explicit listing. (This replacement is
|
|
necessary because the list of files contained in an ordinary Dired
|
|
listing cannot be modified.)
|
|
|
|
* If the buffer lists arbitrary file names explicitly, then it is
|
|
updated to include also the files from any Dired buffers and any
|
|
additional files that you specify.
|
|
|
|
If the union buffer name you choose does not name an existing Dired
|
|
buffer, then its `default-directory' is the same as the
|
|
`default-directory' before invoking the command.
|
|
|
|
If you use a non-positive prefix arg, then you can next choose
|
|
additional file and directory names to add to the listing. Use `C-g'
|
|
when done choosing them.
|
|
|
|
Any directory names you choose this way are included as single entries
|
|
in the listing - the directory contents are not included (these
|
|
directories are not unioned). To instead include the contents of a
|
|
directory chosen this way, use a glob pattern: `/*' after the
|
|
directory name.
|
|
|
|
You are then prompted for the Dired buffers to union. Use `C-g' when
|
|
done choosing them. These Dired listings to union are included in the
|
|
order that you chose them, and each entry is listed only once in the
|
|
new Dired buffer.
|
|
|
|
The new Dired listing respects the markings, subdirectory insertions,
|
|
and hidden subdirectories of the selected Dired listings. However, in
|
|
case of conflict between marked or unmarked status for the same entry,
|
|
the entry is marked. Similarly, in case of conflict over an included
|
|
subdirectory between it being hidden or shown, it is hidden, but its
|
|
contained files are also listed.
|
|
|
|
See also command `diredp-add-to-dired-buffer'.
|
|
|
|
From Lisp:
|
|
DIRED-NAME is the name of the resulting Dired union buffer.
|
|
DIRBUFS is a list of the names of Dired buffers to union.
|
|
SWITCHES is a string of `ls' switches.
|
|
EXTRA is a list of files & directories to be included in the listing."
|
|
(interactive (diredp-dired-union-interactive-spec "UNION "
|
|
nil
|
|
(and current-prefix-arg
|
|
(<= (prefix-numeric-value current-prefix-arg) 0))))
|
|
(diredp-dired-union-1 dired-name dirbufs switches extra))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-union-other-window (dired-name dirbufs &optional switches extra) ; Bound to `C-x 4 D U'
|
|
"Same as `diredp-dired-union', except use other window."
|
|
(interactive (diredp-dired-union-interactive-spec "UNION "
|
|
nil
|
|
(and current-prefix-arg
|
|
(<= (prefix-numeric-value current-prefix-arg) 0))))
|
|
(diredp-dired-union-1 dired-name dirbufs switches extra 'OTHERWIN))
|
|
|
|
;;;###autoload
|
|
(defun diredp-add-to-dired-buffer (dired-name to-add &optional switches) ; Bound to `C-x D A'
|
|
"Add individual file and directory names to a Dired buffer.
|
|
You are prompted for the buffer name.
|
|
With a prefix arg, you are also prompted for the `ls' switches.
|
|
|
|
The buffer must either not exist yet or must list arbitrary file and
|
|
directory names. That is, it cannot be an ordinary Dired directory
|
|
listing - those cannot be modified.
|
|
|
|
Any directory names you choose this way are included as single entries
|
|
in the listing - the directory contents are not included (these
|
|
directories are not unioned). To instead include the contents of a
|
|
directory chosen this way, use a glob pattern: `/*' after the
|
|
directory name.
|
|
|
|
See also command `diredp-dired-union'.
|
|
|
|
From Lisp:
|
|
DIRED-NAME is the name of the Dired buffer to modify.
|
|
TO-ADD is the list of files and dirs to add to it.
|
|
SWITCHES is the string of `ls' switches."
|
|
;; Bind `current-prefix-arg' to force reading file/dir names.
|
|
;; Read `ls' switches too, if user used prefix arg.
|
|
(interactive
|
|
(let* ((current-prefix-arg (if current-prefix-arg 0 -1))
|
|
(all (diredp-dired-union-interactive-spec "add files/dirs "
|
|
'NO-DIRED-BUFS
|
|
'READ-EXTRA-FILES-P)))
|
|
(list (nth 0 all) (nth 3 all) (nth 2 all))))
|
|
(diredp-dired-union-1 dired-name () switches to-add))
|
|
|
|
;;;###autoload
|
|
(defun diredp-add-to-dired-buffer-other-window (dired-name to-add &optional switches) ; Bound to `C-x 4 D A'
|
|
"Same as `diredp-add-to-dired-buffer', except use other window."
|
|
;; Bind `current-prefix-arg' to force reading file/dir names.
|
|
;; Read `ls' switches too, if user used prefix arg.
|
|
(interactive
|
|
(let* ((current-prefix-arg (if current-prefix-arg 0 -1))
|
|
(all (diredp-dired-union-interactive-spec "add files/dirs "
|
|
'NO-DIRED-BUFS
|
|
'READ-EXTRA-FILES-P)))
|
|
(list (nth 0 all) (nth 3 all) (nth 2 all))))
|
|
(diredp-dired-union-1 dired-name () switches to-add 'OTHERWIN))
|
|
|
|
;;;###autoload
|
|
(defun diredp-add-to-this-dired-buffer (dired-name to-add &optional switches) ; Not bound by default
|
|
"Same as `diredp-add-to-dired-buffer' for this Dired buffer."
|
|
;; Bind `current-prefix-arg' to force reading file/dir names.
|
|
;; Read `ls' switches too, if user used prefix arg.
|
|
(interactive
|
|
(progn (unless (derived-mode-p 'dired-mode) (error "Not in a Dired buffer"))
|
|
(let* ((current-prefix-arg (if current-prefix-arg 0 -1))
|
|
(all (diredp-dired-union-interactive-spec "add files/dirs here "
|
|
'NO-DIRED-BUFS
|
|
'READ-EXTRA-FILES-P
|
|
(buffer-name))))
|
|
(list (nth 0 all) (nth 3 all) (nth 2 all)))))
|
|
(diredp-dired-union-1 dired-name () switches to-add))
|
|
|
|
;; $$$$$ Maybe I should set `dired-sort-inhibit' to t for now (?),
|
|
;; since there is an Emacs bug (at least on Windows) that prevents
|
|
;; sorting from working for a Dired buffer with an explicit file list.
|
|
(defun diredp-dired-union-1 (dired-name dirbufs switches extra &optional otherwin)
|
|
"Helper for `diredp-dired-union' and `diredp-add-to-dired-buffer'.
|
|
Non-nil optional OTHERWIN means use other window for the Dired buffer.
|
|
See `diredp-dired-union' for the other argument descriptions."
|
|
(let ((dbuf (get-buffer dired-name))
|
|
(files extra)
|
|
(marked ())
|
|
(subdirs ())
|
|
(hidden-dirs ())
|
|
hid-here files-here)
|
|
(dolist (buf (reverse dirbufs))
|
|
(with-current-buffer buf
|
|
(unwind-protect
|
|
(progn (setq hid-here (save-excursion (dired-remember-hidden))
|
|
files-here (if (consp dired-directory)
|
|
(reverse (cdr dired-directory)) ; Reverse bc will push.
|
|
()))
|
|
(unless files-here
|
|
(save-excursion ; This bit is more or less from `dired-toggle-marks'.
|
|
(goto-char (point-min))
|
|
(while (not (eobp))
|
|
(or (diredp-looking-at-p dired-re-dot)
|
|
(push (dired-get-filename nil 'NO-ERROR-P) files-here))
|
|
(forward-line 1)))
|
|
(setq files-here (delq nil files-here)))
|
|
(dolist (hid-here hid-here) (push hid-here hidden-dirs))
|
|
(dolist (sub (cdr (reverse dired-subdir-alist)))
|
|
(push (list (car sub)) subdirs))
|
|
(dolist (mkd (dired-remember-marks (point-min) (point-max))) ; This unhides.
|
|
(push (car mkd) marked))
|
|
(dolist (file files-here)
|
|
(when (or (not (file-name-absolute-p file)) (not (member file files)))
|
|
(push file files))))
|
|
(save-excursion ; Hide subdirs that were hidden.
|
|
(dolist (dir hid-here) (when (dired-goto-subdir dir) (dired-hide-subdir 1)))))))
|
|
;; For an existing Dired buffer having this name whose `dired-directory' is a cons:
|
|
;; 1. Include the files and dirs already listed there.
|
|
;; 2. Kill the current buffer and delete its window. A new buffer of the same name is created and shown.
|
|
(when dbuf
|
|
(with-current-buffer dbuf
|
|
(when (consp dired-directory) (setq files (diredp-set-union (cdr dired-directory) files)))
|
|
(let ((win (get-buffer-window dbuf 0))) (when win (delete-window win)))
|
|
(kill-buffer dbuf)))
|
|
(setq dbuf (dired-other-window (cons dired-name files) switches))
|
|
(with-current-buffer dbuf
|
|
(let ((inhibit-read-only t))
|
|
(dired-insert-old-subdirs subdirs)
|
|
(dired-mark-remembered ; Don't really need `expand-file-name' - already abs.
|
|
(mapcar (lambda (mf) (cons (expand-file-name mf dired-directory) 42)) marked))
|
|
(save-excursion
|
|
(dolist (hdir hidden-dirs) (when (dired-goto-subdir hdir) (dired-hide-subdir 1))))))))
|
|
|
|
(defun diredp-dired-union-interactive-spec (string &optional no-dired-bufs read-extra-files-p dired-buffer)
|
|
"Read arguments for `diredp-dired-union' and `diredp-add-to-dired-buffer'.
|
|
STRING is appended to the prompt for the listing buffer name.
|
|
Non-nil NO-DIRED-BUFS means do not read Dired buffers to union.
|
|
Non-nil READ-EXTRA-FILES-P is passed to `dired-read-dir-and-switches',
|
|
and means read extra files to add to the listing.
|
|
Non-nil DIRED-BUFFER is passed to `dired-read-dir-and-switches'.
|
|
It is the name of the Dired union buffer."
|
|
(let* ((current-prefix-arg -1)
|
|
(dir+switches (dired-read-dir-and-switches string read-extra-files-p dired-buffer))
|
|
(dirname (car dir+switches))
|
|
(switches (cadr dir+switches))
|
|
(dirbufs ())
|
|
(bufs ())
|
|
(extra-files ())
|
|
buf)
|
|
(when (consp dirname) (setq extra-files (cdr dirname)
|
|
dirname (car dirname)))
|
|
(unless no-dired-bufs
|
|
;; Remove any killed buffers from `dired-buffers'. Then use all but the target buffer as candidates.
|
|
(dolist (db dired-buffers)
|
|
(if (buffer-live-p (cdr db))
|
|
(unless (equal dirname (buffer-name (cdr db)))
|
|
(push (cons (buffer-name (cdr db)) (car db)) dirbufs))
|
|
(setq dired-buffers (delq db dired-buffers))))
|
|
(while (and dirbufs (condition-case nil
|
|
(setq buf (completing-read "Existing Dired buffer to include (C-g when done): "
|
|
dirbufs nil t nil 'buffer-name-history
|
|
(and dirbufs (car (assoc (buffer-name) dirbufs)))))
|
|
(quit nil)))
|
|
(push buf bufs)
|
|
(setq dirbufs (delete (cons buf (with-current-buffer buf (expand-file-name default-directory)))
|
|
dirbufs)))
|
|
(setq bufs (nreverse bufs)))
|
|
(list dirname bufs switches extra-files)))
|
|
|
|
(when (> emacs-major-version 23) ; `compilation--loc->file-struct'
|
|
|
|
(defalias 'diredp-grepped-files-other-window 'diredp-compilation-files-other-window)
|
|
(defun diredp-compilation-files-other-window (&optional switches)
|
|
"Open Dired on the files indicated by compilation (e.g., `grep') hits.
|
|
Applies to any `compilation-mode'-derived buffer, such as `*grep*'.
|
|
You are prompted for the name of the new Dired buffer.
|
|
With a prefix arg you are first prompted for the `ls' switches.
|
|
|
|
\(However, Emacs bug #20739 means that the switches are ignored.)"
|
|
(interactive (list (and current-prefix-arg (read-string "Dired listing switches: " dired-listing-switches))))
|
|
(unless (compilation-buffer-p (current-buffer)) (error "Not in a buffer derived from `compilation-mode'"))
|
|
(let ((files ()))
|
|
(save-excursion (goto-char (point-min))
|
|
(while (condition-case nil (compilation-next-file 1) (error nil))
|
|
(setq compilation-current-error (point))
|
|
(push (diredp-file-for-compilation-hit-at-point) files)))
|
|
(setq files (nreverse files))
|
|
(dired-other-window
|
|
(cons (read-string "Dired buffer name: " nil nil (generate-new-buffer-name default-directory)) files)
|
|
switches)))
|
|
|
|
(defun diredp-file-for-compilation-hit-at-point ()
|
|
"Return the name of the file for the compilation hit at point.
|
|
The name is expanded in the directory for the last directory change."
|
|
(let* ((msg (compilation-next-error 0))
|
|
(loc (compilation--message->loc msg))
|
|
(filestruct (compilation--loc->file-struct loc))
|
|
(file (caar filestruct))
|
|
(dir (cadr (car filestruct))))
|
|
(when dir (setq file (expand-file-name file dir)))
|
|
file))
|
|
)
|
|
|
|
;;;###autoload
|
|
(defun diredp-fileset (flset-name) ; Bound to `C-x D S'
|
|
"Open Dired on the files in fileset FLSET-NAME."
|
|
(interactive
|
|
(progn (unless (require 'filesets nil t) (error "Feature `filesets' not provided"))
|
|
(unless filesets-data (error "`filesets-data' is empty"))
|
|
(list (completing-read "Open Dired on fileset: " filesets-data))))
|
|
(diredp-fileset-1 flset-name))
|
|
|
|
;;;###autoload
|
|
(defun diredp-fileset-other-window (flset-name) ; Bound to `C-x 4 D S'
|
|
"Open Dired in another window on the files in fileset FLSET-NAME."
|
|
(interactive
|
|
(progn (unless (require 'filesets nil t) (error "Feature `filesets' not provided"))
|
|
(unless filesets-data (error "`filesets-data' is empty"))
|
|
(list (completing-read "Open Dired on fileset, in other window: " filesets-data))))
|
|
(diredp-fileset-1 flset-name 'OTHER-WINDOW))
|
|
|
|
(defun diredp-fileset-1 (flset-name &optional other-window-p)
|
|
"Helper for `diredp-fileset(-other-window)'."
|
|
(let ((flset (filesets-get-fileset-from-name flset-name))
|
|
(files ())
|
|
(mode nil)
|
|
(dirfun (if other-window-p #'dired-other-window #'dired)))
|
|
(unless (or (setq mode (filesets-entry-mode flset)) ; ("my-fs" (:files "a" "b"))
|
|
(setq flset (cons "dummy" flset) ; (:files "a" "b")
|
|
mode (filesets-entry-mode flset)))
|
|
(error "Bad fileset: %S" flset-name))
|
|
(message "Gathering file names...")
|
|
(dolist (file (filesets-get-filelist flset mode)) (push file files))
|
|
(funcall dirfun (cons (generate-new-buffer-name flset-name)
|
|
(nreverse (mapcar (lambda (file)
|
|
(if (file-name-absolute-p file)
|
|
(expand-file-name file)
|
|
file))
|
|
files))))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-this-subdir (&optional tear-off-p msgp)
|
|
"Open Dired for the subdir at or above point.
|
|
If point is not on a subdir line, but is in an inserted subdir
|
|
listing, then use that subdir.
|
|
|
|
With a prefix arg:
|
|
If the subdir is inserted and point is in the inserted listing then
|
|
remove that listing and move to the ordinary subdir line. In other
|
|
words, when in an inserted listing, a prefix arg tears off the
|
|
inserted subdir to its own Dired buffer."
|
|
(interactive "P\np")
|
|
(diredp-ensure-mode)
|
|
(let* ((this-dir default-directory)
|
|
(this-subdir (diredp-this-subdir))
|
|
(on-dir-line-p (atom this-subdir)))
|
|
(unless on-dir-line-p ; Subdir header line or non-directory file.
|
|
(setq this-subdir (car this-subdir)))
|
|
(unless (string= this-subdir this-dir)
|
|
(when tear-off-p
|
|
(unless on-dir-line-p
|
|
(dired-kill-subdir) ; Tear it off.
|
|
(dired-goto-file this-subdir))) ; Move to normal subdir line.
|
|
(dired-other-window this-subdir))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-inserted-subdirs (&optional no-show-p msgp) ; Bound to `C-M-i'
|
|
"Open Dired for each of the subdirs inserted in this Dired buffer.
|
|
A separate Dired buffer is used for each of them.
|
|
With a prefix arg, create the Dired buffers but do not display them.
|
|
Markings and current Dired switches are preserved."
|
|
(interactive "P\np")
|
|
(diredp-ensure-mode)
|
|
(let ((this-dir default-directory)
|
|
(this-buff (current-buffer))
|
|
(this-frame (selected-frame))
|
|
marked)
|
|
(unwind-protect
|
|
(save-selected-window
|
|
(dolist (entry dired-subdir-alist)
|
|
(unless (string= (car entry) this-dir)
|
|
(setq marked (with-current-buffer this-buff
|
|
(dired-remember-marks (dired-get-subdir-min entry) (dired-get-subdir-max entry))))
|
|
(if (not no-show-p)
|
|
(dired-other-window (car entry) dired-actual-switches)
|
|
(dired-noselect (car entry) dired-actual-switches)
|
|
(when msgp (message "Dired buffers created but not shown")))
|
|
(set-buffer this-buff)
|
|
(let ((inhibit-read-only t))
|
|
(dired-mark-remembered marked))
|
|
(set-buffer-modified-p nil))))
|
|
(select-frame-set-input-focus this-frame))))
|
|
|
|
|
|
;;; Actions on marked files and subdirs, recursively.
|
|
|
|
(defun diredp-get-subdirs (&optional ignore-marks-p predicate details)
|
|
"Return subdirs from this Dired buffer and from marked subdirs, recursively.
|
|
If optional arg IGNORE-MARKS-P is non-nil then include all
|
|
subdirectories. Otherwise, include only those that are marked.
|
|
|
|
Non-nil optional arg PREDICATE means include only subdirectory names
|
|
for which the PREDICATE returns non-nil. PREDICATE must accept a file
|
|
name as its only required argument.
|
|
|
|
Optional arg DETAILS is passed to `diredp-get-files'."
|
|
(diredp-get-files ignore-marks-p (if predicate
|
|
`(lambda (name) (and (file-directory-p name) (funcall ,predicate name)))
|
|
#'file-directory-p)
|
|
'INCLUDE-DIRS-P 'DONT-ASKP 'ONLY-MARKED-P details))
|
|
|
|
(defun diredp-get-files (&optional ignore-marks-p predicate include-dirs-p dont-askp only-marked-p details)
|
|
"Return file names from this Dired buffer and subdirectories, recursively.
|
|
The names are those that are marked in the current Dired buffer, or
|
|
all files in the directory if none are marked. Marked subdirectories
|
|
are handled recursively in the same way.
|
|
|
|
If there is some included subdirectory that has a Dired buffer with
|
|
marked files, then (unless DONT-ASKP is non-nil) this asks you whether
|
|
to use the marked files in Dired buffers, as opposed to using all of
|
|
the files in included directories. To this y-or-n question you can
|
|
hit `l' to see the list of files that will be included (using
|
|
`diredp-list-files'). In that `l' listing you can mouseover to see
|
|
image-file previews or use `RET' or `mouse-2' to visit files.
|
|
|
|
\(Directories in `icicle-ignored-directories' are skipped, if you use
|
|
Icicles. Otherwise, directories in `vc-directory-exclusion-list' are
|
|
skipped.)
|
|
|
|
Non-nil IGNORE-MARKS-P means ignore all Dired markings: just get all
|
|
of the files in the current directory (and all of the subdirectories,
|
|
if INCLUDE-DIRS-P is non-nil).
|
|
|
|
Non-nil PREDICATE means include only file names for which the
|
|
PREDICATE returns non-nil. PREDICATE must accept a file name as its
|
|
only required argument.
|
|
|
|
Non-nil INCLUDE-DIRS-P means include marked subdirectory names (but
|
|
also handle those subdirs recursively, picking up their marked files
|
|
and subdirs).
|
|
|
|
Non-nil DONT-ASKP means do not ask the user whether to use marked
|
|
instead of all. Act as if the user was asked and replied `y'.
|
|
|
|
Non-nil optional arg ONLY-MARKED-P means collect only marked files,
|
|
instead of collecting all files if none are marked. This argument is
|
|
ignored if IGNORE-MARKS-P is non-nil.
|
|
|
|
Optional arg DETAILS is passed to `diredp-y-or-n-files-p'."
|
|
(let ((askp (list nil))) ; The cons's car will be set to `t' if need to ask user.
|
|
(if ignore-marks-p
|
|
(diredp-files-within (directory-files default-directory 'FULL diredp-re-no-dot)
|
|
() nil include-dirs-p predicate)
|
|
;; Pass FILES and ASKP to `diredp-get-files-for-dir', so we don't have to use them as
|
|
;; free vars there. But that means that they each need to be a cons cell that we can
|
|
;; modify, so we can get back the updated info.
|
|
(let ((files (list 'DUMMY))) ; The files picked up will be added to this list.
|
|
(diredp-get-files-for-dir default-directory files askp include-dirs-p only-marked-p)
|
|
(setq files (cdr files)) ; Remove `DUMMY' from the modifed list.
|
|
(if (or dont-askp
|
|
(not (car askp))
|
|
(diredp-y-or-n-files-p "Use marked (instead of all) in subdir Dired buffers? "
|
|
files predicate details))
|
|
(if predicate (diredp-remove-if-not predicate files) files)
|
|
(setq files ())
|
|
(dolist (file (diredp-marked-here))
|
|
(if (not (file-directory-p file))
|
|
(when (or (not predicate) (funcall predicate file))
|
|
(add-to-list 'files file))
|
|
(when include-dirs-p (setq files (nconc files (list file))))
|
|
(setq files (nconc files (diredp-files-within (directory-files file 'FULL diredp-re-no-dot)
|
|
() nil include-dirs-p predicate)))))
|
|
(nreverse files))))))
|
|
|
|
(defun diredp-get-files-for-dir (directory accum askp &optional include-dirs-p only-marked-p)
|
|
"Return marked file names for DIRECTORY and subdirectories, recursively.
|
|
Pick up names of all marked files in DIRECTORY if it has a Dired
|
|
buffer, or all files in DIRECTORY if not. Handle subdirs recursively
|
|
\(only marked subdirs, if Dired).
|
|
|
|
ACCUM is an accumulator list: the files picked up in this call are
|
|
nconc'd to it.
|
|
|
|
ASKP is a one-element list, the element indicating whether to ask the
|
|
user about respecting Dired markings. It is set here to `t' if there
|
|
is a Dired buffer for DIRECTORY.
|
|
|
|
Non-nil optional arg INCLUDE-DIRS-P means include marked subdirectory
|
|
names (but also handle those subdirs recursively).
|
|
|
|
Non-nil optional arg ONLY-MARKED-P means collect only marked files,
|
|
instead of collecting all files if none are marked.
|
|
|
|
If there is more than one Dired buffer for DIRECTORY then raise an
|
|
error."
|
|
(let ((dbufs (dired-buffers-for-dir (expand-file-name directory))))
|
|
(dolist (file (if (not dbufs)
|
|
(and (not only-marked-p) (directory-files directory 'FULL diredp-re-no-dot))
|
|
(when (cadr dbufs) (error "More than one Dired buffer for `%s'" directory))
|
|
(unless (equal directory default-directory) (setcar askp t))
|
|
(with-current-buffer (car dbufs) (diredp-marked-here only-marked-p 'NO-DOT-DOT))))
|
|
(if (not (file-directory-p file))
|
|
(setcdr (last accum) (list file))
|
|
(when include-dirs-p (setcdr (last accum) (list file)))
|
|
(diredp-get-files-for-dir file accum askp include-dirs-p only-marked-p)))))
|
|
|
|
(defun diredp-marked-here (&optional only-marked-p no-dot-dot-p)
|
|
"Marked files and subdirs in this Dired buffer, or all if none are marked.
|
|
Non-nil optional arg ONLY-MARKED-P means return nil if none are
|
|
marked.
|
|
Non-nil optional arg NO-DOT-DOT-P means do not include marked `..'."
|
|
;; If no file is marked, exclude `(FILENAME)': the unmarked file at cursor.
|
|
;; If there are no marked files as a result, return all files and subdirs in the dir.
|
|
(let* ((dired-marker-char ?*)
|
|
(ff (condition-case nil ; Ignore error if on `.' or `..' and no file is marked.
|
|
(dired-get-marked-files
|
|
nil nil (and no-dot-dot-p
|
|
(lambda (mf) (not (diredp-string-match-p "/\\.\\.$" mf))))
|
|
'DISTINGUISH-ONE-MARKED)
|
|
(error nil))))
|
|
(cond ((eq t (car ff)) (cdr ff)) ; Single marked
|
|
((cadr ff) ff) ; Multiple marked
|
|
(t (and (not only-marked-p) ; None marked
|
|
(directory-files default-directory 'FULL diredp-re-no-dot 'NOSORT))))))
|
|
|
|
(defun diredp-y-or-n-files-p (prompt files &optional predicate details)
|
|
"PROMPT user with a \"y or n\" question about a list of FILES.
|
|
Return t if answer is \"y\". Otherwise, return nil.
|
|
|
|
Like `y-or-n-p', but you can also hit `l' to display the list of files
|
|
that the confirmation is for, in buffer `*Files'. In that `'l'
|
|
listing you can mouseover to see image-file previews or use `RET' or
|
|
`mouse-2' to visit files.
|
|
|
|
When finished, buffer `*Files*' is killed if it was never shown, or is
|
|
hidden and buried otherwise. Thus, if it was shown then it is still
|
|
available to revisit afterward (even if you quit using `C-g').
|
|
|
|
PREDICATE is passed to `diredp-list-files', to list only file names
|
|
for which it returns non-nil.
|
|
|
|
DETAILS is passed to `diredp-list-files', to show details about FILES."
|
|
(let ((answer 'recenter))
|
|
(cond (noninteractive
|
|
(setq prompt (concat prompt
|
|
(and (not (eq ?\ (aref prompt (1- (length prompt))))) " ")
|
|
"(y or n; l to show file list) "))
|
|
(let ((temp-prompt prompt))
|
|
(while (not (memq answer '(act skip)))
|
|
(let ((str (read-string temp-prompt)))
|
|
(cond ((member str '("y" "Y")) (setq answer 'act))
|
|
((member str '("n" "N")) (setq answer 'skip))
|
|
(t (setq temp-prompt (concat "Please answer y or n. " prompt))))))))
|
|
((if (not (fboundp 'display-popup-menus-p))
|
|
(and window-system (listp last-nonmenu-event) use-dialog-box)
|
|
(and (display-popup-menus-p) (listp last-nonmenu-event) use-dialog-box))
|
|
(setq answer (x-popup-dialog t `(,prompt ("Yes" . act) ("No" . skip)))))
|
|
(t
|
|
(let ((list-buf (generate-new-buffer-name "*Files*"))
|
|
(list-was-shown nil))
|
|
(unwind-protect
|
|
(progn
|
|
(define-key query-replace-map "l" 'show)
|
|
(setq prompt (concat prompt
|
|
(and (eq ?\ (aref prompt (1- (length prompt))))
|
|
"" " ")
|
|
"(y or n; l to show file list) "))
|
|
(while (let* ((reprompt-actions '(recenter scroll-up scroll-down
|
|
scroll-other-window scroll-other-window-down))
|
|
(key (let ((cursor-in-echo-area t))
|
|
(when minibuffer-auto-raise
|
|
(raise-frame (window-frame (minibuffer-window))))
|
|
(if (fboundp 'read-key)
|
|
(read-key (propertize
|
|
(if (memq answer reprompt-actions)
|
|
prompt
|
|
(concat "Please answer y or n. " prompt))
|
|
'face 'minibuffer-prompt))
|
|
(read-char-exclusive
|
|
(if (memq answer reprompt-actions)
|
|
prompt
|
|
(concat "Please answer y or n. " prompt)))))))
|
|
(setq answer (lookup-key query-replace-map (vector key) t))
|
|
(case answer
|
|
((skip act) nil)
|
|
(recenter (recenter) t)
|
|
(show (diredp-list-files files nil list-buf predicate details)
|
|
(setq list-was-shown t)) ; Record showing it.
|
|
(help (message "Use `l' to show file list") (sit-for 1))
|
|
(scroll-up (condition-case nil (scroll-up-command) (error nil)) t)
|
|
(scroll-down (condition-case nil (scroll-down-command) (error nil)) t)
|
|
(scroll-other-window (condition-case nil (scroll-other-window) (error nil)) t)
|
|
(scroll-other-window-down (condition-case nil (scroll-other-window-down nil)
|
|
(error nil)) t)
|
|
((exit-prefix quit) (signal 'quit nil) t)
|
|
(t (or (not (eq key ?\e)) (progn (signal 'quit nil) t)))))
|
|
(ding)
|
|
(discard-input)))
|
|
(when (get-buffer list-buf)
|
|
(save-window-excursion (pop-to-buffer list-buf)
|
|
(condition-case nil ; Ignore error if user already deleted.
|
|
(if (one-window-p) (delete-frame) (delete-window))
|
|
(error nil))
|
|
(if list-was-shown (bury-buffer list-buf) (kill-buffer list-buf))))
|
|
(define-key query-replace-map "l" nil)))))
|
|
(let ((ret (eq answer 'act)))
|
|
(unless noninteractive (message "%s %s" prompt (if ret "y" "n")))
|
|
ret)))
|
|
|
|
(defvar diredp-list-files-map
|
|
(let ((map (make-sparse-keymap)))
|
|
(define-key map "q" 'quit-window)
|
|
(define-key map "\r" 'diredp-find-line-file-other-window)
|
|
(define-key map [mouse-2] 'diredp-mouse-find-line-file-other-window)
|
|
map)
|
|
"Keymap for `diredp-list-files' output.")
|
|
(fset 'diredp-list-files-map diredp-list-files-map)
|
|
|
|
;;;###autoload
|
|
(defun diredp-find-line-file-other-window ()
|
|
"Visit file named by current line, in another window.
|
|
The full text of the line is used as the file name."
|
|
(interactive)
|
|
(let ((file (buffer-substring-no-properties (line-beginning-position) (line-end-position))))
|
|
(when file (find-file-other-window file))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-find-line-file-other-window (e)
|
|
"Visit file named by clicked line, in another window.
|
|
The full text of the line is used as the file name."
|
|
(interactive "e")
|
|
(save-excursion (mouse-set-point e) (diredp-find-line-file-other-window)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-list-marked (&optional arg predicate interactivep details) ; Bound to `C-M-l'
|
|
"List the marked files in this Dired buffer.
|
|
A prefix arg specifies files to use instead of the marked files:
|
|
|
|
* Numeric prefix arg N: The next N files (previous -N, if < 0).
|
|
* C-u C-u: All files, but no directories.
|
|
* C-u C-u C-u: All files and directories, except `.' and `..'
|
|
* C-u C-u C-u C-u: All files and directories, including `.' and `..'
|
|
* Any other prefix arg: The current line's file only.
|
|
|
|
You can use `RET' or `mouse-2' to visit any of the files.
|
|
If `tooltip-mode' is on then moving the mouse over image-file names
|
|
shows image previews.
|
|
|
|
When called from Lisp:
|
|
Non-nil optional arg PREDICATE is a file-name predicate. List only
|
|
the files for which it returns non-nil.
|
|
Non-nil optional arg DETAILS is passed to `diredp-list-files'."
|
|
(interactive (progn (diredp-ensure-mode) (list current-prefix-arg nil t diredp-list-file-attributes)))
|
|
(let ((files (dired-get-marked-files nil arg predicate 'DISTINGUISH-ONE interactivep)))
|
|
(diredp-list-files files nil nil nil details)))
|
|
|
|
(defun diredp-list-files (files &optional dir bufname predicate details)
|
|
"Display FILES, a list of file names. Wildcard patterns are expanded.
|
|
The files are shown in a new buffer, `*Files*' by default.
|
|
|
|
Optional arg DIR serves as the default directory for expanding file
|
|
names that are not absolute. It defaults to `default-directory'.
|
|
|
|
Optional arg BUFNAME is the name of the buffer for the display.
|
|
It defaults to `*Files*' (or `*Files*<N>' if `*Files*' exists).
|
|
|
|
Optional arg PREDICATE is a predicate used to filter FILES: only files
|
|
satisfying PREDICATE are listed.
|
|
|
|
Non-nil arg DETAILS means show details about each file, in addition to
|
|
the file name. It is passed to `diredp-list-file' (which see).
|
|
|
|
File names listed are absolute. Mouseover gives help or an image-file
|
|
preview, and you can use `RET' or `mouse-2' to visit files."
|
|
(unless bufname (setq bufname (generate-new-buffer-name "*Files*")))
|
|
(diredp-with-help-window
|
|
bufname
|
|
(princ "Files\n-----\n\n")
|
|
(let ((all-files-no-wildcards ())
|
|
file-alist file-dir)
|
|
(dolist (file files)
|
|
(unless (or (string= file "") ; Ignore empty file names.
|
|
(and predicate (not (funcall predicate file))))
|
|
(if (not (diredp-string-match-p "[[?*]" file))
|
|
(add-to-list 'all-files-no-wildcards (diredp-list-file file details))
|
|
(setq file-dir (or (file-name-directory file) default-directory)
|
|
file-alist (directory-files-and-attributes file-dir 'FULL "[[?*]" 'NOSORT))
|
|
(dolist (ff file-alist)
|
|
(add-to-list 'all-files-no-wildcards (diredp-list-file file details))))))
|
|
(save-excursion (dolist (fff (nreverse all-files-no-wildcards))
|
|
(princ fff) (terpri)))))
|
|
(with-current-buffer bufname
|
|
(let ((buffer-read-only nil))
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(forward-line 3)
|
|
(while (not (eobp))
|
|
(add-text-properties (line-beginning-position) (line-end-position)
|
|
'(mouse-face highlight help-echo diredp-mouseover-help dired-filename t
|
|
;; `keymap' does not work for Emacs 20. Could use `local-map'
|
|
;; but that still leaves `RET' bound to `help-follow'.
|
|
keymap diredp-list-files-map))
|
|
(forward-line 1))))
|
|
(set-buffer-modified-p nil)
|
|
(setq buffer-read-only t)
|
|
(buffer-enable-undo)))
|
|
|
|
(defun diredp-list-file (file &optional details)
|
|
"Return FILE name, expanded.
|
|
Non-nil optional arg DETAILS means append details about FILE to the
|
|
returned string.
|
|
|
|
If DETAILS is a list of file attribute numbers then include only the
|
|
values of those attributes. Otherwise, include all attribute values."
|
|
(let ((file-dir (and details (or (file-name-directory file) default-directory)))
|
|
attrs)
|
|
(setq file (expand-file-name file file-dir))
|
|
(when (and details (atom details)) (setq details '(0 1 2 3 4 5 6 7 8 9 10 11)))
|
|
(concat
|
|
file
|
|
(and details
|
|
(setq attrs (file-attributes file))
|
|
(concat
|
|
"\n"
|
|
(and (memq 0 details)
|
|
(format " File Type: %s\n"
|
|
(cond ((eq t (nth 0 attrs)) "Directory")
|
|
((stringp (nth 0 attrs)) (format "Symbolic link to `%s'" (nth 0 attrs)))
|
|
(t "Normal file"))))
|
|
(and (memq 8 details)
|
|
(format " Permissions: %s\n" (nth 8 attrs)))
|
|
(and (memq 7 details) (not (eq t (nth 0 attrs)))
|
|
(format " Size in bytes: %g\n" (nth 7 attrs)))
|
|
(and (memq 4 details)
|
|
(format-time-string " Time of last access: %a %b %e %T %Y (%Z)\n" (nth 4 attrs)))
|
|
(and (memq 5 details)
|
|
(format-time-string " Time of last modification: %a %b %e %T %Y (%Z)\n" (nth 5 attrs)))
|
|
(and (memq 6 details)
|
|
(format-time-string " Time of last status change: %a %b %e %T %Y (%Z)\n" (nth 6 attrs)))
|
|
(and (memq 1 details)
|
|
(format " Number of links: %d\n" (nth 1 attrs)))
|
|
(and (memq 2 details)
|
|
(format " User ID (UID): %s\n" (nth 2 attrs)))
|
|
(and (memq 3 details)
|
|
(format " Group ID (GID): %s\n" (nth 3 attrs)))
|
|
(and (memq 10 details)
|
|
(format " Inode: %S\n" (nth 10 attrs)))
|
|
(and (memq 11 details)
|
|
(format " Device number: %s\n" (nth 11 attrs))))))))
|
|
|
|
(defvar diredp-files-within-dirs-done ()
|
|
"Directories already processed by `diredp-files-within'.")
|
|
|
|
|
|
;; Not used in the `Dired+' code yet.
|
|
(defun diredp-directories-within (&optional directory no-symlinks-p predicate)
|
|
"List of accessible directories within DIRECTORY.
|
|
Directories in `icicle-ignored-directories' are skipped, if you use
|
|
Icicles. Otherwise, directories in `vc-directory-exclusion-list' are
|
|
skipped.
|
|
|
|
Optional arg DIRECTORY defaults to the value of `default-directory'.
|
|
Non-nil optional arg NO-SYMLINKS-P means do not follow symbolic links.
|
|
Non-nil optional arg PREDICATE must be a function that accepts a
|
|
file-name argument. Only directories that satisfy PREDICATE are
|
|
included in the result."
|
|
(unless directory (setq directory default-directory))
|
|
(let ((dirs (diredp-files-within (directory-files directory 'FULL diredp-re-no-dot)
|
|
() no-symlinks-p 'INCLUDE-DIRS-P
|
|
#'file-directory-p)))
|
|
(if predicate (diredp-remove-if-not predicate dirs) dirs)))
|
|
|
|
;; Args INCLUDE-DIRS-P and PREDICATE are not used in the `Dired+' code yet
|
|
;; (except in `diredp-directories-within', which also is not used yet).
|
|
;;
|
|
(defun diredp-files-within (file-list accum &optional no-symlinks-p include-dirs-p predicate)
|
|
"List of readable files in FILE-LIST, handling directories recursively.
|
|
FILE-LIST is a list of file names or a function that returns such.
|
|
If a function then invoke it with no args to get the list of files.
|
|
|
|
Accessible directories in the list of files are processed recursively
|
|
to include their files and the files in their subdirectories. The
|
|
directories themselves are not included, unless optional arg
|
|
INCLUDE-DIRS-P is non-nil. (Directories in
|
|
`icicle-ignored-directories' are skipped, if you use Icicles.
|
|
Otherwise, directories in `vc-directory-exclusion-list' are skipped.)
|
|
|
|
But if there is a Dired buffer for such a directory, and if FILE-LIST
|
|
is a function, then it is invoked in that Dired buffer to return the
|
|
list of files to use. E.g., if FILE-LIST is `dired-get-marked-files'
|
|
then only the marked files and subdirectories are included. If you
|
|
have more than one Dired buffer for a directory that is processed
|
|
here, then only the first one in `dired-buffers' is used.
|
|
|
|
The list of files is accumulated in ACCUM, which is used for recursive
|
|
calls.
|
|
|
|
Non-nil optional arg NO-SYMLINKS-P means do not follow symbolic links.
|
|
|
|
Non-nil optional arg INCLUDE-DIRS-P means include directory names
|
|
along with the names of non-directories.
|
|
|
|
Non-nil optional arg PREDICATE must be a function that accepts a
|
|
file-name argument. Only files (and possibly directories) that
|
|
satisfy PREDICATE are included in the result."
|
|
;; Bind `diredp-files-within-dirs-done' for use as a free var in `diredp-files-within-1'.
|
|
(let ((diredp-files-within-dirs-done ()))
|
|
(nreverse (diredp-files-within-1 file-list accum no-symlinks-p include-dirs-p predicate))))
|
|
|
|
;; `diredp-files-within-dirs-done' is free here, bound in `diredp-files-within'.
|
|
(defun diredp-files-within-1 (file-list accum no-symlinks-p include-dirs-p predicate)
|
|
"Helper for `diredp-files-within'."
|
|
(let ((files (if (functionp file-list) (funcall file-list) file-list))
|
|
(res accum)
|
|
file)
|
|
(when (and files predicate) (setq files (diredp-remove-if-not predicate files)))
|
|
(while files
|
|
(setq file (car files))
|
|
(unless (and no-symlinks-p (file-symlink-p file))
|
|
(if (file-directory-p file)
|
|
;; Skip directory if ignored, already treated, or inaccessible.
|
|
(when (and (not (member (file-name-nondirectory file)
|
|
(if (boundp 'icicle-ignored-directories)
|
|
icicle-ignored-directories
|
|
(and (boundp 'vc-directory-exclusion-list)
|
|
vc-directory-exclusion-list))))
|
|
(not (member (file-truename file) diredp-files-within-dirs-done))
|
|
(file-accessible-directory-p file))
|
|
(setq res (diredp-files-within-1 (or (and (functionp file-list)
|
|
(dired-buffers-for-dir
|
|
(expand-file-name file)) ; Removes killed buffers.
|
|
(with-current-buffer
|
|
(cdr (assoc (file-name-as-directory file)
|
|
dired-buffers))
|
|
(funcall file-list)))
|
|
(directory-files file 'FULL diredp-re-no-dot))
|
|
res no-symlinks-p include-dirs-p predicate))
|
|
(when include-dirs-p (push file res))
|
|
(push (file-truename file) diredp-files-within-dirs-done))
|
|
(when (file-readable-p file) (push file res))))
|
|
(pop files))
|
|
res))
|
|
|
|
(defun diredp-remove-if (pred xs)
|
|
"A copy of list XS with no elements that satisfy predicate PRED."
|
|
(let ((result ()))
|
|
(dolist (x xs) (unless (funcall pred x) (push x result)))
|
|
(nreverse result)))
|
|
|
|
(defun diredp-remove-if-not (pred xs)
|
|
"A copy of list XS with only elements that satisfy predicate PRED."
|
|
(let ((result ()))
|
|
(dolist (x xs) (when (funcall pred x) (push x result)))
|
|
(nreverse result)))
|
|
|
|
(when (> emacs-major-version 21) ; Emacs 20 has no PREDICATE arg to `read-file-name'.
|
|
(defun diredp-insert-as-subdir (child ancestor &optional in-dired-now-p)
|
|
"Insert the current Dired dir into a Dired listing of an ancestor dir.
|
|
Ancestor means parent, grandparent, etc. at any level.
|
|
You are prompted for the ancestor directory.
|
|
The ancestor Dired buffer is selected.
|
|
|
|
Markings and switches in the current Dired buffer are preserved for
|
|
the subdir listing in the ancestor Dired buffer.
|
|
|
|
Note: If you use Icicles, then you can use
|
|
`icicle-dired-insert-as-subdir' instead: it is a multi-command. It
|
|
does the same thing, but it lets you insert any number of descendant
|
|
directories into a given ancestor-directory Dired buffer.
|
|
|
|
Non-interactively:
|
|
Insert CHILD dir into Dired listing for ANCESTOR dir.
|
|
|
|
Non-nil optional arg IN-DIRED-NOW-P means to use the current buffer
|
|
as the Dired buffer from which to pick up markings and switches.
|
|
Otherwise, pick them up from a Dired buffer for CHILD, if there is
|
|
exactly one such buffer."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(list default-directory
|
|
(completing-read
|
|
"Insert this dir into ancestor dir: "
|
|
(mapcar #'list (diredp-ancestor-dirs default-directory)))
|
|
t)))
|
|
(let ((child-dired-buf (if in-dired-now-p
|
|
(current-buffer)
|
|
(dired-buffers-for-dir (expand-file-name child))))
|
|
(switches ())
|
|
(marked ()))
|
|
(when (consp child-dired-buf)
|
|
(setq child-dired-buf (and (= 1 (length child-dired-buf)) (car child-dired-buf))))
|
|
(when child-dired-buf
|
|
(with-current-buffer child-dired-buf
|
|
(setq switches dired-actual-switches
|
|
marked (dired-remember-marks (point-min) (point-max)))))
|
|
(dired-other-window ancestor)
|
|
(dired-insert-subdir child switches)
|
|
(when marked (let ((inhibit-read-only t)) (dired-mark-remembered marked)))
|
|
(set-buffer-modified-p nil))))
|
|
|
|
(defun diredp-ancestor-dirs (dir)
|
|
"Return a list of the ancestor directories of directory DIR."
|
|
(mapcar #'file-name-as-directory
|
|
(diredp-maplist (lambda (dd) (mapconcat #'identity (reverse dd) "/"))
|
|
(cdr (nreverse (split-string dir "/" t))))))
|
|
|
|
(defun diredp-maplist (function list)
|
|
"Map FUNCTION over LIST and its cdrs.
|
|
A simple, recursive version of the classic `maplist'."
|
|
(and list (cons (funcall function list) (diredp-maplist function (cdr list)))))
|
|
|
|
(defun diredp-existing-dired-buffer-p (buffer-name)
|
|
"Return non-nil if BUFFER-NAME names a live, existing Dired buffer."
|
|
(let ((dbuf (get-buffer buffer-name)))
|
|
(and dbuf (buffer-live-p dbuf) (rassq dbuf dired-buffers))))
|
|
|
|
;; From `cl-seq.el', function `union', without keyword treatment.
|
|
;; (Same as `icicle-set-union' in `icicles-fn.el'.)
|
|
(defun diredp-set-union (list1 list2)
|
|
"Combine LIST1 and LIST2 using a set-union operation.
|
|
The result list contains all items that appear in either LIST1 or
|
|
LIST2. Comparison is done using `equal'. This is a non-destructive
|
|
function; it copies the data if necessary."
|
|
(cond ((null list1) list2)
|
|
((null list2) list1)
|
|
((equal list1 list2) list1)
|
|
(t
|
|
(unless (>= (length list1) (length list2))
|
|
(setq list1 (prog1 list2 (setq list2 list1)))) ; Swap them.
|
|
(while list2
|
|
(unless (member (car list2) list1) (setq list1 (cons (car list2) list1)))
|
|
(setq list2 (cdr list2)))
|
|
list1)))
|
|
|
|
(when (fboundp 'file-equal-p) ; Emacs 24+
|
|
(defun diredp-move-file (file &optional prompt-anyway)
|
|
"Move FILE to associated directory in `diredp-move-file-dirs'.
|
|
If no association, or if you use a prefix arg, prompt for directory."
|
|
(interactive (list (dired-get-filename) current-prefix-arg))
|
|
(unless file (error "No file specified"))
|
|
(let* ((file-sans (file-name-nondirectory file))
|
|
(dir (file-name-as-directory
|
|
(or (and (not prompt-anyway)
|
|
(cdr (assoc file-sans diredp-move-file-dirs)))
|
|
(read-directory-name "Move to: ")))))
|
|
(when (file-equal-p dir (file-name-directory file))
|
|
(error "Cannot move to same directory: %s" dir))
|
|
(dired-rename-file file dir nil)
|
|
(dired-add-file (expand-file-name file-sans dir))
|
|
(message "Moved `%s' to `%s'" file-sans dir))))
|
|
|
|
(defvar diredp-last-copied-filenames ()
|
|
"String list of file names last copied to the `kill-ring'.
|
|
Copying is done by `dired-copy-filename-as-kill' and related commands.")
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-x.el'.
|
|
;;
|
|
;; Put text copied to kill ring in variable `diredp-last-copied-filenames'.
|
|
;;
|
|
(defun dired-copy-filename-as-kill (&optional arg)
|
|
"Copy names of marked (or next ARG) files into the kill ring.
|
|
The names are separated by a space.
|
|
With a zero prefix arg, use the absolute file name of each marked file.
|
|
With \\[universal-argument], use the file name relative to the Dired buffer's
|
|
`default-directory'. (This still may contain slashes if in a subdirectory.)
|
|
|
|
If on a subdir headerline, use absolute subdirname instead;
|
|
prefix arg and marked files are ignored in this case.
|
|
|
|
You can then feed the file name(s) to other commands with \\[yank].
|
|
|
|
The value of global variable `diredp-last-copied-filenames' is updated
|
|
to the string list of file name(s), so you can obtain it even after
|
|
the kill ring is modified."
|
|
(interactive "P")
|
|
(let* ((num-arg (prefix-numeric-value arg))
|
|
(string (or (dired-get-subdir)
|
|
(mapconcat #'identity
|
|
(cond ((not arg) (dired-get-marked-files 'no-dir))
|
|
((zerop num-arg) (dired-get-marked-files))
|
|
((consp arg) (dired-get-marked-files t))
|
|
(t (dired-get-marked-files 'no-dir num-arg)))
|
|
" "))))
|
|
(unless (string= "" string)
|
|
(if (eq last-command 'kill-region) (kill-append string nil) (kill-new string))
|
|
(setq diredp-last-copied-filenames (car kill-ring-yank-pointer))
|
|
(message "%s" string))))
|
|
|
|
(defun diredp-copy-abs-filenames-as-kill () ; Not bound.
|
|
"Copy absolute names of marked files in Dired to the kill ring.
|
|
Also set variable `diredp-last-copied-filenames' to the string that
|
|
lists the file names.
|
|
|
|
This is the same as using a zero prefix arg with command
|
|
`dired-copy-filename-as-kill', that is, \\<dired-mode-map>`M-0 \\[dired-copy-filename-as-kill]'."
|
|
(interactive (diredp-ensure-mode))
|
|
(dired-copy-filename-as-kill 0))
|
|
|
|
;;;###autoload
|
|
(defalias 'diredp-paste-files 'diredp-yank-files) ; Bound to `C-y'.
|
|
;;;###autoload
|
|
(defun diredp-yank-files (&optional dir no-confirm-p details)
|
|
"Paste files, whose absolute names you copied, to the current directory.
|
|
With a non-negative prefix arg you are instead prompted for the target
|
|
directory.
|
|
With a non-positive prefix arg you can see details about the files if
|
|
you hit `l' when prompted to confirm pasting. Otherwise you see only
|
|
the file names. The details you see are defined by option
|
|
`diredp-list-file-attributes'.
|
|
|
|
You should have copied the list of file names as a string to the kill
|
|
ring using \\<dired-mode-map>`M-0 \\[dired-copy-filename-as-kill]' or \
|
|
\\[diredp-copy-abs-filenames-as-kill].
|
|
Those commands also set variable `diredp-last-copied-filenames' to the
|
|
same string. `diredp-yank-files' uses the value of that variable, not
|
|
whatever is currently at the head of the kill ring.
|
|
|
|
When called from Lisp:
|
|
|
|
Optional arg NO-CONFIRM-P means do not ask for confirmation to copy.
|
|
Optional arg DETAILS is passed to `diredp-y-or-n-files-p'."
|
|
(interactive (list (and current-prefix-arg (natnump (prefix-numeric-value current-prefix-arg))
|
|
(expand-file-name (read-directory-name "Yank files to directory: ")))
|
|
nil
|
|
(and current-prefix-arg
|
|
(<= (prefix-numeric-value current-prefix-arg) 0)
|
|
diredp-list-file-attributes)))
|
|
(setq dir (or dir (and (derived-mode-p 'dired-mode) (dired-current-directory))))
|
|
(unless (file-directory-p dir) (error "Not a directory: `%s'" dir))
|
|
(let ((files diredp-last-copied-filenames))
|
|
(unless (stringp files) (error "No copied file names"))
|
|
(setq files (diredp-delete-if-not (lambda (file) (file-name-absolute-p file)) (split-string files)))
|
|
(unless files (error "No copied *absolute* file names (Did you use `M-0 w'?)"))
|
|
(if (and (not no-confirm-p)
|
|
(diredp-y-or-n-files-p "Paste files whose names you copied? " files nil details))
|
|
(dired-create-files #'dired-copy-file "Copy" files
|
|
(lambda (from) (expand-file-name (file-name-nondirectory from) dir)))
|
|
(message "OK, file-pasting canceled"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-move-files-named-in-kill-ring (&optional dir no-confirm-p details) ; Bound to `C-w'
|
|
"Move files, whose absolute names you copied, to the current directory.
|
|
With a non-negative prefix arg you are instead prompted for the target
|
|
directory.
|
|
With a non-positive prefix arg you can see details about the files if
|
|
you hit `l' when prompted to confirm pasting. Otherwise you see only
|
|
the file names. The details you see are defined by option
|
|
`diredp-list-file-attributes'.
|
|
|
|
You should have copied the list of file names as a string to the kill
|
|
ring using \\<dired-mode-map>`M-0 \\[dired-copy-filename-as-kill]' or \
|
|
\\[diredp-copy-abs-filenames-as-kill].
|
|
Those commands also set variable `diredp-last-copied-filenames' to the
|
|
same string. `diredp-move-files-named-in-kill-ring' uses the value of
|
|
that variable, not whatever is currently at the head of the kill ring.
|
|
|
|
When called from Lisp:
|
|
|
|
Optional arg NO-CONFIRM-P means do not ask for confirmation to move.
|
|
Optional arg DETAILS is passed to `diredp-y-or-n-files-p'."
|
|
(interactive (list (and current-prefix-arg (natnump (prefix-numeric-value current-prefix-arg))
|
|
(expand-file-name (read-directory-name "Move files to directory: ")))
|
|
nil
|
|
(and current-prefix-arg
|
|
(<= (prefix-numeric-value current-prefix-arg) 0)
|
|
diredp-list-file-attributes)))
|
|
(setq dir (or dir (and (derived-mode-p 'dired-mode) (dired-current-directory))))
|
|
(unless (file-directory-p dir) (error "Not a directory: `%s'" dir))
|
|
(let ((files diredp-last-copied-filenames))
|
|
(unless (stringp files) (error "No copied file names"))
|
|
(setq files (diredp-delete-if-not (lambda (file) (file-name-absolute-p file)) (split-string files)))
|
|
(unless files (error "No copied (absolute* file names (Did you use `M-0 w'?)"))
|
|
(if (and (not no-confirm-p)
|
|
(diredp-y-or-n-files-p "MOVE files whose names you copied? " files nil details))
|
|
(dired-create-files #'dired-rename-file "Move" files
|
|
(lambda (from) (expand-file-name (file-name-nondirectory from) dir)))
|
|
(message "OK, file-moves canceled"))))
|
|
|
|
|
|
;;; Commands operating on marked at all levels below (recursively)
|
|
|
|
(defun diredp-get-confirmation-recursive (&optional type)
|
|
"Get confirmation from user to act on all TYPE here and below.
|
|
If TYPE is nil use \"files\" in the confirmation prompt, else use TYPE.
|
|
Raise an error if not confirmed.
|
|
Raise an error first if not in Dired mode."
|
|
(diredp-ensure-mode)
|
|
(unless (y-or-n-p (format "Act on ALL %s (or all marked if any) in and UNDER this dir? "
|
|
(or type 'files)))
|
|
(error "OK, canceled")))
|
|
|
|
;;;###autoload
|
|
(when (> emacs-major-version 21) ; Emacs 22+ has KILL-ROOT parameter.
|
|
(defun diredp-kill-this-tree ()
|
|
"Remove this subdir listing and lower listings."
|
|
(interactive)
|
|
(dired-kill-tree (dired-current-directory) nil 'KILL-ROOT)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-insert-subdirs (&optional switches interactivep) ; Bound to `M-i'
|
|
"Insert the marked subdirectories.
|
|
Like using \\<dired-mode-map>`\\[dired-maybe-insert-subdir]' at each marked directory line."
|
|
(interactive (list (and current-prefix-arg
|
|
(read-string "Switches for listing: "
|
|
(or (and (boundp 'dired-subdir-switches) dired-subdir-switches)
|
|
dired-actual-switches)))
|
|
t))
|
|
(dolist (subdir (dired-get-marked-files nil
|
|
nil
|
|
(lambda (fl) (and (file-directory-p fl) ; Exclude `.' and `..'
|
|
(not (diredp-string-match-p "/[.][.]?\\'" fl))))
|
|
nil
|
|
interactivep))
|
|
(dired-maybe-insert-subdir subdir switches)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-insert-subdirs-recursive (&optional ignore-marks-p details) ; Bound to `M-+ M-i'
|
|
"Insert the marked subdirs, including those in marked subdirs.
|
|
Like `diredp-insert-subdirs', but act recursively on subdirs.
|
|
The subdirs inserted are those that are marked in the current Dired
|
|
buffer, or ALL subdirs in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way (their marked
|
|
subdirs are inserted...).
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive 'subdirs)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(dolist (subdir (diredp-get-files ignore-marks-p #'file-directory-p 'INCLUDE-SUBDIRS-P nil nil details))
|
|
(dired-maybe-insert-subdir subdir)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-shell-command-recursive (command &optional ignore-marks-p details) ; Bound to `M-+ !'
|
|
"Run shell COMMAND on the marked files, including those in marked subdirs.
|
|
Like `dired-do-shell-command', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive
|
|
(progn (diredp-get-confirmation-recursive)
|
|
(let* ((prompt "! on *: ")
|
|
(cmd (minibuffer-with-setup-hook
|
|
(lambda ()
|
|
(set (make-local-variable 'minibuffer-default-add-function)
|
|
'minibuffer-default-add-dired-shell-commands))
|
|
(let ((dired-no-confirm t))
|
|
(if (functionp 'dired-guess-shell-command)
|
|
;; Guess cmd based only on files marked in current (top) dir.
|
|
(dired-guess-shell-command prompt (dired-get-marked-files t))
|
|
(read-shell-command prompt nil nil))))))
|
|
(list cmd current-prefix-arg diredp-list-file-attributes))))
|
|
(dired-do-shell-command command nil (diredp-get-files ignore-marks-p nil nil nil nil details)))
|
|
|
|
(when (fboundp 'dired-do-async-shell-command) ; Emacs 23+
|
|
|
|
(defun diredp-do-async-shell-command-recursive (command &optional ignore-marks-p details)
|
|
; Bound to `M-+ &'
|
|
"Run async shell COMMAND on marked files, including in marked subdirs.
|
|
Like `dired-do-async-shell-command', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive
|
|
(progn (diredp-get-confirmation-recursive)
|
|
(let* ((prompt "! on *: ")
|
|
(cmd (minibuffer-with-setup-hook
|
|
(lambda ()
|
|
(set (make-local-variable 'minibuffer-default-add-function)
|
|
'minibuffer-default-add-dired-shell-commands))
|
|
(let ((dired-no-confirm t))
|
|
(if (functionp 'dired-guess-shell-command)
|
|
;; Guess cmd based only on files marked in current (top) dir.
|
|
(dired-guess-shell-command prompt (dired-get-marked-files t))
|
|
(read-shell-command prompt nil nil))))))
|
|
(list cmd current-prefix-arg diredp-list-file-attributes))))
|
|
(dired-do-async-shell-command command nil (diredp-get-files ignore-marks-p nil nil nil nil details))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-symlink-recursive (&optional ignore-marks-p details) ; Bound to `M-+ S'
|
|
"Make symbolic links to marked files, including those in marked subdirs.
|
|
Like `dired-do-symlink', but act recursively on subdirs to pick up the
|
|
files to link.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-create-files-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-do-create-files-recursive #'make-symbolic-link "Symlink" ignore-marks-p details))
|
|
|
|
(defun diredp-do-relsymlink-recursive (&optional ignore-marks-p details) ; Bound to `M-+ Y'
|
|
"Relative symlink all marked files, including those in marked subdirs into a dir.
|
|
Like `dired-do-relsymlink', but act recursively on subdirs to pick up the
|
|
files to link.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
For absolute symlinks, use \\[diredp-do-symlink-recursive].
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-create-files-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-do-create-files-recursive #'dired-make-relative-symlink "RelSymLink" ignore-marks-p details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-hardlink-recursive (&optional ignore-marks-p details) ; Bound to `M-+ H'
|
|
"Add hard links for marked files, including those in marked subdirs.
|
|
Like `dired-do-hardlink', but act recursively on subdirs to pick up the
|
|
files to link.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-create-files-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-do-create-files-recursive #'dired-hardlink "Hardlink" ignore-marks-p details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-print-recursive (&optional ignore-marks-p details) ; Bound to `M-+ P'
|
|
"Print the marked files, including those in marked subdirs.
|
|
Like `dired-do-print', but act recursively on subdirs to pick up the
|
|
files to print.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(let* ((file-list (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(command (dired-mark-read-string
|
|
"Print %s with: "
|
|
(mapconcat #'identity
|
|
(cons lpr-command (if (stringp lpr-switches) (list lpr-switches) lpr-switches))
|
|
" ")
|
|
'print nil file-list)))
|
|
(dired-run-shell-command (dired-shell-stuff-it command file-list nil))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-image-dired-display-thumbs-recursive (&optional ignore-marks-p append do-not-pop details)
|
|
; Bound to `M-+ C-t d'
|
|
"Display thumbnails of marked files, including those in marked subdirs.
|
|
Like `image-dired-display-thumbs', but act recursively on subdirs.
|
|
Optional arguments APPEND and DO-NOT-POP are as for
|
|
`image-dired-display-thumbs'.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-image-dired-required-msg)
|
|
(diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg nil nil diredp-list-file-attributes)))
|
|
(let ((buf (image-dired-create-thumbnail-buffer))
|
|
thumb-name files dired-buf)
|
|
(setq files (diredp-get-files ignore-marks-p nil nil nil nil details)
|
|
dired-buf (current-buffer))
|
|
(with-current-buffer buf
|
|
(let ((inhibit-read-only t))
|
|
(if append (goto-char (point-max)) (erase-buffer))
|
|
(mapc (lambda (curr-file)
|
|
(setq thumb-name (image-dired-thumb-name curr-file))
|
|
(if (and (not (file-exists-p thumb-name))
|
|
(not (= 0 (image-dired-create-thumb curr-file thumb-name))))
|
|
(message "Thumb could not be created for file %s" curr-file)
|
|
(image-dired-insert-thumbnail thumb-name curr-file dired-buf)))
|
|
files))
|
|
(case image-dired-line-up-method
|
|
(dynamic (image-dired-line-up-dynamic))
|
|
(fixed (image-dired-line-up))
|
|
(interactive (image-dired-line-up-interactive))
|
|
(none nil)
|
|
(t (image-dired-line-up-dynamic))))
|
|
(if do-not-pop
|
|
(display-buffer image-dired-thumbnail-buffer)
|
|
(pop-to-buffer image-dired-thumbnail-buffer))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-image-dired-tag-files-recursive (&optional ignore-marks-p details) ; Bound to `M-+ C-t t'
|
|
"Tag marked files with an `image-dired' tag, including in marked subdirs.
|
|
Like `image-dired-tag-files', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-image-dired-required-msg)
|
|
(diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(let ((tag (read-string "Tags to add (separate tags with a semicolon): ")))
|
|
(image-dired-write-tags (mapcar (lambda (x) (cons x tag))
|
|
(diredp-get-files ignore-marks-p nil nil nil nil details)))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-image-dired-delete-tag-recursive (&optional ignore-marks-p details) ; Bound to `M-+ C-t r'
|
|
"Remove `image-dired' tag for marked files, including in marked subdirs.
|
|
Like `image-dired-delete-tag', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-image-dired-required-msg)
|
|
(diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(image-dired-remove-tag (diredp-get-files ignore-marks-p nil nil nil nil details)
|
|
(read-string "Tag to remove: ")))
|
|
|
|
;;;###autoload
|
|
(defun diredp-image-dired-comment-files-recursive (&optional ignore-marks-p details)
|
|
; Bound to `M-+ C-t c'
|
|
"Add comment to marked files in dired, including those in marked subdirs.
|
|
Like `image-dired-dired-comment-files' but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-image-dired-required-msg)
|
|
(diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(let ((comment (image-dired-read-comment)))
|
|
(image-dired-write-comments (mapcar (lambda (curr-file) (cons curr-file comment))
|
|
(diredp-get-files ignore-marks-p nil nil nil nil details)))))
|
|
|
|
(when (> emacs-major-version 22)
|
|
|
|
(defun diredp-do-decrypt-recursive (&optional ignore-marks-p details) ; Bound to `M-+ : d'
|
|
"Decrypt marked files, including those in marked subdirs.
|
|
Like `epa-dired-do-decrypt', but act recursively on subdirs to pick up
|
|
the files to decrypt.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(dolist (file (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(epa-decrypt-file (expand-file-name file)))
|
|
(revert-buffer))
|
|
|
|
(defun diredp-do-verify-recursive (&optional ignore-marks-p details) ; Bound to `M-+ : v'
|
|
"Verify marked files, including those in marked subdirs.
|
|
Like `epa-dired-do-verify', but act recursively on subdirs to pick up
|
|
the files to verify.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(dolist (file (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(epa-verify-file (expand-file-name file)))
|
|
(revert-buffer))
|
|
|
|
(defun diredp-do-sign-recursive (&optional ignore-marks-p details) ; Bound to `M-+ : s'
|
|
"Sign marked files, including those in marked subdirs.
|
|
Like `epa-dired-do-sign', but act recursively on subdirs to pick up
|
|
the files to sign.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(dolist (file (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(epa-sign-file (expand-file-name file)
|
|
(epa-select-keys (epg-make-context) "Select keys for signing.
|
|
If none are selected, the default secret key is used. ")
|
|
(y-or-n-p "Make a detached signature? ")))
|
|
(revert-buffer))
|
|
|
|
(defun diredp-do-encrypt-recursive (&optional ignore-marks-p details) ; Bound to `M-+ : e'
|
|
"Encrypt marked files, including those in marked subdirs.
|
|
Like `epa-dired-do-encrypt', but act recursively on subdirs to pick up
|
|
the files to encrypt.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(dolist (file (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(epa-encrypt-file (expand-file-name file)
|
|
(epa-select-keys (epg-make-context) "Select recipients for encryption.
|
|
If none are selected, symmetric encryption is performed. ")))
|
|
(revert-buffer)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-bookmark-recursive (&optional ignore-marks-p prefix details) ; Bound to `M-+ M-b'
|
|
"Bookmark the marked files, including those in marked subdirs.
|
|
Like `diredp-do-bookmark', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
diredp-list-file-attributes)))
|
|
(dolist (file (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(diredp-bookmark prefix file 'NO-MSG-P)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-bookmark-dirs-recursive (ignore-marks-p &optional details msgp)
|
|
"Bookmark this Dired buffer and marked subdirectory Dired buffers, recursively.
|
|
Create a Dired bookmark for this directory and for each of its marked
|
|
subdirectories. Handle each of the marked subdirectory similarly:
|
|
bookmark it and its marked subdirectories, and so on, recursively.
|
|
Name each of these Dired bookmarks with the Dired buffer name.
|
|
|
|
After creating the Dired bookmarks, create a sequence bookmark, named
|
|
`DIRBUF and subdirs', where DIRBUF is the name of the original buffer.
|
|
This bookmark represents the whole Dired tree rooted in the directory
|
|
where you invoked the command. Jumping to this sequence bookmark
|
|
restores all of the Dired buffers making up the tree, by jumping to
|
|
each of their bookmarks.
|
|
|
|
With a prefix arg, bookmark the marked and unmarked subdirectory Dired
|
|
buffers, recursively, that is, ignore markings.
|
|
|
|
Note:
|
|
|
|
* If there is more than one Dired buffer for a given subdirectory then
|
|
only the first such is used.
|
|
|
|
* This command creates new bookmarks. It never updates or overwrites
|
|
an existing bookmark.
|
|
|
|
You need library `Bookmark+' for this command.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-subdirs'."
|
|
(interactive (progn (unless (featurep 'bookmark+)
|
|
(error "You need library `Bookmark+' for this command"))
|
|
(diredp-get-confirmation-recursive 'subdirs)
|
|
(list current-prefix-arg diredp-list-file-attributes t)))
|
|
(diredp-ensure-mode)
|
|
(let ((sdirs (diredp-get-subdirs ignore-marks-p nil details))
|
|
(snames ())
|
|
dbufs)
|
|
(when (and msgp sdirs) (message "Checking descendant directories..."))
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(let ((bname (bookmark-buffer-name))
|
|
(count 2))
|
|
(while (and (bmkp-get-bookmark-in-alist bname 'NOERROR) (setq bname (format "%s[%d]" bname count))))
|
|
(bookmark-set bname nil nil 'NO-UPDATE-P) ; Inhibit updating displayed list.
|
|
(push bname snames)))))
|
|
(let ((bname (format "%s and subdirs" (bookmark-buffer-name)))
|
|
(count 2))
|
|
(while (and (bmkp-get-bookmark-in-alist bname 'NOERROR) (setq bname (format "%s[%d]" bname count))))
|
|
(bmkp-set-sequence-bookmark bname (nreverse snames) -1 'MSGP))
|
|
(bmkp-refresh/rebuild-menu-list nil)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-bookmark-in-bookmark-file-recursive (bookmark-file ; Bound to `M-+ C-M-B', aka `M-+ C-M-S-b')
|
|
&optional prefix ignore-marks-p bfile-bookmarkp details)
|
|
"Bookmark files here and below in BOOKMARK-FILE and save BOOKMARK-FILE.
|
|
Like `diredp-do-bookmark-in-bookmark-file', but act recursively on
|
|
subdirs. The files included are those that are marked in the current
|
|
Dired buffer, or all files in the directory if none are marked.
|
|
Marked subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp:
|
|
* Optional arg BFILE-BOOKMARKP non-nil means create a bookmark-file
|
|
bookmark for BOOKMARK-FILE.
|
|
* Optional arg DETAILS is passed to `diredp-get-files'."
|
|
(interactive
|
|
(progn (diredp-get-confirmation-recursive)
|
|
(let ((d-r-b-f-args (diredp-read-bookmark-file-args)))
|
|
(list (car d-r-b-f-args)
|
|
(cadr d-r-b-f-args)
|
|
(car (cddr d-r-b-f-args))
|
|
nil
|
|
diredp-list-file-attributes))))
|
|
(diredp-do-bookmark-in-bookmark-file bookmark-file prefix nil bfile-bookmarkp
|
|
(diredp-get-files ignore-marks-p nil nil nil nil details)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-set-bookmark-file-bookmark-for-marked-recursive (bookmark-file
|
|
&optional prefix ignore-marks-p details)
|
|
; Bound to `M-+ C-M-b'
|
|
"Bookmark the marked files and create a bookmark-file bookmark for them.
|
|
Like `diredp-set-bookmark-file-bookmark-for-marked', but act
|
|
recursively on subdirs.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-bookmark-in-bookmark-file-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(let ((d-r-b-f-args (diredp-read-bookmark-file-args)))
|
|
(list (car d-r-b-f-args)
|
|
(cadr d-r-b-f-args)
|
|
(car (cddr d-r-b-f-args))
|
|
diredp-list-file-attributes))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-do-bookmark-in-bookmark-file-recursive
|
|
bookmark-file prefix ignore-marks-p 'CREATE-BOOKMARK-FILE-BOOKMARK details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-find-marked-files-recursive (&optional arg details) ; Bound to `M-+ F'
|
|
"Find marked files simultaneously, including those in marked subdirs.
|
|
Like `dired-do-find-marked-files', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With (explicit) numeric prefix ARG >= 0, find the files but do not
|
|
display them.
|
|
|
|
With numeric prefix ARG <= 0, ignore all marks - include all files in
|
|
this Dired buffer and all subdirs, recursively.
|
|
|
|
Note that prefix-argument behavior is different for this command than
|
|
for `dired-do-find-marked-files'. In particular, a negative numeric
|
|
prefix arg does not cause the files to be shown in separate frames.
|
|
Only non-nil `pop-up-frames' (or equivalent configuration) causes
|
|
the files to be shown in separate frames.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(let ((narg (prefix-numeric-value arg)))
|
|
(dired-simultaneous-find-file (diredp-get-files (<= narg 0) nil nil nil nil details)
|
|
(and arg (>= narg 0) narg))))
|
|
|
|
(when (fboundp 'dired-do-isearch-regexp) ; Emacs 23+
|
|
|
|
(defun diredp-do-isearch-recursive (&optional ignore-marks-p details) ; Bound to `M-+ M-s a C-s'
|
|
"Isearch the marked files, including those in marked subdirs.
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(multi-isearch-files (diredp-get-files ignore-marks-p nil nil nil nil details)))
|
|
|
|
(defun diredp-do-isearch-regexp-recursive (&optional ignore-marks-p details) ; `M-+ M-s a C-M-s'
|
|
"Regexp-Isearch the marked files, including those in marked subdirs.
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(multi-isearch-files-regexp (diredp-get-files ignore-marks-p nil nil nil nil details))))
|
|
|
|
(defun diredp-do-search-recursive (regexp &optional ignore-marks-p details) ; Bound to `M-+ A'
|
|
"Regexp-search the marked files, including those in marked subdirs.
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
Stops when a match is found.
|
|
To continue searching for the next match, use `\\[tags-loop-continue]'.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list (read-string "Search marked files (regexp): ")
|
|
current-prefix-arg
|
|
diredp-list-file-attributes)))
|
|
(tags-search regexp '(diredp-get-files ignore-marks-p nil nil nil nil details)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-query-replace-regexp-recursive (from to &optional arg details)
|
|
; Bound to `M-+ Q'
|
|
"Do `query-replace-regexp' on marked files, including in marked subdirs.
|
|
Query-replace FROM with TO.
|
|
|
|
Like `dired-do-query-replace', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With an (explicit) numeric prefix argument:
|
|
|
|
* >= 0 means ignore all marks - include ALL files in this Dired buffer
|
|
and all subdirs, recursively.
|
|
|
|
* <= 0 means replace only word-delimited matches.
|
|
|
|
If you exit (`\\[keyboard-quit]', `RET' or `q'), you can resume the query replacement
|
|
using `\\[tags-loop-continue]'.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(let ((common (query-replace-read-args "Query replace regexp in marked files" t t)))
|
|
(list (nth 0 common)
|
|
(nth 1 common)
|
|
current-prefix-arg
|
|
diredp-list-file-attributes))))
|
|
(let* ((narg (and arg (prefix-numeric-value arg)))
|
|
(delimited (and narg (<= narg 0)))
|
|
(ignore-marks-p (and narg (>= narg 0)))
|
|
(files (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(fit-frame-min-width 30)
|
|
(fit-frame-min-height 15))
|
|
(dolist (file files)
|
|
(let ((buffer (get-file-buffer file)))
|
|
(when (and buffer (with-current-buffer buffer buffer-read-only))
|
|
(error "File `%s' is visited read-only" file))))
|
|
(tags-query-replace from to delimited `',files)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-grep-recursive (command-args &optional details) ; Bound to `M+ C-M-G'
|
|
"Run `grep' on marked files, including those in marked subdirs.
|
|
Like `diredp-do-grep', but act recursively on subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(unless (if (< emacs-major-version 22)
|
|
grep-command
|
|
(and grep-command (or (not grep-use-null-device) (eq grep-use-null-device t))))
|
|
(grep-compute-defaults))
|
|
(list (diredp-do-grep-1
|
|
(diredp-get-files current-prefix-arg nil nil nil nil diredp-list-file-attributes)))))
|
|
(grep command-args))
|
|
|
|
;;;###autoload
|
|
(defun diredp-marked-recursive (dirname &optional ignore-marks-p details) ; Not bound to a key
|
|
"Open Dired on marked files, including those in marked subdirs.
|
|
Like `diredp-marked', but act recursively on subdirs.
|
|
|
|
See `diredp-do-find-marked-files-recursive' for a description of the
|
|
files included. In particular, if no files are marked here or in a
|
|
marked subdir, then all files in the directory are included.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, DIRNAME here must be a string, not a cons. It
|
|
is used as the name of the new Dired buffer.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list nil current-prefix-arg diredp-list-file-attributes)))
|
|
(dired (cons (or dirname (generate-new-buffer-name (buffer-name)))
|
|
(diredp-get-files ignore-marks-p nil nil nil nil details))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-marked-recursive-other-window (dirname &optional ignore-marks-p details) ; Bound to `M-+ C-M-*'
|
|
"Same as `diredp-marked-recursive', but uses a different window.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list nil current-prefix-arg diredp-list-file-attributes)))
|
|
(dired-other-window
|
|
(cons (or dirname (generate-new-buffer-name (buffer-name)))
|
|
(diredp-get-files ignore-marks-p nil nil nil nil details))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-list-marked-recursive (&optional ignore-marks-p predicate details) ; Bound to `M-+ C-M-l'
|
|
"List the files marked here and in marked subdirs, recursively.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, all marks are ignored: all files in this Dired
|
|
buffer and all descendant directories are included.
|
|
|
|
You can use `RET' or `mouse-2' to visit any of the files.
|
|
If `tooltip-mode' is on then moving the mouse over image-file names
|
|
shows image previews.
|
|
|
|
When called from Lisp:
|
|
Non-nil optional arg IGNORE-MARKS-P means ignore marks.
|
|
Non-nil optional arg PREDICATE is a file-name predicate. List only
|
|
the files for which it returns non-nil.
|
|
Non-nil optional arg DETAILS is passed to `diredp-list-files'."
|
|
(interactive ; No need for `diredp-get-confirmation-recursive' here.
|
|
(progn (diredp-ensure-mode) (list current-prefix-arg nil diredp-list-file-attributes)))
|
|
(let ((files (diredp-get-files ignore-marks-p predicate))) (diredp-list-files files nil nil nil details)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-flag-auto-save-files-recursive (&optional arg details) ; `M-+ #'
|
|
"Flag all auto-save files for deletion, including in marked subdirs.
|
|
A non-negative prefix arg means to unmark (unflag) them instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, flag all in this directory and all
|
|
descendant directories.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-mark-recursive-1'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(let ((dired-marker-char dired-del-marker))
|
|
(diredp-mark-recursive-1 arg "auto-save files" "auto-save file" '(diredp-looking-at-p "^.* #.+#$") details)))
|
|
|
|
(when (fboundp 'char-displayable-p) ; Emacs 22+
|
|
|
|
(defun diredp-change-marks-recursive (old new &optional arg predicate details) ; `M-+ * c'
|
|
"Change all OLD marks to NEW marks, including those in marked subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
* A non-positive prefix arg means ignore subdir markings and act
|
|
instead on ALL subdirs.
|
|
|
|
* A non-negative prefix arg means do not change marks on subdirs
|
|
themselves.
|
|
|
|
Note: If there is more than one Dired buffer for a given subdirectory
|
|
then only the first such is used.
|
|
|
|
When called from Lisp:
|
|
Non-nil arg PREDICATE is a file-name predicate. Act on only the
|
|
files for which it returns non-nil.
|
|
DETAILS is passed to `diredp-get-subdirs'."
|
|
(interactive
|
|
(progn (diredp-get-confirmation-recursive)
|
|
(let* ((cursor-in-echo-area t)
|
|
(old (progn (message "Change (old mark): ") (read-char)))
|
|
(new (progn (message "Change `%c' marks to (new mark): " old) (read-char))))
|
|
(list old new current-prefix-arg nil diredp-list-file-attributes))))
|
|
(let* ((numarg (and arg (prefix-numeric-value arg)))
|
|
(nosubs (natnump numarg))
|
|
(ignore-marks (and numarg (<= numarg 0)))
|
|
(dired-marker-char new)
|
|
(sdirs (diredp-get-subdirs ignore-marks predicate details))
|
|
(old-strg (format "\n%c" old))
|
|
(count 0)
|
|
dbufs)
|
|
(unless (char-displayable-p old) (error "Not a displayable character: `%c'" old))
|
|
(unless (char-displayable-p new) (error "Not a displayable character: `%c'" new))
|
|
(message "Changing mark `%c' to `%c'..." old new)
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(let ((inhibit-read-only t)
|
|
(file nil))
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(while (search-forward old-strg nil t)
|
|
(save-match-data (setq file (dired-get-filename 'no-dir t)))
|
|
;; Do nothing if changing from UNmarked and not on a file or dir name.
|
|
(unless (and (= old ? ) (not file))
|
|
;; Do nothing if marked subdir and not changing subdir marks.
|
|
(unless (and nosubs file (file-directory-p file))
|
|
(subst-char-in-region (match-beginning 0) (match-end 0) old new)
|
|
(setq count (1+ count))))))))))
|
|
(message "%d mark%s changed from `%c' to `%c'" count (dired-plural-s count) old new)))
|
|
|
|
(defun diredp-unmark-all-marks-recursive (&optional arg details) ; `M-+ U'
|
|
"Remove ALL marks everywhere, including in marked subdirs.
|
|
A prefix arg is as for `diredp-unmark-all-files-recursive'.
|
|
Note that a negative prefix arg (e.g. `C--') removes all marks from
|
|
this Dired buffer and then does the same recursively for each of its
|
|
subdirs.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-unmark-all-files-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-unmark-all-files-recursive ?\r arg details))
|
|
|
|
(defun diredp-unmark-all-files-recursive (mark &optional arg predicate details) ; `M-+ M-DEL'
|
|
"Remove a given mark (or ALL) everywhere, including in marked subdirs.
|
|
You are prompted for the mark character to remove. If you hit `RET'
|
|
instead then ALL mark characters are removed.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
* A non-positive prefix arg means ignore subdir markings and act
|
|
instead on ALL subdirs.
|
|
|
|
* A non-negative prefix arg means do not change marks on subdirs
|
|
themselves.
|
|
|
|
Note: If there is more than one Dired buffer for a given subdirectory
|
|
then only the first such is used.
|
|
|
|
When called from Lisp:
|
|
Non-nil arg PREDICATE is a file-name predicate. Act on only the
|
|
files for which it returns non-nil.
|
|
DETAILS is passed to `diredp-get-subdirs'."
|
|
(interactive
|
|
(progn (diredp-get-confirmation-recursive)
|
|
(let* ((cursor-in-echo-area t)
|
|
(mrk (progn (message "Remove marks (RET means all): ") (read-char))))
|
|
(list mrk current-prefix-arg nil diredp-list-file-attributes))))
|
|
(let* ((numarg (and arg (prefix-numeric-value arg)))
|
|
(nosubs (natnump numarg))
|
|
(ignore-marks (and numarg (<= numarg 0)))
|
|
(dired-marker-char ?\ ) ; Unmark
|
|
(sdirs (diredp-get-subdirs ignore-marks predicate details))
|
|
(mrk-strg (format "\n%c" mark))
|
|
(count 0)
|
|
dbufs)
|
|
(unless (char-displayable-p mark) (error "Not a displayable character: `%c'" mark))
|
|
(if (eq mark ?\r)
|
|
(message "Unmarking ALL marks here and below...")
|
|
(message "Unmarking mark `%c' here and below..." mark))
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(let ((inhibit-read-only t)
|
|
(file nil))
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(while (if (eq mark ?\r)
|
|
(re-search-forward dired-re-mark nil t)
|
|
(search-forward mrk-strg nil t))
|
|
(save-match-data (setq file (dired-get-filename 'no-dir t)))
|
|
;; Do nothing if marked subdir and not changing subdir marks.
|
|
(unless (and nosubs file (file-directory-p file))
|
|
(subst-char-in-region (match-beginning 0) (match-end 0) (preceding-char) ?\ ))
|
|
(setq count (1+ count))))))))
|
|
(message "%d mark%s UNmarked" count (dired-plural-s count))))
|
|
|
|
)
|
|
|
|
(when (and (memq system-type '(windows-nt ms-dos)) (fboundp 'w32-browser))
|
|
|
|
(defun diredp-multiple-w32-browser-recursive (&optional ignore-marks-p details)
|
|
"Run Windows apps for with marked files, including those in marked subdirs.
|
|
Like `dired-multiple-w32-browser', but act recursively on subdirs.
|
|
|
|
See `diredp-do-find-marked-files-recursive' for a description of the
|
|
files included. In particular, if no files are marked here or in a
|
|
marked subdir, then all files in the directory are included.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list current-prefix-arg diredp-list-file-attributes)))
|
|
(let ((files (diredp-get-files ignore-marks-p nil nil nil nil details)))
|
|
(while files
|
|
(w32-browser (car files))
|
|
(sleep-for w32-browser-wait-time)
|
|
(setq files (cdr files)))))
|
|
|
|
)
|
|
|
|
;;;###autoload
|
|
(defun diredp-copy-filename-as-kill-recursive (&optional arg details) ; Bound to `M-+ M-w'
|
|
"Copy names of marked files here and in marked subdirs, to `kill-ring'.
|
|
The names are separated by a space.
|
|
|
|
Like `dired-copy-filename-as-kill', but act recursively on subdirs.
|
|
\(Do not copy subdir names themselves.)
|
|
|
|
With no prefix arg, use relative file names.
|
|
With a zero prefix arg, use absolute file names.
|
|
With a plain prefix arg (`C-u'), use names relative to the current
|
|
Dired directory. (This might contain slashes if in a subdirectory.)
|
|
|
|
If on a subdir headerline, use absolute subdir name instead - prefix
|
|
arg and marked files are ignored in this case.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
The names are copied to the kill ring and to variable
|
|
`diredp-last-copied-filenames'.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive ; No need for `diredp-get-confirmation-recursive' here.
|
|
(progn (diredp-ensure-mode) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(let* ((files (mapcar (cond ((zerop (prefix-numeric-value arg)) #'identity)
|
|
((consp arg) (lambda (fn) (concat (dired-current-directory t)
|
|
(file-name-nondirectory fn))))
|
|
(t (lambda (fn) (file-name-nondirectory fn))))
|
|
(diredp-get-files nil nil nil nil nil details)))
|
|
(string (mapconcat #'identity files " ")))
|
|
(unless (string= "" string)
|
|
(if (eq last-command 'kill-region) (kill-append string nil) (kill-new string))
|
|
(setq diredp-last-copied-filenames (car kill-ring-yank-pointer)))
|
|
(message "%s" string)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-copy-abs-filenames-as-kill-recursive (&optional ignore-marks-p details) ; Not bound.
|
|
"Copy absolute names of files marked here and in marked subdirs, recursively.
|
|
The names are copied to the kill ring and to variable
|
|
`dired-copy-filename-as-kill'.
|
|
|
|
The files whose names are copied are those that are marked in the
|
|
current Dired buffer, or all files in the directory if none are
|
|
marked. Marked subdirectories are handled recursively in the same
|
|
way.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-copy-filename-as-kill-recursive'."
|
|
(interactive ; No need for `diredp-get-confirmation-recursive' here.
|
|
(progn (diredp-ensure-mode) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-copy-filename-as-kill-recursive 0 details)
|
|
(setq diredp-last-copied-filenames (car kill-ring-yank-pointer)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-regexp-recursive (regexp
|
|
&optional marker-char ignore-marks-p details) ; Bound to `M-+ % m'
|
|
"Mark all files matching REGEXP, including those in marked subdirs.
|
|
Like `dired-mark-files-regexp' but act recursively on marked subdirs.
|
|
|
|
The file names to be matched by this command are always absolute -
|
|
they include the full directory. Note that this does NOT correspond
|
|
to the default behavior for `dired-mark-files-regexp'. The other
|
|
matching possibilities offered by `dired-mark-files-regexp' are not
|
|
available for this command.
|
|
|
|
Directories `.' and `..' are never marked.
|
|
|
|
A non-negative prefix arg means to UNmark the files instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all matching files in this
|
|
directory and all descendant directories.
|
|
|
|
REGEXP is an Emacs regexp, not a shell wildcard. Thus, use `\\.o$' for
|
|
object files--just `.o' will mark more than you might think.
|
|
|
|
REGEXP is added to `regexp-search-ring', for regexp search.
|
|
|
|
Note: If there is more than one Dired buffer for a given subdirectory
|
|
then only the first such is used.
|
|
|
|
When called from Lisp, DETAILS is passed to `diredp-get-subdirs'."
|
|
(interactive (let* ((numarg (and current-prefix-arg (prefix-numeric-value current-prefix-arg)))
|
|
(unmark (and numarg (>= numarg 0)))
|
|
(ignorep (and numarg (<= numarg 0))))
|
|
(list (diredp-read-regexp (concat (if unmark "UNmark" "Mark") " files (regexp): "))
|
|
(and unmark ?\040)
|
|
ignorep
|
|
diredp-list-file-attributes)))
|
|
(add-to-list 'regexp-search-ring regexp) ; Add REGEXP to `regexp-search-ring'.
|
|
(let ((dired-marker-char (or marker-char dired-marker-char))
|
|
(sdirs (diredp-get-subdirs ignore-marks-p nil details))
|
|
(matched 0)
|
|
(changed 0)
|
|
dbufs chg.mtch)
|
|
(message "%s files..." (if (eq ?\040 dired-marker-char) "UNmarking" "Marking"))
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(setq chg.mtch (diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot))
|
|
(not (eolp)) ; Empty line
|
|
(let ((fn (dired-get-filename nil 'NO-ERROR)))
|
|
(and fn (diredp-string-match-p regexp fn))))
|
|
"file")
|
|
changed (+ changed (or (car chg.mtch) 0))
|
|
matched (+ matched (or (cdr chg.mtch) 0))))))
|
|
(message "%s file%s%s%s newly %s"
|
|
matched
|
|
(dired-plural-s matched)
|
|
(if (not (= matched changed)) " matched, " "")
|
|
(if (not (= matched changed)) changed "")
|
|
(if (eq ?\040 dired-marker-char) "unmarked" "marked"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-containing-regexp-recursive (regexp
|
|
&optional marker-char ignore-marks-p details) ; `M-+ % g'
|
|
"Mark files with contents containing a REGEXP match, including in marked subdirs.
|
|
Like `dired-mark-files-containing-regexp' but act recursively on
|
|
marked subdirs.
|
|
|
|
A non-negative prefix arg means to UNmark the files instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all matching files in this
|
|
directory and all descendant directories.
|
|
|
|
REGEXP is added to `regexp-search-ring', for regexp search.
|
|
|
|
Note: If there is more than one Dired buffer for a given subdirectory
|
|
then only the first such is used.
|
|
|
|
If a file is visited in a buffer and `dired-always-read-filesystem' is
|
|
nil, this looks in the buffer without revisiting the file, so the
|
|
results might be inconsistent with the file on disk if its contents
|
|
have changed since it was last visited.
|
|
|
|
When called from Lisp, DETAILS is passed to `diredp-get-subdirs'."
|
|
|
|
(interactive (let* ((numarg (and current-prefix-arg (prefix-numeric-value current-prefix-arg)))
|
|
(unmark (and numarg (>= numarg 0)))
|
|
(ignorep (and numarg (<= numarg 0))))
|
|
(list (diredp-read-regexp (concat (if unmark "UNmark" "Mark") " files containing (regexp): "))
|
|
(and unmark ?\040)
|
|
ignorep
|
|
diredp-list-file-attributes)))
|
|
(add-to-list 'regexp-search-ring regexp) ; Add REGEXP to `regexp-search-ring'.
|
|
(let ((dired-marker-char (or marker-char dired-marker-char))
|
|
(sdirs (diredp-get-subdirs ignore-marks-p nil details))
|
|
(matched 0)
|
|
(changed 0)
|
|
dbufs chg.mtch)
|
|
(message "%s files..." (if (eq ?\040 dired-marker-char) "UNmarking" "Marking"))
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(setq chg.mtch
|
|
(diredp-mark-if
|
|
(and (not (diredp-looking-at-p dired-re-dot))
|
|
(not (eolp))
|
|
(let ((fname (dired-get-filename nil t)))
|
|
|
|
(and fname
|
|
(file-readable-p fname)
|
|
(not (file-directory-p fname))
|
|
(let ((prebuf (get-file-buffer fname)))
|
|
(message "Checking %s" fname)
|
|
;; For now, do it inside Emacs. Grep might be better if there are lots of files.
|
|
(if (and prebuf (or (not (boundp 'dired-always-read-filesystem))
|
|
(not dired-always-read-filesystem))) ; Emacs 26+
|
|
(with-current-buffer prebuf
|
|
(save-excursion (goto-char (point-min)) (re-search-forward regexp nil t)))
|
|
(with-temp-buffer
|
|
(insert-file-contents fname)
|
|
(goto-char (point-min))
|
|
(re-search-forward regexp nil t)))))))
|
|
"file")
|
|
changed (+ changed (or (car chg.mtch) 0))
|
|
matched (+ matched (or (cdr chg.mtch) 0))))))
|
|
(message "%s file%s%s%s newly %s"
|
|
matched
|
|
(dired-plural-s matched)
|
|
(if (not (= matched changed)) " matched, " "")
|
|
(if (not (= matched changed)) changed "")
|
|
(if (eq ?\040 dired-marker-char) "unmarked" "marked"))))
|
|
|
|
(defun diredp-mark-extension-recursive (extension &optional arg details) ; Bound to `M-+ * .'
|
|
"Mark all files with a certain EXTENSION, including in marked subdirs.
|
|
A `.' is not automatically prepended to the string entered.
|
|
|
|
This is like `diredp-mark/unmark-extension', but this acts recursively
|
|
on marked subdirs, and a non-positive prefix arg acts differently.
|
|
|
|
A non-negative prefix arg means to unmark them instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all in this directory and all
|
|
descendant directories.
|
|
|
|
Non-interactively, EXTENSION is the extension (a string). It can also
|
|
be a list of extension strings.
|
|
Optional argument ARG is the prefix arg.
|
|
|
|
When called from Lisp, DETAILS is passed to `diredp-mark-files-regexp-recursive'."
|
|
(interactive (let* ((numarg (and current-prefix-arg (prefix-numeric-value current-prefix-arg)))
|
|
(unmark (and numarg (>= numarg 0))))
|
|
(list (diredp-read-regexp (concat (if unmark "UNmark" "Mark") " extension: "))
|
|
current-prefix-arg
|
|
diredp-list-file-attributes)))
|
|
(let* ((numarg (and arg (prefix-numeric-value arg)))
|
|
(unmark (and numarg (>= numarg 0)))
|
|
(ignorep (and numarg (<= numarg 0))))
|
|
(or (listp extension) (setq extension (list extension)))
|
|
(diredp-mark-files-regexp-recursive (concat ".+[.]\\("
|
|
(mapconcat #'regexp-quote extension "\\|")
|
|
"\\)$")
|
|
(if unmark ?\040 dired-marker-char)
|
|
ignorep
|
|
details)))
|
|
|
|
;; FIXME: Factor out code that is common with `dired-mark-sexp'.
|
|
;;
|
|
(when (fboundp 'minibuffer-with-setup-hook) ; Emacs 22+
|
|
|
|
(defun diredp-mark-sexp-recursive (predicate &optional arg details) ; Bound to `M-+ M-(', `M-+ * ('
|
|
"Mark files here and below for which PREDICATE returns non-nil.
|
|
Like `diredp-mark-sexp', but act recursively on subdirs.
|
|
|
|
A non-negative prefix arg means to unmark those files instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all in this directory and all
|
|
descendant directories.
|
|
|
|
PREDICATE is a lisp sexp that can refer to the following symbols as
|
|
variables:
|
|
|
|
`mode' [string] file permission bits, e.g. \"-rw-r--r--\"
|
|
`nlink' [integer] number of links to file
|
|
`size' [integer] file size in bytes
|
|
`uid' [string] owner
|
|
`gid' [string] group (If the gid is not displayed by `ls',
|
|
this will still be set (to the same as uid))
|
|
`time' [string] the time that `ls' displays, e.g. \"Feb 12 14:17\"
|
|
`name' [string] the name of the file
|
|
`sym' [string] if file is a symbolic link, the linked-to name,
|
|
else \"\"
|
|
`inode' [integer] the inode of the file (only for `ls -i' output)
|
|
`blks' [integer] the size of the file for `ls -s' output
|
|
(ususally in blocks or, with `-k', in Kbytes)
|
|
Examples:
|
|
Mark zero-length files: `(equal 0 size)'
|
|
Mark files last modified on Feb 2: `(string-match \"Feb 2\" time)'
|
|
Mark uncompiled Emacs Lisp files (`.el' file without a `.elc' file):
|
|
First, Dired just the source files: `dired *.el'.
|
|
Then, use \\[diredp-mark-sexp-recursive] with this sexp:
|
|
(not (file-exists-p (concat name \"c\")))
|
|
|
|
There's an ambiguity when a single integer not followed by a unit
|
|
prefix precedes the file mode: It is then parsed as inode number
|
|
and not as block size (this always works for GNU coreutils ls).
|
|
|
|
Another limitation is that the uid field is needed for the
|
|
function to work correctly. In particular, the field is not
|
|
present for some values of `ls-lisp-emulation'.
|
|
|
|
This function operates only on the Dired buffer content. It does not
|
|
refer at all to the underlying file system. Contrast this with
|
|
`find-dired', which might be preferable for the task at hand.
|
|
|
|
When called from Lisp, DETAILS is passed to `diredp-get-subdirs'."
|
|
;; Using `sym' = "", instead of nil, for non-linked files avoids the trap of
|
|
;; (string-match "foo" sym) into which a user would soon fall.
|
|
;; Use `equal' instead of `=' in the example, as it works on integers and strings.
|
|
;; (interactive "xMark if (vars: inode,blks,mode,nlink,uid,gid,size,time,name,sym): \nP")
|
|
|
|
(interactive
|
|
(let* ((numarg (and current-prefix-arg (prefix-numeric-value current-prefix-arg)))
|
|
(unmark (and numarg (>= numarg 0))))
|
|
(diredp-get-confirmation-recursive)
|
|
(list (diredp-read-expression (format "%s if (Lisp expr): " (if current-prefix-arg "UNmark" "Mark")))
|
|
current-prefix-arg
|
|
diredp-list-file-attributes)))
|
|
(message "%s" predicate)
|
|
(let* ((numarg (and arg (prefix-numeric-value arg)))
|
|
(unmark (and numarg (>= numarg 0)))
|
|
(ignorep (and numarg (<= numarg 0)))
|
|
(dired-marker-char (if unmark ?\040 dired-marker-char))
|
|
(inode nil)
|
|
(blks ())
|
|
(matched 0)
|
|
(changed 0)
|
|
dbufs chg.mtch mode nlink uid gid size time name sym)
|
|
(dolist (dir (cons default-directory (diredp-get-subdirs ignorep nil details)))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(setq chg.mtch
|
|
(diredp-mark-if
|
|
(save-excursion
|
|
(and
|
|
;; Sets vars INODE BLKS MODE NLINK UID GID SIZE TIME NAME and SYM
|
|
;; according to current file line. Returns `t' for success, nil if
|
|
;; there is no file line. Upon success, these vars are set, to either
|
|
;; nil or the appropriate value, so they need not be initialized.
|
|
;; Moves point within the current line.
|
|
(dired-move-to-filename)
|
|
(let ((mode-len 10) ; Length of `mode' string.
|
|
;; As in `dired.el', but with subexpressions \1=inode, \2=blks:
|
|
;; GNU `ls -hs' suffixes the block count with a unit and prints it as a float
|
|
;; FreeBSD does neither.
|
|
;; $$$$$$ (dired-re-inode-size "\\s *\\([0-9]*\\)\\s *\\([0-9]*\\) ?")
|
|
(dired-re-inode-size (if (> emacs-major-version 24)
|
|
"\\=\\s *\\([0-9]+\\s +\\)?\
|
|
\\(?:\\([0-9]+\\(?:\\.[0-9]*\\)?[BkKMGTPEZY]?\\)? ?\\)"
|
|
"\\s *\\([0-9]*\\)\\s *\\([0-9]*\\) ?"))
|
|
pos)
|
|
(beginning-of-line)
|
|
(forward-char 2)
|
|
(search-forward-regexp dired-re-inode-size nil t)
|
|
;; `INODE', `BLKS', `MODE'
|
|
;; XXX Might be a size not followed by a unit prefix.
|
|
;; Could set `blks' to `inode' if it were otherwise nil, with similar reasoning
|
|
;; as for setting `gid' to `uid', but it would be even more whimsical.
|
|
(setq inode (and (match-string 1) (string-to-number (match-string 1)))
|
|
blks (and (match-string 2) (if (fboundp 'dired-x--string-to-number) ; Emacs 25+
|
|
(dired-x--string-to-number (match-string 2))
|
|
(string-to-number (match-string 2))))
|
|
mode (buffer-substring (point) (+ mode-len (point))))
|
|
(forward-char mode-len)
|
|
;; Skip any extended attributes marker ("." or "+").
|
|
(unless (eq (char-after) ?\ ) (forward-char 1))
|
|
(setq nlink (read (current-buffer))) ; `NLINK'
|
|
|
|
;; `UID'
|
|
;; Another issue is that GNU `ls -n' right-justifies numerical UIDs and GIDs,
|
|
;; while FreeBSD left-justifies them, so do not rely on a specific whitespace
|
|
;; layout. Both of them right-justify all other numbers, though.
|
|
;; XXX Return a number if the `uid' or `gid' seems to be numerical?
|
|
;; $$$$$$ (setq uid (buffer-substring (+ (point) 1) (progn (forward-word 1) (point))))
|
|
(setq uid (buffer-substring (progn (skip-chars-forward " \t") (point))
|
|
(progn (skip-chars-forward "^ \t") (point))))
|
|
(cond ((> emacs-major-version 24)
|
|
(dired-move-to-filename)
|
|
(save-excursion
|
|
(setq time ; `TIME'
|
|
;; The regexp below tries to match from the last digit of the size
|
|
;; field through a space after the date. Also, dates may have
|
|
;; different formats depending on file age, so the date column need
|
|
;; not be aligned to the right.
|
|
(buffer-substring
|
|
(save-excursion (skip-chars-backward " \t") (point))
|
|
(progn (re-search-backward directory-listing-before-filename-regexp)
|
|
(skip-chars-forward "^ \t")
|
|
(1+ (point))))
|
|
|
|
size ; `SIZE'
|
|
(dired-x--string-to-number
|
|
;; We know that there's some kind of number before point because
|
|
;; the regexp search above succeeded. Not worth doing an extra
|
|
;; check for leading garbage.
|
|
(buffer-substring (point) (progn (skip-chars-backward "^ \t") (point))))
|
|
;; If no `gid' is displayed, `gid' will be set to `uid' but user
|
|
;; will then not reference it anyway in PREDICATE.
|
|
|
|
gid ; `GID'
|
|
(buffer-substring (progn (skip-chars-backward " \t") (point))
|
|
(progn (skip-chars-backward "^ \t") (point)))))
|
|
;; `NAME', `SYM'
|
|
(setq name (buffer-substring (point)
|
|
(or (dired-move-to-end-of-filename t) (point)))
|
|
sym (if (diredp-looking-at-p " -> ")
|
|
(buffer-substring (progn (forward-char 4) (point))
|
|
(line-end-position))
|
|
"")))
|
|
(t
|
|
(re-search-forward
|
|
(if (< emacs-major-version 20)
|
|
"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)"
|
|
dired-move-to-filename-regexp))
|
|
(goto-char (match-beginning 1))
|
|
(forward-char -1)
|
|
(setq size ; `SIZE'
|
|
(string-to-number (buffer-substring (save-excursion (backward-word 1)
|
|
(setq pos (point)))
|
|
(point))))
|
|
(goto-char pos)
|
|
(backward-word 1)
|
|
;; `GID', `TIME', `NAME', `SYM'
|
|
;; if no `gid' is displayed, `gid' will be set to `uid' but user will then
|
|
;; not reference it anyway in PREDICATE.
|
|
(setq gid (buffer-substring (save-excursion (forward-word 1) (point)) (point))
|
|
time (buffer-substring (match-beginning 1) (1- (dired-move-to-filename)))
|
|
name (buffer-substring (point) (or (dired-move-to-end-of-filename t)
|
|
(point)))
|
|
sym (if (diredp-looking-at-p " -> ")
|
|
(buffer-substring (progn (forward-char 4) (point))
|
|
(line-end-position))
|
|
"")))))
|
|
;; Vanilla Emacs uses `lexical-binding' = t, and it passes bindings to `eval'
|
|
;; as a second arg. We use `lexical-binding' = nil, and anyway there should
|
|
;; be no need to pass the bindings.
|
|
(eval predicate)))
|
|
(format "'%s file" predicate)))
|
|
(setq changed (+ changed (or (car chg.mtch) 0))
|
|
matched (+ matched (or (cdr chg.mtch) 0))))))
|
|
(message "%s file%s%s%s newly %s" matched (dired-plural-s matched)
|
|
(if (not (= matched changed)) " matched, " "")
|
|
(if (not (= matched changed)) changed "")
|
|
(if (eq ?\040 dired-marker-char) "unmarked" "marked"))))
|
|
|
|
(if (fboundp 'read--expression) ; Emacs 24.4+
|
|
(defalias 'diredp-read-expression 'read--expression)
|
|
(defun diredp-read-expression (prompt &optional initial-contents)
|
|
(let ((minibuffer-completing-symbol t))
|
|
(minibuffer-with-setup-hook
|
|
(lambda () ; Vanilla Emacs FIXME: call `emacs-lisp-mode'?
|
|
(add-function :before-until (local 'eldoc-documentation-function)
|
|
#'elisp-eldoc-documentation-function)
|
|
(eldoc-mode 1)
|
|
(add-hook 'completion-at-point-functions #'elisp-completion-at-point nil t)
|
|
(run-hooks 'eval-expression-minibuffer-setup-hook))
|
|
(read-from-minibuffer
|
|
prompt initial-contents (if (boundp 'pp-read-expression-map)
|
|
pp-read-expression-map
|
|
read-expression-map)
|
|
t 'read-expression-history)))))
|
|
|
|
)
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-autofiles-recursive (&optional arg details) ; Bound to `M-+ * B'
|
|
"Mark all autofiles, including in marked subdirs.
|
|
Autofiles are files that have an autofile bookmark.
|
|
A non-negative prefix arg means to unmark them instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all in this directory and all
|
|
descendant directories.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-mark-recursive-1'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-recursive-1 arg "autofiles" "autofile"
|
|
'(and (not (diredp-looking-at-p dired-re-dot)) (not (eolp))
|
|
(let ((fname (dired-get-filename nil t)))
|
|
(and fname (bmkp-get-autofile-bookmark fname))))
|
|
details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-executables-recursive (&optional arg details) ; Bound to `M-+ * *'
|
|
"Mark all executable files, including in marked subdirs.
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
A non-negative prefix arg means to unmark them instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all in this directory and all
|
|
descendant directories.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-mark-recursive-1'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(diredp-mark-recursive-1 arg "executable files" "executable file" '(diredp-looking-at-p dired-re-exe) details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-directories-recursive (&optional arg details) ; Bound to `M-+ * /'
|
|
"Mark all directories except `.' and `..', including in marked subdirs.
|
|
The directories included are those that are marked in the current
|
|
Dired buffer, or all subdirs in the directory if none are marked.
|
|
Marked subdirectories are handled recursively in the same way.
|
|
|
|
A non-negative prefix arg means to unmark them instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all in this directory and all
|
|
descendant directories.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-mark-recursive-1'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(diredp-mark-recursive-1 arg "directories" "directory" '(and (diredp-looking-at-p dired-re-dir)
|
|
(not (diredp-looking-at-p dired-re-dot)))
|
|
details))
|
|
;;;###autoload
|
|
(defun diredp-mark-symlinks-recursive (&optional arg details) ; Bound to `M-+ * @'
|
|
"Mark all symbolic links, including in marked subdirs.
|
|
The symlinks included are those that are marked in the current Dired
|
|
buffer, or all symlinks in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
A non-negative prefix arg means to unmark them instead.
|
|
|
|
A non-positive prefix arg means to ignore subdir markings and act
|
|
instead on ALL subdirs. That is, mark all in this directory and all
|
|
descendant directories.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-subdirs'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(diredp-mark-recursive-1 arg "symlinks" "symbolic link" '(diredp-looking-at-p dired-re-sym) details))
|
|
|
|
(defun diredp-mark-recursive-1 (arg plural singular predicate-sexp details)
|
|
"Helper for `diredp-mark-*-recursive' commands."
|
|
(let* ((numarg (and arg (prefix-numeric-value arg)))
|
|
(unmark (and numarg (>= numarg 0)))
|
|
(ignorep (and numarg (<= numarg 0)))
|
|
(dired-marker-char (if unmark ?\040 dired-marker-char))
|
|
(sdirs (diredp-get-subdirs ignorep nil details))
|
|
(changed 0)
|
|
(matched 0)
|
|
dbufs chg.mtch)
|
|
(message "%s %s..." (if (eq ?\040 dired-marker-char) "UNmarking" "Marking") plural)
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs)
|
|
(setq chg.mtch (diredp-mark-if (eval predicate-sexp) singular)
|
|
changed (+ changed (or (car chg.mtch) 0))
|
|
matched (+ matched (or (cdr chg.mtch) 0))))))
|
|
(message "%s %s%s%s newly %s"
|
|
matched
|
|
(if (= 1 matched) singular plural)
|
|
(if (not (= matched changed)) " matched, " "")
|
|
(if (not (= matched changed)) changed "")
|
|
(if (eq ?\040 dired-marker-char) "unmarked" "marked"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-capitalize-recursive (&optional ignore-marks-p details) ; Bound to `M-+ % c'
|
|
"Rename marked files, including in marked subdirs, by capitalizing them.
|
|
Like `diredp-capitalize', but act recursively on subdirs.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-create-files-non-directory-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-create-files-non-directory-recursive
|
|
#'dired-rename-file #'capitalize "Rename by capitalizing:" ignore-marks-p details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-upcase-recursive (&optional ignore-marks-p details) ; Bound to `M-+ % u'
|
|
"Rename marked files, including in marked subdirs, making them uppercase.
|
|
Like `dired-upcase', but act recursively on subdirs.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-create-files-non-directory-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-create-files-non-directory-recursive
|
|
#'dired-rename-file #'upcase "Rename to uppercase:" ignore-marks-p details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-downcase-recursive (&optional ignore-marks-p details) ; Bound to `M-+ % l'
|
|
"Rename marked files, including in marked subdirs, making them lowercase.
|
|
Like `dired-downcase', but act recursively on subdirs.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-create-files-non-directory-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-create-files-non-directory-recursive
|
|
#'dired-rename-file #'downcase "Rename to lowercase:" ignore-marks-p details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-apply-function-recursive (function &optional arg details) ; Bound to `M-+ @'
|
|
"Apply FUNCTION to the marked files.
|
|
Like `diredp-do-apply-function' but act recursively on subdirs and do
|
|
no result or error logging or echoing.
|
|
|
|
The files acted on are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
With a plain prefix ARG (`C-u'), visit each file and invoke FUNCTION
|
|
with no arguments.
|
|
Otherwise, apply FUNCTION to each file name.
|
|
|
|
Any other prefix arg behaves according to the ARG argument of
|
|
`dired-get-marked-files'. In particular, `C-u C-u' operates on all
|
|
files in the Dired buffer.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-get-confirmation-recursive)
|
|
(list (read (completing-read "Function: " obarray 'functionp nil nil
|
|
(and (boundp 'function-name-history) 'function-name-history)))
|
|
current-prefix-arg
|
|
diredp-list-file-attributes)))
|
|
(if (and (consp arg) (< (car arg) 16))
|
|
(dolist (file (diredp-get-files)) (with-current-buffer (find-file-noselect file) (funcall function)))
|
|
(dolist (file (diredp-get-files arg nil nil nil nil details)) (funcall function file))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-delete-recursive (arg &optional details) ; Bound to `M-+ D'
|
|
"Delete marked (not flagged) files, including in marked subdirs.
|
|
Like `dired-do-delete' but act recursively on subdirs.
|
|
|
|
The files to be deleted are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files' and `diredp-get-subdirs'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(unless arg
|
|
(ding)
|
|
(message "NOTE: Deletion of files marked `%c' (not those flagged `%c')."
|
|
dired-marker-char dired-del-marker))
|
|
(let* ((files (diredp-get-files nil nil nil nil 'ONLY-MARKED-P details))
|
|
(count (length files))
|
|
(trashing (and (boundp 'delete-by-moving-to-trash) delete-by-moving-to-trash))
|
|
(succ 0))
|
|
(if (dired-mark-pop-up
|
|
" *Deletions*" 'delete files dired-deletion-confirmer
|
|
(format "%s %s " (if trashing "Trash" "Delete") (dired-mark-prompt arg files)))
|
|
(let ((progress-reporter (and (fboundp 'make-progress-reporter)
|
|
(make-progress-reporter (if trashing "Trashing..." "Deleting...")
|
|
succ
|
|
count)))
|
|
(failures ()))
|
|
(unless progress-reporter (message "Deleting..."))
|
|
(dolist (file files)
|
|
(condition-case err
|
|
(progn (if (fboundp 'dired-delete-file) ; Emacs 22+
|
|
(dired-delete-file file dired-recursive-deletes trashing)
|
|
;; This test is equivalent to (and (file-directory-p file) (not (file-symlink-p file)))
|
|
;; but more efficient.
|
|
(if (eq t (car (file-attributes file))) (delete-directory file) (delete-file file)))
|
|
(setq succ (1+ succ))
|
|
(when (fboundp 'progress-reporter-update)
|
|
(progress-reporter-update progress-reporter succ)))
|
|
(error (dired-log "%s\n" err) ; Catch errors from failed deletions.
|
|
(setq failures (cons file failures))))
|
|
(dired-clean-up-after-deletion file))
|
|
(if failures
|
|
(dired-log-summary (format "%d of %d deletion%s failed"
|
|
(length failures) count (dired-plural-s count))
|
|
failures)
|
|
(if (fboundp 'progress-reporter-done)
|
|
(progress-reporter-done progress-reporter)
|
|
(message "Deleting...done")))
|
|
(let ((sdirs (diredp-get-subdirs nil nil details))
|
|
dbufs)
|
|
(dolist (dir (cons default-directory sdirs))
|
|
(when (setq dbufs (dired-buffers-for-dir (expand-file-name dir))) ; Dirs with Dired buffers only.
|
|
(with-current-buffer (car dbufs) (dired-revert))))))
|
|
(message "OK. NO deletions performed"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-move-recursive (&optional ignore-marks-p details) ; Bound to `M-+ R'
|
|
"Move marked files, including in marked subdirs, to a given directory.
|
|
Like `dired-do-rename', but act recursively on subdirs to pick up the
|
|
files to move.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
This means move the marked files of marked subdirs and their marked
|
|
subdirs, etc. It does not mean move or rename the subdirs themselves
|
|
recursively.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
Renames any buffers that are visiting the files.
|
|
|
|
The default suggested for the target directory depends on the value of
|
|
`dired-dwim-target', which see."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-do-create-files-recursive #'dired-rename-file "Move" ignore-marks-p details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-copy-recursive (&optional ignore-marks-p details) ; Bound to `M-+ C'
|
|
"Copy marked files, including in marked subdirs, to a given directory.
|
|
Like `dired-do-copy', but act recursively on subdirs to pick up the
|
|
files to copy.
|
|
|
|
The files included are those that are marked in the current Dired
|
|
buffer, or all files in the directory if none are marked. Marked
|
|
subdirectories are handled recursively in the same way.
|
|
|
|
This means copy the marked files of marked subdirs and their marked
|
|
subdirs, etc. It does not mean copy the subdirs themselves
|
|
recursively.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
Preserves the last-modified date when copying, unless
|
|
`dired-copy-preserve-time' is nil.
|
|
|
|
The default suggested for the target directory depends on the value of
|
|
`dired-dwim-target', which see.
|
|
|
|
This command copies symbolic links by creating new ones, like UNIX
|
|
command `cp -d'.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-create-files-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(let ((dired-recursive-copies nil)) ; Doesn't have to be nil, but let's not go overboard now.
|
|
(diredp-do-create-files-recursive #'dired-copy-file "Copy" ignore-marks-p details)))
|
|
|
|
(defun diredp-do-create-files-recursive (file-creator operation ignore-marks-p &optional details)
|
|
"Create a new file for each marked file, including those in marked subdirs.
|
|
Like `dired-do-create-files', but act recursively on subdirs, and
|
|
always keep markings.
|
|
Prompts for the target directory, in which to create the files.
|
|
FILE-CREATOR and OPERATION are as in `dired-create-files'.
|
|
Non-nil IGNORE-MARKS-P means ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(lexical-let* ((fn-list (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(target-dir (dired-dwim-target-directory))
|
|
(defaults (and (fboundp 'dired-dwim-target-defaults) ; Emacs 23+
|
|
(dired-dwim-target-defaults fn-list target-dir)))
|
|
(target (expand-file-name
|
|
(if (fboundp 'minibuffer-with-setup-hook) ; Emacs 22+
|
|
(minibuffer-with-setup-hook
|
|
(lambda ()
|
|
(set (make-local-variable 'minibuffer-default-add-function)
|
|
nil)
|
|
(setq minibuffer-default defaults))
|
|
(funcall (if (fboundp 'read-directory-name)
|
|
#'read-directory-name
|
|
#'read-file-name)
|
|
(concat operation " files to: ")
|
|
default-directory default-directory))
|
|
(funcall (if (fboundp 'read-directory-name)
|
|
#'read-directory-name
|
|
#'read-file-name)
|
|
(concat operation "files to: ")
|
|
default-directory default-directory)))))
|
|
(unless (file-directory-p target) (error "Target is not a directory: `%s'" target))
|
|
(dired-create-files
|
|
file-creator operation fn-list
|
|
#'(lambda (from) (expand-file-name (file-name-nondirectory from) target))
|
|
;; Hard-code `*' marker, or else it will be removed in lower dirs because the code uses
|
|
;; `dired-file-marker', which only works in the current Dired directory.
|
|
?*)))
|
|
|
|
(defun diredp-create-files-non-directory-recursive (file-creator basename-constructor operation
|
|
&optional ignore-marks-p details)
|
|
"Apply FILE-CREATOR + BASENAME-CONSTRUCTOR to non-dir part of marked names.
|
|
Like `dired-create-files-non-directory', but act recursively on subdirs.
|
|
|
|
The files acted on are those marked in the current Dired buffer, or
|
|
all files in the directory if none are marked. Marked subdirectories
|
|
are handled recursively in the same way.
|
|
|
|
With non-nil IGNORE-MARKS-P, ignore all marks - include all files in
|
|
this Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(let (rename-non-directory-query)
|
|
(dired-create-files
|
|
file-creator
|
|
operation
|
|
(diredp-get-files ignore-marks-p nil nil nil nil details)
|
|
#'(lambda (from)
|
|
(let ((to (concat (file-name-directory from)
|
|
(funcall basename-constructor (file-name-nondirectory from)))))
|
|
(and (let ((help-form (format "\
|
|
Type SPC or `y' to %s one file, DEL or `n' to skip to next,
|
|
`!' to %s all remaining matches with no more questions."
|
|
(downcase operation)
|
|
(downcase operation))))
|
|
(dired-query 'rename-non-directory-query (concat operation " `%s' to `%s'")
|
|
(dired-make-relative from) (dired-make-relative to)))
|
|
to)))
|
|
;; Hard-code `*' marker, or else it will be removed in lower dirs because the code uses
|
|
;; `dired-file-marker', which only works in the current Dired directory.
|
|
?*)))
|
|
|
|
(defun diredp-do-chxxx-recursive (attribute-name program op-symbol &optional ignore-marks-p default details)
|
|
"Change attributes of the marked files, including those in marked subdirs.
|
|
Refresh their file lines.
|
|
|
|
Like `dired-do-chxxx', but act recursively on subdirs. The subdirs
|
|
acted on are those that are marked in the current Dired buffer, or all
|
|
subdirs in the directory if none are marked. Marked subdirectories
|
|
are handled recursively in the same way.
|
|
|
|
ATTRIBUTE-NAME is a string describing the attribute to the user.
|
|
PROGRAM is the program used to change the attribute.
|
|
OP-SYMBOL is the type of operation (for use in `dired-mark-pop-up').
|
|
Non-nil IGNORE-MARKS-P means ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
DEFAULT is the default value for reading the mark string.
|
|
DETAILS is passed to `diredp-get-files' and
|
|
`diredp-do-redisplay-recursive'."
|
|
(let* ((this-buff (current-buffer))
|
|
(files (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(prompt (concat "Change " attribute-name " of %s to: "))
|
|
(new-attribute (if (> emacs-major-version 22)
|
|
(dired-mark-read-string prompt nil op-symbol ignore-marks-p files default)
|
|
(dired-mark-read-string prompt nil op-symbol ignore-marks-p files)))
|
|
(operation (concat program " " new-attribute))
|
|
failures)
|
|
(setq failures (dired-bunch-files 10000 (function dired-check-process)
|
|
(append (list operation program)
|
|
(unless (string-equal new-attribute "")
|
|
(if (equal attribute-name "Timestamp")
|
|
(list "-t" new-attribute)
|
|
(list new-attribute)))
|
|
(and (diredp-string-match-p "gnu" system-configuration)
|
|
'("--"))) ; --------------------------------
|
|
files))
|
|
(with-current-buffer this-buff (diredp-do-redisplay-recursive details 'MSGP))
|
|
(when failures (dired-log-summary (format "%s: error" operation) nil))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-chmod-recursive (&optional ignore-marks-p details) ; Bound to `M-+ M'
|
|
"Change the mode of the marked files, including those in marked subdirs.
|
|
Symbolic modes like `g+w' are allowed.
|
|
|
|
Note that marked subdirs are not changed. Their markings are used only
|
|
to indicate that some of their files are to be changed.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files' and `diredp-do-redisplay-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(let* ((files (diredp-get-files ignore-marks-p nil nil nil nil details))
|
|
(modestr (and (stringp (car files)) (nth 8 (file-attributes (car files)))))
|
|
(default (and (stringp modestr)
|
|
(string-match "^.\\(...\\)\\(...\\)\\(...\\)$" modestr)
|
|
(replace-regexp-in-string "-" "" (format "u=%s,g=%s,o=%s"
|
|
(match-string 1 modestr)
|
|
(match-string 2 modestr)
|
|
(match-string 3 modestr)))))
|
|
(modes (if (> emacs-major-version 22)
|
|
(dired-mark-read-string
|
|
"Change mode of marked files here and below to: " nil 'chmod
|
|
nil files default)
|
|
(dired-mark-read-string
|
|
"Change mode of marked files here and below to: " nil 'chmod
|
|
nil files))))
|
|
(when (equal modes "") (error "No file mode specified"))
|
|
(dolist (file files)
|
|
(set-file-modes file (or (and (diredp-string-match-p "^[0-7]+" modes) (string-to-number modes 8))
|
|
(file-modes-symbolic-to-number modes (file-modes file)))))
|
|
(diredp-do-redisplay-recursive details 'MSGP)))
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-do-chgrp-recursive (&optional ignore-marks-p details)
|
|
"Change the group of the marked (or next ARG) files.
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-chxxx-recursive'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(diredp-do-chxxx-recursive "Group" "chgrp" 'chgrp ignore-marks-p nil details)))
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-do-chown-recursive (&optional ignore-marks-p details)
|
|
"Change the owner of the marked (or next ARG) files.
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-chxxx-recursive'."
|
|
(interactive (list current-prefix-arg diredp-list-file-attributes))
|
|
(diredp-do-chxxx-recursive "Owner" dired-chown-program 'chown ignore-marks-p nil details)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-touch-recursive (&optional ignore-marks-p details)
|
|
"Change the timestamp of marked files, including those in marked subdirs.
|
|
This calls `touch'. Like `dired-do-touch', but act recursively on
|
|
subdirs. The subdirs inserted are those that are marked in the
|
|
current Dired buffer, or all subdirs in the directory if none are
|
|
marked. Marked subdirectories are handled recursively in the same
|
|
way.
|
|
|
|
With a prefix argument, ignore all marks - include all files in this
|
|
Dired buffer and all subdirs, recursively.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-do-chxxx-recursive'."
|
|
(interactive (progn (diredp-get-confirmation-recursive) (list current-prefix-arg diredp-list-file-attributes)))
|
|
(diredp-do-chxxx-recursive "Timestamp" (if (boundp 'dired-touch-program)
|
|
dired-touch-program ; Emacs 22+
|
|
"touch")
|
|
'touch
|
|
ignore-marks-p
|
|
(format-time-string "%Y%m%d%H%M.%S" (current-time))
|
|
details))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-redisplay-recursive (&optional details msgp)
|
|
"Redisplay marked file lines, including those in marked subdirs.
|
|
Non-nil MSGP means show status messages.
|
|
Like `dired-do-redisplay' with no args, but act recursively on
|
|
subdirs.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(unless (y-or-n-p "Act on all marked file lines in and UNDER this dir? ")
|
|
(error "OK, canceled"))
|
|
(list diredp-list-file-attributes t)))
|
|
(when msgp (message "Redisplaying..."))
|
|
(dolist (dir (cons default-directory
|
|
(diredp-get-files nil #'file-directory-p 'INCLUDE-SUBDIRS 'DONT-ASK nil details)))
|
|
(with-current-buffer (dired-noselect dir)
|
|
;; `message' is much faster than making `dired-map-over-marks' show progress
|
|
(dired-uncache (if (consp dired-directory) (car dired-directory) dired-directory))
|
|
(dired-map-over-marks
|
|
(let ((fname (dired-get-filename))
|
|
;; Postpone readin hook till we map over all marked files (Bug#6810).
|
|
(dired-after-readin-hook nil))
|
|
(message "Redisplaying... %s" fname)
|
|
(dired-update-file-line fname))
|
|
nil)
|
|
(run-hooks 'dired-after-readin-hook)
|
|
(dired-move-to-filename)))
|
|
(when msgp (message "Redisplaying...done")))
|
|
|
|
|
|
;;; `diredp-marked(-other-window)' tries to treat SWITCHES, but SWITCHES seems to be ignored
|
|
;;; by `dired' when the DIRNAME arg is a cons, at least on MS Windows. I filed Emacs bug #952
|
|
;;; on 2008-09-10, but this doesn't work in Emacs 20, 21, 22, or 23, so I don't know if it will
|
|
;;; ever be fixed. If it is declared a non-bug and it doesn't work on any platforms, then I'll
|
|
;;; remove SWITCHES here, alas.
|
|
|
|
;;;###autoload
|
|
(defun diredp-marked (dirname &optional n switches) ; Not bound
|
|
"Open Dired on only the marked files or the next N files.
|
|
With a non-zero numeric prefix arg N, use the next abs(N) files.
|
|
A plain (`C-u'), zero, or negative prefix arg prompts for listing
|
|
switches as in command `dired'.
|
|
|
|
Note that the marked files can include files in inserted
|
|
subdirectories, so the Dired buffer that is opened can contain files
|
|
from multiple directories in the same tree."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(let ((num (and current-prefix-arg
|
|
(atom current-prefix-arg)
|
|
(not (zerop (prefix-numeric-value current-prefix-arg)))
|
|
(abs (prefix-numeric-value current-prefix-arg)))))
|
|
(list (cons (generate-new-buffer-name (buffer-name)) (dired-get-marked-files t num))
|
|
num
|
|
(and current-prefix-arg ; Switches
|
|
(or (consp current-prefix-arg)
|
|
(< (prefix-numeric-value current-prefix-arg) 0))
|
|
(read-string "Dired listing switches: " dired-listing-switches))))))
|
|
(unless (or n (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t))))
|
|
(error "No marked files"))
|
|
(dired dirname switches))
|
|
|
|
;;;###autoload
|
|
(defun diredp-marked-other-window (dirname &optional n switches) ; Bound to `C-M-*'
|
|
"Same as `diredp-marked', but uses a different window."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(let ((num (and current-prefix-arg
|
|
(atom current-prefix-arg)
|
|
(not (zerop (prefix-numeric-value current-prefix-arg)))
|
|
(abs (prefix-numeric-value current-prefix-arg)))))
|
|
(list (cons (generate-new-buffer-name (buffer-name)) (dired-get-marked-files t num))
|
|
num
|
|
(and current-prefix-arg ; Switches
|
|
(or (consp current-prefix-arg)
|
|
(< (prefix-numeric-value current-prefix-arg) 0))
|
|
(read-string "Dired listing switches: " dired-listing-switches))))))
|
|
(unless (or n (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t))))
|
|
(error "No marked files"))
|
|
(dired-other-window dirname switches))
|
|
|
|
|
|
;; Similar to `dired-mark-extension' in `dired-x.el'.
|
|
;; The difference is that this uses prefix arg to unmark, not to determine the mark character.
|
|
;;;###autoload
|
|
(defun diredp-mark/unmark-extension (extension &optional unmark-p) ; Bound to `* .'
|
|
"Mark all files with a certain EXTENSION for use in later commands.
|
|
A `.' is not automatically prepended to the string entered.
|
|
Non-nil prefix argument UNMARK-P means unmark instead of mark.
|
|
|
|
Non-interactively, EXTENSION is the extension (a string). It can also
|
|
be a list of extension strings.
|
|
Optional argument UNMARK-P is the prefix arg."
|
|
(interactive (list (diredp-read-regexp (concat (if current-prefix-arg "UNmark" "Mark") "ing extension: "))
|
|
current-prefix-arg))
|
|
(or (listp extension) (setq extension (list extension)))
|
|
(dired-mark-files-regexp (concat ".";; Do not match names with nothing but an extension
|
|
"\\("
|
|
(mapconcat #'regexp-quote extension "\\|")
|
|
"\\)$")
|
|
(and current-prefix-arg ?\040)))
|
|
|
|
(defun diredp-mark-files-tagged-all/none (tags &optional none-p unmarkp prefix)
|
|
"Mark or unmark files tagged with all or none of TAGS.
|
|
TAGS is a list of strings, the tag names.
|
|
NONEP non-nil means mark/unmark files that have none of the TAGS.
|
|
UNMARKP non-nil means unmark; nil means mark.
|
|
PREFIX non-nil is the prefix of the autofile bookmarks to check.
|
|
|
|
As a special case, if TAGS is empty, then mark or unmark the files
|
|
that have any tags at all, or if NONEP is non-nil then mark or unmark
|
|
those that have no tags at all."
|
|
(let ((dired-marker-char (if unmarkp ?\040 dired-marker-char)))
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot)) (not (eolp))
|
|
(let* ((fname (dired-get-filename nil t))
|
|
(bmk (and fname (bmkp-get-autofile-bookmark fname nil prefix)))
|
|
(btgs (and bmk (bmkp-get-tags bmk)))
|
|
(presentp nil)
|
|
(allp (and btgs (catch 'diredp-m-f-t-an
|
|
(dolist (tag tags)
|
|
(setq presentp (assoc-default tag btgs nil t))
|
|
(unless (if none-p (not presentp) presentp)
|
|
(throw 'diredp-m-f-t-an nil)))
|
|
t))))
|
|
(if (null tags)
|
|
(if none-p (not btgs) btgs)
|
|
allp)))
|
|
(if none-p "no-tags-matching file" "all-tags-matching file"))))
|
|
|
|
(defun diredp-mark-files-tagged-some/not-all (tags &optional notallp unmarkp prefix)
|
|
"Mark or unmark files tagged with any or not all of TAGS.
|
|
TAGS is a list of strings, the tag names.
|
|
NOTALLP non-nil means mark/unmark files that do not have all TAGS.
|
|
UNMARKP non-nil means unmark; nil means mark.
|
|
PREFIX non-nil is the prefix of the autofile bookmarks to check.
|
|
|
|
As a special case, if TAGS is empty, then mark or unmark the files
|
|
that have any tags at all, or if NOTALLP is non-nil then mark or
|
|
unmark those that have no tags at all."
|
|
(let ((dired-marker-char (if unmarkp ?\040 dired-marker-char)))
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot)) (not (eolp))
|
|
(let* ((fname (dired-get-filename nil t))
|
|
(bmk (and fname
|
|
(bmkp-get-autofile-bookmark fname nil prefix)))
|
|
(btgs (and bmk (bmkp-get-tags bmk)))
|
|
(presentp nil)
|
|
(allp (and btgs (catch 'diredp-m-f-t-sna
|
|
(dolist (tag tags)
|
|
(setq presentp (assoc-default tag btgs nil t))
|
|
(when (if notallp (not presentp) presentp)
|
|
(throw 'diredp-m-f-t-sna t)))
|
|
nil))))
|
|
(if (null tags) (if notallp (not btgs) btgs) allp)))
|
|
(if notallp "some-tags-not-matching file" "some-tags-matching file"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-tagged-all (tags &optional none-p prefix) ; `T m *'
|
|
"Mark all files that are tagged with *each* tag in TAGS.
|
|
As a special case, if TAGS is empty, then mark the files that have
|
|
any tags at all (i.e., at least one tag).
|
|
With a prefix arg, mark all that are *not* tagged with *any* TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-all/none tags none-p nil prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-tagged-none (tags &optional allp prefix) ; `T m ~ +'
|
|
"Mark all files that are not tagged with *any* tag in TAGS.
|
|
As a special case, if TAGS is empty, then mark the files that have
|
|
no tags at all.
|
|
With a prefix arg, mark all that are tagged with *each* tag in TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-all/none tags (not allp) nil prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-tagged-some (tags &optional somenotp prefix) ; `T m +'
|
|
"Mark all files that are tagged with *some* tag in TAGS.
|
|
As a special case, if TAGS is empty, then mark the files that have
|
|
any tags at all (i.e., at least one tag).
|
|
With a prefix arg, mark all that are *not* tagged with *all* TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-some/not-all tags somenotp nil prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-tagged-not-all (tags &optional somep prefix) ; `T m ~ *'
|
|
"Mark all files that are not tagged with *all* TAGS.
|
|
As a special case, if TAGS is empty, then mark the files that have
|
|
no tags at all.
|
|
With a prefix arg, mark all that are tagged with *some* TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-some/not-all tags (not somep) nil prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-files-tagged-regexp (regexp &optional notp prefix) ; `T m %'
|
|
"Mark files that have at least one tag that matches REGEXP.
|
|
With a prefix arg, mark all that are tagged but have no matching tags.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (read-string "Regexp: ")
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot)) (not (eolp))
|
|
(lexical-let* ((fname (dired-get-filename nil t))
|
|
(bmk (and fname
|
|
(bmkp-get-autofile-bookmark fname nil prefix)))
|
|
(btgs (and bmk (bmkp-get-tags bmk)))
|
|
(anyp (and btgs (bmkp-some #'(lambda (tag)
|
|
(diredp-string-match-p
|
|
regexp
|
|
(bmkp-tag-name tag)))
|
|
btgs))))
|
|
(and btgs (if notp (not anyp) anyp))))
|
|
"some-tag-matching-regexp file"))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-files-tagged-regexp (regexp &optional notp prefix) ; `T u %'
|
|
"Unmark files that have at least one tag that matches REGEXP.
|
|
With a prefix arg, unmark all that are tagged but have no matching tags.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (read-string "Regexp: ")
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(let ((dired-marker-char ?\040))
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot)) (not (eolp))
|
|
(lexical-let* ((fname (dired-get-filename nil t))
|
|
(bmk (and fname (bmkp-get-autofile-bookmark fname nil prefix)))
|
|
(btgs (and bmk (bmkp-get-tags bmk)))
|
|
(anyp (and btgs (bmkp-some #'(lambda (tag)
|
|
(diredp-string-match-p
|
|
regexp
|
|
(bmkp-tag-name tag)))
|
|
btgs))))
|
|
(and btgs (if notp (not anyp) anyp))))
|
|
"some-tag-matching-regexp file")))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-files-tagged-all (tags &optional none-p prefix) ; `T u *'
|
|
"Unmark all files that are tagged with *each* tag in TAGS.
|
|
As a special case, if TAGS is empty, then unmark the files that have
|
|
any tags at all (i.e., at least one tag).
|
|
With a prefix arg, unmark all that are *not* tagged with *any* TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-all/none tags none-p 'UNMARK prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-files-tagged-none (tags &optional allp prefix) ; `T u ~ +'
|
|
"Unmark all files that are *not* tagged with *any* tag in TAGS.
|
|
As a special case, if TAGS is empty, then unmark the files that have
|
|
no tags at all.
|
|
With a prefix arg, unmark all that are tagged with *each* tag in TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-all/none tags (not allp) 'UNMARK prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-files-tagged-some (tags &optional somenotp prefix) ; `T u +'
|
|
"Unmark all files that are tagged with *some* tag in TAGS.
|
|
As a special case, if TAGS is empty, then unmark the files that have
|
|
any tags at all.
|
|
With a prefix arg, unmark all that are *not* tagged with *all* TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-some/not-all tags somenotp 'UNMARK prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-files-tagged-not-all (tags &optional somep prefix) ; `T u ~ *'
|
|
"Unmark all files that are *not* tagged with *all* TAGS.
|
|
As a special case, if TAGS is empty, then unmark the files that have
|
|
no tags at all.
|
|
With a prefix arg, unmark all that are tagged with *some* TAGS.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (list (and (fboundp 'bmkp-read-tags-completing) (bmkp-read-tags-completing))
|
|
current-prefix-arg
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark names: "))))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark-files-tagged-some/not-all tags (not somep) 'UNMARK prefix))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-tag (tags &optional prefix arg) ; `T > +'
|
|
"Tag the marked (or the next prefix argument) files.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
Hit `RET' to enter each tag, then hit `RET' again after the last tag.
|
|
You can use completion to enter each tag. Completion is lax: you are
|
|
not limited to existing tags.
|
|
|
|
TAGS is a list of strings. PREFIX is as for `diredp-do-bookmark'.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (bmkp-read-tags-completing)
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark name: "))
|
|
current-prefix-arg)))
|
|
(dired-map-over-marks-check (lexical-let ((pref prefix)) #'(lambda () (diredp-tag tags pref)))
|
|
arg 'tag (diredp-fewer-than-2-files-p arg)))
|
|
|
|
(defun diredp-tag (tags &optional prefix)
|
|
"Add tags to the file or directory named on the current line.
|
|
You need library `bookmark+.el' to use this function.
|
|
The bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Return nil for success, file name otherwise."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((file (dired-get-file-for-visit))
|
|
failure)
|
|
(condition-case err
|
|
(bmkp-autofile-add-tags file tags nil prefix)
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(dired-log failure)
|
|
(dired-make-relative file)))) ; Return file name for failure.
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-tag (event) ; Not bound
|
|
"In Dired, add some tags to this file.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-tag (bmkp-read-tags-completing) prefix))
|
|
1 'tag t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-untag (tags &optional prefix arg) ; `T > -'
|
|
"Remove some tags from the marked (or the next prefix arg) files.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
Hit `RET' to enter each tag, then hit `RET' again after the last tag.
|
|
You can use completion to enter each tag. Completion is lax: you are
|
|
not limited to existing tags.
|
|
|
|
TAGS is a list of strings. PREFIX is as for `diredp-do-bookmark'.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (bmkp-read-tags-completing)
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
current-prefix-arg)))
|
|
(dired-map-over-marks-check (lexical-let ((pref prefix))
|
|
#'(lambda () (diredp-untag tags pref)))
|
|
arg 'untag (diredp-fewer-than-2-files-p arg)))
|
|
|
|
(defun diredp-untag (tags &optional prefix)
|
|
"Remove some tags from the file or directory named on the current line.
|
|
You need library `bookmark+.el' to use this function.
|
|
The bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Return nil for success, file name otherwise."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((file (dired-get-file-for-visit))
|
|
failure)
|
|
(condition-case err
|
|
(bmkp-autofile-remove-tags file tags nil prefix)
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(dired-log failure)
|
|
(dired-make-relative file)))) ; Return file name for failure.
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-untag (event) ; Not bound
|
|
"In Dired, remove some tags from this file.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(lexical-let* ((bmk (bmkp-get-autofile-bookmark (dired-get-filename) nil prefix))
|
|
(btgs (and bmk (bmkp-get-tags bmk))))
|
|
(unless btgs (error "File has no tags to remove"))
|
|
(dired-map-over-marks-check
|
|
#'(lambda () (diredp-untag (bmkp-read-tags-completing btgs) prefix)) 1 'untag t)))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-remove-all-tags (&optional prefix arg) ; `T > 0'
|
|
"Remove all tags from the marked (or the next prefix arg) files.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
PREFIX is as for `diredp-do-bookmark'.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
current-prefix-arg)))
|
|
(lexical-let ((pref prefix))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-remove-all-tags pref)) arg 'remove-all-tags
|
|
(diredp-fewer-than-2-files-p arg))))
|
|
|
|
(defun diredp-remove-all-tags (&optional prefix)
|
|
"Remove all tags from the file or directory named on the current line.
|
|
You need library `bookmark+.el' to use this function.
|
|
The bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Return nil for success, file name otherwise."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((file (dired-get-file-for-visit))
|
|
failure)
|
|
(condition-case err
|
|
(bmkp-remove-all-tags (bmkp-autofile-set file nil prefix))
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(dired-log failure)
|
|
(dired-make-relative file)))) ; Return file name for failure.
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-remove-all-tags (event) ; Not bound
|
|
"In Dired, remove all tags from the marked (or next prefix arg) files.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-remove-all-tags prefix))
|
|
1 'remove-all-tags t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-paste-add-tags (&optional prefix arg) ; `T > p', `T > C-y'
|
|
"Add previously copied tags to the marked (or next prefix arg) files.
|
|
The tags were previously copied from a file to `bmkp-copied-tags'.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark name: "))
|
|
current-prefix-arg)))
|
|
(dired-map-over-marks-check (lexical-let ((pref prefix))
|
|
#'(lambda () (diredp-paste-add-tags pref)))
|
|
arg 'paste-add-tags
|
|
(diredp-fewer-than-2-files-p arg)))
|
|
|
|
(defun diredp-paste-add-tags (&optional prefix)
|
|
"Add previously copied tags to the file or directory on the current line.
|
|
The tags were previously copied from a file to `bmkp-copied-tags'.
|
|
You need library `bookmark+.el' to use this function.
|
|
The bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Return nil for success, file name otherwise."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((file (dired-get-file-for-visit))
|
|
failure)
|
|
(condition-case err
|
|
(bmkp-autofile-add-tags file bmkp-copied-tags nil prefix)
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(dired-log failure)
|
|
(dired-make-relative file)))) ; Return file name for failure.
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-paste-add-tags (event) ; Not bound
|
|
"In Dired, add previously copied tags to this file.
|
|
The tags were previously copied from a file to `bmkp-copied-tags'.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-paste-add-tags prefix))
|
|
1 'paste-add-tags t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-paste-replace-tags (&optional prefix arg) ; `T > q'
|
|
"Replace tags for marked (or next prefix arg) files with copied tags.
|
|
The tags were previously copied from a file to `bmkp-copied-tags'.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for autofile bookmark name: "))
|
|
current-prefix-arg)))
|
|
(dired-map-over-marks-check (lexical-let ((pref prefix))
|
|
#'(lambda () (diredp-paste-replace-tags pref)))
|
|
arg 'paste-replace-tags (diredp-fewer-than-2-files-p arg)))
|
|
|
|
(defun diredp-paste-replace-tags (&optional prefix)
|
|
"Replace tags for this file or dir with tags copied previously.
|
|
The tags were previously copied from a file to `bmkp-copied-tags'.
|
|
You need library `bookmark+.el' to use this function.
|
|
The bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Return nil for success, file name otherwise."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((file (dired-get-file-for-visit))
|
|
failure)
|
|
(condition-case err
|
|
(progn (bmkp-remove-all-tags (bmkp-autofile-set file nil prefix))
|
|
(bmkp-autofile-add-tags file bmkp-copied-tags nil prefix))
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(dired-log failure)
|
|
(dired-make-relative file))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-paste-replace-tags (event) ; Not bound
|
|
"In Dired, replace tags for this file with tags copied previously.
|
|
The tags were previously copied from a file to `bmkp-copied-tags'.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-paste-replace-tags prefix))
|
|
1 'paste-replace-tags t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-set-tag-value (tag value &optional prefix arg) ; `T > v'
|
|
"Set TAG value to VALUE, for the marked (or next prefix arg) files.
|
|
This does not change the TAG name.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
PREFIX is as for `diredp-do-bookmark'.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (bmkp-read-tag-completing)
|
|
(read (read-string "Value: "))
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
current-prefix-arg)))
|
|
(dired-map-over-marks-check (lexical-let ((tg tag)
|
|
(val value)
|
|
(pref prefix))
|
|
#'(lambda () (diredp-set-tag-value tg val pref)))
|
|
arg 'set-tag-value (diredp-fewer-than-2-files-p arg)))
|
|
|
|
(defun diredp-set-tag-value (tag value &optional prefix)
|
|
"Set TAG value to VALUE for this file or directory.
|
|
This does not change the TAG name.
|
|
You need library `bookmark+.el' to use this function.
|
|
The bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Return nil for success, file name otherwise."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((file (dired-get-file-for-visit))
|
|
failure)
|
|
(condition-case err
|
|
(bmkp-set-tag-value (bmkp-autofile-set file nil prefix) tag value)
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(dired-log failure)
|
|
(dired-make-relative file)))) ; Return file name for failure.
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-set-tag-value (event) ; Not bound
|
|
"In Dired, set the value of a tag for this file.
|
|
This does not change the tag name.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-set-tag-value (bmkp-read-tag-completing)
|
|
(read (read-string "Value: "))
|
|
prefix))
|
|
1 'set-tag-value t))
|
|
(diredp-previous-line 1))
|
|
|
|
|
|
;; Define these even if `Bookmark+' is not loaded.
|
|
;;;###autoload
|
|
(defun diredp-mark-autofiles () ; Bound to `* B'
|
|
"Mark all autofiles, that is, files that have an autofile bookmark."
|
|
(interactive)
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark/unmark-autofiles))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-autofiles ()
|
|
"Unmark all autofiles, that is, files that have an autofile bookmark."
|
|
(interactive)
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(diredp-mark/unmark-autofiles t))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark/unmark-autofiles (&optional unmarkp)
|
|
"Mark all autofiles, or unmark if UNMARKP is non-nil."
|
|
(let ((dired-marker-char (if unmarkp ?\040 dired-marker-char)))
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot)) (not (eolp))
|
|
(let ((fname (dired-get-filename nil t)))
|
|
(and fname (bmkp-get-autofile-bookmark fname))))
|
|
"autofile")))
|
|
|
|
(when (and (fboundp 'bmkp-get-autofile-bookmark) ; Defined in `bookmark+-1.el'.
|
|
(fboundp 'hlt-highlight-region)) ; Defined in `highlight.el'.
|
|
|
|
(defun diredp-highlight-autofiles ()
|
|
"Highlight files that are autofile bookmarks.
|
|
Highlighting uses face `diredp-autofile-name'."
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(while (re-search-forward dired-move-to-filename-regexp nil t)
|
|
;; If Dired details are hidden the match data gets changed.
|
|
(let* ((bmk (save-match-data
|
|
(bmkp-get-autofile-bookmark (buffer-substring (match-end 0) (line-end-position)))))
|
|
(tags (and bmk (bmkp-get-tags bmk))))
|
|
(when bmk
|
|
(hlt-highlight-region (match-end 0) (line-end-position)
|
|
(if tags
|
|
'diredp-tagged-autofile-name
|
|
'diredp-autofile-name)))))))
|
|
|
|
(cond ((fboundp 'define-minor-mode)
|
|
;; Emacs 21+. Use `eval' so that even if the library is byte-compiled with Emacs 20,
|
|
;; loading it into Emacs 21+ will define variable `diredp-highlight-autofiles-mode'.
|
|
(eval '(define-minor-mode diredp-highlight-autofiles-mode
|
|
"Toggle automatic highlighting of autofile bookmarks.
|
|
When you turn this on, it ensures that your bookmark file is loaded.
|
|
|
|
NOTE: This mode is ON BY DEFAULT. More precisely, when `dired+.el' is
|
|
loaded (for the first time per Emacs session), the mode is turned ON.
|
|
To prevent this and have the mode OFF by default, you must do one of
|
|
the following:
|
|
|
|
* Put (diredp-highlight-autofiles-mode -1) in your init file, AFTER
|
|
it loads `dired+.el'.
|
|
|
|
* Customize option `diredp-highlight-autofiles-mode' to `nil', AND
|
|
ensure that your `custom-file' (or the `custom-saved-variables'
|
|
part of your init file) is evaluated before `dired+.el' is loaded.
|
|
|
|
You need libraries `Bookmark and `highlight.el' for this command."
|
|
:init-value t :global t :group 'Dired-Plus :require 'dired+
|
|
(if (not diredp-highlight-autofiles-mode)
|
|
(remove-hook 'dired-after-readin-hook #'diredp-highlight-autofiles)
|
|
(add-hook 'dired-after-readin-hook #'diredp-highlight-autofiles)
|
|
(bookmark-maybe-load-default-file))
|
|
(when (derived-mode-p 'dired-mode) (dired-revert nil nil))
|
|
(when (interactive-p)
|
|
(message "Dired highlighting of autofile bookmarks is now %s"
|
|
(if diredp-highlight-autofiles-mode "ON" "OFF"))))))
|
|
(t;; Emacs 20.
|
|
(defun diredp-highlight-autofiles-mode (&optional arg)
|
|
"Toggle automatic highlighting of autofile bookmarks.
|
|
When you turn this on, it ensures that your bookmark file is loaded.
|
|
|
|
NOTE: This mode is ON BY DEFAULT. More precisely, when `dired+.el' is
|
|
loaded (for the first time per Emacs session), the mode is turned ON.
|
|
To prevent this and have the mode OFF by default, you must do one of
|
|
the following:
|
|
|
|
* Put (diredp-highlight-autofiles-mode -1) in your init file, AFTER
|
|
it loads `dired+.el'.
|
|
|
|
* Customize option `diredp-highlight-autofiles-mode' to `nil', AND
|
|
ensure that your `custom-file' (or the `custom-saved-variables'
|
|
part of your init file) is evaluated before `dired+.el' is loaded.
|
|
|
|
You need libraries `Bookmark and `highlight.el' for this command."
|
|
(interactive (list (or current-prefix-arg 'toggle)))
|
|
(setq diredp-highlight-autofiles-mode (if (eq arg 'toggle)
|
|
(not diredp-highlight-autofiles-mode)
|
|
(> (prefix-numeric-value arg) 0)))
|
|
(if (not diredp-highlight-autofiles-mode)
|
|
(remove-hook 'dired-after-readin-hook #'diredp-highlight-autofiles)
|
|
(add-hook 'dired-after-readin-hook #'diredp-highlight-autofiles)
|
|
(bookmark-maybe-load-default-file))
|
|
(when (derived-mode-p 'dired-mode) (dired-revert nil nil))
|
|
(when (interactive-p) (message "Dired highlighting of autofile bookmarks is now %s"
|
|
(if diredp-highlight-autofiles-mode "ON" "OFF"))))))
|
|
|
|
;; Turn it ON BY DEFAULT.
|
|
(unless (or (boundp 'diredp-loaded-p) (get 'diredp-highlight-autofiles-mode 'saved-value))
|
|
(diredp-highlight-autofiles-mode 1))
|
|
)
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-bookmark (&optional prefix arg) ; Bound to `M-b'
|
|
"Bookmark the marked (or the next prefix argument) files.
|
|
Each bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Interactively, you are prompted for the PREFIX if
|
|
`diredp-prompt-for-bookmark-prefix-flag' is non-nil.
|
|
The bookmarked position is the beginning of the file.
|
|
If you use library `bookmark+.el' then the bookmark is an autofile.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
current-prefix-arg)))
|
|
(dired-map-over-marks-check (lexical-let ((pref prefix))
|
|
#'(lambda () (diredp-bookmark pref nil 'NO-MSG-P)))
|
|
arg 'bookmark (diredp-fewer-than-2-files-p arg)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-bookmark (event) ; Not bound
|
|
"In Dired, bookmark this file. See `diredp-do-bookmark'."
|
|
(interactive "e")
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'(lambda () (diredp-bookmark prefix nil)) nil 'bookmark t))
|
|
(diredp-previous-line 1))
|
|
|
|
(defun diredp-bookmark (&optional prefix file no-msg-p)
|
|
"Bookmark the file or directory FILE.
|
|
If you use library `bookmark+.el' then the bookmark is an autofile.
|
|
Return nil for success or the file name otherwise.
|
|
|
|
The bookmark name is the (non-directory) file name, prefixed by
|
|
optional arg PREFIX (a string) if non-nil.
|
|
|
|
FILE defaults to the file name on the current Dired line.
|
|
|
|
Non-nil optional arg NO-MSG-P means do not show progress messages."
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((fil (or file (dired-get-file-for-visit)))
|
|
(failure nil))
|
|
(condition-case err
|
|
(if (fboundp 'bmkp-autofile-set) ; Bookmark+ - just set an autofile bookmark.
|
|
(bmkp-autofile-set fil nil prefix nil (not no-msg-p))
|
|
;; Vanilla `bookmark.el' (or very old Bookmark+ version).
|
|
(let ((bookmark-make-record-function
|
|
(cond ((and (require 'image nil t) (require 'image-mode nil t)
|
|
(condition-case nil (image-type fil) (error nil)))
|
|
;; Last two lines of function are from `image-bookmark-make-record'.
|
|
;; But don't use that directly, because it uses
|
|
;; `bookmark-make-record-default', which gets nil for `filename'.
|
|
(lambda ()
|
|
`((filename . ,fil)
|
|
(position . 0)
|
|
;; NEED to keep this part of code sync'd with `bmkp-make-record-for-target-file'.
|
|
(image-type . ,(image-type fil))
|
|
(handler . image-bookmark-jump)))) ; In `image-mode.el'.
|
|
(t
|
|
(lambda ()
|
|
`((filename . ,fil)
|
|
(position . 0)))))))
|
|
(bookmark-store (concat prefix (file-name-nondirectory fil)) (cdr (bookmark-make-record)) nil)))
|
|
(error (setq failure (error-message-string err))))
|
|
(if (not failure)
|
|
nil ; Return nil for success.
|
|
(if (fboundp 'bmkp-autofile-set)
|
|
(dired-log failure)
|
|
(dired-log "Failed to create bookmark for `%s':\n%s\n" fil failure))
|
|
(dired-make-relative fil)))) ; Return file name for failure.
|
|
|
|
;;;###autoload
|
|
(defun diredp-set-bookmark-file-bookmark-for-marked (bookmark-file ; Bound to `C-M-b'
|
|
&optional prefix arg)
|
|
"Bookmark the marked files and create a bookmark-file bookmark for them.
|
|
The bookmarked position is the beginning of the file.
|
|
Jumping to the bookmark-file bookmark loads the set of file bookmarks.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
Each bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Interactively, you are prompted for PREFIX if
|
|
`diredp-prompt-for-bookmark-prefix-flag' is non-nil.
|
|
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories.
|
|
|
|
You are also prompted for the bookmark file, BOOKMARK-FILE. The
|
|
default is `.emacs.bmk' in the current directory, but you can enter
|
|
any file name, anywhere.
|
|
|
|
The marked-file bookmarks are added to file BOOKMARK-FILE, but this
|
|
command does not make BOOKMARK-FILE the current bookmark file. To
|
|
make it current, just jump to the bookmark-file bookmark created by
|
|
this command. That bookmark (which bookmarks BOOKMARK-FILE) is
|
|
defined in that current bookmark file.
|
|
|
|
Example:
|
|
|
|
Bookmark file `~/.emacs.bmk' is current before invoking this command.
|
|
The current (Dired) directory is `/foo/bar'.
|
|
The marked files are bookmarked in the (possibly new) bookmark file
|
|
`/foo/bar/.emacs.bmk'.
|
|
The bookmarks for the marked files have names prefixed by `FOOBAR '.
|
|
The name of the bookmark-file bookmark is `Foobar Files'.
|
|
Bookmark `Foobar Files' is itself in bookmark file `~/.emacs.bmk'.
|
|
Bookmark file `~/.emacs.bmk' is current after invoking this command.
|
|
|
|
You are prompted for the name of the bookmark-file bookmark, the
|
|
BOOKMARK-FILE for the marked-file bookmarks, and a PREFIX string for
|
|
each of the marked-file bookmarks.
|
|
|
|
See also command `diredp-do-bookmark-in-bookmark-file'."
|
|
(interactive (diredp-read-bookmark-file-args))
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-do-bookmark-in-bookmark-file bookmark-file prefix arg 'CREATE-BOOKMARK-FILE-BOOKMARK))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-bookmark-in-bookmark-file (bookmark-file ; Bound to `C-M-B' (aka `C-M-S-b')
|
|
&optional prefix arg bfile-bookmarkp files)
|
|
"Bookmark marked files in BOOKMARK-FILE and save BOOKMARK-FILE.
|
|
The files bookmarked are the marked files, by default.
|
|
The bookmarked position is the beginning of the file.
|
|
You are prompted for BOOKMARK-FILE. The default is `.emacs.bmk' in
|
|
the current directory, but you can enter any file name, anywhere.
|
|
You need library `bookmark+.el' to use this command.
|
|
|
|
The marked files are bookmarked in file BOOKMARK-FILE, but this
|
|
command does not make BOOKMARK-FILE the current bookmark file. To
|
|
make it current, use `\\[bmkp-switch-bookmark-file]' (`bmkp-switch-bookmark-file').
|
|
|
|
Each bookmark name is the non-directory portion of the file name,
|
|
prefixed by PREFIX if it is non-nil.
|
|
Interactively, you are prompted for PREFIX if
|
|
`diredp-prompt-for-bookmark-prefix-flag' is non-nil.
|
|
|
|
Interactively, a prefix argument ARG specifies the files to use
|
|
instead of those marked.
|
|
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories.
|
|
|
|
See also command `diredp-set-bookmark-file-bookmark-for-marked'.
|
|
|
|
Non-interactively:
|
|
|
|
* Non-nil BFILE-BOOKMARKP means create a bookmark-file bookmark for
|
|
BOOKMARK-FILE.
|
|
* Non-nil FILES is the list of files to bookmark."
|
|
(interactive (diredp-read-bookmark-file-args))
|
|
(diredp-ensure-bookmark+)
|
|
(let ((bfile-exists-p (file-readable-p bookmark-file)))
|
|
(unless bfile-exists-p (bmkp-empty-file bookmark-file))
|
|
(unless bmkp-current-bookmark-file (setq bmkp-current-bookmark-file bookmark-default-file))
|
|
(let ((old-bmkp-current-bookmark-file bmkp-current-bookmark-file))
|
|
(unwind-protect
|
|
(progn (bmkp-switch-bookmark-file bookmark-file) ; Changes `*-current-bookmark-file'.
|
|
(if files
|
|
(dolist (file files) (diredp-bookmark prefix file 'NO-MSG-P))
|
|
(dired-map-over-marks-check
|
|
(lexical-let ((pref prefix)) #'(lambda () (diredp-bookmark pref nil 'NO-MSG-P)))
|
|
arg 'bookmark (diredp-fewer-than-2-files-p arg)))
|
|
(bookmark-save)
|
|
(unless bfile-exists-p (revert-buffer)))
|
|
(unless (bmkp-same-file-p old-bmkp-current-bookmark-file bmkp-current-bookmark-file)
|
|
(bmkp-switch-bookmark-file old-bmkp-current-bookmark-file 'NO-MSG))))
|
|
(when bfile-bookmarkp (bmkp-set-bookmark-file-bookmark bookmark-file))))
|
|
|
|
(defun diredp-read-bookmark-file-args ()
|
|
"Read args for `diredp-do-bookmark-in-bookmark-file' and similar."
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (let* ((insert-default-directory t)
|
|
(bmk-file (expand-file-name
|
|
(read-file-name
|
|
"Use bookmark file (default is in CURRENT dir): " nil
|
|
(if (or (> emacs-major-version 23)
|
|
(and (= emacs-major-version 23) (> emacs-minor-version 1)))
|
|
(list ".emacs.bmk" bookmark-default-file)
|
|
".emacs.bmk")))))
|
|
bmk-file)
|
|
(and diredp-prompt-for-bookmark-prefix-flag (read-string "Prefix for autofile bookmark names: "))
|
|
current-prefix-arg))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Allows for consp `dired-directory' too.
|
|
;;
|
|
(defun dired-buffers-for-dir (dir &optional file)
|
|
"Return a list of buffers that Dired DIR (top level or in-situ subdir).
|
|
If FILE is non-nil, include only those whose wildcard pattern (if any)
|
|
matches FILE.
|
|
The list is in reverse order of buffer creation, most recent last.
|
|
As a side effect, killed Dired buffers for DIR are removed from
|
|
`dired-buffers'."
|
|
(setq dir (file-name-as-directory dir))
|
|
(let (result buf)
|
|
(dolist (elt dired-buffers)
|
|
(setq buf (cdr elt))
|
|
(cond ((null (buffer-name buf)) ; Buffer is killed - clean up.
|
|
(setq dired-buffers (delq elt dired-buffers)))
|
|
((dired-in-this-tree dir (car elt))
|
|
(with-current-buffer buf
|
|
(and (assoc dir dired-subdir-alist)
|
|
(or (null file)
|
|
(if (stringp dired-directory)
|
|
;; Allow for consp `dired-directory' too.
|
|
(let ((wildcards (file-name-nondirectory (if (consp dired-directory)
|
|
(car dired-directory)
|
|
dired-directory))))
|
|
(or (zerop (length wildcards))
|
|
(diredp-string-match-p (dired-glob-regexp wildcards) file)))
|
|
(member (expand-file-name file dir) (cdr dired-directory))))
|
|
(setq result (cons buf result)))))))
|
|
result))
|
|
|
|
|
|
;; If you use library `files+.el', you need not use these commands
|
|
;; explicitly, because that library redefines `find-file-read-args' to
|
|
;; do the same thing, in Dired mode. These are provided here in case
|
|
;; you want to bind them directly - for example, in case your code
|
|
;; does not use `find-file-read-args'.
|
|
;;
|
|
;;;###autoload
|
|
(defun diredp-find-a-file (filename &optional wildcards) ; Not bound
|
|
"`find-file', but use file on current line as default (`M-n')."
|
|
(interactive (diredp-find-a-file-read-args "Find file: " nil))
|
|
(find-file filename wildcards))
|
|
|
|
;;;###autoload
|
|
(defun diredp-find-a-file-other-frame (filename &optional wildcards) ; Not bound
|
|
"`find-file-other-frame', but use file under cursor as default (`M-n')."
|
|
(interactive (diredp-find-a-file-read-args "Find file: " nil))
|
|
(find-file-other-frame filename wildcards))
|
|
|
|
;;;###autoload
|
|
(defun diredp-find-a-file-other-window (filename &optional wildcards) ; Not bound
|
|
"`find-file-other-window', but use file under cursor as default (`M-n')."
|
|
(interactive (diredp-find-a-file-read-args "Find file: " nil))
|
|
(find-file-other-window filename wildcards))
|
|
|
|
;;;###autoload
|
|
(defun diredp-find-a-file-read-args (prompt mustmatch) ; Not bound
|
|
(list (lexical-let ((find-file-default (abbreviate-file-name (dired-get-file-for-visit))))
|
|
(minibuffer-with-setup-hook (lambda ()
|
|
(setq minibuffer-default find-file-default))
|
|
(read-file-name prompt nil default-directory mustmatch)))
|
|
t))
|
|
|
|
;;;###autoload
|
|
(defun diredp-find-file-reuse-dir-buffer () ; Not bound
|
|
"Like `dired-find-file', but reuse Dired buffers.
|
|
Unlike `dired-find-alternate-file' this does not use
|
|
`find-alternate-file' unless (1) the target is a directory that is not
|
|
yet visited as a Dired buffer, and (2) the current (Dired) buffer is
|
|
not visited also in some other window (possibly in an iconified
|
|
frame)."
|
|
(interactive)
|
|
(set-buffer-modified-p nil)
|
|
(let ((file (dired-get-file-for-visit)))
|
|
(diredp--reuse-dir-buffer-helper file)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-find-file-reuse-dir-buffer (event &optional find-file-func find-dir-func) ; Not bound
|
|
"Like `dired-mouse-find-file', but reuse Dired buffers.
|
|
Unlike `dired-find-alternate-file' this does not use
|
|
`find-alternate-file' unless (1) the target is a directory that is not
|
|
yet visited as a Dired buffer, and (2) the current (Dired) buffer is
|
|
not visited also in some other window (possibly in an iconified
|
|
frame).
|
|
|
|
Non-nil optional args FIND-FILE-FUNC and FIND-DIR-FUNC specify
|
|
functions to visit the file and directory, respectively.
|
|
Defaults: `find-file' and `dired', respectively."
|
|
(interactive "e")
|
|
(let (window pos file)
|
|
(save-excursion
|
|
(setq window (posn-window (event-end event))
|
|
pos (posn-point (event-end event)))
|
|
(unless (windowp window) (error "No file chosen"))
|
|
(set-buffer (window-buffer window))
|
|
(goto-char pos)
|
|
(setq file (dired-get-file-for-visit)))
|
|
(select-window window)
|
|
(diredp--reuse-dir-buffer-helper file find-file-func find-dir-func)))
|
|
|
|
(defun diredp--reuse-dir-buffer-helper (file &optional find-file-func find-dir-func other-window)
|
|
"Helper for commands `diredp-*-reuse-dir-buffer' commands.
|
|
Non-nil optional args FIND-FILE-FUNC and FIND-DIR-FUNC specify
|
|
functions to visit the file and directory, respectively.
|
|
Defaults: `find-file' and `dired', respectively.
|
|
|
|
Unlike `dired-find-alternate-file' this does not use
|
|
`find-alternate-file' unless (1) the target is a directory that is not
|
|
yet visited as a Dired buffer, and (2) the current (Dired) buffer is
|
|
not visited also in some other window (possibly in an iconified
|
|
frame)."
|
|
(setq find-file-func (or find-file-func (if other-window #'find-file-other-window #'find-file))
|
|
find-dir-func (or find-dir-func (if other-window #'dired-other-window #'dired)))
|
|
(let (;; This binding prevents problems with preserving point in windows displaying Dired buffers, because
|
|
;; reverting a Dired buffer empties it, which changes the places where the markers used by
|
|
;; `switch-to-buffer-preserve-window-point' point.
|
|
(switch-to-buffer-preserve-window-point (and (boundp 'switch-to-buffer-preserve-window-point) ; Emacs 24+
|
|
(or (not (boundp 'dired-auto-revert-buffer))
|
|
(not dired-auto-revert-buffer))
|
|
switch-to-buffer-preserve-window-point))
|
|
(find-file-run-dired t)
|
|
(wins ())
|
|
(alt-find-file-func (if other-window
|
|
#'find-alternate-file-other-window
|
|
#'find-alternate-file))
|
|
dir-bufs)
|
|
(if (or (not (file-directory-p file)) ; New is a not a directory
|
|
(dired-buffers-for-dir file) ; or there is a Dired buffer for it, even as a subdir.
|
|
(and (setq dir-bufs (dired-buffers-for-dir default-directory)) ; Dired bufs for current (old).
|
|
(progn
|
|
(dolist (buf dir-bufs)
|
|
(setq wins (append wins (get-buffer-window-list buf 'NOMINI 0))))
|
|
(setq wins (delq nil wins))
|
|
(cdr wins)))) ; More than one window showing current Dired buffer.
|
|
(if (file-directory-p file)
|
|
(or (and (cdr dired-subdir-alist) (dired-goto-subdir file)) ; New is a subdir inserted in current
|
|
(funcall find-dir-func file))
|
|
(funcall find-file-func (file-name-sans-versions file t)))
|
|
(funcall alt-find-file-func (file-name-sans-versions file t)))))
|
|
|
|
;;;###autoload
|
|
(defalias 'toggle-diredp-find-file-reuse-dir 'diredp-toggle-find-file-reuse-dir)
|
|
;;;###autoload
|
|
(defun diredp-toggle-find-file-reuse-dir (force-p) ; Bound to `C-M-R' (aka `C-M-S-r')
|
|
"Toggle whether Dired `find-file' commands reuse directories.
|
|
This applies also to `dired-w32-browser' commands and
|
|
`diredp-up-directory'.
|
|
|
|
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:
|
|
|
|
(diredp-toggle-find-file-reuse-dir VALUE)
|
|
|
|
Note: This affects only these commands:
|
|
|
|
`dired-find-file'
|
|
`dired-mouse-find-file'
|
|
|
|
It does not affect the corresponding `-other-window' commands. Note
|
|
too that, by default, mouse clicks to open files or directories open
|
|
in another window: command `diredp-mouse-find-file-other-window', not
|
|
`dired-mouse-find-file'. If you want a mouse click to reuse a
|
|
directory then bind `mouse-2' to `dired-mouse-find-file' instead."
|
|
(interactive "P")
|
|
(if force-p ; Force.
|
|
(if (natnump (prefix-numeric-value force-p))
|
|
(diredp-make-find-file-keys-reuse-dirs)
|
|
(diredp-make-find-file-keys-not-reuse-dirs))
|
|
(if (where-is-internal 'dired-find-file dired-mode-map 'ascii)
|
|
(diredp-make-find-file-keys-reuse-dirs)
|
|
(diredp-make-find-file-keys-not-reuse-dirs))))
|
|
|
|
(defun diredp-make-find-file-keys-reuse-dirs ()
|
|
"Make find-file keys reuse Dired buffers."
|
|
(substitute-key-definition 'diredp-up-directory 'diredp-up-directory-reuse-dir-buffer dired-mode-map)
|
|
(substitute-key-definition 'dired-find-file 'diredp-find-file-reuse-dir-buffer dired-mode-map)
|
|
(substitute-key-definition 'dired-mouse-find-file 'diredp-mouse-find-file-reuse-dir-buffer dired-mode-map)
|
|
;; These commands are defined in `w32-browser.el' (for use with MS Windows).
|
|
(substitute-key-definition 'dired-w32-browser 'dired-w32-browser-reuse-dir-buffer dired-mode-map)
|
|
(substitute-key-definition 'dired-mouse-w32-browser 'dired-mouse-w32-browser-reuse-dir-buffer dired-mode-map)
|
|
(message "Reusing Dired buffers is now ON"))
|
|
|
|
(defun diredp-make-find-file-keys-not-reuse-dirs ()
|
|
"Make find-file keys not reuse Dired buffers (i.e. act normally)."
|
|
(substitute-key-definition 'diredp-up-directory-reuse-dir-buffer 'diredp-up-directory dired-mode-map)
|
|
(substitute-key-definition 'diredp-find-file-reuse-dir-buffer 'dired-find-file dired-mode-map)
|
|
(substitute-key-definition 'diredp-mouse-find-file-reuse-dir-buffer 'dired-mouse-find-file dired-mode-map)
|
|
;; These commands are defined in `w32-browser.el' (for use with MS Windows).
|
|
(substitute-key-definition 'dired-w32-browser-reuse-dir-buffer 'dired-w32-browser dired-mode-map)
|
|
(substitute-key-definition 'dired-mouse-w32-browser-reuse-dir-buffer 'dired-mouse-w32-browser dired-mode-map)
|
|
(message "Reusing Dired buffers is now OFF"))
|
|
|
|
;;;###autoload
|
|
(defun diredp-omit-marked () ; Not bound
|
|
"Omit lines of marked files. Return the number of lines omitted."
|
|
(interactive)
|
|
(let ((old-modified-p (buffer-modified-p))
|
|
count)
|
|
(when (interactive-p) (message "Omitting marked lines..."))
|
|
(setq count (dired-do-kill-lines nil "Omitted %d line%s."))
|
|
(set-buffer-modified-p old-modified-p) ; So no `%*' appear in mode-line.
|
|
count))
|
|
|
|
;;;###autoload
|
|
(defun diredp-omit-unmarked () ; Not bound
|
|
"Omit lines of unmarked files. Return the number of lines omitted."
|
|
(interactive)
|
|
(let ((old-modified-p (buffer-modified-p))
|
|
count)
|
|
(dired-toggle-marks)
|
|
(message "Omitting unmarked lines...")
|
|
(setq count (diredp-omit-marked))
|
|
(dired-toggle-marks) ; Marks all except `.', `..'
|
|
(set-buffer-modified-p old-modified-p) ; So no `%*' appear in mode-line.
|
|
count))
|
|
|
|
;;;###autoload
|
|
(defun diredp-ediff (file2) ; Bound to `='
|
|
"Compare file at cursor with file FILE2 using `ediff'.
|
|
FILE2 defaults to the file at the cursor as well. If you enter just a
|
|
directory name for FILE2, then the file at the cursor is compared with
|
|
a file of the same name in that directory. FILE2 is the second file
|
|
given to `ediff'; the file at the cursor is the first.
|
|
|
|
Try to guess a useful default value for FILE2, as follows:
|
|
|
|
* If the mark is active, use the file at mark.
|
|
* Else if the file at cursor is a autosave file or a backup file, use
|
|
the corresponding base file.
|
|
* Else if there is any backup file for the file at point, use the
|
|
newest backup file for it.
|
|
* Else use the file at point."
|
|
(interactive (progn (require 'ediff)
|
|
(list (ediff-read-file-name ; In `ediff-util.el'.
|
|
(format "Compare %s with" (dired-get-filename t))
|
|
(dired-current-directory)
|
|
(let* ((file (dired-get-filename))
|
|
(file-sans-dir (file-name-nondirectory file))
|
|
(file-dir (file-name-directory file))
|
|
(file-at-mark (and transient-mark-mode
|
|
mark-active
|
|
(save-excursion (goto-char (mark t))
|
|
(dired-get-filename t t))))
|
|
(last-backup (file-newest-backup file)))
|
|
(cond
|
|
(file-at-mark)
|
|
((auto-save-file-name-p file-sans-dir)
|
|
(expand-file-name (substring file-sans-dir 1 -1) file-dir))
|
|
((backup-file-name-p file-sans-dir)
|
|
(expand-file-name (file-name-sans-versions file-sans-dir) file-dir))
|
|
(last-backup)
|
|
(t file)))))))
|
|
(ediff-files (dired-get-filename) file2)) ; In `ediff.el'.
|
|
|
|
(defun diredp-fewer-than-N-files-p (arg n)
|
|
"Return non-nil iff fewer than N files are to be treated by dired.
|
|
More precisely, return non-nil iff ARG is nil and fewer than N
|
|
files are marked, or the absolute value of ARG is less than N."
|
|
(if arg
|
|
(and (integerp arg) (< (abs arg) n)) ; Next or previous file (or none).
|
|
(not (save-excursion ; Fewer than two marked files.
|
|
(goto-char (point-min))
|
|
(re-search-forward (dired-marker-regexp) nil t n)))))
|
|
|
|
(defun diredp-fewer-than-2-files-p (arg)
|
|
"Return non-nil iff fewer than two files are to be treated by dired.
|
|
More precisely, return non-nil iff ARG is nil and fewer than two
|
|
files are marked, or ARG is -1, 0 or 1."
|
|
(diredp-fewer-than-N-files-p arg 2))
|
|
|
|
(defun diredp-fewer-than-echo-limit-files-p (arg)
|
|
"Return non-nil iff < `diredp-do-report-echo-limit' files marked.
|
|
More precisely, return non-nil iff ARG is nil and fewer than two
|
|
files are marked, or ARG is -1, 0 or 1."
|
|
(diredp-fewer-than-N-files-p arg diredp-do-report-echo-limit))
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-apply-function (function &optional arg) ; Bound to `@'
|
|
"Apply FUNCTION to the marked files.
|
|
You are prompted for the FUNCTION.
|
|
|
|
With a plain prefix ARG (`C-u'), visit each file and invoke FUNCTION
|
|
with no arguments.
|
|
Otherwise, apply FUNCTION to each file name.
|
|
|
|
Any prefix arg other than single `C-u' behaves according to the ARG
|
|
argument of `dired-get-marked-files'. In particular, `C-u C-u'
|
|
operates on all files in the Dired buffer.
|
|
|
|
The result returned for each file is logged by `dired-log'. Use `?'
|
|
to see all such results and any error messages. If there are fewer
|
|
marked files than `diredp-do-report-echo-limit' then each result is
|
|
also echoed momentarily."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(list (read (completing-read "Function: " obarray 'functionp nil nil
|
|
(and (boundp 'function-name-history)
|
|
'function-name-history)))
|
|
current-prefix-arg)))
|
|
(let ((use-no-args-p (and (consp arg) (< (car arg) 16))))
|
|
(when use-no-args-p (setq arg ()))
|
|
(save-selected-window
|
|
(diredp-map-over-marks-and-report
|
|
(if use-no-args-p #'diredp-invoke-function-no-args #'diredp-apply-function-to-file-name)
|
|
arg
|
|
'apply\ function (diredp-fewer-than-2-files-p arg)
|
|
function
|
|
(diredp-fewer-than-echo-limit-files-p arg)))))
|
|
|
|
(defun diredp-invoke-function-no-args (fun &optional echop)
|
|
"Visit file of this line at its beginning, then invoke function FUN.
|
|
No arguments are passed to FUN.
|
|
Log the result returned or any error.
|
|
Non-nil optional arg ECHOP means also echo the result."
|
|
(let* ((file (dired-get-filename))
|
|
(failure (not (file-exists-p file)))
|
|
result)
|
|
(unless failure
|
|
(condition-case err
|
|
(with-current-buffer (find-file-noselect file)
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(setq result (funcall fun))))
|
|
(error (setq failure err))))
|
|
(diredp-report-file-result file result failure echop)))
|
|
|
|
(defun diredp-apply-function-to-file-name (fun &optional echop)
|
|
"Apply function FUN to (absolute) file name on this line.
|
|
Log the result returned or any error.
|
|
Non-nil optional arg ECHOP means also echo the result."
|
|
(let ((file (dired-get-filename))
|
|
(failure nil)
|
|
result)
|
|
(condition-case err
|
|
(setq result (funcall fun file))
|
|
(error (setq failure err)))
|
|
(diredp-report-file-result file result failure echop)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
;; 1. Redisplay only if at most one file is being treated.
|
|
;; 2. Doc string reflects `Dired+'s version of `dired-map-over-marks-check'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-compress (&optional arg) ; Bound to `Z'
|
|
"Compress or uncompress marked (or next prefix argument) files.
|
|
A prefix argument ARG specifies files to use instead of marked.
|
|
An integer means use the next ARG files (previous -ARG, if < 0).
|
|
`C-u': Use the current file (whether or not any are marked).
|
|
`C-u C-u': Use all files in Dired, except directories.
|
|
`C-u C-u C-u': Use all files and directories, except `.' and `..'.
|
|
`C-u C-u C-u C-u': Use all files and all directories."
|
|
(interactive "P")
|
|
(dired-map-over-marks-check #'dired-compress arg 'compress (diredp-fewer-than-2-files-p arg)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
;; 1. Redisplay only if at most one file is being treated.
|
|
;; 2. Doc string reflects `Dired+'s version of `dired-map-over-marks-check'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-byte-compile (&optional arg) ; Bound to `B'
|
|
"Byte compile marked Emacs Lisp files.
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file."
|
|
(interactive (let* ((arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list arg)))
|
|
(dired-map-over-marks-check #'dired-byte-compile arg 'byte-compile
|
|
(diredp-fewer-than-2-files-p arg)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
;; 1. Redisplay only if at most one file is being treated.
|
|
;; 2. Doc string reflects `Dired+' version of `dired-map-over-marks-check'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-load (&optional arg) ; Bound to `L'
|
|
"Load the marked Emacs Lisp files.
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file."
|
|
(interactive (let* ((arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list arg)))
|
|
(dired-map-over-marks-check #'dired-load arg 'load (diredp-fewer-than-2-files-p arg)))
|
|
|
|
|
|
(when (fboundp 'multi-isearch-files)
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; 1. Added optional arg ARG, so you can act on next ARG files or on all files.
|
|
;; 2. Added optional arg INTERACTIVEP.
|
|
;; 3. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
(defun dired-do-isearch (&optional arg interactivep)
|
|
"Search for a string through all marked files using Isearch.
|
|
A prefix argument ARG specifies files to use instead of those marked.
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file.
|
|
When invoked interactively, raise an error if no files are marked."
|
|
(interactive (let* ((arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list arg t)))
|
|
(multi-isearch-files (dired-get-marked-files nil arg 'dired-nondirectory-p nil interactivep)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; 1. Added optional arg ARG, so you can act on next ARG files or on all files.
|
|
;; 2. Added optional arg INTERACTIVEP.
|
|
;; 3. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
(defun dired-do-isearch-regexp (&optional arg interactivep)
|
|
"Search for a regexp through all marked files using Isearch.
|
|
A prefix arg behaves as follows:
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file.
|
|
When invoked interactively, raise an error if no files are marked."
|
|
(interactive (let* ((arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list arg t)))
|
|
(multi-isearch-files-regexp (dired-get-marked-files nil arg 'dired-nondirectory-p nil interactivep)))
|
|
|
|
)
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el':
|
|
;;
|
|
;; 1. Added optional arg ARG, so you can act on next ARG files or on all files.
|
|
;; 2. Added optional arg INTERACTIVEP.
|
|
;; 3. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-search (regexp &optional arg interactivep)
|
|
"Search through all marked files for a match for REGEXP.
|
|
Stops when a match is found.
|
|
To continue searching for next match, use command \\[tags-loop-continue].
|
|
|
|
A prefix arg behaves as follows:
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file.
|
|
|
|
When invoked interactively, raise an error if no files are marked."
|
|
(interactive (let* ((arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list (diredp-read-regexp "Search marked files (regexp): ")
|
|
arg
|
|
t)))
|
|
(tags-search regexp `(dired-get-marked-files nil ',arg 'dired-nondirectory-p nil ,interactivep)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el':
|
|
;;
|
|
;; 1. Added optional arg ARG, so you can act on next ARG files or on all files.
|
|
;; 2. Added optional arg INTERACTIVEP.
|
|
;; 3. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-query-replace-regexp (from to &optional arg interactivep)
|
|
"Do `query-replace-regexp' of FROM with TO, on all marked files.
|
|
NOTE: A prefix arg for this command acts differently than for other
|
|
commands, so that you can use it to request word-delimited matches.
|
|
|
|
With a prefix argument:
|
|
* An odd number of plain `C-u': act on the marked files, but replace
|
|
only word-delimited matches.
|
|
* More than one plain `C-u': act on all files, ignoring whether any
|
|
are marked.
|
|
* Any other prefix arg: Act on the next numeric-prefix files.
|
|
|
|
So for example:
|
|
* `C-u C-u C-u': act on all files, replacing word-delimited matches.
|
|
* `C-u 4': act on the next 4 files. `C-4' means the same thing.
|
|
* `C-u': act on the marked files, replacing word-delimited matches.
|
|
|
|
When invoked interactively, raise an error if no files are marked.
|
|
|
|
If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
|
|
with the command \\[tags-loop-continue]."
|
|
(interactive (let ((common (query-replace-read-args "Query replace regexp in marked files" t t)))
|
|
(list (nth 0 common)
|
|
(nth 1 common)
|
|
current-prefix-arg
|
|
t)))
|
|
(let* ((argnum (and (consp arg) (prefix-numeric-value arg)))
|
|
(delimited (and argnum (eq (logand (truncate (log argnum 4)) 1) 1))) ; Odd number of plain `C-u'.
|
|
(all (and argnum (> argnum 4))) ; At least 3 plain `C-u'.
|
|
(dgmf-arg (dired-get-marked-files nil
|
|
(if (and arg (atom arg)) (abs arg) (and all '(16)))
|
|
'dired-nondirectory-p
|
|
nil
|
|
interactivep)))
|
|
(dolist (file dgmf-arg)
|
|
(let ((buffer (get-file-buffer file)))
|
|
(when (and buffer (with-current-buffer buffer buffer-read-only))
|
|
(error "File `%s' is visited read-only" file))))
|
|
(tags-query-replace from to delimited `',dgmf-arg)))
|
|
|
|
|
|
(when (fboundp 'xref-collect-matches) ; Emacs 25+
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el':
|
|
;;
|
|
;; 1. Added optional arg ARG, so you can act on next ARG files or on all files.
|
|
;; 2. Added optional arg INTERACTIVEP.
|
|
;; 3. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
(defun dired-do-find-regexp (regexp &optional arg interactivep)
|
|
"Find all matches for REGEXP in all marked files.
|
|
For any marked directory, all of its files are searched recursively.
|
|
However, files matching `grep-find-ignored-files' and subdirectories
|
|
matching `grep-find-ignored-directories' are skipped in the marked
|
|
directories.
|
|
|
|
A prefix arg behaves as follows:
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file.
|
|
|
|
When invoked interactively, raise an error if no files are marked.
|
|
|
|
REGEXP should use constructs supported by your local `grep' command."
|
|
(interactive (let* ((arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list (diredp-read-regexp "Search marked files (regexp): ")
|
|
arg
|
|
t)))
|
|
(require 'grep)
|
|
(defvar grep-find-ignored-files)
|
|
(defvar grep-find-ignored-directories)
|
|
(let* ((files (dired-get-marked-files nil arg nil nil interactivep))
|
|
(ignores (nconc (mapcar (lambda (s) (concat s "/")) grep-find-ignored-directories)
|
|
grep-find-ignored-files))
|
|
(xrefs (mapcan (lambda (file)
|
|
(xref-collect-matches
|
|
regexp "*" file (and (file-directory-p file) ignores)))
|
|
files)))
|
|
(if xrefs
|
|
(xref--show-xrefs xrefs nil t)
|
|
(when interactivep (diredp-user-error "No matches for: %s" regexp)))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el':
|
|
;;
|
|
;; 1. Added optional arg ARG, so you can act on next ARG files or on all files.
|
|
;; 2. Added optional arg INTERACTIVEP.
|
|
;; 3. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-find-regexp-and-replace (from to &optional arg interactivep)
|
|
"Replace matches of FROM with TO, in all marked files.
|
|
For any marked directory, matches in all of its files are replaced,
|
|
recursively. However, files matching `grep-find-ignored-files'
|
|
and subdirectories matching `grep-find-ignored-directories' are skipped
|
|
in the marked directories.
|
|
|
|
A prefix arg behaves as follows:
|
|
* An integer means use the next ARG files (previous -ARG, if < 0).
|
|
* Two or more `C-u' (e.g. `C-u C-u') means ignore any marks and use
|
|
all files in the Dired buffer.
|
|
* Any other prefix arg means use the current file.
|
|
|
|
When invoked interactively, raise an error if no files are marked.
|
|
|
|
REGEXP should use constructs supported by your local `grep' command."
|
|
(interactive (let ((common (query-replace-read-args "Query replace regexp in marked files" t t))
|
|
(arg current-prefix-arg)
|
|
(C-u (and (consp arg) arg)))
|
|
(when (and C-u (> (prefix-numeric-value arg) 16)) (setq arg '(16)))
|
|
(list (nth 0 common)
|
|
(nth 1 common)
|
|
arg
|
|
t)))
|
|
(with-current-buffer (dired-do-find-regexp from arg interactivep)
|
|
(xref-query-replace-in-results from to)))
|
|
|
|
)
|
|
|
|
;;;###autoload
|
|
(defun diredp-do-grep (command-args) ; Bound to `C-M-G'
|
|
"Run `grep' on marked (or next prefix arg) files.
|
|
A prefix argument behaves according to the ARG argument of
|
|
`dired-get-marked-files'. In particular, `C-u C-u' operates on all
|
|
files in the Dired buffer."
|
|
(interactive (progn (unless (if (< emacs-major-version 22)
|
|
grep-command
|
|
(and grep-command (or (not grep-use-null-device) (eq grep-use-null-device t))))
|
|
(grep-compute-defaults))
|
|
(list (diredp-do-grep-1))))
|
|
(grep command-args))
|
|
|
|
;; Optional arg FILES is no longer used. It was used in `diredp-do-grep' before the
|
|
;; new `dired-get-marked-files'.
|
|
(defun diredp-do-grep-1 (&optional files)
|
|
"Helper function for `diredp-do-grep'.
|
|
Non-nil optional arg FILES are the files to grep, overriding the files
|
|
choice described for `diredp-do-grep'."
|
|
(let ((default (and (fboundp 'grep-default-command)
|
|
(if (fboundp 'grepp-default-regexp-fn) ; In `grep+.el'.
|
|
(grep-default-command (funcall (grepp-default-regexp-fn)))
|
|
(grep-default-command)))))
|
|
(read-from-minibuffer
|
|
"grep <pattern> <files> : "
|
|
(let ((up-to-files (concat grep-command " ")))
|
|
(cons (concat up-to-files
|
|
(mapconcat #'identity
|
|
(or files (mapcar 'shell-quote-argument
|
|
(dired-get-marked-files nil current-prefix-arg)))
|
|
" "))
|
|
(- (length up-to-files) 2)))
|
|
nil nil 'grep-history default)))
|
|
|
|
(when (memq system-type '(windows-nt ms-dos))
|
|
(define-derived-mode diredp-w32-drives-mode fundamental-mode "Drives"
|
|
"Mode for Dired buffer listing MS Windows drives (local or remote)."
|
|
(setq buffer-read-only t)))
|
|
|
|
;; The next two commands were originally taken from Emacs Wiki, page WThirtyTwoBrowseNetDrives:
|
|
;; https://www.emacswiki.org/emacs/WThirtyTwoBrowseNetDrives. They are referred to there as
|
|
;; commands `show-net-connections' and `netdir'. I am hoping that the contributor (anonymous)
|
|
;; does not mind my adapting them and including them in `Dired+'.
|
|
|
|
(when (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-w32-list-mapped-drives () ; Not bound
|
|
"List network connection information for shared MS Windows resources.
|
|
This just invokes the Windows `NET USE' command."
|
|
(interactive)
|
|
(shell-command "net use")
|
|
(display-buffer "*Shell Command Output*")))
|
|
|
|
(when (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-w32-drives (&optional other-window-p) ; Bound to `:/'
|
|
"Visit a list of MS Windows drives for use by Dired.
|
|
With a prefix argument use another window for the list.
|
|
In the list, use `mouse-2' or `RET' to open Dired for a given drive.
|
|
|
|
The drives listed are the remote drives currently available, as
|
|
determined by the Windows command `NET USE', plus the local drives
|
|
specified by option `diredp-w32-local-drives', which you can
|
|
customize.
|
|
|
|
Note: When you are in Dired at the root of a drive (e.g. directory
|
|
`C:/'), command `diredp-up-directory' invokes this command.
|
|
So you can use `\\[diredp-up-directory]' to go up to the list of drives."
|
|
(interactive "P")
|
|
(require 'widget)
|
|
(let ((drive (copy-sequence diredp-w32-local-drives))
|
|
(inhibit-read-only t))
|
|
(with-temp-buffer
|
|
(insert (shell-command-to-string "net use"))
|
|
(goto-char (point-min))
|
|
(while (re-search-forward "[A-Z]: +\\\\\\\\[^ ]+" nil t nil)
|
|
(setq drive (cons (split-string (match-string 0)) drive))))
|
|
(if other-window-p
|
|
(pop-to-buffer "*Windows Drives*")
|
|
(if (fboundp 'pop-to-buffer-same-window)
|
|
(pop-to-buffer-same-window "*Windows Drives*")
|
|
(switch-to-buffer "*Windows Drives*")))
|
|
(erase-buffer)
|
|
(widget-minor-mode 1)
|
|
(dolist (drv (sort drive (lambda (a b) (string-lessp (car a) (car b)))))
|
|
(lexical-let ((drv drv))
|
|
(widget-create 'push-button
|
|
:notify (lambda (widget &rest ignore) (dired (car drv)))
|
|
(concat (car drv) " " (cadr drv))))
|
|
(widget-insert "\n"))
|
|
(goto-char (point-min))
|
|
(diredp-w32-drives-mode))))
|
|
|
|
;; $$$$$$ NO LONGER USED. Was used in `diredp-do-grep(-1)' before new `dired-get-marked-files'.
|
|
(defun diredp-all-files ()
|
|
"List of all files shown in current Dired buffer.
|
|
Directories are not included."
|
|
(let ((pos (make-marker))
|
|
(files ())
|
|
file)
|
|
(save-excursion
|
|
(goto-char (point-min)) (beginning-of-line)
|
|
(while (not (eobp))
|
|
(beginning-of-line)
|
|
(while (and (not (eobp)) (dired-between-files)) (forward-line 1))
|
|
(save-excursion (forward-line 1) (move-marker pos (1+ (point))))
|
|
(setq file (dired-get-filename nil t)) ; Non-nil second arg means "also . and ..".
|
|
(when file ; Remove directory portion if in same directory.
|
|
(setq file (dired-get-filename (dired-in-this-tree file default-directory) t)))
|
|
(unless (or (not file) (file-directory-p file)) (push file files))
|
|
(goto-char pos))
|
|
(move-marker pos nil))
|
|
(setq files (sort files (if (and (featurep 'ls-lisp)
|
|
(not (symbol-value 'ls-lisp-use-insert-directory-program)))
|
|
'ls-lisp-string-lessp
|
|
(if case-fold-search
|
|
(lambda (s1 s2) (string-lessp (upcase s1) (upcase s2)))
|
|
'string-lessp))))))
|
|
|
|
(when (fboundp 'read-char-choice) ; Emacs 24+
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; `l' lists the files involved and prompts again.
|
|
;;
|
|
(defun dired-query (sym prompt &rest args)
|
|
"Format PROMPT with ARGS, query user, and store the result in SYM.
|
|
The return value is either nil or t.
|
|
|
|
The user can type:
|
|
`y' or `SPC' to accept once
|
|
`n' or `DEL' to skip once
|
|
`!' to accept this and subsequent queries
|
|
`l' list the files, showing details per `diredp-list-file-attributes'
|
|
`q' or `ESC' to decline this and subsequent queries
|
|
|
|
If SYM is already bound to a non-nil value, this function may return
|
|
automatically without querying the user. If SYM is `!', return t; if
|
|
SYM is `q' or ESC, return nil."
|
|
(let* ((char (symbol-value sym))
|
|
(char-choices '(?y ?\ ?n ?\177 ?! ?l ?q ?\e)) ; Use ?\ , not ?\s, for Emacs 20 byte-compiler.
|
|
(list-buf (generate-new-buffer-name "*Files*"))
|
|
(list-was-shown nil))
|
|
(unwind-protect
|
|
(cond ((eq char ?!) t) ; Accept, and don't ask again.
|
|
((memq char '(?q ?\e)) nil) ; Skip, and don't ask again.
|
|
(t ; No previous answer - ask now
|
|
(setq prompt (concat (apply (if (fboundp 'format-message) #'format-message #'format)
|
|
prompt
|
|
args)
|
|
(if help-form
|
|
(format " [Type ynlq! or %s] " (key-description (vector help-char)))
|
|
" [Type y, n, l, q or !] ")))
|
|
(set sym (setq char (read-char-choice prompt char-choices)))
|
|
(when (eq char ?l) ; List files and prompt again.
|
|
(diredp-list-files args nil nil nil diredp-list-file-attributes)
|
|
(set sym (setq char (read-char-choice prompt char-choices))))
|
|
(and (memq char '(?y ?\ ?!)) t))) ; Use ?\ , not ?\s, for Emacs 20.
|
|
(when (get-buffer list-buf)
|
|
(save-window-excursion
|
|
(pop-to-buffer list-buf)
|
|
(condition-case nil ; Ignore error if user already deleted.
|
|
(if (one-window-p) (delete-frame) (delete-window))
|
|
(error nil))
|
|
(if list-was-shown (bury-buffer list-buf) (kill-buffer list-buf)))))))
|
|
|
|
)
|
|
|
|
(unless (fboundp 'read-char-choice) ; Emacs 20-23 (modified the Emacs 23 version). Needs `dired-query-alist'.
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; 1. `l' lists the files involved and prompts again.
|
|
;; 2. Compatible with older Emacs versions (before Emacs 24): can use `dired-query-alist'.
|
|
;;
|
|
(defun dired-query (qs-var qs-prompt &rest qs-args)
|
|
"Query user and return nil or t.
|
|
The user can type:
|
|
`y' or `SPC' to accept once
|
|
`n' or `DEL' to skip once
|
|
`!' to accept this and subsequent queries
|
|
`l' list the files, showing details per `diredp-list-file-attributes'
|
|
`q' or `ESC' to decline this and subsequent queries
|
|
|
|
Store answer in symbol VAR (which must initially be bound to nil).
|
|
Format PROMPT with ARGS.
|
|
Binding variable `help-form' will help the user who types the help key."
|
|
(let* ((char (symbol-value qs-var))
|
|
(dired-query-alist (cons '(?l . l) dired-query-alist))
|
|
(action (cdr (assoc char dired-query-alist))))
|
|
(cond ((eq 'yes action) t) ; Accept, and don't ask again.
|
|
((eq 'no action) nil) ; Skip, and don't ask again.
|
|
(t ; No lasting effects from last time we asked - ask now.
|
|
(let ((cursor-in-echo-area t)
|
|
(executing-kbd-macro executing-kbd-macro)
|
|
(qprompt (concat qs-prompt
|
|
(if help-form
|
|
(format " [Type ynl!q or %s] "
|
|
(key-description (char-to-string help-char)))
|
|
" [Type y, n, l, q or !] ")))
|
|
done result elt)
|
|
(while (not done)
|
|
(apply #'message qprompt qs-args)
|
|
(setq char (set qs-var (read-event)))
|
|
(when (eq char ?l) ; List files and prompt again.
|
|
(diredp-list-files qs-args nil nil nil diredp-list-file-attributes)
|
|
(apply #'message qprompt qs-args)
|
|
(setq char (set qs-var (read-event))))
|
|
(if (numberp char)
|
|
(cond ((and executing-kbd-macro (= char -1))
|
|
;; `read-event' returns -1 if we are in a keyboard macro and there are no more
|
|
;; events in the macro. Try to get an event interactively.
|
|
(setq executing-kbd-macro nil))
|
|
((eq (key-binding (vector char)) 'keyboard-quit) (keyboard-quit))
|
|
(t (setq done (setq elt (assoc char dired-query-alist)))))))
|
|
;; Display the question with the answer.
|
|
(message "%s" (concat (apply #'format qprompt qs-args) (char-to-string char)))
|
|
(memq (cdr elt) '(t y yes)))))))
|
|
|
|
)
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
;; 1. Use `diredp-this-subdir' instead of `dired-get-filename'.
|
|
;; 2. If on a subdir listing header line or a non-dir file in a subdir listing, go to
|
|
;; the line for the subdirectory in the parent directory listing.
|
|
;; 3. Fit one-window frame after inserting subdir.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-maybe-insert-subdir (dirname &optional switches no-error-if-not-dir-p)
|
|
; Bound to `i'
|
|
"Move to Dired subdirectory line or subdirectory listing.
|
|
This bounces you back and forth between a subdirectory line and its
|
|
inserted listing header line. Using it on a non-directory line in a
|
|
subdirectory listing acts the same as using it on the subdirectory
|
|
header line.
|
|
|
|
* If on a subdirectory line, then go to the subdirectory's listing,
|
|
creating it if not yet present.
|
|
|
|
* If on a subdirectory listing header line or a non-directory file in
|
|
a subdirectory listing, then go to the line for the subdirectory in
|
|
the parent directory listing.
|
|
|
|
* If on a non-directory file in the top Dired directory listing, do
|
|
nothing.
|
|
|
|
Subdirectories are listed in the same position as for `ls -lR' output.
|
|
|
|
With a prefix arg, you can edit the `ls' switches used for this
|
|
listing. Add `R' to the switches to expand the directory tree under a
|
|
subdirectory.
|
|
|
|
Dired remembers the switches you specify with a prefix arg, so
|
|
reverting the buffer does not reset them. However, you might
|
|
sometimes need to reset some subdirectory switches after a
|
|
`dired-undo'. You can reset all subdirectory switches to the
|
|
default value using \\<dired-mode-map>\\[dired-reset-subdir-switches]. See \
|
|
Info node
|
|
`(emacs)Subdir switches' for more details."
|
|
(interactive (list (diredp-this-subdir)
|
|
(and current-prefix-arg
|
|
(read-string "Switches for listing: "
|
|
(or (and (boundp 'dired-subdir-switches) dired-subdir-switches)
|
|
dired-actual-switches)))))
|
|
(let ((opoint (point))
|
|
(filename dirname))
|
|
(cond ((consp filename) ; Subdir header line or non-directory file.
|
|
(setq filename (car filename))
|
|
(if (assoc filename dired-subdir-alist)
|
|
(dired-goto-file filename) ; Subdir header line.
|
|
(dired-insert-subdir (substring (file-name-directory filename) 0 -1))))
|
|
(t
|
|
;; We don't need a marker for opoint as the subdir is always
|
|
;; inserted *after* opoint.
|
|
(setq dirname (file-name-as-directory dirname))
|
|
(or (and (not switches) (dired-goto-subdir dirname))
|
|
(dired-insert-subdir dirname switches no-error-if-not-dir-p))
|
|
;; Push mark so that it's easy to go back. Do this after the
|
|
;; insertion message so that the user sees the `Mark set' message.
|
|
(push-mark opoint)
|
|
(when (and (get-buffer-window (current-buffer)) ; Fit one-window frame.
|
|
(fboundp 'fit-frame-if-one-window)) ; In `autofit-frame.el'.
|
|
(fit-frame-if-one-window))))))
|
|
|
|
(defun diredp-this-subdir ()
|
|
"This line's filename, if directory, or `dired-current-directory' list.
|
|
If on a directory line, then return the directory name.
|
|
Else return a singleton list of a directory name, which is as follows:
|
|
If on a subdirectory header line (either of the two lines), then use
|
|
that subdirectory name. Else use the parent directory name."
|
|
(or (let ((file (dired-get-filename nil t)))
|
|
(and file
|
|
(file-directory-p file)
|
|
(not (member (file-relative-name file (file-name-directory (directory-file-name file)))
|
|
'("." ".." "./" "../")))
|
|
file))
|
|
(list (dired-current-directory))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; 1. Added optional arg FROM, which is also listed by `l' when prompted.
|
|
;; 2. Added missing doc string.
|
|
;;
|
|
(defun dired-handle-overwrite (to &optional from)
|
|
"Save old version of file TO that is to be overwritten.
|
|
`dired-overwrite-confirmed' and `overwrite-backup-query' are fluid vars
|
|
from `dired-create-files'.
|
|
|
|
Optional arg FROM is a file being copied or renamed to TO. It is used
|
|
only when a user hits `l' to list files when asked whether to
|
|
overwrite."
|
|
(let (backup)
|
|
(when (and dired-backup-overwrite
|
|
dired-overwrite-confirmed
|
|
(setq backup (car (find-backup-file-name to)))
|
|
(or (eq 'always dired-backup-overwrite)
|
|
(dired-query 'overwrite-backup-query "Make backup for existing file `%s'? " to from)))
|
|
(rename-file to backup 0) ; Confirm overwrite of old backup.
|
|
(dired-relist-entry backup))))
|
|
|
|
|
|
(when (fboundp 'dired-copy-file-recursive) ; Emacs 22+
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; 1. Pass also FROM to `dired-handle-overwrite', so `l' lists it too.
|
|
;; 2. Added missing doc string.
|
|
;;
|
|
(defun dired-copy-file (from to ok-if-already-exists)
|
|
"Copy file FROM to location TO.
|
|
Non-nil arg OK-IF-ALREADY-EXISTS is passed to `copy-file' or
|
|
`make-symbolic-link'.
|
|
Preserves the last-modified date when copying, unless
|
|
`dired-copy-preserve-time' is nil."
|
|
(dired-handle-overwrite to from)
|
|
(dired-copy-file-recursive from to ok-if-already-exists dired-copy-preserve-time t dired-recursive-copies))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; 1. Pass also FROM to `dired-handle-overwrite', so `l' lists it too.
|
|
;; 2. Added missing doc string.
|
|
;;
|
|
(defun dired-copy-file-recursive (from to ok-if-already-exists &optional keep-time top recursive)
|
|
"Copy file FROM to location TO, handling directories in FROM recursively.
|
|
Non-nil arg OK-IF-ALREADY-EXISTS is passed to `copy-file' or
|
|
`make-symbolic-link'.
|
|
Non-nil optional arg KEEP-TIME is passed to `copy-file' or
|
|
`copy-directory'.
|
|
Non-nil optional arg TOP means do not bother with `dired-handle-overwrite'.
|
|
Non-nil optional arg RECURSIVE means recurse on any directories in
|
|
FROM, after confirmation if RECURSIVE is not `always'."
|
|
(when (and (eq t (car (file-attributes from))) (file-in-directory-p to from))
|
|
(error "Cannot copy `%s' into its subdirectory `%s'" from to))
|
|
(let ((attrs (file-attributes from)))
|
|
(if (and recursive
|
|
(eq t (car attrs))
|
|
(or (eq recursive 'always) (yes-or-no-p (format "Recursive copies of %s? " from))))
|
|
(copy-directory from to keep-time)
|
|
(or top (dired-handle-overwrite to from))
|
|
(condition-case err
|
|
(if (stringp (car attrs)) ; It is a symlink
|
|
(make-symbolic-link (car attrs) to ok-if-already-exists)
|
|
(copy-file from to ok-if-already-exists keep-time))
|
|
(file-date-error
|
|
(push (dired-make-relative from) dired-create-files-failures)
|
|
(dired-log "Can't set date on %s:\n%s\n" from err))))))
|
|
|
|
)
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; 1. Pass also FILE to `dired-handle-overwrite', so `l' lists it too.
|
|
;; 2. Added missing doc string.
|
|
;;
|
|
(defun dired-rename-file (file newname ok-if-already-exists)
|
|
"Rename FILE to NEWNAME.
|
|
Non-nil arg OK-IF-ALREADY-EXISTS is passed to `rename-file'."
|
|
(dired-handle-overwrite newname file)
|
|
(rename-file file newname ok-if-already-exists) ; Error is caught in `-create-files'.
|
|
;; Silently rename the visited file of any buffer visiting this file.
|
|
(and (get-file-buffer file) (with-current-buffer (get-file-buffer file) (set-visited-file-name newname nil t)))
|
|
(dired-remove-file file)
|
|
;; See if it's an inserted subdir, and rename that, too.
|
|
(dired-rename-subdir file newname))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'
|
|
;;
|
|
;; Pass also FILE to `dired-handle-overwrite', so `l' lists it too.
|
|
;;
|
|
(defun dired-hardlink (file newname &optional ok-if-already-exists)
|
|
"Give FILE additional name NEWNAME.
|
|
Non-nil arg OK-IF-ALREADY-EXISTS is passed to `add-name-to-file'."
|
|
(dired-handle-overwrite newname file)
|
|
(add-name-to-file file newname ok-if-already-exists) ; Error is caught in -create-files'.
|
|
(dired-relist-file file)) ; Update the link count.
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; No-op: does nothing now.
|
|
;;
|
|
(defun dired-insert-subdir-validate (dirname &optional switches))
|
|
|
|
|
|
;;; $$$$$$$$
|
|
;;; ;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;; ;;
|
|
;;; ;; 1. Do not require that DIRNAME be in the current directory tree (no error if not).
|
|
;;; ;; 2. Use `dolist' instead of `mapcar'.
|
|
;;; ;;
|
|
;;; (defun dired-insert-subdir-validate (dirname &optional switches)
|
|
;;; "Raise an error if it is invalid to insert DIRNAME with SWITCHES."
|
|
;;; ;;; (or (dired-in-this-tree dirname (expand-file-name default-directory)) ; REMOVED
|
|
;;; ;;; (error "%s: not in this directory tree" dirname))
|
|
;;; (let ((real-switches (or switches (and (boundp 'dired-subdir-switches) ; Emacs 22+
|
|
;;; dired-subdir-switches))))
|
|
;;; (when real-switches
|
|
;;; (let (case-fold-search)
|
|
;;; (dolist (switchs '("F" "b")) ; Switches that matter for `dired-get-filename'.
|
|
;;; (unless (eq (null (diredp-string-match-p switchs real-switches))
|
|
;;; (null (diredp-string-match-p switchs dired-actual-switches)))
|
|
;;; (error "Can't have dirs with and without `-%s' switches together" switchs)))))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;
|
|
;; If NEW-DIR is not a descendant of a directory in the buffer, put it at eob.
|
|
;;
|
|
(defun dired-insert-subdir-newpos (new-dir)
|
|
"Move to the proper position for inserting NEW-DIR, and return it.
|
|
Respect the order within each directory tree. But if NEW-DIR is not a
|
|
descendant of any directory in the buffer, then put it at the end."
|
|
(let ((alist dired-subdir-alist)
|
|
elt dir new-pos)
|
|
(while alist
|
|
(setq elt (car alist)
|
|
alist (cdr alist)
|
|
dir (car elt))
|
|
(if (dired-tree-lessp dir new-dir)
|
|
(setq new-pos (dired-get-subdir-max elt) ; Position NEW-DIR after DIR.
|
|
alist ())
|
|
(setq new-pos (point-max))))
|
|
(goto-char new-pos))
|
|
(unless (eobp) (forward-line -1))
|
|
(insert "\n")
|
|
(point))
|
|
|
|
|
|
;; This is like original `dired-hide-subdir' in `dired-aux.el', except:
|
|
;;
|
|
;; 1. Plain prefix arg means invoke `dired-hide-all'. Added optional arg NEXT.
|
|
;; 2. Do not move to the next subdir.
|
|
;; 3. Modified to work with also with older Emacs versions.
|
|
;;
|
|
(defun diredp-hide-subdir-nomove (arg &optional next)
|
|
"Hide or unhide the current directory.
|
|
Unlike `dired-hide-subdir', this does not advance the cursor to the
|
|
next directory header line.
|
|
|
|
With a plain prefix arg (`C-u'), invoke `dired-hide-all' to hide or
|
|
show everything.
|
|
With a numeric prefix arg N, hide this subdirectory and the next N-1
|
|
subdirectories."
|
|
(interactive "P")
|
|
(dired-hide-check)
|
|
(if (consp arg)
|
|
(dired-hide-all 'IGNORED) ; Arg needed for older Emacs versions.
|
|
(setq arg (prefix-numeric-value arg))
|
|
(let ((modflag (buffer-modified-p)))
|
|
(while (>= (setq arg (1- arg)) 0)
|
|
(let* ((cur-dir (dired-current-directory))
|
|
(hidden-p (dired-subdir-hidden-p cur-dir))
|
|
(elt (assoc cur-dir dired-subdir-alist))
|
|
(end-pos (1- (dired-get-subdir-max elt)))
|
|
buffer-read-only)
|
|
(goto-char (dired-get-subdir-min elt)) ; Keep header line visible, hide rest
|
|
(skip-chars-forward "^\n\r")
|
|
(if hidden-p
|
|
(subst-char-in-region (point) end-pos ?\r ?\n)
|
|
(subst-char-in-region (point) end-pos ?\n ?\r)))
|
|
(when next (dired-next-subdir 1 t)))
|
|
(if (fboundp 'restore-buffer-modified-p)
|
|
(restore-buffer-modified-p modflag)
|
|
(set-buffer-modified-p modflag)))))
|
|
|
|
;;; ----------------------
|
|
;;; If we instead renamed `diredp-hide-subdir-nomove' to `dired-hide-subdir' as a replacement,
|
|
;;; then we would define things this way:
|
|
;;;
|
|
;;;
|
|
;;; ;; REPLACE ORIGINAL in `dired-aux.el'.
|
|
;;; ;;
|
|
;;; ;; 1. Plain prefix arg means invoke `dired-hide-all'. Added optional arg NEXT.
|
|
;;; ;;
|
|
;;; ;; 2. Do not move to the next subdir.
|
|
;;; ;;
|
|
;;; ;; 3. Modified to work with also with older Emacs versions.
|
|
;;; ;;
|
|
;;; (defun dired-hide-subdir (arg &optional next)
|
|
;;; "Hide or unhide the current directory.
|
|
;;; Unlike `diredp-hide-subdir-goto-next', this does not advance the
|
|
;;; cursor to the next directory header line.
|
|
;;;
|
|
;;; With a plain prefix arg (`C-u'), invoke `dired-hide-all' to hide or
|
|
;;; show everything.
|
|
;;; With a numeric prefix arg N, hide this subdirectory and the next N-1
|
|
;;; subdirectories."
|
|
;;; (interactive "P")
|
|
;;; (dired-hide-check)
|
|
;;; (if (consp arg)
|
|
;;; (dired-hide-all 'IGNORED) ; Arg needed for older Emacs versions.
|
|
;;; (setq arg (prefix-numeric-value arg))
|
|
;;; (let ((modflag (buffer-modified-p)))
|
|
;;; (while (>= (setq arg (1- arg)) 0)
|
|
;;; (let* ((cur-dir (dired-current-directory))
|
|
;;; (hidden-p (dired-subdir-hidden-p cur-dir))
|
|
;;; (elt (assoc cur-dir dired-subdir-alist))
|
|
;;; (end-pos (1- (dired-get-subdir-max elt)))
|
|
;;; buffer-read-only)
|
|
;;; (goto-char (dired-get-subdir-min elt)) ; Keep header line visible, hide rest
|
|
;;; (skip-chars-forward "^\n\r")
|
|
;;; (if hidden-p
|
|
;;; (subst-char-in-region (point) end-pos ?\r ?\n)
|
|
;;; (subst-char-in-region (point) end-pos ?\n ?\r)))
|
|
;;; (when next (dired-next-subdir 1 t)))
|
|
;;; (if (fboundp 'restore-buffer-modified-p)
|
|
;;; (restore-buffer-modified-p modflag)
|
|
;;; (set-buffer-modified-p modflag)))))
|
|
;;;
|
|
;;; (defun diredp-hide-subdir-goto-next (arg)
|
|
;;; "Hide or unhide current directory and move to next directory header line."
|
|
;;; (interactive "P")
|
|
;;; (dired-hide-subdir arg 'NEXT))
|
|
;;; ----------------------
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-x.el'.
|
|
;;
|
|
;; Fix the `interactive' spec. This is the Emacs 24+ version, provided for earlier versions.
|
|
;;
|
|
(unless (> emacs-major-version 23)
|
|
(defun dired-mark-unmarked-files (regexp msg &optional unflag-p localp)
|
|
"Mark unmarked files matching REGEXP, displaying MSG.
|
|
REGEXP is matched against the entire file name. When called
|
|
interactively, prompt for REGEXP.
|
|
With prefix argument, unflag all those files.
|
|
|
|
Non-interactively:
|
|
Returns t if any work was done, nil otherwise.
|
|
Optional fourth argument LOCALP is as in `dired-get-filename'."
|
|
(interactive (list (diredp-read-regexp "Mark unmarked files matching regexp (default all): ")
|
|
nil
|
|
current-prefix-arg
|
|
nil))
|
|
(let ((dired-marker-char (if unflag-p ?\ dired-marker-char))
|
|
(unmarkedp (eq (char-after) ?\ )))
|
|
(diredp-mark-if (and (if unflag-p (not unmarkedp) unmarkedp) ; Fixes Emacs bug #27465.
|
|
(let ((fn (dired-get-filename localp 'NO-ERROR))) ; Uninteresting
|
|
(and fn (diredp-string-match-p regexp fn))))
|
|
msg))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-x.el'.
|
|
;;
|
|
;; 1. Call `dired-get-marked-files' with original ARG, to get its multi-`C-u' behavior.
|
|
;; 2. Doc string updated to reflect change to `dired-simultaneous-find-file'.
|
|
;; 3. Added optional arg INTERACTIVEP.
|
|
;; 4. Do not raise error if no files when not INTERACTIVEP.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-find-marked-files (&optional arg interactivep) ; Bound to `F'
|
|
"Find marked files, displaying all of them simultaneously.
|
|
With no prefix argument:
|
|
|
|
* If `pop-up-frames' is nil then split the current window across all
|
|
marked files, as evenly as possible. Remaining lines go to the
|
|
bottom-most window. The number of files that can be displayed this
|
|
way is restricted by the height of the current window and
|
|
`window-min-height'.
|
|
|
|
* If `pop-up-frames' is non-nil then show each marked file in a
|
|
separate frame (not window).
|
|
|
|
With a prefix argument:
|
|
|
|
* One or more plain `C-u' behaves as for `dired-get-marked-files'.
|
|
In particular, `C-u C-u' means ignore any markings and operate on
|
|
ALL files and directories (except `.' and `..') in the Dired buffer.
|
|
|
|
* A numeric prefix arg >= 0 means just find (visit) the marked files -
|
|
do not show them.
|
|
|
|
* A numeric prefix arg < 0 means show each marked file in a separate
|
|
frame (not window). (This is the same behavior as no prefix arg
|
|
with non-nil `pop-up-frames'.)
|
|
|
|
Note that a numeric prefix argument acts differently with this command
|
|
than it does with other `dired-do-*' commands: it does NOT act on the
|
|
next or previous (abs ARG) files, ignoring markings.
|
|
|
|
To keep the Dired buffer displayed, split the window (e.g., `C-x 2')
|
|
first. To show only the marked files, type `\\[delete-other-windows]' first.
|
|
|
|
When invoked interactively, raise an error if no files are marked."
|
|
(interactive "P\np")
|
|
(dired-simultaneous-find-file
|
|
(dired-get-marked-files nil (and (consp arg) arg) nil nil interactivep)
|
|
(and arg (prefix-numeric-value arg))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-x.el'.
|
|
;;
|
|
;; Use separate frames instead of windows if `pop-up-frames' is non-nil,
|
|
;; or if prefix arg is negative.
|
|
;;
|
|
(defun dired-simultaneous-find-file (file-list option)
|
|
"Visit all files in list FILE-LIST and display them simultaneously.
|
|
With non-nil OPTION >= 0, the files are found (visited) but not shown.
|
|
|
|
If `pop-up-frames' is non-nil or if OPTION < 0, use a separate frame
|
|
for each file. (See also option `diredp-max-frames'.)
|
|
|
|
Otherwise, the current window is split across all files in FILE-LIST,
|
|
as evenly as possible. Remaining lines go to the bottom-most window.
|
|
The number of files that can be displayed this way is restricted by
|
|
the height of the current window and the value of variable
|
|
`window-min-height'."
|
|
;; This is not interactive because it is usually too clumsy to specify FILE-LIST interactively unless via dired.
|
|
(let (size)
|
|
(cond ((and option (natnump option))
|
|
(while file-list (find-file-noselect (car file-list)) (pop file-list)))
|
|
((or pop-up-frames option)
|
|
(let ((nb-files (length file-list)))
|
|
(when (and (> nb-files diredp-max-frames)
|
|
(not (y-or-n-p (format "Really show %d files in separate frames? " nb-files))))
|
|
(error "OK, canceled"))
|
|
(while file-list (find-file-other-frame (car file-list)) (pop file-list))))
|
|
(t
|
|
(setq size (/ (window-height) (length file-list)))
|
|
(when (> window-min-height size) (error "Too many files to show simultaneously"))
|
|
(find-file (car file-list))
|
|
(pop file-list)
|
|
(while file-list
|
|
;; Vertically split off a window of desired size. Upper window will have SIZE lines.
|
|
;; Select lower (larger) window. We split it again.
|
|
(select-window (split-window nil size))
|
|
(find-file (car file-list))
|
|
(pop file-list))))))
|
|
|
|
|
|
;;;;;; REPLACE ORIGINAL in both `dired.el' and `dired-x.el':
|
|
;;;;;;
|
|
;;;;;; 1. This incorporates the `dired-x.el' change to the `dired.el'
|
|
;;;;;; definition. This version works with or without using dired-x.
|
|
;;;;;; The `dired-x.el' version respects the var `dired-find-subdir'.
|
|
;;;;;; When `dired-find-subdir' is non-nil, this version is the same
|
|
;;;;;; as the `dired-x.el' version, except that a bug is corrected:
|
|
;;;;;; Whenever the argument to `dired-find-buffer-nocreate' is a cons,
|
|
;;;;;; the call to `dired-buffers-for-dir' gave a wrong type error.
|
|
;;;;;; This has been avoided by not respecting `dired-find-subdir'
|
|
;;;;;; whenever `dired-find-buffer-nocreate' is a cons.
|
|
;;;;;; For the case when `dired-find-subdir' is nil, see #2, below.
|
|
;;;;;;
|
|
;;;;;; 2. Unless `dired-find-subdir' is bound and non-nil:
|
|
;;;;;; If both DIRNAME and `dired-directory' are conses, then only
|
|
;;;;;; compare their cars (directories), not their explicit file lists
|
|
;;;;;; too. If equal, then update `dired-directory's file list to that
|
|
;;;;;; of DIRNAME.
|
|
;;;;;;
|
|
;;;;;; This prevents `dired-internal-noselect' (which is currently
|
|
;;;;;; `dired-find-buffer-nocreate's only caller) from creating a new
|
|
;;;;;; buffer in this case whenever a different set of files is present
|
|
;;;;;; in the cdr of DIRNAME and DIRNAME represents the same buffer as
|
|
;;;;;; `dired-directory'.
|
|
;;;;;;
|
|
;;;;;; If only one of DIRNAME and `dired-directory' is a cons, then
|
|
;;;;;; this returns nil.
|
|
;;;;;;;###autoload
|
|
;;;;(defun dired-find-buffer-nocreate (dirname &optional mode)
|
|
;;;; (let ((atomic-dirname-p (atom dirname)))
|
|
;;;; (if (and (boundp 'dired-find-subdir) dired-find-subdir atomic-dirname-p)
|
|
;;;; ;; This is the `dired-x.el' change:
|
|
;;;; (let* ((cur-buf (current-buffer))
|
|
;;;; (buffers (nreverse (dired-buffers-for-dir dirname)))
|
|
;;;; (cur-buf-matches (and (memq cur-buf buffers)
|
|
;;;; ;; Files list (wildcards) must match, too:
|
|
;;;; (equal dired-directory dirname))))
|
|
;;;; (setq buffers (delq cur-buf buffers)) ; Avoid using same buffer---
|
|
;;;; (or (car (sort buffers (function dired-buffer-more-recently-used-p)))
|
|
;;;; (and cur-buf-matches cur-buf))) ; ---unless no other possibility.
|
|
;;;; ;; Comment from `dired.el':
|
|
;;;; ;; This differs from `dired-buffers-for-dir' in that it doesn't consider
|
|
;;;; ;; subdirs of `default-directory' and searches for the first match only.
|
|
;;;; (let ((blist dired-buffers) ; was (buffer-list)
|
|
;;;; found)
|
|
;;;; (or mode (setq mode 'dired-mode))
|
|
;;;; (while blist
|
|
;;;; (if (null (buffer-name (cdr (car blist))))
|
|
;;;; (setq blist (cdr blist))
|
|
;;;; (save-excursion
|
|
;;;; (set-buffer (cdr (car blist)))
|
|
;;;; (if (not (and (eq major-mode mode)
|
|
;;;; ;; DIRNAME and `dired-directory' have the same dir,
|
|
;;;; ;; and if either of them has an explicit file list,
|
|
;;;; ;; then both of them do. In that case, update
|
|
;;;; ;; `dired-directory's file list from DIRNAME.
|
|
;;;; (if atomic-dirname-p
|
|
;;;; (and (atom dired-directory) ; Both are atoms.
|
|
;;;; (string= (file-truename dirname)
|
|
;;;; (file-truename dired-directory)))
|
|
;;;; (and (consp dired-directory) ; Both are conses.
|
|
;;;; (string=
|
|
;;;; (file-truename (car dirname))
|
|
;;;; (file-truename (car dired-directory)))
|
|
;;;; ;; Update `dired-directory's file list.
|
|
;;;; (setq dired-directory dirname)))))
|
|
;;;; (setq blist (cdr blist))
|
|
;;;; (setq found (cdr (car blist)))
|
|
;;;; (setq blist nil)))))
|
|
;;;; found))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-x.el'.
|
|
;;
|
|
;; Require confirmation. Fixes Emacs bug #13561.
|
|
;;
|
|
(defun dired-do-run-mail ()
|
|
"If `dired-bind-vm' is non-nil, call `dired-vm', else call `dired-rmail'."
|
|
(interactive)
|
|
(unless (y-or-n-p "Read all marked mail folders? ") (error "OK, canceled"))
|
|
(if dired-bind-vm
|
|
;; Read mail folder using vm.
|
|
(dired-vm)
|
|
;; Read mail folder using rmail.
|
|
(dired-rmail)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; 1. Put `mouse-face' on whole line, not just file name.
|
|
;; 2. Add text property `dired-filename' to only the file name.
|
|
;; 3. Show image-file preview on mouseover, if `tooltip-mode'
|
|
;; and if `diredp-image-preview-in-tooltip'.
|
|
;;
|
|
(defun dired-insert-set-properties (beg end)
|
|
"Add various text properties to the lines in the region.
|
|
Highlight entire line upon mouseover.
|
|
Add text property `dired-filename' to the file name.
|
|
Handle `dired-hide-details-mode' invisibility spec (Emacs 24.4+)."
|
|
(let ((inhibit-field-text-motion t)) ; Just in case.
|
|
(save-excursion
|
|
(goto-char beg)
|
|
(while (< (point) end)
|
|
(condition-case nil
|
|
(cond ((dired-move-to-filename)
|
|
(add-text-properties (line-beginning-position) (line-end-position)
|
|
'(mouse-face highlight help-echo diredp-mouseover-help))
|
|
(put-text-property
|
|
(point) (save-excursion (dired-move-to-end-of-filename) (point))
|
|
'dired-filename t)
|
|
(when (fboundp 'dired-hide-details-mode) ; Emacs 24.4+
|
|
(put-text-property (+ (line-beginning-position) 1) (1- (point))
|
|
'invisible 'dired-hide-details-detail)
|
|
(dired-move-to-end-of-filename)
|
|
(when (< (+ (point) 4) (line-end-position))
|
|
(put-text-property (+ (point) 4) (line-end-position)
|
|
'invisible 'dired-hide-details-link))))
|
|
((fboundp 'dired-hide-details-mode) ; Emacs 24.4+
|
|
(unless (or (diredp-looking-at-p "^$") (diredp-looking-at-p dired-subdir-regexp))
|
|
(put-text-property (line-beginning-position) (1+ (line-end-position))
|
|
'invisible 'dired-hide-details-information))))
|
|
(error nil))
|
|
(forward-line 1)))))
|
|
|
|
(defun diredp-mouseover-help (window buffer pos)
|
|
"Show `help-echo' help for a file name, in Dired.
|
|
If `tooltip-mode' is on and `diredp-image-preview-in-tooltip' says to
|
|
show an image preview, then do so. Otherwise, show text help."
|
|
(let ((image-dired-thumb-width (or (and (wholenump diredp-image-preview-in-tooltip)
|
|
diredp-image-preview-in-tooltip)
|
|
image-dired-thumb-width))
|
|
(image-dired-thumb-height (or (and (wholenump diredp-image-preview-in-tooltip)
|
|
diredp-image-preview-in-tooltip)
|
|
image-dired-thumb-height))
|
|
file)
|
|
(or (and (boundp 'tooltip-mode) tooltip-mode
|
|
(fboundp 'image-file-name-regexp) ; Emacs 22+, `image-file.el'.
|
|
diredp-image-preview-in-tooltip
|
|
(condition-case nil
|
|
(and (with-current-buffer buffer
|
|
(save-excursion (goto-char pos)
|
|
(diredp-string-match-p
|
|
(image-file-name-regexp)
|
|
(setq file (if (derived-mode-p 'dired-mode)
|
|
(dired-get-filename nil 'NO-ERROR)
|
|
;; Make it work also for `diredp-list-files' listings.
|
|
(buffer-substring-no-properties (line-beginning-position)
|
|
(line-end-position)))))))
|
|
(or (not diredp-auto-focus-frame-for-thumbnail-tooltip-flag)
|
|
(progn (select-frame-set-input-focus (window-frame window)) t))
|
|
(let ((img-file (if (eq 'full diredp-image-preview-in-tooltip)
|
|
file
|
|
(diredp-image-dired-create-thumb file))))
|
|
(propertize " " 'display (create-image img-file))))
|
|
(error nil)))
|
|
(if (fboundp 'describe-file) ; Library `help-fns+.el'
|
|
"mouse-2: visit in another window, C-h RET: describe"
|
|
"mouse-2: visit this file/dir in another window"))))
|
|
|
|
;; `dired-hide-details-mode' enhancements.
|
|
(when (fboundp 'dired-hide-details-mode) ; Emacs 24.4+
|
|
|
|
(defun diredp-hide-details-if-dired ()
|
|
"In Dired mode hide details. Outside Dired, do nothing."
|
|
(when (derived-mode-p 'dired-mode) (dired-hide-details-mode 1)))
|
|
|
|
;; Use `eval' of list so file byte-compiled in Emacs 20 will be OK in later versions.
|
|
(eval '(define-globalized-minor-mode global-dired-hide-details-mode
|
|
dired-hide-details-mode diredp-hide-details-if-dired))
|
|
|
|
(eval '(define-minor-mode dired-hide-details-mode
|
|
"Hide details in Dired mode."
|
|
(and diredp-hide-details-propagate-flag diredp-hide-details-last-state)
|
|
:group 'dired
|
|
(unless (derived-mode-p 'dired-mode) (error "Not a Dired buffer"))
|
|
(dired-hide-details-update-invisibility-spec)
|
|
(setq diredp-hide-details-toggled t)
|
|
(when diredp-hide-details-propagate-flag
|
|
(setq diredp-hide-details-last-state dired-hide-details-mode))
|
|
(if dired-hide-details-mode
|
|
(add-hook 'wdired-mode-hook 'dired-hide-details-update-invisibility-spec nil t)
|
|
(remove-hook 'wdired-mode-hook 'dired-hide-details-update-invisibility-spec t))))
|
|
|
|
(defun diredp-hide/show-details ()
|
|
"Hide/show details according to user options.
|
|
If `diredp-hide-details-propagate-flag' is non-nil and details have
|
|
never been hidden in the buffer, then hide/show according to your last
|
|
hide/show choice in any other Dired buffer or, if no last choice,
|
|
according to option `diredp-hide-details-initially-flag'."
|
|
(unless (or diredp-hide-details-toggled ; No op if hide/show already set.
|
|
(buffer-narrowed-p)) ; No-op when showing just newly copied file etc.
|
|
(cond (diredp-hide-details-propagate-flag
|
|
(dired-hide-details-mode (if diredp-hide-details-last-state 1 -1)))
|
|
(diredp-hide-details-initially-flag
|
|
(dired-hide-details-mode 1)))))
|
|
|
|
(add-hook 'dired-after-readin-hook #'diredp-hide/show-details)
|
|
|
|
(defun diredp-fit-frame-unless-buffer-narrowed ()
|
|
"Fit frame unless Dired buffer is narrowed.
|
|
Requires library `autofit-frame.el'."
|
|
(when (and (get-buffer-window (current-buffer)) (not (buffer-narrowed-p)))
|
|
(fit-frame-if-one-window)))
|
|
|
|
;; Fit frame only if not narrowed. Put it on this hook because `dired-hide-details-mode' is
|
|
;; invoked from `dired-after-readin-hook' via `diredp-hide/show-details', even for an update
|
|
;; such as copying a file, where buffer is narrowed when invoked.
|
|
(when (fboundp 'fit-frame-if-one-window) ; In `autofit-frame.el'.
|
|
(add-hook 'dired-hide-details-mode-hook #'diredp-fit-frame-unless-buffer-narrowed)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Reset `mode-line-process' to nil.
|
|
;;
|
|
(when (< emacs-major-version 21)
|
|
(or (fboundp 'old-dired-revert) (fset 'old-dired-revert (symbol-function 'dired-revert)))
|
|
(defun dired-revert (&optional arg noconfirm)
|
|
(setq mode-line-process nil) ; Set by, e.g., `find-dired'.
|
|
(old-dired-revert arg noconfirm)))
|
|
|
|
;; Like `dired-up-directory', but go up to MS Windows drive if in top-level directory.
|
|
;;
|
|
;;;###autoload
|
|
(defun diredp-up-directory (&optional other-window) ; Bound to `^'
|
|
"Run Dired on parent directory of current directory.
|
|
Find the parent directory either in this buffer or another buffer.
|
|
Creates a buffer if necessary.
|
|
|
|
With a prefix arg, Dired the parent directory in another window.
|
|
|
|
On MS Windows, if you are already at the root directory, invoke
|
|
`diredp-w32-drives' to visit a navigable list of Windows drives."
|
|
(interactive "P")
|
|
(let* ((dir (dired-current-directory))
|
|
(up (file-name-directory (directory-file-name dir))))
|
|
(or (dired-goto-file (directory-file-name dir))
|
|
;; Only try `dired-goto-subdir' if buffer has more than one dir.
|
|
(and (cdr dired-subdir-alist) (dired-goto-subdir up))
|
|
(progn (if other-window (dired-other-window up) (dired up))
|
|
(dired-goto-file dir))
|
|
(and (memq system-type '(windows-nt ms-dos)) (diredp-w32-drives other-window)))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-up-directory-reuse-dir-buffer (&optional other-window) ; Not bound
|
|
"Like `diredp-up-directory', but reuse Dired buffers.
|
|
With a prefix arg, Dired the parent directory in another window.
|
|
|
|
On MS Windows, moving up from a root Dired buffer does not kill that
|
|
buffer (the Windows drives buffer is not really a Dired buffer)."
|
|
(interactive "P")
|
|
(let* ((dir (dired-current-directory))
|
|
(dirfile (directory-file-name dir))
|
|
(up (file-name-directory dirfile)))
|
|
(or (dired-goto-file dirfile)
|
|
;; Only try `dired-goto-subdir' if buffer has more than one dir.
|
|
(and (cdr dired-subdir-alist) (dired-goto-subdir up)) ; It is a subdir inserted in current Dired.
|
|
(progn (diredp--reuse-dir-buffer-helper up nil nil other-window)
|
|
(dired-goto-file dir))
|
|
(and (memq system-type '(windows-nt ms-dos)) (diredp-w32-drives other-window)))))
|
|
|
|
;; Differs from `dired-next-line' in both wraparound and respect of `goal-column'.
|
|
;;
|
|
;;;###autoload
|
|
(defun diredp-next-line (arg) ; Bound to `SPC', `n', `C-n', `down'
|
|
"Move down lines then position cursor at filename.
|
|
If `goal-column' is non-nil then put the cursor at that column.
|
|
Optional prefix ARG says how many lines to move; default is one line.
|
|
|
|
If `diredp-wrap-around-flag' is non-nil then wrap around if none is
|
|
found before the buffer end (buffer beginning, if ARG is negative).
|
|
Otherwise, just move to the buffer limit."
|
|
(interactive (let ((narg (prefix-numeric-value current-prefix-arg)))
|
|
(when (and (boundp 'shift-select-mode) shift-select-mode) (handle-shift-selection)) ; Emacs 23+
|
|
(list narg))) ; Equivalent to "^p"
|
|
(let* ((line-move-visual nil)
|
|
;; (goal-column nil)
|
|
|
|
;; Use `condition-case' and `(progn... t)' because Emacs < 22 `line-move' has no
|
|
;; NO-ERROR arg and it always returns nil.
|
|
(no-more (or (not (condition-case nil (progn (line-move arg) t) (error nil)))
|
|
(if (< arg 0) (bobp) (eobp)))))
|
|
(when (and diredp-wrap-around-flag no-more)
|
|
(let ((diredp-wrap-around-flag nil))
|
|
(goto-char (if (< arg 0) (point-max) (point-min)))
|
|
(diredp-next-line arg)))
|
|
;; We never want to move point into an invisible line.
|
|
(while (and (fboundp 'invisible-p) ; Emacs 22+
|
|
(invisible-p (point))
|
|
(not (if (and arg (< arg 0)) (bobp) (eobp))))
|
|
(forward-char (if (and arg (< arg 0)) -1 1)))
|
|
(unless goal-column (dired-move-to-filename))))
|
|
|
|
;; In Emacs < 22, `C-p' does not wrap around, because it never moves to the first header line.
|
|
;;;###autoload
|
|
(defun diredp-previous-line (arg) ; Bound to `p', `C-p', `up'
|
|
"Move up lines then position cursor at filename.
|
|
If `goal-column' is non-nil then put the cursor at that column.
|
|
Optional prefix ARG says how many lines to move; default is one line.
|
|
|
|
If `diredp-wrap-around-flag' is non-nil then wrap around if none is
|
|
found before the buffer beginning (buffer end, if ARG is negative).
|
|
Otherwise, just move to the buffer limit."
|
|
(interactive (let ((narg (prefix-numeric-value current-prefix-arg)))
|
|
(when (and (boundp 'shift-select-mode) shift-select-mode) (handle-shift-selection)) ; Emacs 23+
|
|
(list narg))) ; Equivalent to "^p"
|
|
(diredp-next-line (- (or arg 1))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-next-dirline (arg &optional opoint) ; Bound to `>'
|
|
"Goto ARGth next directory file line.
|
|
If `diredp-wrap-around-flag' is non-nil then wrap around if none is
|
|
found before the buffer beginning (buffer end, if ARG is negative).
|
|
Otherwise, raise an error or, if NO-ERROR-IF-NOT-FOUND is nil, return
|
|
nil."
|
|
(interactive (let ((narg (prefix-numeric-value current-prefix-arg)))
|
|
(when (and (boundp 'shift-select-mode) shift-select-mode) (handle-shift-selection)) ; Emacs 23+
|
|
(list narg))) ; Equivalent to "^p"
|
|
(or opoint (setq opoint (point)))
|
|
(if (if (> arg 0)
|
|
(re-search-forward dired-re-dir nil t arg)
|
|
(beginning-of-line)
|
|
(re-search-backward dired-re-dir nil t (- arg)))
|
|
(dired-move-to-filename) ; user may type `i' or `f'
|
|
(if diredp-wrap-around-flag
|
|
(let ((diredp-wrap-around-flag nil))
|
|
(goto-char (if (< arg 0) (point-max) (point-min)))
|
|
(diredp-next-dirline arg opoint))
|
|
(goto-char opoint)
|
|
(error "No more subdirectories"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-prev-dirline (arg) ; Bound to `<'
|
|
"Goto ARGth previous directory file line."
|
|
(interactive (let ((narg (prefix-numeric-value current-prefix-arg)))
|
|
(when (and (boundp 'shift-select-mode) shift-select-mode) (handle-shift-selection)) ; Emacs 23+
|
|
(list narg))) ; Equivalent to "^p"
|
|
(diredp-next-dirline (- arg)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-next-subdir (arg &optional no-error-if-not-found no-skip) ; Bound to `C-M-n'
|
|
"Go to the next subdirectory, regardless of level.
|
|
If ARG = 0 then go to this directory's header line.
|
|
|
|
If `diredp-wrap-around-flag' is non-nil then wrap around if none is
|
|
found before the buffer end (buffer beginning, if ARG is negative).
|
|
Otherwise, raise an error or, if NO-ERROR-IF-NOT-FOUND is nil, return
|
|
nil.
|
|
|
|
Non-nil NO-SKIP means do not move to end of header line, and return
|
|
the position moved to so far."
|
|
(interactive (let ((narg (prefix-numeric-value current-prefix-arg)))
|
|
(when (and (boundp 'shift-select-mode) shift-select-mode) (handle-shift-selection)) ; Emacs 23+
|
|
(list narg))) ; Equivalent to "^p"
|
|
(let ((this-dir (dired-current-directory))
|
|
pos index)
|
|
;; `nth' with negative arg does not return nil but the first element
|
|
(setq index (if diredp-wrap-around-flag
|
|
(mod (- (dired-subdir-index this-dir) arg) (length dired-subdir-alist))
|
|
(- (dired-subdir-index this-dir) arg))
|
|
pos (and (>= index 0) (dired-get-subdir-min (nth index dired-subdir-alist))))
|
|
(if pos
|
|
(progn (goto-char pos)
|
|
(or no-skip (skip-chars-forward "^\n\r"))
|
|
(point))
|
|
(if no-error-if-not-found
|
|
nil ; Return nil if not found
|
|
(error "%s directory" (if (> arg 0) "Last" "First"))))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-prev-subdir (arg &optional no-error-if-not-found no-skip) ; Bound to `C-M-p'
|
|
"Go to the previous subdirectory, regardless of level.
|
|
When called interactively and not on a subdir line, go to this subdir's line.
|
|
Otherwise, this is a mirror image of `diredp-next-subdir'."
|
|
;;(interactive "^p")
|
|
(interactive
|
|
(list (if current-prefix-arg
|
|
(let ((narg (prefix-numeric-value current-prefix-arg)))
|
|
(when (and (boundp 'shift-select-mode) shift-select-mode) (handle-shift-selection)) ; Emacs 23+
|
|
narg) ; Equivalent to "^p"
|
|
;; If on subdir start already then do not stay there.
|
|
(if (dired-get-subdir) 1 0))))
|
|
(diredp-next-subdir (- arg) no-error-if-not-found no-skip))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; 1. Test also ./ and ../, in addition to . and .., for error "Cannot operate on `.' or `..'".
|
|
;; 2. Hack for Emacs 20-22, to expand `~/...'.
|
|
;;
|
|
(defun dired-get-filename (&optional localp no-error-if-not-filep)
|
|
"In Dired, return name of file mentioned on this line.
|
|
Value returned normally includes the directory name.
|
|
|
|
Optional arg LOCALP:
|
|
`no-dir' means do not include directory name in result.
|
|
`verbatim' means return the name exactly as it occurs in the buffer.
|
|
Any other non-nil value means construct the name relative to
|
|
`default-directory', which still might contain slashes if point is
|
|
in a subdirectory.
|
|
|
|
Non-nil optional arg NO-ERROR-IF-NOT-FILEP means treat `.' and `..' as
|
|
regular filenames and return nil if there is no filename on this line.
|
|
Otherwise, an error occurs in these cases."
|
|
(let ((case-fold-search nil)
|
|
(already-absolute nil)
|
|
file p1 p2)
|
|
(save-excursion (when (setq p1 (dired-move-to-filename (not no-error-if-not-filep)))
|
|
(setq p2 (dired-move-to-end-of-filename no-error-if-not-filep))))
|
|
;; nil if no file on this line but `no-error-if-not-filep' is t:
|
|
(when (setq file (and p1 p2 (buffer-substring p1 p2)))
|
|
;; Get rid of the mouse-face property that file names have.
|
|
(set-text-properties 0 (length file) nil file)
|
|
|
|
;; Unquote names quoted by `ls' or by `dired-insert-directory'.
|
|
;; Prior to Emacs 23.3, this code was written using `read' (see commented code below),
|
|
;; because that is faster than substituting \007 (4 chars) -> ^G (1 char) etc. in a loop.
|
|
;; Unfortunately, that implementation required hacks such as dealing with filenames
|
|
;; with quotation marks in their names.
|
|
(while (string-match (if (> emacs-major-version 21)
|
|
"\\(?:[^\\]\\|\\`\\)\\(\"\\)" ; Shy group: Emacs 22+.
|
|
"\\([^\\]\\|\\`\\)\\(\"\\)")
|
|
file)
|
|
(setq file (replace-match "\\\"" nil t file 1)))
|
|
|
|
;; $$$ This was the code for that unquoting prior to Emacs 23.3:
|
|
;; (setq file (read (concat "\"" ; Some `ls -b' do not escape quotes. But GNU `ls' is OK.
|
|
;; (or (dired-string-replace-match
|
|
;; "\\([^\\]\\|\\`\\)\"" file "\\1\\\\\"" nil t)
|
|
;; file)
|
|
;; "\"")))
|
|
|
|
;; This sexp was added by Emacs 24, to fix bug #10469:
|
|
;; Unescape any spaces escaped by `ls -b'.
|
|
;; Other `-b' quotes, such as \t and \n, work transparently.
|
|
(when (dired-switches-escape-p dired-actual-switches)
|
|
(let ((start 0)
|
|
(rep "")
|
|
(shift -1))
|
|
(when (eq localp 'verbatim) (setq rep "\\\\"
|
|
shift +1))
|
|
(while (string-match "\\(\\\\\\) " file start)
|
|
(setq file (replace-match rep nil t file 1)
|
|
start (+ shift (match-end 0))))))
|
|
|
|
;; $$$ This sexp was added by Emacs 23.3.
|
|
(when (memq system-type '(windows-nt ms-dos))
|
|
(save-match-data
|
|
(let ((start 0))
|
|
(while (string-match "\\\\" file start)
|
|
(aset file (match-beginning 0) ?/)
|
|
(setq start (match-end 0))))))
|
|
|
|
;; $$$ This sexp was added by Emacs 23.3.
|
|
;; Hence we don't need to worry about converting `\\' back to `\'.
|
|
(setq file (read (concat "\"" file "\"")))
|
|
|
|
;; Above `read' returns a unibyte string if FILE contains eight-bit-control/graphic chars.
|
|
(when (and (fboundp 'string-to-multibyte) ; Emacs 22
|
|
enable-multibyte-characters
|
|
(not (multibyte-string-p file)))
|
|
(setq file (string-to-multibyte file))))
|
|
(and file
|
|
(file-name-absolute-p file)
|
|
;; A relative file name can start with ~. Do not treat it as absolute in this context.
|
|
(not (eq (aref file 0) ?~))
|
|
(setq already-absolute t))
|
|
(cond ((null file) nil)
|
|
((eq localp 'verbatim) file)
|
|
;; This is the essential `Dired+' change: Added ./ and ../, not just . and ..
|
|
((and (not no-error-if-not-filep) (member file '("." ".." "./" "../")))
|
|
(error "Cannot operate on `.' or `..'"))
|
|
((and (eq localp 'no-dir) already-absolute)
|
|
(file-name-nondirectory file))
|
|
(already-absolute
|
|
(let ((handler (find-file-name-handler file nil)))
|
|
;; check for safe-magic property so that we won't
|
|
;; put /: for names that don't really need them.
|
|
;; For instance, .gz files when auto-compression-mode is on.
|
|
(if (and handler (not (get handler 'safe-magic)))
|
|
(concat "/:" file)
|
|
file)))
|
|
((eq localp 'no-dir) file)
|
|
((equal (dired-current-directory) "/")
|
|
(setq file (concat (dired-current-directory localp) file))
|
|
(let ((handler (find-file-name-handler file nil)))
|
|
;; check for safe-magic property so that we won't
|
|
;; put /: for names that don't really need them.
|
|
;; For instance, .gz files when auto-compression-mode is on.
|
|
(if (and handler (not (get handler 'safe-magic)))
|
|
(concat "/:" file)
|
|
file)))
|
|
;; Ugly hack for Emacs < 23, for which `ls-lisp-insert-directory' can insert a subdir
|
|
;; using `~/...'. Expand `~/' for return value.
|
|
((and (< emacs-major-version 23) file (file-name-absolute-p file)
|
|
(eq (aref file 0) ?~))
|
|
(expand-file-name file))
|
|
(t
|
|
(concat (dired-current-directory localp) file)))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; 1. Fixes Emacs bug #7126: Did not work with arbitrary file list (cons arg to `dired').
|
|
;; 2. Remove `/' from directory name before comparing with BASE.
|
|
;;
|
|
(when (< emacs-major-version 24)
|
|
(defun dired-goto-file (file) ; Bound to `j'
|
|
"Go to line describing file FILE in this Dired buffer.
|
|
FILE must be an absolute file name.
|
|
Return buffer position on success, else nil."
|
|
;; Loses if FILE contains control chars like "\007" for which `ls' inserts "?" or "\\007"
|
|
;; into the buffer, so we won't find it in the buffer.
|
|
(interactive (prog1 ; Let push-mark display its message
|
|
(list (expand-file-name (read-file-name "Goto file: " (dired-current-directory))))
|
|
(push-mark)))
|
|
(unless (file-name-absolute-p file) (error "File name `%s' is not absolute" file))
|
|
(setq file (directory-file-name file)) ; does no harm if no directory
|
|
(let* ((case-fold-search nil)
|
|
(dir (file-name-directory file))
|
|
(found nil))
|
|
;; `Dired+': Added this sexp.
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(let ((search-string (replace-regexp-in-string "\^m" "\\^m" file nil t))
|
|
(here nil))
|
|
(setq search-string (replace-regexp-in-string "\\\\" "\\\\" search-string nil t))
|
|
|
|
;; Escape whitespace. Added per Emacs 24 addition in `unless' code below:
|
|
(when (and (dired-switches-escape-p dired-actual-switches)
|
|
(diredp-string-match-p "[ \t\n]" search-string))
|
|
;; FIXME: fix this for all possible file names (embedded control chars etc).
|
|
;; Need to escape everything that `ls -b' escapes.
|
|
(setq search-string (replace-regexp-in-string " " "\\ " search-string nil t)
|
|
search-string (replace-regexp-in-string "\t" "\\t" search-string nil t)
|
|
search-string (replace-regexp-in-string "\n" "\\n" search-string nil t)))
|
|
|
|
;; Use HERE to ensure we do not keep searching for a directory entry.
|
|
(while (and (not (eobp)) (not found) (not (equal here (point))))
|
|
(setq here (point))
|
|
(if (search-forward (concat " " search-string) nil 'NO-ERROR)
|
|
;; Must move to filename since an (actually correct) match could have been
|
|
;; elsewhere on the line (e.g. "-" would match somewhere in permission bits).
|
|
(setq found (dired-move-to-filename))
|
|
;; If this isn't the right line, move forward to avoid trying this line again.
|
|
(forward-line 1)))))
|
|
|
|
(unless found
|
|
(save-excursion
|
|
;; The difficulty here is to get the result of `dired-goto-subdir' without really
|
|
;; calling it, if we don't have any subdirs.
|
|
(when (if (string= dir (expand-file-name default-directory))
|
|
(goto-char (point-min))
|
|
(and (cdr dired-subdir-alist) (dired-goto-subdir dir)))
|
|
(let ((base (file-name-nondirectory file))
|
|
(boundary (dired-subdir-max))
|
|
search-string)
|
|
(setq search-string (replace-regexp-in-string "\^m" "\\^m" base nil t)
|
|
search-string (replace-regexp-in-string "\\\\" "\\\\" search-string nil t))
|
|
|
|
;; Escape whitespace. Sexp added by Emacs 24:
|
|
(when (and (dired-switches-escape-p dired-actual-switches)
|
|
(diredp-string-match-p "[ \t\n]" search-string))
|
|
;; FIXME: fix this for all possible file names (embedded control chars etc).
|
|
;; Need to escape everything that `ls -b' escapes.
|
|
(setq search-string (replace-regexp-in-string " " "\\ " search-string nil t)
|
|
search-string (replace-regexp-in-string "\t" "\\t" search-string nil t)
|
|
search-string (replace-regexp-in-string "\n" "\\n" search-string nil t)))
|
|
(while (and (not found)
|
|
;; Filenames are preceded by SPC. This makes the search faster
|
|
;; (e.g. for the filename "-"!).
|
|
(search-forward (concat " " search-string) boundary 'move))
|
|
;; `Dired+': Remove `/' from filename, then compare with BASE.
|
|
;; Match could have BASE just as initial substring or
|
|
;; or in permission bits or date or not be a proper filename at all.
|
|
(if (and (dired-get-filename 'no-dir t)
|
|
(equal base (directory-file-name (dired-get-filename 'no-dir t))))
|
|
;; Must move to filename since an (actually correct) match could have been
|
|
;; elsewhere on the line (e.g. "-" would match somewhere in permission bits).
|
|
(setq found (dired-move-to-filename))
|
|
;; If this is not the right line, move forward to avoid trying this line again.
|
|
(forward-line 1)))))))
|
|
(and found (goto-char found))))) ; Return buffer position, or nil if not found.
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; If destination is in a hidden dir listing, open that listing and move to destination in it.
|
|
;;
|
|
(unless (< emacs-major-version 24)
|
|
(defun dired-goto-file (file)
|
|
"Go to line describing file FILE in this Dired buffer.
|
|
FILE must be an absolute file name.
|
|
Return buffer position on success, else nil."
|
|
;; Loses if FILE contains control chars like "\007" for which `ls' inserts "?" or "\\007"
|
|
;; into the buffer, so we won't find it in the buffer.
|
|
(interactive (prog1 (list (expand-file-name (read-file-name "Goto file: " (dired-current-directory))))
|
|
(push-mark))) ; Let push-mark display its message.
|
|
(unless (file-name-absolute-p file) (error "File name `%s' is not absolute" file))
|
|
(setq file (directory-file-name file)) ; Does no harm if not a directory
|
|
(let* ((case-fold-search nil)
|
|
(dir (file-name-directory file))
|
|
(found
|
|
(or
|
|
;; First, look for a listing under the absolute name.
|
|
(save-excursion (goto-char (point-min)) (dired-goto-file-1 file file (point-max)))
|
|
;; Else look for it as a relative name. The difficulty is to get the result
|
|
;; of `dired-goto-subdir' without calling it, if we don't have any subdirs.
|
|
(save-excursion
|
|
(when (if (string= dir (expand-file-name default-directory))
|
|
(goto-char (point-min))
|
|
(and (cdr dired-subdir-alist) (dired-goto-subdir dir)))
|
|
(when (dired-subdir-hidden-p (dired-current-directory))
|
|
(diredp-hide-subdir-nomove 1)) ; Open hidden parent directory.
|
|
(dired-goto-file-1 (file-name-nondirectory file) file (dired-subdir-max)))))))
|
|
(and found (goto-char found))))) ; Return buffer position, or nil if not found.
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; 1. Display a message to warn that flagged, not marked, files will be deleted.
|
|
;; 2. Use `diredp-internal-do-deletions', so it works with all Emacs versions.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-flagged-delete (&optional no-msg) ; Bound to `x'
|
|
"In Dired, delete the files flagged for deletion.
|
|
NOTE: This deletes flagged, not marked, files.
|
|
If arg NO-MSG is non-nil, no message is displayed.
|
|
|
|
User option `dired-recursive-deletes' controls whether deletion of
|
|
non-empty directories is allowed."
|
|
(interactive)
|
|
(unless no-msg
|
|
(ding)
|
|
(message "NOTE: Deletion of files flagged `%c' (not those marked `%c')"
|
|
dired-del-marker dired-marker-char)
|
|
;; Too slow/annoying, but without it the message is never seen: (sit-for 2)
|
|
)
|
|
(let* ((dired-marker-char dired-del-marker)
|
|
(regexp (dired-marker-regexp))
|
|
(case-fold-search nil))
|
|
(if (save-excursion (goto-char (point-min)) (re-search-forward regexp nil t))
|
|
(diredp-internal-do-deletions
|
|
;; This cannot move point since last arg is nil.
|
|
(dired-map-over-marks (cons (dired-get-filename) (point)) nil)
|
|
nil
|
|
'USE-TRASH-CAN) ; This arg is for Emacs 24+ only.
|
|
(unless no-msg (message "(No deletions requested.)")))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; 1. Display a message to warn that marked, not flagged, files will be deleted.
|
|
;; 2. Use `diredp-internal-do-deletions', so it works with all Emacs versions.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-do-delete (&optional arg) ; Bound to `D'
|
|
"Delete all marked (or next ARG) files.
|
|
NOTE: This deletes marked, not flagged, files.
|
|
`dired-recursive-deletes' controls whether deletion of
|
|
non-empty directories is allowed."
|
|
(interactive "P")
|
|
;; This is more consistent with the file-marking feature than
|
|
;; `dired-do-flagged-delete'. But it can be confusing to the user,
|
|
;; especially since this is usually bound to `D', which is also the
|
|
;; `dired-del-marker'. So offer this warning message:
|
|
(unless arg
|
|
(ding)
|
|
(message "NOTE: Deletion of files marked `%c' (not those flagged `%c')."
|
|
dired-marker-char dired-del-marker))
|
|
(diredp-internal-do-deletions
|
|
;; This can move point if ARG is an integer.
|
|
(dired-map-over-marks (cons (dired-get-filename) (point)) arg)
|
|
arg
|
|
'USE-TRASH-CAN)) ; This arg is for Emacs 24+ only.
|
|
|
|
(defun diredp-internal-do-deletions (file-alist arg &optional trash)
|
|
"`dired-internal-do-deletions', but for any Emacs version.
|
|
FILE-ALIST is an alist of files to delete, with their buffer positions.
|
|
ARG is the prefix arg. Filenames are absolute.
|
|
Non-nil TRASH means use the trash can."
|
|
;; \(car FILE-ALIST) *must* be the *last* (bottommost) file in the dired
|
|
;; buffer. That way as changes are made in the buffer they do not shift
|
|
;; the lines still to be changed, so the (point) values in FILE-ALIST
|
|
;; stay valid. Also, for subdirs in natural order, a subdir's files are
|
|
;; deleted before the subdir itself - the other way around would not work."
|
|
(setq file-alist (delq nil file-alist)) ; nils could come from `dired-map-over-marks'.
|
|
(if (> emacs-major-version 23)
|
|
(dired-internal-do-deletions file-alist arg trash)
|
|
(dired-internal-do-deletions file-alist arg)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; Put window point at bob. Fixes bug #12281.
|
|
;;
|
|
(when (and (> emacs-major-version 22) (or (< emacs-major-version 24)
|
|
(and (= emacs-major-version 24) (= emacs-minor-version 1))))
|
|
(defun dired-pop-to-buffer (buf)
|
|
"Pop up buffer BUF in a way suitable for Dired."
|
|
(let ((split-window-preferred-function
|
|
(lambda (window)
|
|
(or (and (let ((split-height-threshold 0)) (window-splittable-p (selected-window)))
|
|
;; Try to split the selected window vertically if that's possible. (Bug#1806)
|
|
(if (fboundp 'split-window-below) (split-window-below) (split-window-vertically)))
|
|
(split-window-sensibly window))))
|
|
pop-up-frames)
|
|
(pop-to-buffer (get-buffer-create buf)))
|
|
(set-window-start (selected-window) (point-min))
|
|
(when dired-shrink-to-fit
|
|
;; Try to not delete window when we want to display less than `window-min-height' lines.
|
|
(fit-window-to-buffer (get-buffer-window buf) nil 1))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; 1. Delete the window or frame popped up, afterward, and bury its buffer.
|
|
;; Fixes Emacs bug #7533.
|
|
;;
|
|
;; 2, If buffer is shown in a separate frame, do not show a menu bar for that frame.
|
|
;;
|
|
(defun dired-mark-pop-up (buffer-or-name op-symbol files function &rest args)
|
|
"Return FUNCTION's result on ARGS after showing which files are marked.
|
|
Displays the file names in a buffer named BUFFER-OR-NAME, the default
|
|
name being \" *Marked Files*\". The buffer is not shown if there is
|
|
just one file, `dired-no-confirm' is t, or OP-SYMBOL is a member of
|
|
the list in `dired-no-confirm'. Uses function `dired-pop-to-buffer'
|
|
to show the buffer.
|
|
|
|
The window is not shown if there is just one file, `dired-no-confirm'
|
|
is `t', or OP-SYMBOL is a member of `dired-no-confirm'.
|
|
|
|
FILES is the list of marked files. It can also be (t FILENAME)
|
|
in the case of one marked file, to distinguish that from using
|
|
just the current file.
|
|
|
|
FUNCTION should not manipulate the files. It should just read input
|
|
\(an argument or confirmation)."
|
|
(unless buffer-or-name (setq buffer-or-name " *Marked Files*"))
|
|
(let (result)
|
|
(if (or (eq dired-no-confirm t)
|
|
(memq op-symbol dired-no-confirm)
|
|
;; If FILES defaulted to the current line's file.
|
|
(= (length files) 1))
|
|
(setq result (apply function args))
|
|
(with-current-buffer (get-buffer-create buffer-or-name)
|
|
(erase-buffer)
|
|
;; Handle (t FILE) just like (FILE), here. That value is used (only in some cases),
|
|
;; to mean just one file that was marked, rather than the current-line file.
|
|
(dired-format-columns-of-files (if (eq (car files) t) (cdr files) files))
|
|
(remove-text-properties (point-min) (point-max)
|
|
'(mouse-face nil help-echo nil)))
|
|
(unwind-protect
|
|
(save-window-excursion
|
|
;; Do not show menu bar, if buffer is popped up in a separate frame.
|
|
(let ((special-display-frame-alist (cons '(menu-bar-lines . 0)
|
|
special-display-frame-alist))
|
|
(default-frame-alist (cons '(menu-bar-lines . 0)
|
|
default-frame-alist)))
|
|
(dired-pop-to-buffer buffer-or-name)
|
|
;; Work around Emacs 22 bug in `dired-pop-to-buffer', which can exit with Dired buffer current.
|
|
(set-buffer buffer-or-name)
|
|
(goto-char (point-min)))
|
|
(setq result (apply function args)))
|
|
(save-excursion
|
|
(condition-case nil ; Ignore error if user already deleted window.
|
|
(progn (select-window (get-buffer-window buffer-or-name 0))
|
|
(if (one-window-p) (delete-frame) (delete-window)))
|
|
(error nil)))
|
|
(bury-buffer buffer-or-name)))
|
|
result))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; 1. Prefix arg has more possibilities.
|
|
;; 2, Added optional arg LOCALP, so you can mark/unmark matching different file-name forms.
|
|
;; 3. Push REGEXP onto `regexp-search-ring'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mark-files-regexp (regexp &optional marker-char localp)
|
|
"Mark all file names matching REGEXP for use in later commands.
|
|
`.' and `..' are never marked or unmarked by this command.
|
|
|
|
Whether to mark or unmark, and what form of file name to match, are
|
|
governed by the prefix argument. For this, a plain (`C-u') or a
|
|
double-plain (`C-u C-u') prefix arg is considered only as such - it is
|
|
not considered numerically.
|
|
|
|
Whether to mark or unmark:
|
|
|
|
- No prefix arg, a positive arg, or a negative arg means mark.
|
|
|
|
- Plain (`C-u'), double-plain (`C-u C-u'), or zero (e.g. `M-0' means
|
|
unmark.
|
|
|
|
The form of a file name used for matching:
|
|
|
|
- No prefix arg (to mark) or a plain prefix arg (`C-u', to unmark)
|
|
means use the relative file name (no directory part).
|
|
|
|
- A negative arg (e.g. `M--', to mark) or a zero arg (e.g. `M-0', to
|
|
unmark) means use the absolute file name, that is, including all
|
|
directory components.
|
|
|
|
- A positive arg (e.g. `M-+', to mark) or a double plain arg (`C-u
|
|
C-u', to unmark) means construct the name relative to
|
|
`default-directory'. For an entry in an inserted subdir listing,
|
|
this means prefix the relative file name (no directory part) with
|
|
the subdir name relative to `default-directory'.
|
|
|
|
Note that the default matching behavior of this command is different
|
|
for Dired+ than it is for vanilla Emacs. Using a positive prefix arg
|
|
or a double plain prefix arg (`C-u C-u') gives you the same behavior
|
|
as vanilla Emacs (marking or unmarking, respectively): matching
|
|
against names that are relative to the `default-directory'.
|
|
|
|
What Dired+ offers in addition is the possibility to match against
|
|
names that are relative (have no directory part - no prefix arg or
|
|
`C-u' to mark and unmark, respectively) or absolute (`M--' or `M-0',
|
|
respectively). The default behavior uses relative names because this
|
|
is likely to be the more common use case. But matching against
|
|
absolute names gives you more flexibility.
|
|
|
|
REGEXP is an Emacs regexp, not a shell wildcard. Thus, use `\\.o$'
|
|
for object files--just `.o' might mark more than you might expect.
|
|
|
|
REGEXP is added to `regexp-search-ring', for regexp search.
|
|
|
|
Non-interactively:
|
|
MARKER-CHAR is the marker character - used for `dired-marker-char'.
|
|
LOCALP is passed to `dired-get-filename'. It determines the form of
|
|
filename that is matched against REGEXP."
|
|
(interactive (let* ((raw current-prefix-arg)
|
|
(C-u (and (consp raw) (= 4 (car raw))))
|
|
(C-u-C-u (and (consp raw) (= 16 (car raw))))
|
|
(num (and raw (prefix-numeric-value raw))))
|
|
(list (diredp-read-regexp (concat (if (or (consp raw) (and num (zerop num)))
|
|
"UNmark"
|
|
"Mark")
|
|
" files (regexp): "))
|
|
(and raw (or C-u C-u-C-u (zerop num)) ?\040)
|
|
(cond ((or (not raw) C-u) t) ; none, `C-u'
|
|
((> num 0) nil) ; `M-+', `C-u C-u'
|
|
(t 'no-dir))))) ; `M--', `M-0'
|
|
(add-to-list 'regexp-search-ring regexp) ; Add REGEXP to `regexp-search-ring'.
|
|
(let ((dired-marker-char (or marker-char dired-marker-char)))
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot))
|
|
(not (eolp)) ; Empty line
|
|
(let ((fn (dired-get-filename localp t)))
|
|
(and fn (diredp-string-match-p regexp fn))))
|
|
"file")))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; Use `diredp-mark-if', not `dired-mark-if'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mark-files-containing-regexp (regexp &optional marker-char)
|
|
"Mark files with contents containing a REGEXP match.
|
|
A prefix argument means unmark them instead.
|
|
`.' and `..' are never marked.
|
|
|
|
If a file is visited in a buffer and `dired-always-read-filesystem' is
|
|
nil, this looks in the buffer without revisiting the file, so the
|
|
results might be inconsistent with the file on disk if its contents
|
|
have changed since it was last visited."
|
|
(interactive
|
|
(list (diredp-read-regexp (concat (if current-prefix-arg "Unmark" "Mark") " files containing (regexp): ")
|
|
nil 'dired-regexp-history)
|
|
(and current-prefix-arg ?\040)))
|
|
(let ((dired-marker-char (or marker-char dired-marker-char)))
|
|
(diredp-mark-if (and (not (diredp-looking-at-p dired-re-dot))
|
|
(not (eolp))
|
|
(let ((fname (dired-get-filename nil t)))
|
|
(when (and fname (file-readable-p fname) (not (file-directory-p fname)))
|
|
(let ((prebuf (get-file-buffer fname)))
|
|
(message "Checking %s" fname)
|
|
;; For now, do it inside Emacs. Grep might be better if there are lots of files.
|
|
(if (and prebuf (or (not (boundp 'dired-always-read-filesystem))
|
|
(not dired-always-read-filesystem))) ; Emacs 26+
|
|
(with-current-buffer prebuf
|
|
(save-excursion (goto-char (point-min)) (re-search-forward regexp nil t)))
|
|
(with-temp-buffer
|
|
(insert-file-contents fname)
|
|
(goto-char (point-min))
|
|
(re-search-forward regexp nil t)))))))
|
|
"file")))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; Use `diredp-mark-if', not `dired-mark-if'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mark-symlinks (unflag-p)
|
|
"Mark all symbolic links.
|
|
With prefix argument, unmark or unflag all those files."
|
|
(interactive "P")
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-marker-char)))
|
|
(diredp-mark-if (diredp-looking-at-p dired-re-sym) "symbolic link")))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; Use `diredp-mark-if', not `dired-mark-if'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mark-directories (unflag-p)
|
|
"Mark all directory file lines except `.' and `..'.
|
|
With prefix argument, unmark or unflag the files instead."
|
|
(interactive "P")
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-marker-char)))
|
|
(diredp-mark-if (and (diredp-looking-at-p dired-re-dir) (not (diredp-looking-at-p dired-re-dot)))
|
|
"directory" "directories")))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; Use `diredp-mark-if', not `dired-mark-if'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mark-executables (unflag-p)
|
|
"Mark all executable files.
|
|
With prefix argument, unmark or unflag the files instead."
|
|
(interactive "P")
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-marker-char)))
|
|
(diredp-mark-if (diredp-looking-at-p dired-re-exe) "executable file")))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el':
|
|
;;
|
|
;; Use `diredp-mark-if', not `dired-mark-if'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-flag-auto-save-files (&optional unflag-p)
|
|
"Flag for deletion files whose names suggest they are auto save files.
|
|
A prefix argument says to unmark or unflag the files instead."
|
|
(interactive "P")
|
|
(let ((dired-marker-char (if unflag-p ?\040 dired-del-marker)))
|
|
(diredp-mark-if
|
|
;; It is less than general to check for # here, but it's the only way this runs fast enough.
|
|
(and (save-excursion (end-of-line)
|
|
(or (eq (preceding-char) ?#)
|
|
;; Handle executables in case of -F option. Need not worry about the other kinds
|
|
;; of markings that -F makes, since they won't appear on real auto-save files.
|
|
(and (eq (preceding-char) ?*)
|
|
(progn (forward-char -1) (eq (preceding-char) ?#)))))
|
|
(not (diredp-looking-at-p dired-re-dir))
|
|
(let ((fname (dired-get-filename t t)))
|
|
(and fname (auto-save-file-name-p (file-name-nondirectory fname)))))
|
|
"auto-save file")))
|
|
|
|
;;;###autoload
|
|
(defun diredp-capitalize (&optional arg) ; Bound to `% c'
|
|
"Rename all marked (or next ARG) files by capitalizing them.
|
|
Makes the first char of the name uppercase and the others lowercase."
|
|
(interactive "P")
|
|
(dired-rename-non-directory #'capitalize "Rename by capitalizing:" arg))
|
|
|
|
;; This is more useful than a single-file version of `dired-do-delete'.
|
|
;;;###autoload
|
|
(defun diredp-delete-this-file (&optional use-trash-can) ; Bound to `C-k', `delete'
|
|
"In Dired, delete the file on the cursor line, upon confirmation.
|
|
This uses `delete-file'.
|
|
If the file is a symlink, remove the symlink. If the file has
|
|
multiple names, it continues to exist with the other names.
|
|
|
|
For Emacs 24 and later, a prefix arg means that if
|
|
`delete-by-moving-to-trash' is non-nil then trash the file instead of
|
|
deleting it."
|
|
(interactive "P")
|
|
(let ((file (dired-get-filename)))
|
|
(if (not (yes-or-no-p (format "%s file `%s'? " (if (and use-trash-can delete-by-moving-to-trash)
|
|
"Trash"
|
|
"Permanently delete")
|
|
file)))
|
|
(message "OK - canceled")
|
|
(if (> emacs-major-version 23) (delete-file file use-trash-can) (delete-file file))
|
|
(revert-buffer))))
|
|
|
|
;;; Versions of `dired-do-*' commands for just this line's file.
|
|
;;;###autoload
|
|
(defun diredp-capitalize-this-file () ; Bound to `M-c'
|
|
"In Dired, rename the file on the cursor line by capitalizing it.
|
|
Makes the first char of the name uppercase and the others lowercase."
|
|
(interactive) (diredp-capitalize 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-downcase-this-file () ; Bound to `M-l'
|
|
"In Dired, rename the file on the cursor line to lower case."
|
|
(interactive) (dired-downcase 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-upcase-this-file () ; Bound to `M-u'
|
|
"In Dired, rename the file on the cursor line to upper case."
|
|
(interactive) (dired-upcase 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-rename-this-file () ; Bound to `r'
|
|
"In Dired, rename the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (dired-do-rename 1)))
|
|
|
|
(when (fboundp 'epa-dired-do-encrypt) ; Emacs 23+
|
|
(defun diredp-decrypt-this-file ()
|
|
"In Dired, decrypt the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (epa-dired-do-decrypt 1)))
|
|
|
|
(defun diredp-encrypt-this-file ()
|
|
"In Dired, encrypt the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (epa-dired-do-encrypt 1)))
|
|
|
|
(defun diredp-verify-this-file ()
|
|
"In Dired, verify the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (epa-dired-do-verify 1)))
|
|
|
|
(defun diredp-sign-this-file ()
|
|
"In Dired, sign the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (epa-dired-do-sign 1))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-copy-this-file () ; Not bound
|
|
"In Dired, copy the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (dired-do-copy 1)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-relsymlink-this-file () ; Bound to `y'
|
|
"In Dired, make a relative symbolic link to file on cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (dired-do-relsymlink 1)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-symlink-this-file () ; Not bound
|
|
"In Dired, make a symbolic link to the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (dired-do-symlink 1)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-hardlink-this-file () ; Not bound
|
|
"In Dired, add a name (hard link) to the file on the cursor line."
|
|
(interactive)
|
|
(let ((use-file-dialog nil)) (dired-do-hardlink 1)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-print-this-file () ; Bound to `M-p'
|
|
"In Dired, print the file on the cursor line."
|
|
(interactive) (dired-do-print 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-grep-this-file () ; Not bound
|
|
"In Dired, grep the file on the cursor line."
|
|
(interactive)
|
|
(unless (and grep-command (or (< emacs-major-version 22)
|
|
(not grep-use-null-device)
|
|
(eq grep-use-null-device t)))
|
|
(grep-compute-defaults))
|
|
(grep (diredp-do-grep-1 (list (dired-get-filename t)))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-compress-this-file () ; Bound to `z'
|
|
"In Dired, compress or uncompress the file on the cursor line."
|
|
(interactive) (dired-do-compress 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-async-shell-command-this-file (command filelist) ; Not bound
|
|
"Run a shell COMMAND asynchronously on the file on the Dired cursor line.
|
|
Like `diredp-shell-command-this-file', but adds `&' at the end of
|
|
COMMAND to execute it asynchronously. The command output appears in
|
|
buffer `*Async Shell Command*'."
|
|
(interactive (list (dired-read-shell-command (concat "& on " "%s: ") 1 (list (dired-get-filename t)))
|
|
(list (dired-get-filename t))))
|
|
(unless (diredp-string-match-p "&[ \t]*\\'" command) (setq command (concat command " &")))
|
|
(dired-do-shell-command command 1 filelist))
|
|
|
|
;;;###autoload
|
|
(defun diredp-shell-command-this-file (command filelist) ; Not bound
|
|
"In Dired, run a shell COMMAND on the file on the cursor line."
|
|
(interactive (list (dired-read-shell-command (concat "! on " "%s: ") 1 (list (dired-get-filename t)))
|
|
(list (dired-get-filename t))))
|
|
(dired-do-shell-command command 1 filelist))
|
|
|
|
;;;###autoload
|
|
(defun diredp-bookmark-this-file (&optional prefix) ; Bound to `C-B' (`C-S-b')
|
|
"In Dired, bookmark the file on the cursor line.
|
|
See `diredp-do-bookmark'."
|
|
(interactive (progn (diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: ")))))
|
|
(diredp-do-bookmark prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-tag-this-file (tags &optional prefix) ; Bound to `T +'
|
|
"In Dired, add some tags to the file on the cursor line.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (bmkp-read-tags-completing)
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: ")))))
|
|
(diredp-do-tag tags prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-untag-this-file (tags &optional prefix arg) ; Bound to `T -'
|
|
"In Dired, remove some tags from the file on the cursor line.
|
|
With a prefix arg, remove all tags from the file.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(let* ((pref (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: ")))
|
|
(bmk (bmkp-get-autofile-bookmark (dired-get-filename) nil pref))
|
|
(btgs (and bmk (bmkp-get-tags bmk))))
|
|
(unless btgs (error "File has no tags to remove"))
|
|
(list (if current-prefix-arg btgs (bmkp-read-tags-completing btgs))
|
|
pref
|
|
current-prefix-arg))))
|
|
(diredp-do-untag tags prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-remove-all-tags-this-file (&optional prefix msgp) ; Bound to `T 0'
|
|
"In Dired, remove all tags from this file.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
'MSG)))
|
|
(bookmark-maybe-load-default-file)
|
|
(diredp-do-remove-all-tags prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-paste-add-tags-this-file (&optional prefix msgp) ; Bound to `T p', `T C-y'
|
|
"In Dired, add previously copied tags to this file.
|
|
See `diredp-paste-add-tags'.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
'MSG)))
|
|
(bookmark-maybe-load-default-file)
|
|
(diredp-do-paste-add-tags prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-paste-replace-tags-this-file (&optional prefix msgp) ; Bound to `T q'
|
|
"In Dired, replace tags for this file with previously copied tags.
|
|
See `diredp-paste-replace-tags'.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
'MSG)))
|
|
(bookmark-maybe-load-default-file)
|
|
(diredp-do-paste-add-tags prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-set-tag-value-this-file (tag value &optional prefix msgp) ; Bound to `T v'
|
|
"In Dired, Set value of TAG to VALUE for this file.
|
|
See `diredp-set-tag-value'.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (bmkp-read-tag-completing)
|
|
(read (read-string "Value: "))
|
|
(and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
'MSG)))
|
|
(bookmark-maybe-load-default-file)
|
|
(diredp-do-set-tag-value tag value prefix 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-copy-tags-this-file (&optional prefix msgp) ; Bound to `T c', `T M-w'
|
|
"In Dired, copy the tags from this file, so you can paste them to another.
|
|
See `diredp-copy-tags'.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive (progn (diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(list (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))
|
|
'MSG)))
|
|
(bookmark-maybe-load-default-file)
|
|
(let ((bmk (bmkp-get-autofile-bookmark (dired-get-filename) nil prefix)))
|
|
(and bmk (bmkp-copy-tags bmk msgp))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-copy-tags (event) ; Not bound
|
|
"In Dired, copy the tags from this file, so you can paste them to another.
|
|
You need library `bookmark+.el' to use this command."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t)
|
|
(prefix (and diredp-prompt-for-bookmark-prefix-flag
|
|
(read-string "Prefix for bookmark name: "))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(diredp-copy-tags-this-file prefix 'MSG))
|
|
(diredp-previous-line 1))
|
|
|
|
(when (fboundp 'describe-file) ; In `help-fns+.el' or `help+20.el'.
|
|
(defun diredp-describe-file (&optional internal-form-p) ; Bound to `C-h RET', `C-h C-RET'
|
|
"In Dired, describe this file or directory.
|
|
You need library `help-fns+.el' to use this command.
|
|
If the file has an autofile bookmark and you use library `Bookmark+',
|
|
then show also the bookmark information (tags etc.). In this case, a
|
|
prefix arg shows the internal form of the bookmark."
|
|
(interactive "P")
|
|
(describe-file (dired-get-filename nil t) internal-form-p))
|
|
|
|
(defun diredp-mouse-describe-file (event &optional internal-form-p) ; Not bound
|
|
"Describe the clicked file.
|
|
You need library `help-fns+.el' to use this command.
|
|
If the file has an autofile bookmark and you use library `Bookmark+',
|
|
then show also the bookmark information (tags etc.). In this case, a
|
|
prefix arg shows the internal form of the bookmark."
|
|
(interactive "e\nP")
|
|
(let (file)
|
|
(with-current-buffer (window-buffer (posn-window (event-end event)))
|
|
(save-excursion (goto-char (posn-point (event-end event)))
|
|
(setq file (dired-get-filename nil t))))
|
|
(describe-file file internal-form-p))))
|
|
|
|
;; Define these even if `Bookmark+' is not loaded.
|
|
;;;###autoload
|
|
(defalias 'diredp-show-metadata 'diredp-describe-autofile)
|
|
;;;###autoload
|
|
(defun diredp-describe-autofile (&optional internal-form-p)
|
|
"Show the metadata for the file of the current line.
|
|
The file must name an autofile bookmark. The metadata is the bookmark
|
|
information.
|
|
|
|
With a prefix argument, show the internal definition of the bookmark.
|
|
|
|
You need library `bookmark+.el' for this command."
|
|
(interactive "P")
|
|
(diredp-ensure-bookmark+)
|
|
(diredp-ensure-mode)
|
|
(let ((bmk (save-match-data
|
|
(bmkp-get-autofile-bookmark (dired-get-filename nil t)))))
|
|
(unless bmk (error "Not on an autofile bookmark"))
|
|
(save-selected-window (if internal-form-p
|
|
(bmkp-describe-bookmark-internals bmk)
|
|
(bmkp-describe-bookmark bmk)))))
|
|
|
|
(defun diredp-mouse-describe-autofile (event &optional internal-form-p) ; Not bound
|
|
"Show the metadata for the file whose name you click.
|
|
The file must name an autofile bookmark. The metadata is the bookmark
|
|
information.
|
|
|
|
With a prefix argument, show the internal definition of the bookmark.
|
|
|
|
You need library `bookmark+.el' for this command."
|
|
(interactive "e\nP")
|
|
(diredp-ensure-bookmark+)
|
|
(let (file)
|
|
(with-current-buffer (window-buffer (posn-window (event-end event)))
|
|
(diredp-ensure-mode)
|
|
(save-excursion (goto-char (posn-point (event-end event)))
|
|
(setq file (dired-get-filename nil t))))
|
|
(let ((bmk (save-match-data (bmkp-get-autofile-bookmark file))))
|
|
(unless bmk (error "Not an autofile bookmark"))
|
|
(save-selected-window (if internal-form-p
|
|
(bmkp-describe-bookmark-internals bmk)
|
|
(bmkp-describe-bookmark bmk))))))
|
|
|
|
;;;###autoload
|
|
(defalias 'diredp-show-metadata-for-marked 'diredp-describe-marked-autofiles)
|
|
;;;###autoload
|
|
(defun diredp-describe-marked-autofiles (&optional internal-form-p interactivep details)
|
|
"Show metadata for the marked files.
|
|
If no file is marked, describe ALL autofiles in this directory.
|
|
With a prefix argument, show the internal (Lisp) form of the metadata.
|
|
When invoked interactively, raise an error if no files are marked.
|
|
You need library `bookmark+.el' for this command.
|
|
|
|
When called from Lisp, optional arg DETAILS is passed to
|
|
`diredp-get-files'."
|
|
(interactive (list current-prefix-arg t diredp-list-file-attributes))
|
|
(diredp-ensure-bookmark+)
|
|
(let ((help-xref-following nil))
|
|
(help-setup-xref (list `(lambda (_buf)
|
|
(with-current-buffer ,(current-buffer) (diredp-describe-marked-autofiles)))
|
|
internal-form-p)
|
|
(if (or (> emacs-major-version 23)
|
|
(and (= emacs-major-version 23) (> emacs-minor-version 1)))
|
|
(called-interactively-p 'interactive)
|
|
(interactive-p))))
|
|
(diredp-with-help-window "*Help*"
|
|
(let ((marked (dired-get-marked-files nil nil nil 'DISTINGUISH-ONE-MARKED interactivep)))
|
|
(unless (cdr marked)
|
|
(message "Describing ALL autofiles here (none are marked)...")
|
|
(setq marked (diredp-get-files 'IGNORE-MARKS-P nil nil nil nil details)))
|
|
(if (eq t (car marked))
|
|
(diredp-describe-autofile internal-form-p)
|
|
(dolist (bmk (delq nil (mapcar #'bmkp-get-autofile-bookmark marked)))
|
|
(if internal-form-p
|
|
(let* ((bname (bmkp-bookmark-name-from-record bmk))
|
|
(help-text (format "%s\n%s\n\n%s"
|
|
bname (make-string (length bname) ?-) (pp-to-string bmk))))
|
|
(princ help-text) (terpri))
|
|
(princ (bmkp-bookmark-description bmk)) (terpri)))))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-byte-compile-this-file () ; Bound to `b'
|
|
"In Dired, byte compile the (Lisp source) file on the cursor line."
|
|
(interactive) (dired-do-byte-compile 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-load-this-file () ; Not bound
|
|
"In Dired, load the file on the cursor line."
|
|
(interactive) (dired-do-load 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-chmod-this-file () ; Bound to `M-m'
|
|
"In Dired, change the mode of the file on the cursor line."
|
|
(interactive) (dired-do-chmod 1))
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-chgrp-this-file () ; Not bound
|
|
"In Dired, change the group of the file on the cursor line."
|
|
(interactive) (dired-do-chgrp 1)))
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-chown-this-file () ; Not bound
|
|
"In Dired, change the owner of the file on the cursor line."
|
|
(interactive) (dired-do-chown 1)))
|
|
|
|
(when (fboundp 'dired-do-touch)
|
|
(defun diredp-touch-this-file () ; Not bound
|
|
"In Dired, `touch' (change the timestamp of) the file on the cursor line."
|
|
(interactive) (dired-do-touch 1)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired-x.el'.
|
|
;;
|
|
;; 1. Variable (symbol) `s' -> `blks'.
|
|
;; 2. Fixes to remove leading space from `uid' and allow `.' in `gid'.
|
|
;; 3. Cleaned up doc string and code a bit.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mark-sexp (predicate &optional unmark-p) ; Bound to `M-(', `* ('
|
|
"Mark files for which PREDICATE returns non-nil.
|
|
With a prefix arg, unmark or unflag those files instead.
|
|
|
|
PREDICATE is a lisp sexp that can refer to the following symbols as
|
|
variables:
|
|
|
|
`mode' [string] file permission bits, e.g. \"-rw-r--r--\"
|
|
`nlink' [integer] number of links to file
|
|
`size' [integer] file size in bytes
|
|
`uid' [string] owner
|
|
`gid' [string] group (If the gid is not displayed by `ls',
|
|
this will still be set (to the same as uid))
|
|
`time' [string] the time that `ls' displays, e.g. \"Feb 12 14:17\"
|
|
`name' [string] the name of the file
|
|
`sym' [string] if file is a symbolic link, the linked-to name,
|
|
else \"\"
|
|
`inode' [integer] the inode of the file (only for `ls -i' output)
|
|
`blks' [integer] the size of the file for `ls -s' output
|
|
(ususally in blocks or, with `-k', in Kbytes)
|
|
Examples:
|
|
Mark zero-length files: `(equal 0 size)'
|
|
Mark files last modified on Feb 2: `(string-match \"Feb 2\" time)'
|
|
Mark uncompiled Emacs Lisp files (`.el' file without a `.elc' file):
|
|
First, Dired just the source files: `dired *.el'.
|
|
Then, use \\[dired-mark-sexp] with this sexp:
|
|
(not (file-exists-p (concat name \"c\")))
|
|
|
|
There's an ambiguity when a single integer not followed by a unit
|
|
prefix precedes the file mode: It is then parsed as inode number
|
|
and not as block size (this always works for GNU coreutils ls).
|
|
|
|
Another limitation is that the uid field is needed for the
|
|
function to work correctly. In particular, the field is not
|
|
present for some values of `ls-lisp-emulation'.
|
|
|
|
This function operates only on the Dired buffer content. It does not
|
|
refer at all to the underlying file system. Contrast this with
|
|
`find-dired', which might be preferable for the task at hand."
|
|
;; Using `sym' = "", instead of nil, for non-linked files avoids the trap of
|
|
;; (string-match "foo" sym) into which a user would soon fall.
|
|
;; Use `equal' instead of `=' in the example, as it works on integers and strings.
|
|
(interactive "xMark if (vars: inode,blks,mode,nlink,uid,gid,size,time,name,sym): \nP")
|
|
(message "%s" predicate)
|
|
(let ((dired-marker-char (if unmark-p ?\040 dired-marker-char))
|
|
(inode nil)
|
|
(blks ())
|
|
mode nlink uid gid size time name sym)
|
|
(diredp-mark-if
|
|
(save-excursion
|
|
(and
|
|
;; Sets vars INODE BLKS MODE NLINK UID GID SIZE TIME NAME and SYM
|
|
;; according to current file line. Returns `t' for success, nil if
|
|
;; there is no file line. Upon success, these vars are set, to either
|
|
;; nil or the appropriate value, so they need not be initialized.
|
|
;; Moves point within the current line.
|
|
(dired-move-to-filename)
|
|
(let ((mode-len 10) ; Length of mode string.
|
|
;; As in `dired.el', but with subexpressions \1=inode, \2=blks:
|
|
;; GNU `ls -hs' suffixes the block count with a unit and prints it as a float; FreeBSD does neither.
|
|
;; $$$$$$ (dired-re-inode-size "\\s *\\([0-9]*\\)\\s *\\([0-9]*\\) ?")
|
|
(dired-re-inode-size (if (> emacs-major-version 24)
|
|
"\\=\\s *\\([0-9]+\\s +\\)?\
|
|
\\(?:\\([0-9]+\\(?:\\.[0-9]*\\)?[BkKMGTPEZY]?\\)? ?\\)"
|
|
"\\s *\\([0-9]*\\)\\s *\\([0-9]*\\) ?"))
|
|
pos)
|
|
(beginning-of-line)
|
|
(forward-char 2)
|
|
(search-forward-regexp dired-re-inode-size nil t)
|
|
;; XXX Might be a size not followed by a unit prefix. Could set `blks' to `inode' if it were otherwise
|
|
;; nil, with similar reasoning as for setting `gid' to `uid', but it would be even more whimsical.
|
|
(setq inode (and (match-string 1) (string-to-number (match-string 1)))
|
|
blks (and (match-string 2) (if (fboundp 'dired-x--string-to-number)
|
|
(dired-x--string-to-number (match-string 2)) ; Emacs 25+
|
|
(string-to-number (match-string 2))))
|
|
mode (buffer-substring (point) (+ mode-len (point))))
|
|
(forward-char mode-len)
|
|
(unless (eq (char-after) ?\ ) (forward-char 1)) ; Skip any extended attributes marker ("." or "+").
|
|
(setq nlink (read (current-buffer)))
|
|
;; Karsten Wenger <kw@cis.uni-muenchen.de> fixed uid.
|
|
|
|
;; Another issue is that GNU `ls -n' right-justifies numerical UIDs and GIDs, while FreeBSD
|
|
;; left-justifies them, so do not rely on a specific whitespace layout. Both of them right-justify all
|
|
;; other numbers, though.
|
|
;; XXX Return a number if the `uid' or `gid' seems to be numerical?
|
|
;; $$$$$$ (setq uid (buffer-substring (+ (point) 1) (progn (forward-word 1) (point))))
|
|
(setq uid (buffer-substring (progn (skip-chars-forward " \t") (point))
|
|
(progn (skip-chars-forward "^ \t") (point))))
|
|
(cond ((> emacs-major-version 24)
|
|
(dired-move-to-filename)
|
|
(save-excursion
|
|
(setq time
|
|
;; The regexp below tries to match from the last digit of the size field through a
|
|
;; space after the date. Also, dates may have different formats depending on file age,
|
|
;; so the date column need not be aligned to the right.
|
|
(buffer-substring (save-excursion (skip-chars-backward " \t") (point))
|
|
(progn (re-search-backward directory-listing-before-filename-regexp)
|
|
(skip-chars-forward "^ \t")
|
|
(1+ (point))))
|
|
size
|
|
(dired-x--string-to-number
|
|
;; We know that there's some kind of number before point because the regexp search
|
|
;; above succeeded. Not worth doing an extra check for leading garbage.
|
|
(buffer-substring (point) (progn (skip-chars-backward "^ \t") (point))))
|
|
;; If no `gid' is displayed, `gid' will be set to `uid' but user will then not reference
|
|
;; it anyway in PREDICATE.
|
|
gid
|
|
(buffer-substring (progn (skip-chars-backward " \t") (point))
|
|
(progn (skip-chars-backward "^ \t") (point)))))
|
|
(setq name (buffer-substring (point) (or (dired-move-to-end-of-filename t) (point)))
|
|
sym (if (diredp-looking-at-p " -> ")
|
|
(buffer-substring (progn (forward-char 4) (point)) (line-end-position))
|
|
"")))
|
|
(t
|
|
(re-search-forward
|
|
(if (< emacs-major-version 20)
|
|
"\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct\\|Nov\\|Dec\\)"
|
|
dired-move-to-filename-regexp))
|
|
(goto-char (match-beginning 1))
|
|
(forward-char -1)
|
|
(setq size (string-to-number (buffer-substring (save-excursion (backward-word 1)
|
|
(setq pos (point)))
|
|
(point))))
|
|
(goto-char pos)
|
|
(backward-word 1)
|
|
;; if no `gid' is displayed, `gid' will be set to `uid' but user will then not reference
|
|
;; it anyway in PREDICATE.
|
|
(setq gid (buffer-substring (save-excursion (forward-word 1) (point)) (point))
|
|
time (buffer-substring (match-beginning 1) (1- (dired-move-to-filename)))
|
|
name (buffer-substring (point) (or (dired-move-to-end-of-filename t) (point)))
|
|
sym (if (diredp-looking-at-p " -> ")
|
|
(buffer-substring (progn (forward-char 4) (point)) (line-end-position))
|
|
"")))))
|
|
;; Vanilla Emacs uses `lexical-binding' = t, and it passes bindings to `eval' as a second arg.
|
|
;; We use `lexical-binding' = nil, and anyway there should be no need to pass the bindings.
|
|
(eval predicate)))
|
|
(format "'%s file" predicate))))
|
|
|
|
(defun diredp-this-file-marked-p (&optional mark-char)
|
|
"Return non-nil if the file on this line is marked.
|
|
Optional arg MARK-CHAR is the type of mark to check.
|
|
If nil, then if the file has any mark, including `D', it is marked."
|
|
(and (dired-get-filename t t) (save-excursion
|
|
(beginning-of-line)
|
|
(if mark-char
|
|
(diredp-looking-at-p
|
|
(concat "^" (regexp-quote (char-to-string mark-char))))
|
|
(not (diredp-looking-at-p "^ "))))))
|
|
|
|
(defun diredp-this-file-unmarked-p (&optional mark-char)
|
|
"Return non-nil if the file on this line is unmarked.
|
|
Optional arg MARK-CHAR is the type of mark to check.
|
|
If nil, then if the file has no mark, including `D', it is unmarked.
|
|
If non-nil, then it is unmarked for MARK-CHAR if it has no mark or
|
|
it has any mark except MARK-CHAR."
|
|
(and (dired-get-filename t t) (save-excursion
|
|
(beginning-of-line)
|
|
(if mark-char
|
|
(not (diredp-looking-at-p
|
|
(concat "^" (regexp-quote (char-to-string mark-char)))))
|
|
(diredp-looking-at-p "^ ")))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mark-region-files (&optional unmark-p) ; Not bound
|
|
"Mark all of the files in the current region (if it is active).
|
|
With non-nil prefix arg, unmark them instead."
|
|
(interactive "P")
|
|
(let ((beg (min (point) (mark)))
|
|
(end (max (point) (mark)))
|
|
(inhibit-field-text-motion t)) ; Just in case.
|
|
(setq beg (save-excursion (goto-char beg) (line-beginning-position))
|
|
end (save-excursion (goto-char end) (line-end-position)))
|
|
(let ((dired-marker-char (if unmark-p ?\040 dired-marker-char)))
|
|
(diredp-mark-if (and (<= (point) end) (>= (point) beg) (diredp-this-file-unmarked-p)) "region file"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-unmark-region-files (&optional mark-p) ; Not bound
|
|
"Unmark all of the files in the current region (if it is active).
|
|
With non-nil prefix arg, mark them instead."
|
|
(interactive "P")
|
|
(let ((beg (min (point) (mark)))
|
|
(end (max (point) (mark)))
|
|
(inhibit-field-text-motion t)) ; Just in case.
|
|
(setq beg (save-excursion (goto-char beg) (line-beginning-position))
|
|
end (save-excursion (goto-char end) (line-end-position)))
|
|
(let ((dired-marker-char (if mark-p dired-marker-char ?\040)))
|
|
(diredp-mark-if (and (<= (point) end) (>= (point) beg) (diredp-this-file-marked-p)) "region file"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-flag-region-files-for-deletion () ; Not bound
|
|
"Flag all of the files in the current region (if it is active) for deletion."
|
|
(interactive)
|
|
(let ((beg (min (point) (mark)))
|
|
(end (max (point) (mark)))
|
|
(inhibit-field-text-motion t)) ; Just in case.
|
|
(setq beg (save-excursion (goto-char beg) (line-beginning-position))
|
|
end (save-excursion (goto-char end) (line-end-position)))
|
|
(let ((dired-marker-char dired-del-marker))
|
|
(diredp-mark-if (and (<= (point) end) (>= (point) beg) (diredp-this-file-unmarked-p ?\D))
|
|
"region file"))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-toggle-marks-in-region (start end) ; Not bound
|
|
"Toggle marks in the region."
|
|
(interactive "r")
|
|
(save-excursion
|
|
(save-restriction
|
|
(if (not (fboundp 'dired-toggle-marks))
|
|
;; Pre-Emacs 22. Use bol, eol. If details hidden, show first.
|
|
(let ((details-hidden-p (and (boundp 'dired-details-state) (eq 'hidden dired-details-state))))
|
|
(widen)
|
|
(when details-hidden-p (dired-details-show))
|
|
(goto-char start)
|
|
(setq start (line-beginning-position))
|
|
(goto-char end)
|
|
(setq end (line-end-position))
|
|
(narrow-to-region start end)
|
|
(dired-toggle-marks)
|
|
(when details-hidden-p (dired-details-hide)))
|
|
(narrow-to-region start end)
|
|
(dired-toggle-marks))))
|
|
(when (and (get-buffer-window (current-buffer)) (fboundp 'fit-frame-if-one-window))
|
|
(fit-frame-if-one-window)))
|
|
|
|
|
|
;;; Mouse 3 menu.
|
|
;;;;;;;;;;;;;;;;;
|
|
|
|
(defvar diredp-file-line-overlay nil)
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-3-menu (event) ; Bound to `mouse-3'
|
|
"Dired pop-up `mouse-3' menu, for files in selection or current line."
|
|
(interactive "e")
|
|
(if (not (and (fboundp 'mouse3-dired-use-menu) (diredp-nonempty-region-p)))
|
|
;; No `mouse3.el' or no region.
|
|
(if (diredp-nonempty-region-p)
|
|
;; Region
|
|
(let ((reg-choice (x-popup-menu
|
|
event
|
|
(list "Files in Region"
|
|
(list ""
|
|
'("Mark" . diredp-mark-region-files)
|
|
'("Unmark" . diredp-unmark-region-files)
|
|
'("Toggle Marked/Unmarked" .
|
|
diredp-toggle-marks-in-region)
|
|
'("Flag for Deletion" .
|
|
diredp-flag-region-files-for-deletion))))))
|
|
(when reg-choice (call-interactively reg-choice)))
|
|
;; Single file/dir (no region).
|
|
(let ((mouse-pos (event-start event))
|
|
;; Do not use `save-excursion', because some commands will move point on purpose.
|
|
;; Just save original point and return to it unless MOVEP is set to non-nil.
|
|
(opoint (point))
|
|
(movep nil)
|
|
(inhibit-field-text-motion t) ; Just in case.
|
|
choice bol eol file/dir-name)
|
|
(with-current-buffer (window-buffer (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(setq bol (line-beginning-position)
|
|
eol (line-end-position))
|
|
(unwind-protect
|
|
(when (setq file/dir-name (and (not (eobp)) (dired-get-filename nil t)))
|
|
(if diredp-file-line-overlay ; Don't re-create if exists.
|
|
(move-overlay diredp-file-line-overlay bol eol (current-buffer))
|
|
(setq diredp-file-line-overlay (make-overlay bol eol))
|
|
(overlay-put diredp-file-line-overlay 'face 'region))
|
|
(sit-for 0)
|
|
(let ((map
|
|
(easy-menu-create-menu
|
|
"This File"
|
|
`(
|
|
("Bookmark" :visible (featurep 'bookmark+)
|
|
["Bookmark..." diredp-bookmark-this-file]
|
|
["Add Tags..." diredp-tag-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
["Remove Tags..." diredp-untag-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
["Remove All Tags" diredp-remove-all-tags-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
["Copy Tags" diredp-copy-tags-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
["Paste Tags (Add)" diredp-paste-add-tags-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
["Paste Tags (Replace)" diredp-paste-replace-tags-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
["Set Tag Value..." diredp-set-tag-value-this-file
|
|
:visible (featurep 'bookmark+)]
|
|
)
|
|
["Describe" ',(if (if (> emacs-major-version 21)
|
|
(require 'help-fns+ nil t)
|
|
(require 'help+20 nil t))
|
|
'diredp-describe-file
|
|
'diredp-describe-autofile)] ; Requires `bookmark+.el'
|
|
;; Stuff from `Marks' menu.
|
|
["Mark" dired-mark
|
|
:visible (not (eql (dired-file-marker file/dir-name)
|
|
dired-marker-char))]
|
|
["Unmark" dired-unmark
|
|
:visible (dired-file-marker file/dir-name)]
|
|
["Flag for Deletion" dired-flag-file-deletion
|
|
:visible (not (eql (dired-file-marker file/dir-name)
|
|
dired-del-marker))]
|
|
["Delete..." diredp-delete-this-file]
|
|
"--" ; ------------------------------------------------------
|
|
;; Stuff from `Single' / `Multiple' menus.
|
|
["Open" dired-find-file]
|
|
["Open in Other Window" dired-find-file-other-window]
|
|
["Open in Other Frame" diredp-find-file-other-frame]
|
|
["Open Associated Windows App" dired-w32-browser
|
|
:visible (featurep 'w32-browser)]
|
|
["Open in Windows Explorer" dired-w32explore
|
|
:visible (featurep 'w32-browser)]
|
|
["View (Read Only)" dired-view-file]
|
|
["--" 'ignore ; -------------------------------------------------
|
|
:visible (or (atom (diredp-this-subdir)) ; Subdir line.
|
|
(not (equal (expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory))))] ; Not top.
|
|
["Insert This Subdir"
|
|
(lambda () (interactive)
|
|
(call-interactively #'dired-maybe-insert-subdir)
|
|
(setq movep t))
|
|
:visible (and (atom (diredp-this-subdir))
|
|
(not (assoc (file-name-as-directory (diredp-this-subdir))
|
|
dired-subdir-alist)))
|
|
:enable (atom (diredp-this-subdir))]
|
|
["Go To Inserted Subdir"
|
|
(lambda () (interactive)
|
|
(call-interactively #'dired-maybe-insert-subdir)
|
|
(setq movep t))
|
|
:visible (and (atom (diredp-this-subdir))
|
|
(assoc (file-name-as-directory (diredp-this-subdir))
|
|
dired-subdir-alist))
|
|
:enable (atom (diredp-this-subdir))
|
|
:keys "i"]
|
|
["Remove This Inserted Subdir" dired-kill-subdir
|
|
:visible (not (equal
|
|
(expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory)))] ; In subdir, not top.
|
|
["Remove This Inserted Subdir and Lower" diredp-kill-this-tree
|
|
:visible (and (fboundp 'diredp-kill-this-tree)
|
|
(not (equal
|
|
(expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory))))] ; In subdir, not top.
|
|
["Dired This Inserted Subdir (Tear Off)"
|
|
(lambda () (interactive) (diredp-dired-this-subdir t))
|
|
:visible (not (equal (expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory)))] ; In subdir, not top.
|
|
"--" ; ------------------------------------------------------
|
|
["Compare..." diredp-ediff]
|
|
["Diff..." dired-diff]
|
|
["Diff with Backup" dired-backup-diff]
|
|
|
|
["Bookmark..." diredp-bookmark-this-file
|
|
:visible (not (featurep 'bookmark+))]
|
|
"--" ; ------------------------------------------------------
|
|
["Rename to..." diredp-rename-this-file]
|
|
["Capitalize" diredp-capitalize-this-file]
|
|
["Upcase" diredp-upcase-this-file]
|
|
["Downcase" diredp-downcase-this-file]
|
|
"--" ; ------------------------------------------------------
|
|
["Copy to..." diredp-copy-this-file]
|
|
["Symlink to (Relative)..." diredp-relsymlink-this-file]
|
|
["Symlink to..." diredp-symlink-this-file]
|
|
["Hardlink to..." diredp-hardlink-this-file]
|
|
"--" ; ------------------------------------------------------
|
|
["Shell Command..." diredp-shell-command-this-file]
|
|
["Asynchronous Shell Command..."
|
|
diredp-async-shell-command-this-file]
|
|
["Print..." diredp-print-this-file]
|
|
["Grep" diredp-grep-this-file]
|
|
["Compress/Uncompress" diredp-compress-this-file]
|
|
["Byte-Compile" diredp-byte-compile-this-file]
|
|
["Load" diredp-load-this-file]
|
|
"--" ; ------------------------------------------------------
|
|
["Change Timestamp..." diredp-touch-this-file]
|
|
["Change Mode..." diredp-chmod-this-file]
|
|
["Change Group..." diredp-chgrp-this-file
|
|
:visible (fboundp 'diredp-chgrp-this-file)]
|
|
["Change Owner..." diredp-chown-this-file
|
|
:visible (fboundp 'diredp-chown-this-file)]))))
|
|
(when diredp-file-line-overlay
|
|
(delete-overlay diredp-file-line-overlay))
|
|
(setq choice (x-popup-menu event map))
|
|
(when choice (call-interactively (lookup-key map (apply 'vector choice))))))
|
|
(unless movep (goto-char opoint))))))
|
|
;; `mouse3.el' and active region.
|
|
(unless (eq mouse3-dired-function 'mouse3-dired-use-menu)
|
|
(funcall #'mouse3-dired-use-menu)
|
|
(revert-buffer))
|
|
(let ((last-command 'mouse-save-then-kill)) (mouse-save-then-kill event))))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el' for Emacs 20.
|
|
;;
|
|
;; Allow `.' and `..', by using non-nil second arg to `dired-get-filename'.
|
|
;;
|
|
(when (< emacs-major-version 21)
|
|
(defun dired-find-file () ; Bound to `RET'
|
|
"In Dired, visit the file or directory named on this line."
|
|
(interactive)
|
|
(let* ((dgf-result (or (dired-get-filename nil t) (error "No file on this line")))
|
|
(file-name (file-name-sans-versions dgf-result t)))
|
|
(if (file-exists-p file-name)
|
|
(find-file file-name)
|
|
(if (file-symlink-p file-name)
|
|
(error "File is a symlink to a nonexistent target")
|
|
(error "File no longer exists; type `g' to update Dired buffer"))))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-find-file-other-frame () ; Bound to `C-o'
|
|
"In Dired, visit this file or directory in another frame."
|
|
(interactive)
|
|
(find-file-other-frame (file-name-sans-versions (dired-get-filename nil t) t)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-find-file-other-frame (event) ; Bound to `M-mouse-2'
|
|
"In Dired, visit file or directory clicked on in another frame."
|
|
(interactive "e")
|
|
(let ((pop-up-frames t)) (dired-mouse-find-file-other-window event)))
|
|
|
|
|
|
;; REPLACE ORIGINAL in `dired.el'.
|
|
;;
|
|
;; Allow `.' and `..', by using non-nil second arg to `dired-get-filename'.
|
|
;;
|
|
;;;###autoload
|
|
(defun dired-mouse-find-file-other-window (event) ; Bound to `mouse-2'
|
|
"In Dired, visit the file or directory name you click on."
|
|
(interactive "e")
|
|
(let (file)
|
|
(with-current-buffer (window-buffer (posn-window (event-end event)))
|
|
(save-excursion (goto-char (posn-point (event-end event)))
|
|
(setq file (dired-get-filename nil t))))
|
|
(unless (stringp file) (error "No file here"))
|
|
(select-window (posn-window (event-end event)))
|
|
(find-file-other-window (file-name-sans-versions file t))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-view-file (event) ; Not bound
|
|
"Examine this file in view mode, returning to Dired when done.
|
|
When file is a directory, show it in this buffer if it is inserted;
|
|
otherwise, display it in another buffer."
|
|
(interactive "e")
|
|
(let (file)
|
|
(with-current-buffer (window-buffer (posn-window (event-end event)))
|
|
(save-excursion (goto-char (posn-point (event-end event)))
|
|
(setq file (dired-get-filename nil t))))
|
|
(select-window (posn-window (event-end event)))
|
|
(if (file-directory-p file)
|
|
(or (and (cdr dired-subdir-alist) (dired-goto-subdir file)) (dired file))
|
|
(view-file file)))) ; In `view.el'.
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-ediff (event) ; Not bound
|
|
"Compare this file (pointed by mouse) with file FILE2 using `ediff'.
|
|
FILE2 defaults to this file as well. If you enter just a directory
|
|
name for FILE2, then this file is compared with a file of the same
|
|
name in that directory. FILE2 is the second file given to `ediff';
|
|
this file is the first given to it."
|
|
(interactive "e")
|
|
(require 'ediff)
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(call-interactively 'diredp-ediff)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-diff (event &optional switches) ; Not bound
|
|
"Compare this file (pointed by mouse) with file FILE2 using `diff'.
|
|
FILE2 defaults to the file at the mark. This file is the first file
|
|
given to `diff'. With prefix arg, prompt for second arg SWITCHES,
|
|
which are options for `diff'."
|
|
(interactive "e")
|
|
(let ((default (and (mark t) (save-excursion (goto-char (mark t))
|
|
(dired-get-filename t t))))
|
|
(mouse-pos (event-start event)))
|
|
(require 'diff)
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(let ((file2 (read-file-name (format "Diff %s with: %s"
|
|
(dired-get-filename t)
|
|
(if default (concat "(default " default ") ") ""))
|
|
(dired-current-directory) default t)))
|
|
(setq switches (and current-prefix-arg
|
|
(if (fboundp 'icicle-read-string-completing) ; In `icicles-fn.el'
|
|
(icicle-read-string-completing "Options for diff: "
|
|
(if (stringp diff-switches)
|
|
diff-switches
|
|
(mapconcat #'identity diff-switches " "))
|
|
(lambda (c)
|
|
(diredp-string-match-p "switches"
|
|
(symbol-name c))))
|
|
(read-string "Options for diff: " (if (stringp diff-switches)
|
|
diff-switches
|
|
(mapconcat #'identity diff-switches " "))))))
|
|
(diff file2 (dired-get-filename t) switches))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-backup-diff (event) ; Not bound
|
|
"Diff this file with its backup file or vice versa.
|
|
Use the latest backup, if there are several numerical backups.
|
|
If this file is a backup, diff it with its original.
|
|
The backup file is the first file given to `diff'.
|
|
With prefix arg, prompt for SWITCHES which are the options for `diff'."
|
|
(interactive "e")
|
|
(let ((switches (and current-prefix-arg
|
|
(if (fboundp 'icicle-read-string-completing) ; In `icicles-fn.el'
|
|
(icicle-read-string-completing "Options for diff: "
|
|
(if (stringp diff-switches)
|
|
diff-switches
|
|
(mapconcat #'identity diff-switches " "))
|
|
(lambda (c)
|
|
(diredp-string-match-p "switches"
|
|
(symbol-name c))))
|
|
(read-string "Options for diff: " (if (stringp diff-switches)
|
|
diff-switches
|
|
(mapconcat #'identity diff-switches " "))))))
|
|
(mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(diff-backup (dired-get-filename) switches)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-mark (event) ; Not bound
|
|
"In Dired, mark this file.
|
|
If on a subdir headerline, mark all its files except `.' and `..'.
|
|
|
|
Use \\[dired-unmark-all-files] to remove all marks,
|
|
and \\[dired-unmark] on a subdir to remove the marks in this subdir."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(if (and (cdr dired-subdir-alist) (dired-get-subdir))
|
|
(save-excursion (dired-mark-subdir-files))
|
|
(let ((buffer-read-only nil))
|
|
(dired-repeat-over-lines 1 #'(lambda () (delete-char 1) (insert dired-marker-char)))
|
|
(diredp-previous-line 1))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-unmark (event) ; Not bound
|
|
"In Dired, unmark this file.
|
|
If looking at a subdir, unmark all its files except `.' and `..'."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(let ((dired-marker-char ?\040)) (dired-mark nil))
|
|
(diredp-previous-line 1))
|
|
|
|
;;; This can be bound to [C-down-mouse-1] to give behavior similar to Windows Explorer.
|
|
;;; However, Emacs generally uses [C-down-mouse-1] for `mouse-buffer-menu'.
|
|
;;;###autoload
|
|
(defun diredp-mouse-mark/unmark (event) ; Not bound
|
|
"Mark/unmark file or directory at mouse EVENT."
|
|
(interactive "e")
|
|
(let* ((mouse-pos (event-start event))
|
|
(inhibit-field-text-motion t) ; Just in case.
|
|
(file/dir-name (with-current-buffer (window-buffer (posn-window mouse-pos))
|
|
(save-excursion
|
|
(goto-char (posn-point mouse-pos))
|
|
(and (not (eobp)) (dired-get-filename nil t))))))
|
|
;; Return nil iff not on a file or directory name.
|
|
(and file/dir-name (cond ((dired-file-marker file/dir-name)
|
|
(diredp-mouse-unmark event)
|
|
(message "Unmarked: %s" file/dir-name))
|
|
(t
|
|
(diredp-mouse-mark event)
|
|
(message "Marked: %s" file/dir-name))))))
|
|
|
|
;; This can be bound to [S-mouse-1] to give behavior similar to Windows Explorer.
|
|
;; If you do that, consider binding `diredp-mouse-mark/unmark' to `C-mouse-1'.
|
|
;; Alternatively, just bind `diredp-mouse-mark/unmark-mark-region-files' to [S-mouse-1].
|
|
;;;###autoload
|
|
(defun diredp-mouse-mark-region-files (event) ; Bound to `S-mouse-1'
|
|
"Mark files between point and the mouse."
|
|
(interactive "e")
|
|
(call-interactively 'mouse-save-then-kill)
|
|
(diredp-mark-region-files))
|
|
|
|
;; This can be bound to [S-mouse-1] to give behavior similar to Windows Explorer.
|
|
;; If you don't bind `diredp-mouse-mark/unmark' to, for instance, `C-mouse-1', then
|
|
;; Consider binding this to [S-mouse-1].
|
|
;;;###autoload
|
|
(defun diredp-mouse-mark/unmark-mark-region-files (event) ; Not bound
|
|
"Mark/unmark file or mark files in region.
|
|
If the file the cursor is on is marked, then mark all files between it
|
|
and the line clicked (included).
|
|
Otherwise (cursor's file is unmarked):
|
|
If the file clicked is marked, then unmark it.
|
|
If it is unmarked, then mark it."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
;; If same click same line as cursor, or cursor's line is marked,
|
|
;; Then toggle the clicked line's mark.
|
|
;; Else mark all files in region between point and clicked line (included).
|
|
(if (or (eq (count-lines (point-min) (posn-point mouse-pos))
|
|
(count-lines (point-min) (point)))
|
|
(equal dired-marker-char (dired-file-marker (dired-get-filename nil t))))
|
|
(diredp-mouse-mark/unmark event)
|
|
(call-interactively 'mouse-save-then-kill)
|
|
(diredp-mark-region-files))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-flag-file-deletion (event) ; Not bound
|
|
"In Dired, flag this file for deletion.
|
|
If on a subdir headerline, mark all its files except `.' and `..'."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(let ((dired-marker-char dired-del-marker)) (dired-mark 1))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-copy (event) ; Not bound
|
|
"In Dired, copy this file.
|
|
This normally preserves the last-modified date when copying."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-create-files 'copy #'dired-copy-file (if dired-copy-preserve-time "Copy [-p]" "Copy")
|
|
1 dired-keep-marker-copy))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-rename (event) ; Not bound
|
|
"In Dired, rename this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-create-files 'move #'dired-rename-file "Move" 1 dired-keep-marker-rename "Rename"))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-upcase (event) ; Not bound
|
|
"In Dired, rename this file to upper case."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-rename-non-directory #'upcase "Rename to uppercase:" nil))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-downcase (event) ; Not bound
|
|
"In Dired, rename this file to lower case."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-rename-non-directory #'downcase "Rename to lowercase:" nil))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-delete (event) ; Not bound
|
|
"In Dired, delete this file, upon confirmation."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(diredp-internal-do-deletions (dired-map-over-marks (cons (dired-get-filename) (point)) 1)
|
|
1
|
|
'USE-TRASH-CAN) ; This arg is for Emacs 24+ only.
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-shell-command (event) ; Not bound
|
|
"Run a shell COMMAND on this file.
|
|
If there is output, it goes to a separate buffer.
|
|
|
|
No automatic redisplay of Dired buffers is attempted, as there's no
|
|
telling what files the command may have changed. Type
|
|
\\[dired-do-redisplay] to redisplay.
|
|
|
|
The shell command has the top level directory as working directory, so
|
|
output files usually are created there instead of in a subdir."
|
|
;;Functions dired-run-shell-command and dired-shell-stuff-it do the
|
|
;;actual work and can be redefined for customization.
|
|
(interactive "e")
|
|
(lexical-let ((mouse-pos (event-start event))
|
|
(command (dired-read-shell-command "! on %s: " nil (dired-get-marked-files t nil))))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-bunch-files (- 10000 (length command))
|
|
(lambda (&rest files) (dired-run-shell-command (dired-shell-stuff-it command files t 1)))
|
|
nil
|
|
(dired-get-marked-files t 1))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-symlink (event) ; Not bound
|
|
"Make symbolic link to this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-create-files 'symlink #'make-symbolic-link "Symlink" 1 dired-keep-marker-symlink))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-hardlink (event) ; Not bound
|
|
"Make hard link (alias) to this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-create-files 'hardlink #'add-name-to-file "Hardlink" 1 dired-keep-marker-hardlink))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-print (event) ; Not bound
|
|
"Print this file.
|
|
Uses the shell command coming from variables `lpr-command' and
|
|
`lpr-switches' as default."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(let* ((file (dired-get-filename))
|
|
(command (dired-mark-read-string "Print %s with: "
|
|
(apply 'concat lpr-command " " lpr-switches)
|
|
'print 1 (list file))))
|
|
(dired-run-shell-command (dired-shell-stuff-it command (list file) nil))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-grep (event) ; Not bound
|
|
"Run grep against this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(unless grep-command (grep-compute-defaults))
|
|
(grep (diredp-do-grep-1 (list (dired-get-filename t)))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-compress (event) ; Not bound
|
|
"Compress or uncompress this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'dired-compress 1 'compress t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-byte-compile (event) ; Not bound
|
|
"Byte compile this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'dired-byte-compile 1 'byte-compile t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-load (event) ; Not bound
|
|
"Load this Emacs Lisp file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event))
|
|
(dired-no-confirm t))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos))
|
|
(dired-map-over-marks-check #'dired-load 1 'load t))
|
|
(diredp-previous-line 1))
|
|
|
|
;;;###autoload
|
|
(defun diredp-mouse-do-chmod (event) ; Not bound
|
|
"Change the mode of this file.
|
|
This calls chmod, so symbolic modes like `g+w' are allowed."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-chxxx "Mode" "chmod" 'chmod 1)
|
|
(diredp-previous-line 1))
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-mouse-do-chgrp (event) ; Not bound
|
|
"Change the group of this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-chxxx "Group" "chgrp" 'chgrp 1)
|
|
(diredp-previous-line 1)))
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(defun diredp-mouse-do-chown (event) ; Not bound
|
|
"Change the owner of this file."
|
|
(interactive "e")
|
|
(let ((mouse-pos (event-start event)))
|
|
(select-window (posn-window mouse-pos))
|
|
(goto-char (posn-point mouse-pos)))
|
|
(dired-do-chxxx "Owner" dired-chown-program 'chown 1)
|
|
(diredp-previous-line 1)))
|
|
|
|
|
|
;;; Breadcrumbs
|
|
|
|
(when (fboundp 'define-minor-mode)
|
|
|
|
;; Macro `define-minor-mode' is not defined in Emacs 20, so in order to be able to byte-compile
|
|
;; this file in Emacs 20, prohibit byte-compiling of the `define-minor-mode' call.
|
|
;;
|
|
(eval '(define-minor-mode diredp-breadcrumbs-in-header-line-mode
|
|
"Toggle the use of breadcrumbs in Dired header line.
|
|
With arg, show breadcrumbs iff arg is positive."
|
|
:init-value nil :group 'header-line :group 'Dired-Plus
|
|
(unless (derived-mode-p 'dired-mode)
|
|
(error "You must be in Dired or a mode derived from it to use this command"))
|
|
(if diredp-breadcrumbs-in-header-line-mode
|
|
(diredp-set-header-line-breadcrumbs)
|
|
(setq header-line-format (default-value 'header-line-format)))))
|
|
|
|
(defun diredp-set-header-line-breadcrumbs ()
|
|
"Show a header line with breadcrumbs to parent directories."
|
|
(let ((parent (diredp-parent-dir default-directory))
|
|
(dirs ())
|
|
(text ""))
|
|
(while parent
|
|
(push parent dirs)
|
|
(setq parent (diredp-parent-dir parent)))
|
|
(dolist (dir dirs)
|
|
(let* ((crumbs-map (make-sparse-keymap))
|
|
(menu-map (make-sparse-keymap "Breadcrumbs in Header Line"))
|
|
;; The next three are for showing the root as absolute and the rest as relative.
|
|
(rootp (diredp-root-directory-p dir))
|
|
(parent-rootp (and (not rootp) (diredp-root-directory-p (diredp-parent-dir dir))))
|
|
(rdir dir))
|
|
;; (define-key crumbs-map [header-line mouse-3] menu-map)
|
|
(unless rootp (setq rdir (file-name-nondirectory (directory-file-name dir))))
|
|
(when dir
|
|
(setq rdir (propertize rdir
|
|
'local-map (progn (define-key crumbs-map [header-line mouse-1]
|
|
`(lambda () (interactive)
|
|
(dired ,dir dired-actual-switches)))
|
|
(define-key crumbs-map [header-line mouse-2]
|
|
`(lambda () (interactive)
|
|
(dired-other-window ,dir dired-actual-switches)))
|
|
crumbs-map)
|
|
'mouse-face 'mode-line-highlight
|
|
;;'help-echo "mouse-1: Dired; mouse-2: Dired in other window; mouse-3: Menu"))
|
|
'help-echo "mouse-1: Dired; mouse-2: Dired in other window"))
|
|
(setq text (concat text (if (or rootp parent-rootp) " " " / ") rdir)))))
|
|
(make-local-variable 'header-line-format)
|
|
(setq header-line-format text)))
|
|
|
|
;; Users can do this.
|
|
;;
|
|
;; (add-hook 'dired-before-readin-hook 'diredp-breadcrumbs-in-header-line-mode)
|
|
|
|
)
|
|
|
|
|
|
;;; `Dired+' Help
|
|
|
|
;;;###autoload
|
|
(defun diredp-describe-mode (&optional buffer)
|
|
"Describe Dired mode, including Dired+ features.
|
|
This is `describe-mode' plus a description of Dired+ features.
|
|
For just the latter, use \\<dired-mode-map>`\\[diredp-dired-plus-help]'."
|
|
(interactive "@")
|
|
(unless (derived-mode-p 'dired-mode)
|
|
(error "Use `diredp-dired-plus-help' if you want information about Dired+"))
|
|
(with-current-buffer (or buffer (current-buffer)) (describe-mode))
|
|
(with-current-buffer (get-buffer-create "*Help*")
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(diredp-dired-plus-help-link)
|
|
(let ((buffer-read-only nil)) (insert "\n"))
|
|
(when (re-search-forward "Keybindings:\nkey\\s-+binding\n---\\s-+-------" nil t)
|
|
(goto-char (match-beginning 0))
|
|
(let ((buffer-read-only nil))
|
|
(insert "\f\n")
|
|
(diredp-dired-plus-description+links)
|
|
(insert "\f\n"))))))
|
|
|
|
;;;###autoload
|
|
(defun diredp-dired-plus-help ()
|
|
"Describe Dired+."
|
|
(interactive "@")
|
|
(diredp-with-help-window "*Help*" (diredp-dired-plus-description+links)))
|
|
|
|
(defun diredp-dired-plus-description+links ()
|
|
"Insert Dired+ help text in `*Help*'."
|
|
(with-current-buffer (get-buffer-create "*Help*")
|
|
(let ((buffer-read-only nil))
|
|
(save-restriction
|
|
(narrow-to-region (point) (point))
|
|
(diredp-dired-plus-help-link)
|
|
(insert (diredp-dired-plus-description))
|
|
(goto-char (point-max))
|
|
(insert "\n")
|
|
(diredp-dired-plus-help-link)))))
|
|
|
|
(when (and (> emacs-major-version 21)
|
|
(require 'help-mode nil t)
|
|
(get 'help-xref 'button-category-symbol)) ; `button.el'
|
|
(define-button-type 'diredp-help-button
|
|
:supertype 'help-xref
|
|
'help-function #'(lambda () (browse-url "https://www.emacswiki.org/emacs/DiredPlus"))
|
|
'help-echo
|
|
(purecopy "mouse-2, RET: Dired+ documentation on the Emacs Wiki (requires \
|
|
Internet access)")))
|
|
|
|
(defun diredp-dired-plus-help-link ()
|
|
"Add Web link for Dired+ help, and reminder about sending bug report."
|
|
;; Don't bother to do this for Emacs 21.3. Its `help-insert-xref-button' is different.
|
|
(when (and (> emacs-major-version 21)
|
|
(require 'help-mode nil t)
|
|
(fboundp 'help-insert-xref-button)) ; `help-mode.el'.
|
|
(let ((buffer-read-only nil))
|
|
(help-insert-xref-button "[Dired+ Help on the Web]" 'diredp-help-button)
|
|
(insert (substitute-command-keys
|
|
"\t\tSend a Dired+ bug report:\n\t\t\t\t\t`\\[diredp-send-bug-report]'\n")))))
|
|
|
|
(defun diredp-dired-plus-description ()
|
|
"Dired+ description."
|
|
(substitute-command-keys
|
|
(concat
|
|
"\\<dired-mode-map>\
|
|
Dired+ Features
|
|
---------------
|
|
|
|
To see or customize the Dired+ options or faces, use
|
|
`M-x customize-option diredp TAB' or `M-x customize-face diredp TAB'.
|
|
|
|
Most keys listed here are in addition to those for vanilla Dired.
|
|
|
|
Menus
|
|
-----
|
|
|
|
Many Dired+ actions are available from the menu-bar menus and the
|
|
`mouse-3' context menu. This may include commands shown here as not
|
|
being bound to keys (i.e., listed as `M-x ...').
|
|
|
|
General Here
|
|
------------
|
|
|
|
"
|
|
(and (fboundp 'diredp-w32-drives)
|
|
" \\[diredp-w32-drives]\t\t- Go up to a list of MS Windows drives
|
|
")
|
|
(and (fboundp 'dired-hide-details-mode)
|
|
" \\[dired-hide-details-mode]\t\t- Hide/show details
|
|
")
|
|
|
|
" \\[revert-buffer]\t\t- Refresh (sync and show all)
|
|
\\[diredp-toggle-find-file-reuse-dir]\t- Toggle reusing directories
|
|
"
|
|
" \\[diredp-marked-other-window]\t\t- Open Dired on marked files here
|
|
\\[diredp-dired-inserted-subdirs]\t\t- Dired separately each subdir inserted here
|
|
"
|
|
(and (featurep 'bookmark+)
|
|
" \\[diredp-highlight-autofiles-mode]\t- Toggle autofile highlighting
|
|
|
|
")
|
|
|
|
"General Globally
|
|
----------------
|
|
|
|
\\<global-map>\
|
|
\\[diredp-add-to-dired-buffer]\t- Add files to a Dired buffer
|
|
\\[diredp-fileset]\t- Open Dired on files in a fileset
|
|
\\[diredp-dired-recent-dirs]\t- Open Dired on recently used dirs
|
|
\\[diredp-dired-union]\t- Create union of some Dired buffers
|
|
\\[diredp-dired-for-files]\t- Open Dired on files located anywhere
|
|
\\<dired-mode-map>\
|
|
|
|
Mouse
|
|
-----
|
|
|
|
\\[diredp-mouse-3-menu]\t- Context-sensitive menu
|
|
"
|
|
|
|
(and (where-is-internal 'diredp-mouse-describe-file dired-mode-map)
|
|
" \\[diredp-mouse-describe-file]\t- Describe file
|
|
")
|
|
|
|
(and (where-is-internal 'diredp-mouse-describe-autofile dired-mode-map)
|
|
" \\[diredp-mouse-describe-autofile]\t- Describe autofile
|
|
")
|
|
|
|
" \\[diredp-mouse-mark-region-files]\t\t- Mark all in region
|
|
"
|
|
|
|
(and (fboundp 'dired-mouse-w32-browser) ; In `w32-browser.el'.
|
|
(where-is-internal 'dired-mouse-w32-browser dired-mode-map)
|
|
" \\[dired-mouse-w32-browser]\t\t- MS Windows `Open' action
|
|
")
|
|
(and (fboundp 'dired-mouse-w32-browser-reuse-dir-buffer) ; In `w32-browser.el'.
|
|
(where-is-internal 'dired-mouse-w32-browser-reuse-dir-buffer dired-mode-map)
|
|
" \\[dired-mouse-w32-browser-reuse-dir-buffer]\t- MS Windows `Open' action
|
|
")
|
|
|
|
(and (where-is-internal 'dired-mouse-find-file dired-mode-map)
|
|
" \\[dired-mouse-find-file]\t- Open in this window
|
|
")
|
|
(and (where-is-internal 'diredp-mouse-find-file-reuse-dir-buffer dired-mode-map)
|
|
" \\[diredp-mouse-find-file-reuse-dir-buffer]\t- Open in this window
|
|
")
|
|
|
|
(and (where-is-internal 'dired-mouse-find-file-other-window dired-mode-map)
|
|
" \\[dired-mouse-find-file-other-window]\t\t- Open in another window
|
|
")
|
|
|
|
" \\[diredp-mouse-find-file-other-frame]\t\t- Open in another frame
|
|
"
|
|
|
|
"
|
|
Marking
|
|
-------
|
|
|
|
\\[dired-mark]\t\t- Mark this file/dir
|
|
\\[dired-unmark]\t\t- Unmark this file/dir
|
|
\\[dired-toggle-marks]\t\t- Toggle marked/unmarked
|
|
\\[dired-mark-sexp]\t\t- Mark all satisfying a predicate
|
|
\\[dired-unmark-all-marks]\t\t- Unmark all
|
|
\\[diredp-mark/unmark-extension]\t\t- Mark/unmark all that have a given extension
|
|
"
|
|
|
|
(and (fboundp 'dired-mark-omitted) ; In `dired-x.el' Emacs 22+.
|
|
" \\[dired-mark-omitted]\t\t- Mark omitted
|
|
")
|
|
|
|
" \\[diredp-mark-files-tagged-regexp]\t\t- Mark those with a tag that matches a regexp
|
|
\\[diredp-unmark-files-tagged-regexp]\t\t- Unmark those with a tag that matches a regexp
|
|
\\[diredp-mark-files-tagged-all]\t\t- Mark those with all of the given tags
|
|
\\[diredp-unmark-files-tagged-all]\t\t- Unmark those with all of the given tags
|
|
\\[diredp-mark-files-tagged-some]\t\t- Mark those with some of the given tags
|
|
\\[diredp-unmark-files-tagged-some]\t\t- Unmark those with some of the given tags
|
|
\\[diredp-mark-files-tagged-not-all]\t- Mark those without some of the given tags
|
|
\\[diredp-unmark-files-tagged-not-all]\t- Unmark those without some of the given tags
|
|
\\[diredp-mark-files-tagged-none]\t- Mark those with none of the given tags
|
|
\\[diredp-unmark-files-tagged-none]\t- Unmark those with none of the given tags
|
|
"
|
|
|
|
"
|
|
Current file/subdir (current line)
|
|
----------------------------------
|
|
|
|
\\[diredp-describe-file]\t- Describe
|
|
\\[dired-find-file]\t\t- Open
|
|
"
|
|
(and (fboundp 'dired-mouse-w32-browser) ; In `w32-browser.el'.
|
|
(where-is-internal 'dired-mouse-w32-browser dired-mode-map)
|
|
" \\[dired-mouse-w32-browser]\t- MS Windows `Open' action
|
|
\\[dired-w32explore]\t- MS Windows Explorer
|
|
")
|
|
|
|
" \\[diredp-byte-compile-this-file]\t\t- Byte-compile
|
|
\\[diredp-compress-this-file]\t\t- Compress/uncompress
|
|
\\[diredp-print-this-file]\t\t- Print
|
|
\\[diredp-relsymlink-this-file]\t\t- Create relative symlink
|
|
\\[diredp-delete-this-file]\t\t- Delete (with confirmation)
|
|
\\[diredp-rename-this-file]\t\t- Rename
|
|
\\[diredp-capitalize-this-file]\t\t- Capitalize (rename)
|
|
\\[diredp-upcase-this-file]\t\t- Rename to uppercase
|
|
\\[diredp-downcase-this-file]\t\t- Rename to lowercase
|
|
\\[diredp-ediff]\t\t- Ediff
|
|
\\[diredp-bookmark-this-file]\t\t- Bookmark
|
|
"
|
|
(and (featurep 'bookmark+)
|
|
" \\[diredp-tag-this-file]\t\t- Add some tags to this file/dir
|
|
\\[diredp-untag-this-file]\t\t- Remove some tags from this file/dir
|
|
\\[diredp-remove-all-tags-this-file]\t\t- Remove all tags from this file/dir
|
|
\\[diredp-copy-tags-this-file]\t\t- Copy the tags from this file/dir
|
|
\\[diredp-paste-add-tags-this-file]\t\t- Paste (add) copied tags to this file/dir
|
|
\\[diredp-paste-replace-tags-this-file]\t\t- Paste (replace) tags for this file/dir
|
|
\\[diredp-set-tag-value-this-file]\t\t- Set a tag value for this file/dir
|
|
")
|
|
|
|
(and (fboundp 'dired-mouse-w32-browser-reuse-dir-buffer) ; In `w32-browser.el'.
|
|
(where-is-internal 'dired-mouse-w32-browser-reuse-dir-buffer dired-mode-map)
|
|
" \\[dired-mouse-w32-browser-reuse-dir-buffer]\t- MS Windows `Open' action
|
|
\\[dired-w32explore]\t- MS Windows Explorer
|
|
")
|
|
|
|
"
|
|
Marked (or next prefix arg) files & subdirs here
|
|
------------------------------------------------
|
|
"
|
|
(and (fboundp 'dired-multiple-w32-browser) ; In `w32-browser.el'.
|
|
"
|
|
\\[dired-multiple-w32-browser]\t- MS Windows `Open' action
|
|
")
|
|
|
|
|
|
" \\[diredp-list-marked]\t\t- List marked files and directories
|
|
\\[diredp-insert-subdirs]\t\t- Insert marked subdirectories
|
|
\\[dired-copy-filename-as-kill]\t\t- Copy names for pasting
|
|
M-o \\[dired-copy-filename-as-kill]\t\t- Copy absolute names for pasting
|
|
\\[diredp-yank-files]\t\t- Paste files whose absolute names you copied
|
|
\\[dired-do-find-marked-files]\t\t- Visit
|
|
\\[dired-do-copy]\t\t- Copy
|
|
\\[dired-do-rename]\t\t- Rename/move
|
|
\\[diredp-do-grep]\t\t- Run `grep'
|
|
\\[dired-do-search]\t\t- Search
|
|
"
|
|
(and (fboundp 'dired-do-find-regexp) ; Emacs 25+
|
|
" \\[dired-do-find-regexp]\t\t- Search using `find'
|
|
")
|
|
|
|
(if (fboundp 'dired-do-query-replace-regexp) ; Emacs 22+
|
|
" \\[dired-do-query-replace-regexp]\t\t- Query-replace
|
|
"
|
|
" \\[dired-do-query-replace]\t\t- Query-replace
|
|
")
|
|
|
|
(and (fboundp 'dired-do-find-regexp-and-replace)
|
|
" \\[dired-do-find-regexp-and-replace]\t\t- Query-replace using `find'
|
|
")
|
|
|
|
(and (fboundp 'dired-do-isearch)
|
|
" \\[dired-do-isearch]\t- Isearch
|
|
\\[dired-do-isearch-regexp]\t- Regexp isearch
|
|
")
|
|
|
|
(and (fboundp 'dired-do-async-shell-command)
|
|
" \\[dired-do-async-shell-command]\t\t- Run shell command asynchronously
|
|
")
|
|
|
|
" \\[dired-do-shell-command]\t\t- Run shell command
|
|
\\[diredp-marked-other-window]\t\t- Dired
|
|
\\[dired-do-compress]\t\t- Compress
|
|
\\[dired-do-byte-compile]\t\t- Byte-compile
|
|
\\[dired-do-load]\t\t- Load (Emacs Lisp)
|
|
\\[diredp-do-apply-function]\t\t- Apply Lisp function
|
|
\\[diredp-do-emacs-command]\t\t- Invoke Emacs command
|
|
"
|
|
(and (fboundp 'diredp-read-expression) ; Emacs 22+
|
|
" \\[diredp-do-lisp-sexp]\t\t- Evaluate Lisp sexp
|
|
")
|
|
|
|
" \\[diredp-omit-marked]\t- Omit
|
|
\\[diredp-omit-unmarked]\t- Omit unmarked
|
|
"
|
|
|
|
(and (featurep 'bookmark+)
|
|
"
|
|
\\[diredp-do-tag]\t\t- Add some tags to marked
|
|
\\[diredp-do-untag]\t\t- Remove some tags from marked
|
|
\\[diredp-do-remove-all-tags]\t\t- Remove all tags from marked
|
|
\\[diredp-do-paste-add-tags]\t- Paste (add) copied tags to marked
|
|
\\[diredp-do-paste-replace-tags]\t\t- Paste (replace) tags for marked
|
|
\\[diredp-do-set-tag-value]\t\t- Set a tag value for marked
|
|
\\[diredp-mark-files-tagged-regexp]\t\t- Mark those with a tag that matches a regexp
|
|
\\[diredp-mark-files-tagged-all]\t\t- Mark those with all of the given tags
|
|
\\[diredp-mark-files-tagged-some]\t\t- Mark those with some of the given tags
|
|
\\[diredp-mark-files-tagged-not-all]\t- Mark those without some of the given tags
|
|
\\[diredp-mark-files-tagged-none]\t- Mark those with none of the given tags
|
|
\\[diredp-unmark-files-tagged-regexp]\t\t- Unmark those with a tag that matches a regexp
|
|
\\[diredp-unmark-files-tagged-all]\t\t- Unmark those with all of the given tags
|
|
\\[diredp-unmark-files-tagged-some]\t\t- Unmark those with some of the given tags
|
|
\\[diredp-unmark-files-tagged-not-all]\t- Unmark those without some of the given tags
|
|
\\[diredp-unmark-files-tagged-none]\t- Unmark those with none of the given tags")
|
|
|
|
"
|
|
|
|
\\[diredp-do-bookmark]\t\t- Bookmark
|
|
"
|
|
|
|
(and (featurep 'bookmark+)
|
|
" \\[diredp-set-bookmark-file-bookmark-for-marked]\t\t- \
|
|
Bookmark and create bookmark-file bookmark
|
|
\\[diredp-do-bookmark-in-bookmark-file]\t- Bookmark in specific bookmark file
|
|
")
|
|
|
|
"
|
|
Here and below (in marked subdirs)
|
|
----------------------------------
|
|
"
|
|
(and (fboundp 'dired-multiple-w32-browser) ; In `w32-browser.el'.
|
|
"
|
|
\\[diredp-multiple-w32-browser-recursive]\t- MS Windows `Open' action
|
|
")
|
|
|
|
" \\[diredp-list-marked-recursive]\t\t- List marked files and directories
|
|
\\[diredp-insert-subdirs-recursive]\t\t- Insert marked subdirectories
|
|
\\[diredp-copy-filename-as-kill-recursive]\t\t- Copy names for pasting
|
|
\\[diredp-do-find-marked-files-recursive]\t\t\t- Visit
|
|
\\[diredp-do-print-recursive]\t\t\t- Print
|
|
\\[diredp-do-copy-recursive]\t\t\t- Copy
|
|
\\[diredp-do-move-recursive]\t\t\t- Move
|
|
\\[diredp-do-touch-recursive]\t\t- Touch (update timestamp)
|
|
\\[diredp-do-chmod-recursive]\t\t\t- Change mode
|
|
|
|
\\[diredp-do-symlink-recursive]\t\t\t- Add symbolic links
|
|
\\[diredp-do-relsymlink-recursive]\t\t\t- Add relative symbolic links
|
|
\\[diredp-do-hardlink-recursive]\t\t\t- Add hard links
|
|
|
|
\\[diredp-capitalize-recursive]\t\t- Capitalize
|
|
\\[diredp-downcase-recursive]\t\t- Downcase
|
|
\\[diredp-upcase-recursive]\t\t- Upcase
|
|
"
|
|
(and (fboundp 'epa-dired-do-encrypt) ; Emacs 23+
|
|
"
|
|
\\[diredp-do-encrypt-recursive]\t\t- Encrypt
|
|
\\[diredp-do-decrypt-recursive]\t\t- Decrypt
|
|
\\[diredp-do-sign-recursive]\t\t- Sign
|
|
\\[diredp-do-verify-recursive]\t\t- Verify
|
|
")
|
|
|
|
"
|
|
\\[diredp-do-grep-recursive]\t\t- `grep'
|
|
\\[diredp-do-search-recursive]\t\t\t- Search
|
|
\\[diredp-do-query-replace-regexp-recursive]\t\t\t- Query-replace
|
|
\\[diredp-do-isearch-recursive]\t\t- Isearch
|
|
\\[diredp-do-isearch-regexp-recursive]\t- Regexp isearch
|
|
"
|
|
(and (fboundp 'diredp-do-async-shell-command-recursive) ; Emacs 23+
|
|
"
|
|
\\[diredp-do-async-shell-command-recursive]\t\t\t- Run shell command asynchronously
|
|
")
|
|
|
|
" \\[diredp-do-shell-command-recursive]\t\t\t- Run shell command
|
|
\\[diredp-do-apply-function-recursive]\t\t\t- Apply Lisp function
|
|
|
|
\\[diredp-marked-recursive-other-window]\t\t- Dired
|
|
\\[diredp-list-marked-recursive]\t\t- List
|
|
|
|
\\[diredp-image-dired-comment-files-recursive]\t\t- Add image comment
|
|
\\[diredp-image-dired-display-thumbs-recursive]\t\t- Show thumbnail images
|
|
\\[diredp-image-dired-tag-files-recursive]\t\t- Tag images
|
|
\\[diredp-image-dired-delete-tag-recursive]\t\t- Delete image tags
|
|
|
|
\\[diredp-do-bookmark-recursive]\t\t- Bookmark
|
|
"
|
|
(and (featurep 'bookmark+)
|
|
" \\[diredp-do-bookmark-in-bookmark-file-recursive]\t\t- Bookmark in bookmark file
|
|
\\[diredp-set-bookmark-file-bookmark-for-marked-recursive]\t\t- Create bookmark-file bookmark
|
|
")
|
|
|
|
"
|
|
\\[diredp-mark-directories-recursive]\t\t- Mark directories
|
|
\\[diredp-mark-executables-recursive]\t\t- Mark executables
|
|
\\[diredp-mark-symlinks-recursive]\t\t- Mark symbolic links
|
|
\\[diredp-mark-files-containing-regexp-recursive]\t\t- Mark content regexp matches
|
|
\\[diredp-mark-files-regexp-recursive]\t\t- Mark filename regexp matches
|
|
"
|
|
(and (featurep 'bookmark+)
|
|
" \\[diredp-mark-autofiles-recursive]\t\t- Mark autofiles
|
|
")
|
|
" \\[diredp-flag-auto-save-files-recursive]\t\t\t- Flag auto-save
|
|
\\[diredp-do-delete-recursive]\t\t\t- Delete marked (not flagged)
|
|
\\[diredp-change-marks-recursive]\t\t- Change marks
|
|
\\[diredp-unmark-all-files-recursive]\t\t- Remove a given mark
|
|
\\[diredp-unmark-all-marks-recursive]\t\t\t- Remove all marks
|
|
"
|
|
(and (featurep 'bookmark+)
|
|
"
|
|
|
|
Tagging
|
|
-------
|
|
|
|
\\[diredp-tag-this-file]\t\t- Add some tags to this file/dir
|
|
\\[diredp-untag-this-file]\t\t- Remove some tags from this file/dir
|
|
\\[diredp-remove-all-tags-this-file]\t\t- Remove all tags from this file/dir
|
|
\\[diredp-copy-tags-this-file]\t\t- Copy the tags from this file/dir
|
|
\\[diredp-paste-add-tags-this-file]\t\t- Paste (add) copied tags to this file/dir
|
|
\\[diredp-paste-replace-tags-this-file]\t\t- Paste (replace) tags for this file/dir
|
|
\\[diredp-set-tag-value-this-file]\t\t- Set a tag value for this file/dir
|
|
\\[diredp-do-tag]\t\t- Add some tags to marked
|
|
\\[diredp-do-untag]\t\t- Remove some tags from marked
|
|
\\[diredp-do-remove-all-tags]\t\t- Remove all tags from marked
|
|
\\[diredp-do-paste-add-tags]\t- Paste (add) copied tags to marked
|
|
\\[diredp-do-paste-replace-tags]\t\t- Paste (replace) tags for marked
|
|
\\[diredp-do-set-tag-value]\t\t- Set a tag value for marked
|
|
\\[diredp-mark-files-tagged-regexp]\t\t- Mark those with a tag that matches a regexp
|
|
\\[diredp-mark-files-tagged-all]\t\t- Mark those with all of the given tags
|
|
\\[diredp-mark-files-tagged-some]\t\t- Mark those with some of the given tags
|
|
\\[diredp-mark-files-tagged-not-all]\t- Mark those without some of the given tags
|
|
\\[diredp-mark-files-tagged-none]\t- Mark those with none of the given tags
|
|
\\[diredp-unmark-files-tagged-regexp]\t\t- Unmark those with a tag that matches a regexp
|
|
\\[diredp-unmark-files-tagged-all]\t\t- Unmark those with all of the given tags
|
|
\\[diredp-unmark-files-tagged-some]\t\t- Unmark those with some of the given tags
|
|
\\[diredp-unmark-files-tagged-not-all]\t- Unmark those without some of the given tags
|
|
\\[diredp-unmark-files-tagged-none]\t- Unmark those with none of the given tags
|
|
")
|
|
|
|
"
|
|
Bookmarking
|
|
-----------
|
|
|
|
\\[diredp-bookmark-this-file]\t\t- Bookmark this file/dir
|
|
\\[diredp-do-bookmark]\t\t- Bookmark marked"
|
|
|
|
(and (featurep 'bookmark+)
|
|
"
|
|
\\[diredp-set-bookmark-file-bookmark-for-marked]\t\t- \
|
|
Bookmark marked and create bookmark-file bookmark
|
|
\\[diredp-do-bookmark-in-bookmark-file]\t- Bookmark marked, in specific bookmark file
|
|
")
|
|
|
|
" \\[diredp-do-bookmark-recursive]\t- Bookmark marked, here and below
|
|
"
|
|
(and (featurep 'bookmark+)
|
|
" \\[diredp-do-bookmark-in-bookmark-file-recursive]\t- \
|
|
Bookmark marked, here and below, in specific file
|
|
\\[diredp-set-bookmark-file-bookmark-for-marked-recursive]\t- \
|
|
Set bookmark-file bookmark for marked here and below
|
|
")
|
|
|
|
)))
|
|
|
|
(when (> emacs-major-version 21)
|
|
(defun diredp-nb-marked-in-mode-name ()
|
|
"Show number of marked, flagged, and current-list lines in mode-line.
|
|
\(Flagged means flagged for deletion.)
|
|
If the current line is marked/flagged and there are others
|
|
marked/flagged after it then show `N/M', where `N' is the number
|
|
marked/flagged through the current line and `M' is the total number
|
|
marked/flagged.
|
|
|
|
If the current line is for a file then show `L/T', where `L' is the
|
|
line number in the current listing and `T' is the number of files in
|
|
that listing. If option `diredp-count-.-and-..-flag' is non-nil then
|
|
count also `.' and `..'.
|
|
|
|
Also abbreviate `mode-name', using \"Dired/\" instead of \"Dired by\"."
|
|
(let ((mname (format-mode-line mode-name)))
|
|
;; Property `dired+-mode-name' indicates whether `mode-name' has been changed.
|
|
(unless (get-text-property 0 'dired+-mode-name mname)
|
|
(save-match-data
|
|
(setq mode-name
|
|
`(,(propertize (if (string-match "^[dD]ired \\(by \\)?\\(.*\\)" mname)
|
|
(format "Dired/%s" (match-string 2 mname))
|
|
mname)
|
|
'dired+-mode-name t)
|
|
(:eval (let* ((dired-marker-char (if (eq ?D dired-marker-char)
|
|
?* ; `dired-do-flagged-delete' binds it.
|
|
dired-marker-char))
|
|
(marked-regexp (dired-marker-regexp))
|
|
(nb-marked (count-matches marked-regexp
|
|
(point-min) (point-max))))
|
|
(if (not (> nb-marked 0))
|
|
""
|
|
(propertize
|
|
(format " %s%d%c"
|
|
(save-excursion
|
|
(forward-line 0)
|
|
(if (diredp-looking-at-p (concat marked-regexp ".*"))
|
|
(format "%d/" (1+ (count-matches
|
|
marked-regexp
|
|
(point-min) (point))))
|
|
""))
|
|
nb-marked dired-marker-char)
|
|
'face 'diredp-mode-line-marked 'dired+-mode-name t))))
|
|
(:eval (let* ((flagged-regexp (let ((dired-marker-char dired-del-marker))
|
|
(dired-marker-regexp)))
|
|
(nb-flagged (count-matches flagged-regexp
|
|
(point-min) (point-max))))
|
|
(if (not (> nb-flagged 0))
|
|
""
|
|
(propertize
|
|
(format " %s%dD"
|
|
(save-excursion
|
|
(forward-line 0)
|
|
(if (diredp-looking-at-p (concat flagged-regexp ".*"))
|
|
(format "%d/" (1+ (count-matches
|
|
flagged-regexp
|
|
(point-min) (point))))
|
|
""))
|
|
nb-flagged)
|
|
'face 'diredp-mode-line-flagged))))
|
|
(:eval (save-excursion
|
|
(let ((this 0)
|
|
(total 0)
|
|
(o-pt (line-beginning-position))
|
|
(e-pt (or (condition-case nil
|
|
(let ((diredp-wrap-around-flag nil))
|
|
(save-excursion
|
|
(diredp-next-subdir 1)
|
|
(line-beginning-position)))
|
|
(error nil))
|
|
(save-excursion (goto-char (point-max)) (line-beginning-position)))))
|
|
(when dired-subdir-alist (dired-goto-subdir (dired-current-directory)))
|
|
(while (and (<= (point) e-pt)
|
|
(< (point) (point-max))) ; Hack to work around Emacs display-engine bug.
|
|
(when (condition-case nil
|
|
(dired-get-filename nil diredp-count-.-and-..-flag)
|
|
(error nil))
|
|
(when (<= (line-beginning-position) o-pt) (setq this (1+ this)))
|
|
(setq total (1+ total)))
|
|
(forward-line 1))
|
|
(if (not (> this 0)) (format " %d" total) (format " %d/%d" this total)))))))))))
|
|
|
|
(add-hook 'dired-after-readin-hook 'diredp-nb-marked-in-mode-name)
|
|
;; This one is needed for `find-dired', because it does not call `dired-readin'.
|
|
(add-hook 'dired-mode-hook 'diredp-nb-marked-in-mode-name))
|
|
|
|
;;;###autoload
|
|
(defun diredp-send-bug-report ()
|
|
"Send a bug report about a Dired+ problem."
|
|
(interactive)
|
|
(browse-url (format (concat "mailto:" "drew.adams" "@" "oracle" ".com?subject=\
|
|
Dired+ bug: \
|
|
&body=Describe bug below, using a precise recipe that starts with `emacs -Q' or `emacs -q'. \
|
|
File `dired+.el' has a header `Update #' that you can use to identify it.\
|
|
%%0A%%0AEmacs version: %s.")
|
|
(emacs-version))))
|
|
|
|
(defun diredp-visit-ignore-regexp () ; Taken from `image-file-name-regexp'.
|
|
"Return a regular expression matching file names to skip.
|
|
This is used by `dired-visit-(next|previous)'."
|
|
(let ((exts-regexp (and diredp-visit-ignore-extensions
|
|
(concat "\\." (regexp-opt (nconc (mapcar #'upcase diredp-visit-ignore-extensions)
|
|
diredp-visit-ignore-extensions)
|
|
t)
|
|
"\\'"))))
|
|
(if diredp-visit-ignore-regexps
|
|
(mapconcat #'identity (if exts-regexp
|
|
(cons exts-regexp diredp-visit-ignore-regexps)
|
|
diredp-visit-ignore-regexps)
|
|
"\\|")
|
|
exts-regexp)))
|
|
|
|
;;;###autoload
|
|
(defun diredp-visit-next-file (&optional arg) ; Bound to `C-down'
|
|
"Move down a line and visit its file in another window.
|
|
With numeric prefix arg N, move down N-1 lines first.
|
|
|
|
After moving N lines, skip any lines with file names that match either
|
|
`diredp-visit-ignore-extensions' or `diredp-visit-ignore-regexps'.
|
|
|
|
Kill the last buffer visited by a `dired-visit-*' command."
|
|
(interactive "p")
|
|
(dired-next-line arg)
|
|
(while (diredp-string-match-p (diredp-visit-ignore-regexp) (dired-get-file-for-visit))
|
|
(dired-next-line 1))
|
|
(diredp-visit-this-file))
|
|
|
|
;;;###autoload
|
|
(defun diredp-visit-previous-file (&optional arg) ; Bound to `C-up'
|
|
"Move up a line and visit its file in another window.
|
|
With numeric prefix arg N, move up N-1 lines first.
|
|
|
|
After moving N lines, skip any lines with file names that match either
|
|
`diredp-visit-ignore-extensions' or `diredp-visit-ignore-regexps'.
|
|
|
|
Kill the last buffer visited by a `dired-visit-*' command."
|
|
(interactive "p")
|
|
(dired-previous-line arg)
|
|
(while (diredp-string-match-p (diredp-visit-ignore-regexp) (dired-get-file-for-visit))
|
|
(dired-previous-line 1))
|
|
(diredp-visit-this-file))
|
|
|
|
;;;###autoload
|
|
(defun diredp-visit-this-file () ; Bound to `e' (replaces `dired-find-file' binding)
|
|
"View the file on this line in another window in the same frame.
|
|
If it was not already shown there then kill the previous buffer
|
|
visited by a `dired-visit-*' command.
|
|
|
|
If it was already shown there, and if it and Dired are the only
|
|
windows there, then delete its window (toggle : show/hide the file)."
|
|
(interactive)
|
|
(let ((file (dired-get-file-for-visit))
|
|
(obuf (current-buffer))
|
|
(shown nil)
|
|
fwin)
|
|
(unless (or (and (fboundp 'window-parent) (window-parent))
|
|
(not (one-window-p 'NOMINI)))
|
|
(split-window))
|
|
(save-selected-window
|
|
(other-window 1)
|
|
(setq fwin (selected-window))
|
|
(unless (or (setq shown (or (equal (current-buffer) (get-file-buffer file))
|
|
(memq (current-buffer) (dired-buffers-for-dir file))))
|
|
(equal obuf (current-buffer)))
|
|
(kill-buffer (current-buffer))))
|
|
(if shown
|
|
(when (= 2 (count-windows 'NOMINI)) (delete-window fwin))
|
|
(set-window-buffer fwin (find-file-noselect file)))))
|
|
|
|
;;; Key Bindings.
|
|
|
|
|
|
;; Menu Bar.
|
|
;; New order is (left -> right):
|
|
;;
|
|
;; Dir Regexp Mark Multiple Single
|
|
|
|
;; Get rid of menu bar predefined in `dired.el'.
|
|
(define-key dired-mode-map [menu-bar] nil)
|
|
;; Get rid of Edit menu bar menu to save space.
|
|
(define-key dired-mode-map [menu-bar edit] 'undefined)
|
|
|
|
|
|
;; `Single' menu.
|
|
;;
|
|
;; REPLACE ORIGINAL `Immediate' menu in `dired.el'.
|
|
;;
|
|
(defvar diredp-menu-bar-single-menu (make-sparse-keymap "Single"))
|
|
(define-key dired-mode-map [menu-bar immediate] (cons "Single" diredp-menu-bar-single-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-immediate-menu 'diredp-menu-bar-single-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-immediate-menu 'diredp-menu-bar-single-menu) ; 2017-04-09
|
|
|
|
(if (fboundp 'diredp-describe-file)
|
|
(define-key diredp-menu-bar-single-menu [diredp-describe-file]
|
|
'(menu-item "Describe" diredp-describe-file
|
|
:help "Describe the file or directory at cursor"))
|
|
(define-key diredp-menu-bar-single-menu [diredp-describe-autofile]
|
|
'(menu-item "Describe" diredp-describe-autofile
|
|
:help "Describe the autofile at cursor"
|
|
:enable (featurep 'bookmark+))))
|
|
(define-key diredp-menu-bar-single-menu [separator-describe] '("--")) ; ---------------------
|
|
|
|
(when (fboundp 'diredp-chown-this-file)
|
|
(define-key diredp-menu-bar-single-menu [chown]
|
|
'(menu-item "Change Owner..." diredp-chown-this-file
|
|
:help "Change the owner of file at cursor")))
|
|
(when (fboundp 'diredp-chgrp-this-file)
|
|
(define-key diredp-menu-bar-single-menu [chgrp]
|
|
'(menu-item "Change Group..." diredp-chgrp-this-file
|
|
:help "Change the group of file at cursor")))
|
|
(define-key diredp-menu-bar-single-menu [chmod]
|
|
'(menu-item "Change Mode..." diredp-chmod-this-file
|
|
:help "Change mode (attributes) of file at cursor"))
|
|
(when (fboundp 'dired-do-touch) ; Emacs 22+
|
|
(define-key diredp-menu-bar-single-menu [touch]
|
|
'(menu-item "Change Timestamp (`touch')..." diredp-touch-this-file
|
|
:help "Change the timestamp of file at cursor, using `touch'")))
|
|
(define-key diredp-menu-bar-single-menu [separator-change] '("--")) ; -----------------------
|
|
|
|
(define-key diredp-menu-bar-single-menu [print]
|
|
'(menu-item "Print..." diredp-print-this-file
|
|
:help "Print file at cursor, supplying print command"))
|
|
(define-key diredp-menu-bar-single-menu [grep]
|
|
'(menu-item "Grep..." diredp-grep-this-file :help "Grep file at cursor"))
|
|
(define-key diredp-menu-bar-single-menu [compress]
|
|
'(menu-item "Compress/Uncompress" diredp-compress-this-file
|
|
:help "Compress/uncompress file at cursor"))
|
|
(define-key diredp-menu-bar-single-menu [command]
|
|
'(menu-item "Shell Command..." diredp-shell-command-this-file
|
|
:help "Run a shell command on file at cursor"))
|
|
(define-key diredp-menu-bar-single-menu [diredp-async-shell-command-this-file]
|
|
'(menu-item "Asynchronous Shell Command..." diredp-async-shell-command-this-file
|
|
:help "Run a shell command asynchronously on file at cursor"))
|
|
(define-key diredp-menu-bar-single-menu [compile]
|
|
'(menu-item "Byte Compile" diredp-byte-compile-this-file
|
|
:help "Byte-compile this Emacs Lisp file"))
|
|
(define-key diredp-menu-bar-single-menu [load]
|
|
'(menu-item "Load" diredp-load-this-file
|
|
:help "Load this Emacs Lisp file"))
|
|
|
|
(when (fboundp 'mkhtml-dired-files) ; In `mkhtml.el'.
|
|
(define-key diredp-menu-bar-single-menu [mkhtml-dired-files]
|
|
'(menu-item "Create HTML" mkhtml-dired-files
|
|
:help "Create an HTML file corresponding to file at cursor")))
|
|
(define-key diredp-menu-bar-single-menu [separator-misc] '("--")) ; -------------------------
|
|
|
|
(define-key diredp-menu-bar-single-menu [delete]
|
|
'(menu-item "Delete" diredp-delete-this-file :help "Delete file at cursor"))
|
|
(define-key diredp-menu-bar-single-menu [separator-delete] '("--")) ; -----------------------
|
|
|
|
(define-key diredp-menu-bar-single-menu [backup-diff]
|
|
'(menu-item "Diff with Backup" dired-backup-diff
|
|
:help "Diff file at cursor with its latest backup"))
|
|
(define-key diredp-menu-bar-single-menu [diff]
|
|
'(menu-item "Diff..." dired-diff
|
|
:help "Compare file at cursor with another file using `diff'"))
|
|
(define-key diredp-menu-bar-single-menu [ediff]
|
|
'(menu-item "Compare..." diredp-ediff :help "Compare file at cursor with another file"))
|
|
(define-key diredp-menu-bar-single-menu [separator-diff] '("--")) ; -------------------------
|
|
|
|
(define-key diredp-menu-bar-single-menu [diredp-kill-this-tree]
|
|
'(menu-item "Remove This Inserted Subdir and Lower" diredp-kill-this-tree
|
|
:visible (and (fboundp 'diredp-kill-this-tree)
|
|
(not (equal
|
|
(expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory)))))) ; In subdir, not top.
|
|
(define-key diredp-menu-bar-single-menu [dired-kill-subdir]
|
|
'(menu-item "Remove This Inserted Subdir" dired-kill-subdir
|
|
:visible (not (equal (expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory))))) ; In subdir, not top.
|
|
(define-key diredp-menu-bar-single-menu [diredp-dired-this-subdir]
|
|
'(menu-item "Dired This Inserted Subdir (Tear Off)"
|
|
(lambda () (interactive) (diredp-dired-this-subdir t))
|
|
:visible (and (cdr dired-subdir-alist) ; First is current dir. Must have at least one more.
|
|
(not (equal (expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory)))) ; Must be sub, not top.
|
|
:help "Open Dired for subdir at or above point, tearing it off if inserted"))
|
|
(define-key diredp-menu-bar-single-menu [insert-subdir]
|
|
'(menu-item "Insert This Subdir" dired-maybe-insert-subdir
|
|
:visible (and (atom (diredp-this-subdir))
|
|
(not (assoc (file-name-as-directory (diredp-this-subdir)) dired-subdir-alist)))
|
|
:enable (atom (diredp-this-subdir))
|
|
:help "Insert a listing of this subdirectory"))
|
|
(define-key diredp-menu-bar-single-menu [goto-subdir]
|
|
'(menu-item "Go To Inserted Subdir" dired-maybe-insert-subdir
|
|
:visible (and (atom (diredp-this-subdir))
|
|
(assoc (file-name-as-directory (diredp-this-subdir)) dired-subdir-alist))
|
|
:enable (atom (diredp-this-subdir))
|
|
:help "Go to the inserted listing of this subdirectory"))
|
|
(define-key diredp-menu-bar-single-menu [separator-subdir] '("--" ; ------------------------
|
|
:visible (or (atom (diredp-this-subdir)) ; Subdir line.
|
|
(not (equal (expand-file-name (dired-current-directory))
|
|
(expand-file-name default-directory)))))) ; Not top.
|
|
|
|
(define-key diredp-menu-bar-single-menu [view]
|
|
'(menu-item "View (Read Only)" dired-view-file
|
|
:help "Examine file at cursor in read-only mode"))
|
|
(define-key diredp-menu-bar-single-menu [display]
|
|
'(menu-item "Display in Other Window" dired-display-file
|
|
:help "Display file at cursor in a different window"))
|
|
|
|
|
|
;; `Single' > `Open' menu.
|
|
;;
|
|
(defvar diredp-single-open-menu (make-sparse-keymap "Rename")
|
|
"`Open' submenu for Dired menu-bar `Single' menu.")
|
|
(define-key diredp-menu-bar-single-menu [multiple-open] (cons "Open" diredp-single-open-menu))
|
|
|
|
;; On Windows, bind more.
|
|
(eval-after-load "w32-browser"
|
|
'(progn
|
|
(define-key diredp-single-open-menu [dired-w32-browser]
|
|
'(menu-item "Open Associated Windows App" dired-w32-browser
|
|
:help "Open file using the Windows app associated with its file type"))
|
|
(define-key diredp-single-open-menu [dired-w32explore]
|
|
'(menu-item "Open in Windows Explorer" dired-w32explore
|
|
:help "Open file in Windows Explorer"))))
|
|
(define-key diredp-single-open-menu [find-file-other-frame]
|
|
'(menu-item "Open in Other Frame" diredp-find-file-other-frame
|
|
:help "Edit file at cursor in a different frame"))
|
|
(define-key diredp-single-open-menu [find-file-other-window]
|
|
'(menu-item "Open in Other Window" dired-find-file-other-window
|
|
:help "Edit file at cursor in a different window"))
|
|
(define-key diredp-single-open-menu [find-file]
|
|
'(menu-item "Open" dired-find-file :help "Edit file at cursor"))
|
|
|
|
|
|
;; `Single' > `Rename' menu.
|
|
;;
|
|
(defvar diredp-single-rename-menu (make-sparse-keymap "Rename")
|
|
"`Rename' submenu for Dired menu-bar `Single' menu.")
|
|
(define-key diredp-menu-bar-single-menu [multiple-case] (cons "Rename" diredp-single-rename-menu))
|
|
|
|
(define-key diredp-single-rename-menu [single-rename-capitalize]
|
|
'(menu-item "Capitalize" diredp-capitalize-this-file
|
|
:help "Capitalize (initial caps) name of file at cursor"))
|
|
(define-key diredp-single-rename-menu [single-rename-downcase]
|
|
'(menu-item "Downcase" diredp-downcase-this-file
|
|
;; When running on plain MS-DOS, there is only one letter-case for file names.
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Rename file at cursor to a lower-case name"))
|
|
(define-key diredp-single-rename-menu [single-rename-upcase]
|
|
'(menu-item "Upcase" diredp-upcase-this-file
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Rename file at cursor to an upper-case name"))
|
|
|
|
|
|
;; `Single' > `Move / Copy / Link' menu.
|
|
;;
|
|
(defvar diredp-single-move-copy-link-menu (make-sparse-keymap "Move / Copy / Link")
|
|
"`Move / Copy / Link' submenu for Dired menu-bar `Single' menu.")
|
|
(define-key diredp-menu-bar-single-menu [multiple-move-copy-link]
|
|
(cons "Move / Copy / Link" diredp-single-move-copy-link-menu))
|
|
|
|
(define-key diredp-single-move-copy-link-menu [single-hardlink]
|
|
'(menu-item "Hardlink to..." diredp-hardlink-this-file
|
|
:help "Make hard links for current or marked files"))
|
|
(define-key diredp-single-move-copy-link-menu [single-symlink]
|
|
'(menu-item "Symlink to (Absolute)..." diredp-symlink-this-file
|
|
:help "Make absolute symbolic link for file at cursor"))
|
|
(define-key diredp-single-move-copy-link-menu [single-relsymlink]
|
|
'(menu-item "Symlink to (Relative)..." diredp-relsymlink-this-file
|
|
:help "Make relative symbolic link for file at cursor"))
|
|
(define-key diredp-single-move-copy-link-menu [single-copy]
|
|
'(menu-item "Copy to..." diredp-copy-this-file :help "Copy file at cursor"))
|
|
(define-key diredp-single-move-copy-link-menu [single-rename]
|
|
'(menu-item "Move to..." diredp-rename-this-file
|
|
:help "Rename file at cursor, or move it to a different directory"))
|
|
|
|
|
|
;; `Single' > `Image' menu.
|
|
;;
|
|
(defvar diredp-single-image-menu (make-sparse-keymap "Image"))
|
|
(defalias 'diredp-single-image-menu diredp-single-image-menu)
|
|
(define-key diredp-menu-bar-single-menu [image]
|
|
'(menu-item "Image" diredp-single-image-menu
|
|
:enable (let ((img-file (diredp-get-image-filename 'LOCALP 'NO-ERROR)))
|
|
(and (fboundp 'image-dired-dired-display-image) img-file))))
|
|
|
|
(define-key diredp-single-image-menu [diredp-image-dired-display-thumb]
|
|
'(menu-item "Go To Thumbnail" diredp-image-dired-display-thumb
|
|
:help "Pop to buffer showing the thumbnail of this image file"))
|
|
(define-key diredp-single-image-menu [diredp-image-dired-create-thumb]
|
|
'(menu-item "Create Thumbnail" diredp-image-dired-create-thumb
|
|
:help "Create a thumbnail image for this image file"))
|
|
(define-key diredp-single-image-menu [diredp-image-dired-edit-comment-and-tags]
|
|
'(menu-item "Edit Comment and Tags..." diredp-image-dired-edit-comment-and-tags
|
|
:help "Edit comment and tags for this image file"))
|
|
(define-key diredp-single-image-menu [diredp-image-dired-delete-tag]
|
|
'(menu-item "Delete Image Tag..." diredp-image-dired-delete-tag
|
|
:help "Remove an `image-dired' tag from this image file"))
|
|
(define-key diredp-single-image-menu [diredp-image-dired-tag-file]
|
|
'(menu-item "Add Tags..." diredp-image-dired-tag-file
|
|
:help "Add tags to this image file"))
|
|
(define-key diredp-single-image-menu [diredp-image-dired-comment-file]
|
|
'(menu-item "Add Comment..." diredp-image-dired-comment-file
|
|
:help "Add a comment to this image file"))
|
|
(define-key diredp-single-image-menu [diredp-image-dired-copy-with-exif-name]
|
|
'(menu-item "Copy with EXIF Name" diredp-image-dired-copy-with-exif-name
|
|
:help "Copy this image file to main image dir using EXIF name"))
|
|
(define-key diredp-single-image-menu [image-dired-dired-display-external]
|
|
'(menu-item "Display Externally" image-dired-dired-display-external
|
|
:help "Display image using external viewer"))
|
|
(define-key diredp-single-image-menu [image-dired-dired-display-image]
|
|
'(menu-item "Display to Fit Other Window" image-dired-dired-display-image
|
|
:help "Display scaled image to fit a separate window"))
|
|
(define-key diredp-single-image-menu [diredp-image-show-this-file]
|
|
'(menu-item "Display Full Size Or Smaller" diredp-image-show-this-file
|
|
:help "Display image full size or at least prefix-arg lines high"))
|
|
(define-key diredp-single-image-menu [dired-find-file]
|
|
'(menu-item "Display Full Size" dired-find-file
|
|
:help "Display image full size"))
|
|
|
|
|
|
;; `Single' > `Encryption' menu.
|
|
;;
|
|
(when (fboundp 'epa-dired-do-encrypt) ; Emacs 23+
|
|
(defvar diredp-single-encryption-menu (make-sparse-keymap "Encryption"))
|
|
(define-key diredp-menu-bar-single-menu [encryption]
|
|
(cons "Encryption" diredp-single-encryption-menu))
|
|
|
|
(define-key diredp-single-encryption-menu [diredp-decrypt-this-file]
|
|
'(menu-item "Decrypt..." (lambda ()
|
|
(interactive)
|
|
(epa-decrypt-file (expand-file-name (dired-get-filename
|
|
nil 'NO-ERROR-P))))
|
|
:help "Decrypt this file"))
|
|
(define-key diredp-single-encryption-menu [diredp-verify-this-file]
|
|
'(menu-item "Verify..." (lambda ()
|
|
(interactive)
|
|
(epa-verify-file (expand-file-name (dired-get-filename
|
|
nil 'NO-ERROR-P))))
|
|
:help "Verify this file"))
|
|
(define-key diredp-single-encryption-menu [diredp-sign-this-file]
|
|
'(menu-item "Sign..." (lambda ()
|
|
(interactive)
|
|
(epa-sign-file (expand-file-name (dired-get-filename
|
|
nil 'NO-ERROR-P))
|
|
(epa-select-keys (epg-make-context)
|
|
"Select keys for signing.
|
|
If no one is selected, default secret key is used. "
|
|
nil t)))
|
|
:help "Encrypt this file"))
|
|
(define-key diredp-single-encryption-menu [diredp-encrypt-this-file]
|
|
'(menu-item "Encrypt..." (lambda ()
|
|
(interactive)
|
|
(epa-encrypt-file (expand-file-name (dired-get-filename
|
|
nil 'NO-ERROR-P))
|
|
(epa-select-keys
|
|
(epg-make-context)
|
|
"Select recipients for encryption.
|
|
If no one is selected, symmetric encryption will be performed. "
|
|
nil t)))
|
|
:help "Sign this file")))
|
|
|
|
|
|
;; `Single' > `Bookmark' menu.
|
|
;;
|
|
(when (require 'bookmark+ nil t)
|
|
(defvar diredp-single-bookmarks-menu (make-sparse-keymap "Bookmark"))
|
|
(define-key diredp-menu-bar-single-menu [bookmark]
|
|
(cons "Bookmark" diredp-single-bookmarks-menu))
|
|
|
|
(define-key diredp-single-bookmarks-menu [diredp-set-tag-value-this-file]
|
|
'(menu-item "Set Tag Value..." diredp-set-tag-value-this-file
|
|
:help "Set the value (not the name) of a given tag for this file"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-paste-replace-tags-this-file]
|
|
'(menu-item "Paste Tags (Replace)" diredp-paste-replace-tags-this-file
|
|
:help "Replace tags for this file with previously copied tags"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-paste-add-tags-this-file]
|
|
'(menu-item "Paste Tags (Add)" diredp-paste-add-tags-this-file
|
|
:help "Add previously copied tags to this file"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-copy-tags-this-file]
|
|
'(menu-item "Copy Tags" diredp-copy-tags-this-file
|
|
:help "Copy the tags from this file, so you can paste them to another"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-remove-all-tags-this-file]
|
|
'(menu-item "Remove All Tags" diredp-remove-all-tags-this-file
|
|
:help "Remove all tags from the file at cursor"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-untag-this-file]
|
|
'(menu-item "Remove Tags..." diredp-untag-this-file
|
|
:help "Remove some tags from the file at cursor (`C-u': remove all tags)"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-tag-this-file]
|
|
'(menu-item "Add Tags..." diredp-tag-this-file :help "Add some tags to the file at cursor"))
|
|
(define-key diredp-single-bookmarks-menu [diredp-bookmark-this-file]
|
|
'(menu-item "Bookmark..." diredp-bookmark-this-file
|
|
:help "Bookmark the file at cursor (create/set autofile)")))
|
|
|
|
|
|
;; `Multiple' menu.
|
|
;;
|
|
;; REPLACE ORIGINAL "Operate" menu in `dired.el'.
|
|
;;
|
|
(defvar diredp-menu-bar-multiple-menu (make-sparse-keymap "Multiple"))
|
|
(define-key dired-mode-map [menu-bar operate] (cons "Multiple" diredp-menu-bar-multiple-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-operate-menu 'diredp-menu-bar-multiple-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-operate-menu 'diredp-menu-bar-multiple-menu) ; 2017-04-09
|
|
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-describe-marked-autofiles]
|
|
'(menu-item "Describe Marked Autofiles" diredp-describe-marked-autofiles
|
|
:help "Show the metadata for the marked files that are autofiles"
|
|
:enable (featurep 'bookmark+)))
|
|
(define-key diredp-menu-bar-multiple-menu [separator-describe] '("--")) ; -----------------------
|
|
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(define-key diredp-menu-bar-multiple-menu [chown]
|
|
'(menu-item "Change Owner..." dired-do-chown
|
|
:help "Change the owner of marked files")))
|
|
(unless (memq system-type '(windows-nt ms-dos))
|
|
(define-key diredp-menu-bar-multiple-menu [chgrp]
|
|
'(menu-item "Change Group..." dired-do-chgrp
|
|
:help "Change the owner of marked files")))
|
|
(define-key diredp-menu-bar-multiple-menu [chmod]
|
|
'(menu-item "Change Mode..." dired-do-chmod
|
|
:help "Change mode (attributes) of marked files"))
|
|
(when (fboundp 'dired-do-touch) ; Emacs 22+
|
|
(define-key diredp-menu-bar-multiple-menu [touch]
|
|
'(menu-item "Change Timestamp (`touch')..." dired-do-touch
|
|
:help "Change the timestamp of the marked files, using `touch'")))
|
|
(define-key diredp-menu-bar-multiple-menu [separator-change] '("--")) ; -------------------------
|
|
|
|
(when (fboundp 'diredp-read-expression) ; Emacs 22+
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-do-lisp-sexp]
|
|
'(menu-item "Eval Sexp..." diredp-do-lisp-sexp
|
|
:help "Evaluate an Emacs-Lisp sexp in each marked file")))
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-do-emacs-command]
|
|
'(menu-item "Invoke Emacs Command..." diredp-do-emacs-command
|
|
:help "Invoke an Emacs command in each marked file"))
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-do-apply-function]
|
|
'(menu-item "Apply Function..." diredp-do-apply-function
|
|
:help "Apply a Lisp function to each marked file name (`C-u': file contents, not name)"))
|
|
(define-key diredp-menu-bar-multiple-menu [print]
|
|
'(menu-item "Print..." dired-do-print :help "Print marked files, supplying print command"))
|
|
(define-key diredp-menu-bar-multiple-menu [compress]
|
|
'(menu-item "Compress/Uncompress" dired-do-compress :help "Compress/uncompress marked files"))
|
|
(when (fboundp 'dired-do-compress-to)
|
|
(define-key diredp-menu-bar-multiple-menu [compress-to]
|
|
'(menu-item "Compress to..." dired-do-compress-to
|
|
:help "Compress marked files and dirs together, in the same archive")))
|
|
(define-key diredp-menu-bar-multiple-menu [command]
|
|
'(menu-item "Shell Command..." dired-do-shell-command
|
|
:help "Run a shell command on each marked file"))
|
|
(when (fboundp 'dired-do-async-shell-command) ; Emacs 23+
|
|
(define-key diredp-menu-bar-multiple-menu [async-command]
|
|
'(menu-item "Asynchronous Shell Command..." dired-do-async-shell-command
|
|
:help "Run a shell command asynchronously on each marked file")))
|
|
(define-key diredp-menu-bar-multiple-menu [compile]
|
|
'(menu-item "Byte Compile" dired-do-byte-compile :help "Byte-compile marked Emacs Lisp files"))
|
|
(define-key diredp-menu-bar-multiple-menu [load]
|
|
'(menu-item "Load" dired-do-load :help "Load marked Emacs Lisp files"))
|
|
|
|
(unless (require 'bookmark+ nil t)
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-bookmark-this-file]
|
|
'(menu-item "Bookmark..." diredp-bookmark-this-file :help "Bookmark the file at cursor")))
|
|
(when (fboundp 'mkhtml-dired-files) ; In `mkhtml.el'.
|
|
(define-key diredp-menu-bar-multiple-menu [mkhtml-dired-files]
|
|
'(menu-item "Create HTML" mkhtml-dired-files
|
|
:help "Create HTML files corresponding to marked files")))
|
|
(define-key diredp-menu-bar-multiple-menu [separator-misc] '("--")) ; ---------------------------
|
|
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-copy-abs-filenames-as-kill]
|
|
'(menu-item "Copy Marked Names as Absolute" diredp-copy-abs-filenames-as-kill
|
|
:help "Copy absolute names of marked files to the kill ring"
|
|
:keys "M-0 w"))
|
|
(define-key diredp-menu-bar-multiple-menu [kill-ring]
|
|
'(menu-item "Copy Marked Names" dired-copy-filename-as-kill
|
|
:help "Copy names of marked files to the kill ring, for pasting"))
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-list-marked]
|
|
'(menu-item "List Marked Files" diredp-list-marked
|
|
:help "List the files marked here (C-u C-u: all, C-u C-u C-u: all + dirs)"))
|
|
(define-key diredp-menu-bar-multiple-menu [diredp-insert-subdirs]
|
|
'(menu-item "Insert Subdirs" diredp-insert-subdirs
|
|
:help "Insert the marked subdirectories - like using `i' at each marked dir"))
|
|
;; On Windows, bind more.
|
|
(eval-after-load "w32-browser"
|
|
'(define-key diredp-menu-bar-multiple-menu [dired-multiple-w32-browser]
|
|
'(menu-item "Open Associated Windows Apps" dired-multiple-w32-browser
|
|
:help "Open files using the Windows apps associated with their file types")))
|
|
(when (fboundp 'dired-do-find-marked-files)
|
|
(define-key diredp-menu-bar-multiple-menu [find-files]
|
|
'(menu-item "Open" dired-do-find-marked-files ; In `dired-x.el'.
|
|
:help "Open each marked file for editing")))
|
|
|
|
|
|
;; `Multiple' > `Dired' menu.
|
|
;;
|
|
(defvar diredp-multiple-dired-menu (make-sparse-keymap "Dired")
|
|
"`Dired' submenu for Dired menu-bar `Multiple' menu.")
|
|
(define-key diredp-menu-bar-multiple-menu [multiple-dired]
|
|
`(menu-item "Dired" ,diredp-multiple-dired-menu
|
|
:enable (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t)))
|
|
:help "Open Dired on marked files and dirs only"))
|
|
|
|
(define-key diredp-multiple-dired-menu [diredp-marked-other-window]
|
|
'(menu-item "Dired Marked in Other Window" diredp-marked-other-window
|
|
:enable (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t)))
|
|
:help "Open Dired on marked files and dirs only, in other window"))
|
|
(define-key diredp-multiple-dired-menu [diredp-marked]
|
|
'(menu-item "Dired Marked" diredp-marked
|
|
:enable (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t)))
|
|
:help "Open Dired on marked files and dirs only"))
|
|
|
|
|
|
;; `Multiple' > `Omit' menu.
|
|
;;
|
|
(defvar diredp-multiple-omit-menu (make-sparse-keymap "Omit")
|
|
"`Omit' submenu for Dired menu-bar `Multiple' menu.")
|
|
(define-key diredp-menu-bar-multiple-menu [multiple-omit] (cons "Omit" diredp-multiple-omit-menu))
|
|
|
|
(define-key diredp-multiple-omit-menu [omit-unmarked]
|
|
'(menu-item "Omit Unmarked" diredp-omit-unmarked :help "Hide lines of unmarked files"))
|
|
(define-key diredp-multiple-omit-menu [omit-marked]
|
|
'(menu-item "Omit Marked" diredp-omit-marked :help "Hide lines of marked files"))
|
|
|
|
|
|
;; `Multiple' > `Delete' menu.
|
|
;;
|
|
(defvar diredp-multiple-delete-menu (make-sparse-keymap "Delete")
|
|
"`Delete' submenu for Dired menu-bar `Multiple' menu.")
|
|
(define-key diredp-menu-bar-multiple-menu [multiple-delete] (cons "Delete" diredp-multiple-delete-menu))
|
|
|
|
(define-key diredp-multiple-delete-menu [delete-flagged]
|
|
'(menu-item "Delete Flagged" dired-do-flagged-delete
|
|
:help "Delete all files flagged for deletion (D)"))
|
|
(define-key diredp-multiple-delete-menu [delete]
|
|
'(menu-item "Delete Marked (not Flagged)" dired-do-delete
|
|
:help "Delete current file or all marked files (not flagged files)"))
|
|
|
|
|
|
;; `Multiple' > `Rename' menu.
|
|
;;
|
|
(defvar diredp-multiple-rename-menu (make-sparse-keymap "Rename")
|
|
"`Rename' submenu for Dired menu-bar `Multiple' menu.")
|
|
(define-key diredp-menu-bar-multiple-menu [multiple-case] (cons "Rename" diredp-multiple-rename-menu))
|
|
|
|
(define-key diredp-multiple-rename-menu [multiple-rename-rename]
|
|
'(menu-item "Move to Dir... / Rename This..." dired-do-rename
|
|
:help "Move marked (or next N) files, or rename current file"))
|
|
|
|
(define-key diredp-multiple-rename-menu [multiple-rename-capitalize]
|
|
'(menu-item "Capitalize" diredp-capitalize
|
|
:help "Capitalize (initial caps) the names of all marked files"))
|
|
(define-key diredp-multiple-rename-menu [multiple-rename-downcase]
|
|
'(menu-item "Downcase" dired-downcase
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Rename marked files to lowercase names"))
|
|
(define-key diredp-multiple-rename-menu [multiple-rename-upcase]
|
|
'(menu-item "Upcase" dired-upcase
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Rename marked files to uppercase names"))
|
|
|
|
|
|
;; `Multiple' > `Move / Copy / Link' menu.
|
|
;;
|
|
(defvar diredp-multiple-move-copy-link-menu (make-sparse-keymap "Move / Copy / Link")
|
|
"`Move / Copy / Link' submenu for Dired menu-bar `Multiple' menu.")
|
|
(define-key diredp-menu-bar-multiple-menu [multiple-move-copy-link]
|
|
(cons "Move / Copy / Link" diredp-multiple-move-copy-link-menu))
|
|
|
|
(define-key diredp-multiple-move-copy-link-menu [multiple-move-copy-link-hardlink]
|
|
'(menu-item "Hardlink to..." dired-do-hardlink
|
|
:help "Make hard links for current or marked files"))
|
|
(define-key diredp-multiple-move-copy-link-menu [multiple-move-copy-link-symlink]
|
|
'(menu-item "Symlink to (Absolute)..." dired-do-symlink ; In `dired-aux.el'.
|
|
:help "Make absolute symbolic links for current or marked files"))
|
|
(define-key diredp-multiple-move-copy-link-menu [multiple-move-copy-link-relsymlink]
|
|
'(menu-item "Symlink to (Relative)..." dired-do-relsymlink ; In `dired-x.el'.
|
|
:help "Make relative symbolic links for current or marked files"))
|
|
(define-key diredp-multiple-move-copy-link-menu [multiple-move-copy-link-copy]
|
|
'(menu-item "Copy to..." dired-do-copy :help "Copy current file or all marked files"))
|
|
(define-key diredp-multiple-move-copy-link-menu [multiple-move-copy-link-rename]
|
|
'(menu-item "Move to..." dired-do-rename :help "Rename current file or move marked files"))
|
|
|
|
|
|
;; `Multiple' > `Images' menu.
|
|
;;
|
|
(defvar diredp-multiple-images-menu (make-sparse-keymap "Images"))
|
|
(defalias 'diredp-multiple-images-menu diredp-multiple-images-menu)
|
|
(define-key diredp-menu-bar-multiple-menu [images]
|
|
'(menu-item "Images" diredp-multiple-images-menu
|
|
:enable (fboundp 'image-dired-display-thumbs)))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-images-menu 'diredp-multiple-images-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-images-menu 'diredp-multiple-images-menu) ; 2017-04-09
|
|
|
|
;; Remove the items from `Multiple' menu.
|
|
(define-key diredp-menu-bar-multiple-menu [image-dired-delete-tag] nil)
|
|
(define-key diredp-menu-bar-multiple-menu [image-dired-tag-files] nil)
|
|
(define-key diredp-menu-bar-multiple-menu [image-dired-dired-comment-files] nil)
|
|
(define-key diredp-menu-bar-multiple-menu [image-dired-display-thumbs] nil)
|
|
|
|
;; Add them to `Multiple' > `Images' menu.
|
|
(define-key diredp-multiple-images-menu [image-dired-delete-tag]
|
|
'(menu-item "Delete Tag..." image-dired-delete-tag
|
|
:help "Delete tag from marked image files"))
|
|
(define-key diredp-multiple-images-menu [image-dired-tag-files]
|
|
'(menu-item "Add Tags..." image-dired-tag-files
|
|
:help "Add tags to marked image files"))
|
|
(define-key diredp-multiple-images-menu [image-dired-dired-comment-files]
|
|
'(menu-item "Add Comment..." image-dired-dired-comment-files
|
|
:help "Add comment to marked image files"))
|
|
(define-key diredp-multiple-images-menu [image-dired-display-thumbs]
|
|
'(menu-item "Display Thumbnails" image-dired-display-thumbs
|
|
:help "Display thumbnails for marked image files"))
|
|
(define-key diredp-multiple-images-menu [diredp-do-display-images]
|
|
'(menu-item "Display" diredp-do-display-images
|
|
:help "Display the marked image files"))
|
|
|
|
|
|
;; `Multiple' > `Encryption' menu.
|
|
;;
|
|
(when (fboundp 'epa-dired-do-encrypt) ; Emacs 23+
|
|
(defvar diredp-multiple-encryption-menu (make-sparse-keymap "Encryption"))
|
|
(define-key diredp-menu-bar-multiple-menu [encryption]
|
|
(cons "Encryption" diredp-multiple-encryption-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu) ; 2017-04-09
|
|
|
|
(when (boundp 'diredp-menu-bar-encryption-menu)
|
|
(defalias 'diredp-menu-bar-encryption-menu diredp-menu-bar-encryption-menu))
|
|
(make-obsolete 'diredp-menu-bar-encryption-menu 'diredp-multiple-encryption-menu) ; 2017-04-09
|
|
|
|
;; Remove the items from `Multiple' menu.
|
|
(define-key diredp-menu-bar-multiple-menu [epa-dired-do-decrypt] nil)
|
|
(define-key diredp-menu-bar-multiple-menu [epa-dired-do-verify] nil)
|
|
(define-key diredp-menu-bar-multiple-menu [epa-dired-do-sign] nil)
|
|
(define-key diredp-menu-bar-multiple-menu [epa-dired-do-encrypt] nil)
|
|
|
|
;; Add them to `Multiple' > `Encryption' menu.
|
|
(define-key diredp-multiple-encryption-menu [epa-dired-do-decrypt]
|
|
'(menu-item "Decrypt..." epa-dired-do-decrypt :help "Decrypt the marked files"))
|
|
(define-key diredp-multiple-encryption-menu [epa-dired-do-verify]
|
|
'(menu-item "Verify..." epa-dired-do-verify :help "Verify the marked files"))
|
|
(define-key diredp-multiple-encryption-menu [epa-dired-do-sign]
|
|
'(menu-item "Sign..." epa-dired-do-sign :help "Sign the marked files"))
|
|
(define-key diredp-multiple-encryption-menu [epa-dired-do-encrypt]
|
|
'(menu-item "Encrypt..." epa-dired-do-encrypt :help "Encrypt the marked files")))
|
|
|
|
|
|
;; `Multiple' > `Search' menu.
|
|
;;
|
|
(defvar diredp-multiple-search-menu (make-sparse-keymap "Search"))
|
|
(define-key diredp-menu-bar-multiple-menu [search]
|
|
(cons "Search" diredp-multiple-search-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-operate-search-menu 'diredp-multiple-search-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-operate-search-menu 'diredp-multiple-search-menu) ; 2017-04-09
|
|
|
|
(when (fboundp 'dired-do-isearch-regexp) ; Emacs 23+
|
|
(define-key diredp-multiple-search-menu [isearch-regexp]
|
|
'(menu-item "Isearch Regexp Files..." dired-do-isearch-regexp
|
|
:help "Incrementally search marked files for regexp"))
|
|
(define-key diredp-multiple-search-menu [isearch]
|
|
'(menu-item "Isearch Files..." dired-do-isearch
|
|
:help "Incrementally search marked files for string")))
|
|
(when (fboundp 'dired-do-find-regexp-and-replace)
|
|
(define-key diredp-multiple-search-menu [find-query-replace]
|
|
'(menu-item "Query Replace Using `find'..." dired-do-find-regexp-and-replace
|
|
:help "Replace regexp in marked files using `find'")))
|
|
(define-key diredp-multiple-search-menu [query-replace]
|
|
(if (< emacs-major-version 21)
|
|
'(menu-item "Query Replace Using TAGS Table..." dired-do-query-replace)
|
|
'(menu-item "Query Replace Using TAGS Table..." dired-do-query-replace-regexp
|
|
:help "Replace regexp in marked files using tags in a TAGS table")))
|
|
(when (fboundp 'dired-do-find-regexp)
|
|
(define-key diredp-multiple-search-menu [find-regexp]
|
|
'(menu-item "Search Files Using `find'..." dired-do-find-regexp
|
|
:help "Search marked files for regexp using `find'")))
|
|
(define-key diredp-multiple-search-menu [search]
|
|
'(menu-item "Search Files Using TAGS Table..." dired-do-search
|
|
:help "Search marked files for regexp using tags in a TAGS table"))
|
|
(define-key diredp-multiple-search-menu [grep]
|
|
'(menu-item "Grep..." diredp-do-grep :help "Grep marked, next N, or all files shown"))
|
|
|
|
|
|
;; `Multiple' > `Bookmark' menu.
|
|
;;
|
|
(defvar diredp-multiple-bookmarks-menu (make-sparse-keymap "Bookmark"))
|
|
(define-key diredp-menu-bar-multiple-menu [bookmark]
|
|
(cons "Bookmark" diredp-multiple-bookmarks-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-operate-bookmarks-menu 'diredp-multiple-bookmarks-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-operate-bookmarks-menu 'diredp-multiple-bookmarks-menu) ; 2017-04-09
|
|
|
|
(when (require 'bookmark+ nil t)
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-set-tag-value]
|
|
'(menu-item "Set Tag Value..." diredp-do-set-tag-value
|
|
:help "Set the value of a given tag for the marked or next N files"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-paste-replace-tags]
|
|
'(menu-item "Paste Tags (Replace)" diredp-do-paste-replace-tags
|
|
:help "Replace tags for the marked or next N files with copied tags"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-paste-add-tags]
|
|
'(menu-item "Paste Tags (Add)" diredp-do-paste-add-tags
|
|
:help "Add previously copied tags to the marked or next N files"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-remove-all-tags]
|
|
'(menu-item "Remove All Tags" diredp-do-remove-all-tags
|
|
:help "Remove all tags from the marked or next N files"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-untag]
|
|
'(menu-item "Remove Tags..." diredp-do-untag
|
|
:help "Remove some tags from the marked or next N files"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-tag]
|
|
'(menu-item "Add Tags..." diredp-do-tag
|
|
:help "Add some tags to the marked or next N files"))
|
|
(define-key diredp-multiple-bookmarks-menu [separator-book-2] '("--"))) ; ------------
|
|
|
|
(define-key diredp-multiple-bookmarks-menu
|
|
[diredp-do-bookmark-in-bookmark-file-recursive]
|
|
'(menu-item "Bookmark in Bookmark File (Here and Below)..."
|
|
diredp-do-bookmark-in-bookmark-file-recursive
|
|
:help "Bookmark marked files (including in marked subdirs) in bookmark file and save it"))
|
|
(define-key diredp-multiple-bookmarks-menu
|
|
[diredp-set-bookmark-file-bookmark-for-marked-recursive]
|
|
'(menu-item "Create Bookmark-File Bookmark (Here and Below)..."
|
|
diredp-set-bookmark-file-bookmark-for-marked-recursive
|
|
:help "Create a bookmark-file bookmark for marked files, including in marked subdirs"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-bookmark-dirs-recursive]
|
|
'(menu-item "Bookmark Dirs (Here and Below)..." diredp-do-bookmark-dirs-recursive
|
|
:help "Bookmark this Dired buffer and marked subdirectory Dired buffers, recursively."))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-bookmark-recursive]
|
|
'(menu-item "Bookmark (Here and Below)..." diredp-do-bookmark-recursive
|
|
:help "Bookmark the marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-bookmarks-menu [separator-book-1] '("--")) ; ---------------
|
|
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-bookmark-in-bookmark-file]
|
|
'(menu-item "Bookmark in Bookmark File..." diredp-do-bookmark-in-bookmark-file
|
|
:help "Bookmark the marked files in BOOKMARK-FILE and save BOOKMARK-FILE"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-set-bookmark-file-bookmark-for-marked]
|
|
'(menu-item "Create Bookmark-File Bookmark..." diredp-set-bookmark-file-bookmark-for-marked
|
|
:help "Create a bookmark-file bookmark, and bookmark the marked files in it"))
|
|
(define-key diredp-multiple-bookmarks-menu [diredp-do-bookmark]
|
|
'(menu-item "Bookmark..." diredp-do-bookmark :help "Bookmark the marked or next N files"))
|
|
|
|
|
|
;; `Multiple' > `Marked Here and Below' menu.
|
|
;;
|
|
(defvar diredp-multiple-recursive-menu (make-sparse-keymap "Marked Here and Below"))
|
|
(define-key diredp-menu-bar-multiple-menu [operate-recursive]
|
|
(cons "Marked Here and Below" diredp-multiple-recursive-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-operate-recursive-menu 'diredp-multiple-recursive-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-operate-recursive-menu 'diredp-multiple-recursive-menu) ; 2017-04-09
|
|
|
|
(when (fboundp 'diredp-do-chown-recursive)
|
|
(define-key diredp-multiple-recursive-menu [chown]
|
|
'(menu-item "Change Owner..." diredp-do-chown-recursive
|
|
:help "Change the owner of marked files, including those in marked subdirs")))
|
|
(when (fboundp 'diredp-do-chgrp-recursive)
|
|
(define-key diredp-multiple-recursive-menu [chgrp]
|
|
'(menu-item "Change Group..." diredp-do-chgrp-recursive
|
|
:help "Change the owner of marked files, including those in marked subdirs")))
|
|
(define-key diredp-multiple-recursive-menu [chmod]
|
|
'(menu-item "Change Mode..." diredp-do-chmod-recursive
|
|
:help "Change mode (attributes) of marked files, including those in marked subdirs"))
|
|
(when (fboundp 'dired-do-touch) ; Emacs 22+
|
|
(define-key diredp-multiple-recursive-menu [touch]
|
|
'(menu-item "Change Timestamp (`touch')..." diredp-do-touch-recursive
|
|
:help "Change timestamp of marked files, including those in marked subdirs")))
|
|
(define-key diredp-multiple-recursive-menu [separator-change] '("--")) ; ----------------
|
|
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-apply-function-recursive]
|
|
'(menu-item "Apply Lisp Function..." diredp-do-apply-function-recursive
|
|
:help "Apply a Lisp function to the marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-print-recursive]
|
|
'(menu-item "Print..." diredp-do-print-recursive
|
|
:help "Print the marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-shell-command-recursive]
|
|
'(menu-item "Shell Command..." diredp-do-shell-command-recursive
|
|
:help "Run shell command on the marked files, including those in marked subdirs"))
|
|
(when (fboundp 'dired-do-async-shell-command) ; Emacs 23+
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-async-shell-command-recursive]
|
|
'(menu-item "Asynchronous Shell Command..." diredp-do-async-shell-command-recursive
|
|
:help "Run shell command asynchronously on marked files, including in marked subdirs")))
|
|
|
|
(when (fboundp 'diredp-unmark-all-marks-recursive) ; Emacs 22+
|
|
(define-key diredp-multiple-recursive-menu [separator-1] '("--")) ; ------------
|
|
(define-key diredp-multiple-recursive-menu [diredp-change-marks-recursive]
|
|
'(menu-item "Change Mark..." diredp-change-marks-recursive
|
|
:help "Change all OLD marks to NEW marks, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-unmark-all-files-recursive]
|
|
'(menu-item "Unmark Marked-With..." diredp-unmark-all-files-recursive
|
|
:help "Remove a given mark everywhere, including in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-unmark-all-marks-recursive]
|
|
'(menu-item "Unmark All..." diredp-unmark-all-marks-recursive
|
|
:help "Remove ALL marks everywhere, including in marked subdirs")))
|
|
|
|
(define-key diredp-multiple-recursive-menu [separator-misc] '("--")) ; ------------------
|
|
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-delete-recursive]
|
|
'(menu-item "Delete Marked (not Flagged)" diredp-do-delete-recursive
|
|
:help "Delete marked (not flagged) files, including in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [separator-delete] '("--")) ; ----------------
|
|
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-hardlink-recursive]
|
|
'(menu-item "Hardlink to..." diredp-do-hardlink-recursive
|
|
:help "Make hard links for marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-symlink-recursive]
|
|
'(menu-item "Symlink to (Absolute)..." diredp-do-symlink-recursive
|
|
:help "Make absolute symbolic links for marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-relsymlink-recursive]
|
|
'(menu-item "Symlink to (Relative)..." diredp-do-relsymlink-recursive
|
|
:help "Make relative symbolic links for marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-copy-recursive]
|
|
'(menu-item "Copy to..." diredp-do-copy-recursive
|
|
:help "Copy marked files, including in marked subdirs, to a given directory"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-move-recursive]
|
|
'(menu-item "Move to..." diredp-do-move-recursive
|
|
:help "Move marked files, including in marked subdirs, to a given directory"))
|
|
(define-key diredp-multiple-recursive-menu [separator-copy-move] '("--")) ; -------------
|
|
|
|
(define-key diredp-multiple-recursive-menu [diredp-capitalize-recursive]
|
|
'(menu-item "Capitalize" diredp-capitalize-recursive
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Capitalize the names of all marked files, including in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-downcase-recursive]
|
|
'(menu-item "Downcase" diredp-downcase-recursive
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Rename marked files, including in marked subdirs, to lowercase names"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-upcase-recursive]
|
|
'(menu-item "Upcase" diredp-upcase-recursive
|
|
:enable (or (not (fboundp 'msdos-long-file-names)) (msdos-long-file-names))
|
|
:help "Rename marked files, including in marked subdirs, to uppercase names"))
|
|
(define-key diredp-multiple-recursive-menu [separator-lettercase] '("--")) ; ------------
|
|
|
|
(define-key diredp-multiple-recursive-menu [diredp-list-marked-recursive]
|
|
'(menu-item "List Marked Files" diredp-list-marked-recursive
|
|
:help "List the files marked here and in marked subdirs, recursively"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-copy-filename-as-kill-recursive]
|
|
'(menu-item "Copy File Names (to Paste)" diredp-copy-filename-as-kill-recursive
|
|
:help "Copy names of files marked here and in marked subdirs, to `kill-ring'"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-insert-subdirs-recursive]
|
|
'(menu-item "Insert Subdirs" diredp-insert-subdirs-recursive
|
|
:help "Insert the marked subdirectories, gathered recursively"))
|
|
(define-key diredp-multiple-recursive-menu [separator-dirs] '("--")) ; ------------------
|
|
|
|
(define-key diredp-multiple-recursive-menu [diredp-marked-recursive-other-window]
|
|
'(menu-item "Dired (Marked) in Other Window" diredp-marked-recursive-other-window
|
|
:help "Open Dired (in other window) on marked files, including those in marked subdirs"))
|
|
(define-key diredp-multiple-recursive-menu [diredp-marked-recursive]
|
|
'(menu-item "Dired (Marked)" diredp-marked-recursive
|
|
:help "Open Dired on marked files, including those in marked subdirs"))
|
|
;; On Windows, bind more.
|
|
(eval-after-load "w32-browser"
|
|
'(define-key diredp-multiple-recursive-menu [diredp-multiple-w32-browser-recursive]
|
|
'(menu-item "Open Associated Windows Apps" diredp-multiple-w32-browser-recursive
|
|
:help "Run Windows apps for with marked files, including those in marked subdirs")))
|
|
(define-key diredp-multiple-recursive-menu [diredp-do-find-marked-files-recursive]
|
|
'(menu-item "Open" diredp-do-find-marked-files-recursive
|
|
:help "Find marked files simultaneously, including those in marked subdirs"))
|
|
|
|
|
|
;; `Multiple' > `Marked Here and Below' > `Images' menu.
|
|
;;
|
|
(defvar diredp-images-recursive-menu (make-sparse-keymap "Images"))
|
|
(defalias 'diredp-images-recursive-menu diredp-images-recursive-menu)
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu) ; 2017-04-09
|
|
|
|
(when (boundp 'diredp-menu-bar-images-recursive-menu)
|
|
(defalias 'diredp-menu-bar-images-recursive-menu diredp-menu-bar-images-recursive-menu))
|
|
(make-obsolete 'diredp-menu-bar-images-recursive-menu 'diredp-images-recursive-menu) ; 2017-04-09
|
|
|
|
(define-key diredp-multiple-recursive-menu [images]
|
|
'(menu-item "Images" diredp-images-recursive-menu
|
|
:enable (fboundp 'image-dired-delete-tag)))
|
|
(define-key diredp-images-recursive-menu [diredp-image-dired-delete-tag-recursive]
|
|
'(menu-item "Delete Image Tag..." diredp-image-dired-delete-tag-recursive
|
|
:help "Remove an `image-dired' tag from marked files, including those in marked subdirs"))
|
|
(define-key diredp-images-recursive-menu [diredp-image-dired-tag-files-recursive]
|
|
'(menu-item "Add Image Tags..." diredp-image-dired-tag-files-recursive
|
|
:help "Add `image-dired' tags to marked files, including those in marked subdirs"))
|
|
(define-key diredp-images-recursive-menu [diredp-image-dired-comment-files-recursive]
|
|
'(menu-item "Add Image Comment..." diredp-image-dired-comment-files-recursive
|
|
:help "Add image comment to marked files, including those in marked subdirs"))
|
|
(define-key diredp-images-recursive-menu [diredp-image-dired-display-thumbs-recursive]
|
|
'(menu-item "Display Image Thumbnails" diredp-image-dired-display-thumbs-recursive
|
|
:help "Show thumbnails for marked image files, including those in marked subdirs"))
|
|
|
|
|
|
;; `Multiple' > `Marked Here and Below' > `Encryption' menu.
|
|
;;
|
|
(when (fboundp 'epa-dired-do-encrypt) ; Emacs 23+
|
|
(defvar diredp-menu-bar-encryption-recursive-menu (make-sparse-keymap "Encryption"))
|
|
(define-key diredp-multiple-recursive-menu [encryption]
|
|
(cons "Encryption" diredp-menu-bar-encryption-recursive-menu))
|
|
(define-key diredp-menu-bar-encryption-recursive-menu [diredp-do-decrypt-recursive]
|
|
'(menu-item "Decrypt..." diredp-do-decrypt-recursive
|
|
:help "Decrypt marked files, including those in marked subdirs"))
|
|
(define-key diredp-menu-bar-encryption-recursive-menu [diredp-do-verify-recursive]
|
|
'(menu-item "Verify..." diredp-do-verify-recursive
|
|
:help "Verify marked files, including those in marked subdirs"))
|
|
(define-key diredp-menu-bar-encryption-recursive-menu [diredp-do-sign-recursive]
|
|
'(menu-item "Sign..." diredp-do-sign-recursive
|
|
:help "Sign marked files, including those in marked subdirs"))
|
|
(define-key diredp-menu-bar-encryption-recursive-menu [diredp-do-encrypt-recursive]
|
|
'(menu-item "Encrypt..." diredp-do-encrypt-recursive
|
|
:help "Encrypt marked files, including those in marked subdirs")))
|
|
|
|
|
|
;; `Multiple' > `Marked Here and Below' > `Search' menu.
|
|
;;
|
|
(defvar diredp-menu-bar-search-recursive-menu (make-sparse-keymap "Search"))
|
|
(define-key diredp-multiple-recursive-menu [search]
|
|
(cons "Search" diredp-menu-bar-search-recursive-menu))
|
|
(when (fboundp 'dired-do-isearch-regexp) ; Emacs 23+
|
|
(define-key diredp-menu-bar-search-recursive-menu [diredp-do-isearch-regexp-recursive]
|
|
'(menu-item "Isearch Regexp Files..." diredp-do-isearch-regexp-recursive
|
|
:help "Incrementally regexp search marked files, including those in marked subdirs"))
|
|
(define-key diredp-menu-bar-search-recursive-menu [diredp-do-isearch-recursive]
|
|
'(menu-item "Isearch Files..." diredp-do-isearch-recursive
|
|
:help "Incrementally search marked files, including those in marked subdirs")))
|
|
(define-key diredp-menu-bar-search-recursive-menu [diredp-do-query-replace-regexp-recursive]
|
|
'(menu-item "Query Replace..." diredp-do-query-replace-regexp-recursive
|
|
:help "Replace regexp in marked files, including those in marked subdirs"))
|
|
(define-key diredp-menu-bar-search-recursive-menu [diredp-do-search-recursive]
|
|
'(menu-item "Search Files..." diredp-do-search-recursive
|
|
:help "Regexp search marked files, including those in marked subdirs"))
|
|
(define-key diredp-menu-bar-search-recursive-menu [diredp-do-grep-recursive]
|
|
'(menu-item "Grep..." diredp-do-grep-recursive
|
|
:help "Run `grep' on the marked files, including those in marked subdirs"))
|
|
|
|
|
|
;; `Multiple' > `Marked Here and Below' > `Bookmark' menu.
|
|
;;
|
|
(defvar diredp-menu-bar-bookmarks-recursive-menu (make-sparse-keymap "Bookmark"))
|
|
(define-key diredp-multiple-recursive-menu [bookmarks]
|
|
(cons "Bookmark" diredp-menu-bar-bookmarks-recursive-menu))
|
|
(define-key diredp-menu-bar-bookmarks-recursive-menu
|
|
[diredp-do-bookmark-in-bookmark-file-recursive]
|
|
'(menu-item "Bookmark in Bookmark File..." diredp-do-bookmark-in-bookmark-file-recursive
|
|
:help "Bookmark marked files, including those in marked subdirs, in a bookmark file"))
|
|
(define-key diredp-menu-bar-bookmarks-recursive-menu
|
|
[diredp-set-bookmark-file-bookmark-for-marked-recursive]
|
|
'(menu-item "Create Bookmark-File Bookmark..."
|
|
diredp-set-bookmark-file-bookmark-for-marked-recursive
|
|
:help "Create a bookmark-file bookmark for marked files, including in marked subdirs"))
|
|
(define-key diredp-menu-bar-bookmarks-recursive-menu [diredp-do-bookmark-dirs-recursive]
|
|
'(menu-item "Bookmark Dirs..." diredp-do-bookmark-dirs-recursive
|
|
:help "Bookmark this Dired buffer and marked subdirectory Dired buffers, recursively."))
|
|
(define-key diredp-menu-bar-bookmarks-recursive-menu [diredp-do-bookmark-recursive]
|
|
'(menu-item "Bookmark..." diredp-do-bookmark-recursive
|
|
:help "Bookmark the marked files, including those in marked subdirs"))
|
|
|
|
|
|
|
|
;; `Regexp' menu.
|
|
;;
|
|
;; REPLACE ORIGINAL `Regexp' menu in `dired.el'.
|
|
;;
|
|
(defvar diredp-menu-bar-regexp-menu (make-sparse-keymap "Regexp"))
|
|
(define-key dired-mode-map [menu-bar regexp] (cons "Regexp" diredp-menu-bar-regexp-menu))
|
|
|
|
(define-key diredp-menu-bar-regexp-menu [hardlink]
|
|
'(menu-item "Hardlink to..." dired-do-hardlink-regexp ; In `dired-aux.el'.
|
|
:help "Make hard links for files matching regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [symlink]
|
|
'(menu-item "Symlink to (Absolute)..." dired-do-symlink-regexp ; In `dired-aux.el'.
|
|
:help "Make absolute symbolic links for files matching regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [relsymlink]
|
|
'(menu-item "Symlink to (Relative)..." dired-do-relsymlink-regexp ; In `dired-x.el'.
|
|
:help "Make relative symbolic links for files matching regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [copy]
|
|
'(menu-item "Copy to..." dired-do-copy-regexp ; In `dired-aux.el'.
|
|
:help "Copy marked files matching regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [rename]
|
|
'(menu-item "Move to..." dired-do-rename-regexp ; In `dired-aux.el'.
|
|
:help "Move marked files matching regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [flag]
|
|
'(menu-item "Flag..." dired-flag-files-regexp :help "Flag files matching regexp for deletion"))
|
|
(define-key diredp-menu-bar-regexp-menu [image-dired-mark-tagged-files]
|
|
'(menu-item "Mark Image Files Tagged..." image-dired-mark-tagged-files
|
|
:enable (fboundp 'image-dired-mark-tagged-files)
|
|
:help "Mark image files whose image tags match regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [mark-cont]
|
|
'(menu-item "Mark Containing..." dired-mark-files-containing-regexp
|
|
:help "Mark files whose contents matches regexp"))
|
|
(define-key diredp-menu-bar-regexp-menu [mark]
|
|
'(menu-item "Mark..." dired-mark-files-regexp
|
|
:help "Mark files matching regexp"))
|
|
|
|
|
|
;; `Regexp' > `Here and Below' menu.
|
|
;;
|
|
(defvar diredp-regexp-recursive-menu (make-sparse-keymap "Here and Below"))
|
|
(define-key diredp-menu-bar-regexp-menu [mark-recursive]
|
|
(cons "Here and Below" diredp-regexp-recursive-menu))
|
|
(define-key diredp-regexp-recursive-menu [diredp-mark-files-regexp-recursive]
|
|
'(menu-item "Mark Named..." diredp-mark-files-regexp-recursive
|
|
:help "Mark all file names matching a regexp, including those in marked subdirs"))
|
|
(define-key diredp-regexp-recursive-menu [diredp-mark-files-containing-regexp-recursive]
|
|
'(menu-item "Mark Containing..." diredp-mark-files-containing-regexp-recursive
|
|
:help "Mark all files with content matching a regexp, including in marked subdirs"))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu) ; 2017-04-09
|
|
|
|
(when (boundp 'diredp-menu-bar-regexp-recursive-menu)
|
|
(defalias 'diredp-menu-bar-regexp-recursive-menu diredp-menu-bar-regexp-recursive-menu))
|
|
(make-obsolete 'diredp-menu-bar-regexp-recursive-menu 'diredp-regexp-recursive-menu) ; 2017-04-09
|
|
|
|
|
|
;; "Marks" menu.
|
|
;;
|
|
;; REPLACE ORIGINAL `Marks' menu in `dired.el'.
|
|
;;
|
|
(defvar diredp-menu-bar-marks-menu (make-sparse-keymap "Marks"))
|
|
(define-key dired-mode-map [menu-bar mark] (cons "Marks" diredp-menu-bar-marks-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-mark-menu 'diredp-menu-bar-marks-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-mark-menu 'diredp-menu-bar-marks-menu) ; 2017-04-09
|
|
|
|
(define-key diredp-menu-bar-marks-menu [prev]
|
|
'(menu-item "Previous Marked" dired-prev-marked-file :help "Move to previous marked file"))
|
|
(define-key diredp-menu-bar-marks-menu [next]
|
|
'(menu-item "Next Marked" dired-next-marked-file :help "Move to next marked file"))
|
|
(define-key diredp-menu-bar-marks-menu [marks]
|
|
'(menu-item "Change Mark..." dired-change-marks
|
|
:help "Replace a given mark character with another"))
|
|
(define-key diredp-menu-bar-marks-menu [toggle-marks]
|
|
(if (> emacs-major-version 21)
|
|
'(menu-item "Toggle Marked/Unmarked" dired-toggle-marks
|
|
:help "Mark unmarked files, unmark marked ones")
|
|
'(menu-item "Toggle Marked/Unmarked" dired-toggle-marks
|
|
:help "Mark unmarked files, unmark marked ones")))
|
|
|
|
|
|
;; `Marks' > `Tagged' menu.
|
|
;;
|
|
(when (require 'bookmark+ nil t)
|
|
(defvar diredp-marks-tags-menu (make-sparse-keymap "Tagged (Autofiles)")
|
|
"`Tags' submenu for Dired menu-bar `Marks' menu.")
|
|
(define-key diredp-menu-bar-marks-menu [mark-tags] (cons "Tagged" diredp-marks-tags-menu))
|
|
|
|
(define-key diredp-marks-tags-menu [diredp-unmark-files-tagged-none]
|
|
'(menu-item "Unmark Not Tagged with Any..." diredp-unmark-files-tagged-none
|
|
:help "Unmark files that are not tagged with *any* of the tags you enter"))
|
|
(define-key diredp-marks-tags-menu [diredp-unmark-files-tagged-not-all]
|
|
'(menu-item "Unmark Not Tagged with All..." diredp-unmark-files-tagged-not-all
|
|
:help "Unmark files that are not tagged with *all* tags"))
|
|
(define-key diredp-marks-tags-menu [diredp-unmark-files-tagged-some]
|
|
'(menu-item "Unmark Tagged with Some..." diredp-unmark-files-tagged-some
|
|
:help "Unmark files that are tagged with at least one of the tags you enter"))
|
|
(define-key diredp-marks-tags-menu [diredp-unmark-files-tagged-all]
|
|
'(menu-item "Unmark Tagged with All..." diredp-unmark-files-tagged-all
|
|
:help "Unmark files that are tagged with *each* tag you enter"))
|
|
(define-key diredp-marks-tags-menu [diredp-unmark-files-tagged-regexp]
|
|
'(menu-item "Unmark Tagged Matching Regexp..." diredp-unmark-files-tagged-regexp
|
|
:help "Unmark files that have at least one tag that matches a regexp"))
|
|
(define-key diredp-marks-tags-menu [separator-marks-tags] '("--")) ; -------------------------
|
|
|
|
(define-key diredp-marks-tags-menu [diredp-mark-files-tagged-none]
|
|
'(menu-item "Mark Not Tagged with Any..." diredp-mark-files-tagged-none
|
|
:help "Mark files that are not tagged with *any* of the tags you enter"))
|
|
(define-key diredp-marks-tags-menu [diredp-mark-files-tagged-not-all]
|
|
'(menu-item "Mark Not Tagged with All..." diredp-mark-files-tagged-not-all
|
|
:help "Mark files that are not tagged with *all* tags"))
|
|
(define-key diredp-marks-tags-menu [diredp-mark-files-tagged-some]
|
|
'(menu-item "Mark Tagged with Some..." diredp-mark-files-tagged-some
|
|
:help "Mark files that are tagged with at least one of the tags you enter"))
|
|
(define-key diredp-marks-tags-menu [diredp-mark-files-tagged-all]
|
|
'(menu-item "Mark Tagged with All..." diredp-mark-files-tagged-all
|
|
:help "Mark files that are tagged with *each* tag you enter"))
|
|
(define-key diredp-marks-tags-menu [diredp-mark-files-tagged-regexp]
|
|
'(menu-item "Mark Tagged Matching Regexp..." diredp-mark-files-tagged-regexp
|
|
:help "Mark files that have at least one tag that matches a regexp")))
|
|
|
|
|
|
;; `Marks' > `Omit' menu.
|
|
;;
|
|
(defvar diredp-marks-omit-menu (make-sparse-keymap "Omit")
|
|
"`Omit' submenu for Dired menu-bar `Marks' menu.")
|
|
(define-key diredp-menu-bar-marks-menu [marks-omit] (cons "Omit" diredp-marks-omit-menu))
|
|
|
|
(define-key diredp-marks-omit-menu [marks-omit-unmarked]
|
|
'(menu-item "Omit Unmarked" diredp-omit-unmarked :help "Hide lines of unmarked files"))
|
|
(define-key diredp-marks-omit-menu [marks-omit-marked]
|
|
'(menu-item "Omit Marked" diredp-omit-marked :help "Hide lines of marked files"))
|
|
|
|
|
|
;; `Marks' > `Flag' menu.
|
|
;;
|
|
(defvar diredp-marks-flag-menu (make-sparse-keymap "Flag")
|
|
"`Flag' submenu for Dired menu-bar `Marks' menu.")
|
|
(define-key diredp-menu-bar-marks-menu [mark-flag] (cons "Flag" diredp-marks-flag-menu))
|
|
|
|
(define-key diredp-marks-flag-menu [marks-flag-extension]
|
|
'(menu-item "Flag Extension..." dired-flag-extension ; In `dired-x.el'
|
|
:help "Flag all files that have a certain extension, for deletion"))
|
|
(define-key diredp-marks-flag-menu [marks-flag-garbage-files]
|
|
'(menu-item "Flag Garbage Files" dired-flag-garbage-files
|
|
:help "Flag unneeded files for deletion"))
|
|
(define-key diredp-marks-flag-menu [marks-flag-backup-files]
|
|
'(menu-item "Flag Backup Files" dired-flag-backup-files
|
|
:help "Flag all backup files for deletion"))
|
|
(define-key diredp-marks-flag-menu [marks-flag-auto-save-files]
|
|
'(menu-item "Flag Auto-save Files" dired-flag-auto-save-files
|
|
:help "Flag auto-save files for deletion"))
|
|
(define-key diredp-marks-flag-menu [marks-flag-region]
|
|
'(menu-item "Flag Region" diredp-flag-region-files-for-deletion
|
|
:visible (diredp-nonempty-region-p)
|
|
:help "Flag all files in the region (selection) for deletion"))
|
|
(when (< emacs-major-version 21)
|
|
(put 'diredp-flag-region-files-for-deletion 'menu-enable '(diredp-nonempty-region-p)))
|
|
(define-key diredp-marks-flag-menu [marks-flag-deletion]
|
|
'(menu-item "Flag This" dired-flag-file-deletion
|
|
:visible (not (diredp-nonempty-region-p))
|
|
:help "Flag current line's file for deletion"))
|
|
|
|
|
|
;; `Marks' > `Unmark' menu.
|
|
;;
|
|
(defvar diredp-marks-unmark-menu (make-sparse-keymap "Unmark")
|
|
"`Unmark' submenu for Dired menu-bar `Marks' menu.")
|
|
(define-key diredp-menu-bar-marks-menu [mark-mark] (cons "Unmark" diredp-marks-unmark-menu))
|
|
|
|
(define-key diredp-marks-unmark-menu [unmark-autofiles]
|
|
'(menu-item "Unmark Autofiles" diredp-unmark-autofiles
|
|
:help "Unmark all autofiles (bookmarks with same name as file)"
|
|
:enable (featurep 'bookmark+)))
|
|
(define-key diredp-marks-unmark-menu [unmark-all]
|
|
'(menu-item "Unmark All" dired-unmark-all-marks :help "Remove all marks from all files"))
|
|
(define-key diredp-marks-unmark-menu [unmark-with]
|
|
'(menu-item "Unmark Marked-With..." dired-unmark-all-files
|
|
:help "Remove a specific mark (or all marks) from every file"))
|
|
(define-key diredp-marks-unmark-menu [unmark-region]
|
|
'(menu-item "Unmark Region" diredp-unmark-region-files
|
|
:visible (diredp-nonempty-region-p)
|
|
:help "Unmark all files in the region (selection)"))
|
|
(when (< emacs-major-version 21)
|
|
(put 'diredp-unmark-region-files 'menu-enable '(diredp-nonempty-region-p)))
|
|
(define-key diredp-marks-unmark-menu [unmark-this]
|
|
'(menu-item "Unmark This" dired-unmark
|
|
:visible (not (diredp-nonempty-region-p))
|
|
:help "Unmark or unflag current line's file"))
|
|
|
|
|
|
;; `Marks' > `Mark' menu.
|
|
;;
|
|
(defvar diredp-marks-mark-menu (make-sparse-keymap "Mark")
|
|
"`Mark' submenu for Dired menu-bar `Marks' menu.")
|
|
(define-key diredp-menu-bar-marks-menu [marks-mark] (cons "Mark" diredp-marks-mark-menu))
|
|
|
|
(define-key diredp-marks-mark-menu [marks-mark-sexp]
|
|
'(menu-item "Mark If..." dired-mark-sexp ; In `dired-x.el'.
|
|
:help "Mark files that satisfy specified condition"))
|
|
(define-key diredp-marks-mark-menu [marks-image-dired-mark-tagged-files]
|
|
'(menu-item "Mark Image Files Tagged..." image-dired-mark-tagged-files
|
|
:enable (fboundp 'image-dired-mark-tagged-files) ; In `image-dired.el'.
|
|
:help "Mark image files whose image tags match regexp"))
|
|
(define-key diredp-marks-mark-menu [marks-mark-cont]
|
|
'(menu-item "Mark Content Matching Regexp..." dired-mark-files-containing-regexp
|
|
:help "Mark files whose contents matches regexp"))
|
|
(define-key diredp-marks-mark-menu [marks-mark...]
|
|
'(menu-item "Mark Name Matching Regexp..." dired-mark-files-regexp
|
|
:help "Mark file names matching regexp"))
|
|
(when (fboundp 'dired-mark-omitted) ; In `dired-x.el', Emacs 22+.
|
|
(define-key diredp-marks-mark-menu [marks-mark-omitted]
|
|
'(menu-item "Mark Omitted..." dired-mark-omitted
|
|
:help "Mark all omitted files and subdirectories")))
|
|
(define-key diredp-marks-mark-menu [marks-mark-extension]
|
|
'(menu-item "Mark Extension..." diredp-mark/unmark-extension
|
|
:help "Mark all files with specified extension"))
|
|
(define-key diredp-marks-mark-menu [marks-mark-autofiles]
|
|
'(menu-item "Mark Autofiles" diredp-mark-autofiles
|
|
:help "Mark all autofiles (bookmarks with same name as file)"
|
|
:enable (featurep 'bookmark+)))
|
|
(define-key diredp-marks-mark-menu [marks-mark-symlinks]
|
|
'(menu-item "Mark Symlinks" dired-mark-symlinks
|
|
:visible (fboundp 'make-symbolic-link) :help "Mark all symbolic links"))
|
|
(define-key diredp-marks-mark-menu [marks-mark-directories]
|
|
'(menu-item "Mark Directories" dired-mark-directories
|
|
:help "Mark all directories except `.' and `..'"))
|
|
(define-key diredp-marks-mark-menu [marks-mark-directory]
|
|
'(menu-item "Mark Old Backups" dired-clean-directory
|
|
:help "Flag old numbered backups for deletion"))
|
|
(define-key diredp-marks-mark-menu [marks-mark-executables]
|
|
'(menu-item "Mark Executables" dired-mark-executables :help "Mark all executable files"))
|
|
(define-key diredp-marks-mark-menu [marks-mark-region]
|
|
'(menu-item "Mark Region" diredp-mark-region-files
|
|
:visible (diredp-nonempty-region-p)
|
|
:help "Mark all of the files in the region (selection)"))
|
|
(when (< emacs-major-version 21)
|
|
(put 'diredp-mark-region-files 'menu-enable '(diredp-nonempty-region-p)))
|
|
(define-key diredp-marks-mark-menu [marks-mark-this]
|
|
'(menu-item "Mark This" dired-mark
|
|
:visible (not (diredp-nonempty-region-p))
|
|
:help "Mark current line's file for future operations"))
|
|
|
|
|
|
;; `Marks' > `Here and Below' menu.
|
|
;;
|
|
(defvar diredp-marks-recursive-menu (make-sparse-keymap "Here and Below"))
|
|
(define-key diredp-menu-bar-marks-menu [mark-recursive]
|
|
(cons "Here and Below" diredp-marks-recursive-menu))
|
|
|
|
(define-key diredp-marks-recursive-menu [diredp-flag-auto-save-files-recursive]
|
|
'(menu-item "Flag Auto-Save Files..." diredp-flag-auto-save-files-recursive
|
|
:help "Flag all auto-save files for deletion, including those in marked subdirs"))
|
|
(when (fboundp 'diredp-unmark-all-marks-recursive) ; Emacs 22+
|
|
(define-key diredp-marks-recursive-menu [diredp-change-marks-recursive]
|
|
'(menu-item "Change Mark..." diredp-change-marks-recursive
|
|
:help "Change all OLD marks to NEW marks, including those in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-unmark-all-files-recursive]
|
|
'(menu-item "Unmark Marked-With..." diredp-unmark-all-files-recursive
|
|
:help "Remove a given mark everywhere, including in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-unmark-all-marks-recursive]
|
|
'(menu-item "Unmark All..." diredp-unmark-all-marks-recursive
|
|
:help "Remove ALL marks everywhere, including in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [separator-1] '("--"))) ; ------------
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-sexp-recursive]
|
|
'(menu-item "If..." diredp-mark-sexp-recursive
|
|
:help "Mark files satisfying specified condition, including those in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-files-containing-regexp-recursive]
|
|
'(menu-item "Containing Regexp..." diredp-mark-files-containing-regexp-recursive
|
|
:help "Mark all files with content matching a regexp, including in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-files-regexp-recursive]
|
|
'(menu-item "Named Regexp..." diredp-mark-files-regexp-recursive
|
|
:help "Mark all file names matching a regexp, including those in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-extension-recursive]
|
|
'(menu-item "Extension..." diredp-mark-extension-recursive
|
|
:help "Mark all files with a given extension, including those in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-autofiles-recursive]
|
|
'(menu-item "Autofiles" diredp-mark-autofiles-recursive
|
|
:help "Mark all files with a given extension, including those in marked subdirs"
|
|
:enable (featurep 'bookmark+)))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-symlinks-recursive]
|
|
'(menu-item "Symbolic Links" diredp-mark-symlinks-recursive
|
|
:help "Mark all symbolic links, including those in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-directories-recursive]
|
|
'(menu-item "Directories" diredp-mark-directories-recursive
|
|
:help "Mark all directories, including those in marked subdirs"))
|
|
(define-key diredp-marks-recursive-menu [diredp-mark-executables-recursive]
|
|
'(menu-item "Executables" diredp-mark-executables-recursive
|
|
:help "Mark all executable files, including those in marked subdirs"))
|
|
|
|
|
|
;; "Dir" menu.
|
|
;;
|
|
;; REPLACE ORIGINAL `Subdir' menu in `dired.el'.
|
|
;;
|
|
(defvar diredp-menu-bar-dir-menu (make-sparse-keymap "Dir"))
|
|
(define-key dired-mode-map [menu-bar subdir] (cons "Dir" diredp-menu-bar-dir-menu))
|
|
|
|
;; We don't use `define-obsolete-variable-alias' so that byte-compilation in older Emacs
|
|
;; works for newer Emacs too.
|
|
(when (fboundp 'defvaralias) ; Emacs 22+
|
|
(defvaralias 'diredp-menu-bar-subdir-menu 'diredp-dir-menu))
|
|
(make-obsolete-variable 'diredp-menu-bar-subdir-menu 'diredp-dir-menu) ; 2017-04-09
|
|
|
|
(when (boundp 'diredp-menu-bar-subdir-menu)
|
|
(defalias 'diredp-menu-bar-subdir-menu diredp-menu-bar-subdir-menu))
|
|
(make-obsolete 'diredp-menu-bar-subdir-menu 'diredp-dir-menu) ; 2017-04-09
|
|
|
|
|
|
;; `Dir' > `Hide/Show' menu.
|
|
;;
|
|
(defvar diredp-hide/show-menu (make-sparse-keymap "Hide/Show")
|
|
"`Hide/Show' submenu for Dired menu-bar `Dir' menu.")
|
|
(define-key diredp-menu-bar-dir-menu [hide-show] (cons "Hide/Show" diredp-hide/show-menu))
|
|
|
|
(when (fboundp 'dired-omit-mode)
|
|
(define-key diredp-hide/show-menu [dired-omit-mode]
|
|
'(menu-item "Hide/Show Uninteresting (Omit Mode)" dired-omit-mode
|
|
:help "Toggle omission of uninteresting files (Omit mode)")))
|
|
(when (fboundp 'dired-hide-details-mode) ; Emacs 24.4+
|
|
(define-key diredp-hide/show-menu [hide-details]
|
|
'(menu-item "Hide/Show Details" dired-hide-details-mode
|
|
:help "Hide or show less important fields of directory listing")))
|
|
(define-key diredp-hide/show-menu [hide-all]
|
|
'(menu-item "Hide/Show All Subdirs" dired-hide-all
|
|
:help "Hide all subdirectories, leave only header lines"))
|
|
(define-key diredp-hide/show-menu [hide-subdir]
|
|
'(menu-item "Hide/Show Subdir" diredp-hide-subdir-nomove
|
|
:help "Hide or unhide current directory listing"))
|
|
|
|
|
|
;; `Dir' > `Bookmark' menu.
|
|
;;
|
|
(defvar diredp-bookmark-menu (make-sparse-keymap "Bookmark")
|
|
"`Bookmark' submenu for Dired menu-bar `Dir' menu.")
|
|
(define-key diredp-menu-bar-dir-menu [bookmark] (cons "Bookmark" diredp-bookmark-menu))
|
|
|
|
(define-key diredp-bookmark-menu [diredp-highlight-autofiles-mode]
|
|
'(menu-item "Toggle Autofile Highlighting" diredp-highlight-autofiles-mode
|
|
:help "Toggle whether to highlight autofile bookmarks"
|
|
:visible (and (featurep 'bookmark+) (featurep 'highlight))))
|
|
(define-key diredp-bookmark-menu [diredp-do-bookmark-dirs-recursive]
|
|
'(menu-item "Bookmark Dirs Here and Below..." diredp-do-bookmark-dirs-recursive
|
|
:help "Bookmark this Dired buffer and marked subdirectory Dired buffers, recursively."))
|
|
(define-key diredp-bookmark-menu [bookmark-dired]
|
|
'(menu-item "Bookmark Dired Buffer..." bookmark-set :help "Bookmark this Dired buffer"))
|
|
|
|
|
|
;; `Dir' > `Navigate' menu.
|
|
;;
|
|
(defvar diredp-navigate-menu (make-sparse-keymap "Navigate")
|
|
"`Navigate' submenu for Dired menu-bar `Dir' menu.")
|
|
(define-key diredp-menu-bar-dir-menu [navigate] (cons "Navigate" diredp-navigate-menu))
|
|
|
|
(define-key diredp-navigate-menu [insert]
|
|
'(menu-item "Move To This Subdir" dired-maybe-insert-subdir
|
|
:help "Move to subdirectory line or listing"))
|
|
(define-key diredp-navigate-menu [tree-down]
|
|
'(menu-item "Tree Down" dired-tree-down :help "Go to first subdirectory header down the tree"))
|
|
(define-key diredp-navigate-menu [tree-up]
|
|
'(menu-item "Tree Up" dired-tree-up :help "Go to first subdirectory header up the tree"))
|
|
(define-key diredp-navigate-menu [up]
|
|
'(menu-item "Up Directory" diredp-up-directory :help "Dired the parent directory"))
|
|
(define-key diredp-navigate-menu [prev-subdir]
|
|
'(menu-item "Prev Subdir" diredp-prev-subdir :help "Go to previous subdirectory header line"))
|
|
(define-key diredp-navigate-menu [next-subdir]
|
|
'(menu-item "Next Subdir" diredp-next-subdir :help "Go to next subdirectory header line"))
|
|
(define-key diredp-navigate-menu [prev-dirline]
|
|
'(menu-item "Prev Dirline" diredp-prev-dirline :help "Move to previous directory-file line"))
|
|
(define-key diredp-navigate-menu [next-dirline]
|
|
'(menu-item "Next Dirline" diredp-next-dirline :help "Move to next directory-file line"))
|
|
|
|
(define-key diredp-menu-bar-dir-menu [separator-subdir] '("--")) ; --------------------------
|
|
|
|
(define-key diredp-menu-bar-dir-menu [image-dired-dired-toggle-marked-thumbs]
|
|
'(menu-item "Toggle Image Thumbnails" image-dired-dired-toggle-marked-thumbs
|
|
:enable (fboundp 'image-dired-dired-toggle-marked-thumbs)
|
|
:help "Add or remove image thumbnails in front of marked file names"))
|
|
(when (fboundp 'dired-isearch-filenames) ; Emacs 23+
|
|
(define-key diredp-menu-bar-dir-menu [isearch-filenames-regexp]
|
|
'(menu-item "Isearch Regexp in File Names..." dired-isearch-filenames-regexp
|
|
:help "Incrementally search for regexp in file names only"))
|
|
(define-key diredp-menu-bar-dir-menu [isearch-filenames]
|
|
'(menu-item "Isearch in File Names..." dired-isearch-filenames
|
|
:help "Incrementally search for literal text in file names only.")))
|
|
(when (or (> emacs-major-version 21) (fboundp 'wdired-change-to-wdired-mode))
|
|
(define-key diredp-menu-bar-dir-menu [wdired-mode]
|
|
'(menu-item "Edit File Names (WDired)" wdired-change-to-wdired-mode
|
|
:help "Put a Dired buffer in a mode in which filenames are editable"
|
|
:keys "C-x C-q" :filter (lambda (x) (and (derived-mode-p 'dired-mode) x)))))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-yank-files]
|
|
'(menu-item "Paste Files from Copied Absolute Names" diredp-yank-files
|
|
:help "Paste files here whose absolute names you copied"
|
|
:enable (catch 'dir-menu--yank-files
|
|
(let ((files (car kill-ring-yank-pointer)))
|
|
(and (stringp files)
|
|
(dolist (file (split-string files))
|
|
(unless (file-name-absolute-p file) (throw 'dir-menu--yank-files nil)))))
|
|
t)))
|
|
(when (fboundp 'dired-compare-directories) ; Emacs 22+
|
|
(define-key diredp-menu-bar-dir-menu [compare-directories]
|
|
'(menu-item "Compare Directories..." dired-compare-directories
|
|
:help "Mark files with different attributes in two Dired buffers")))
|
|
|
|
(define-key diredp-menu-bar-dir-menu [separator-dired-on-set] '("--")) ; --------------------
|
|
|
|
(define-key diredp-menu-bar-dir-menu [diredp-dired-recent-dirs]
|
|
'(menu-item "Dired Recent Directories..." diredp-dired-recent-dirs
|
|
:visible (boundp 'recentf-list) :enable (and (boundp 'recentf-list) (consp recentf-list))
|
|
:help "Open a Dired buffer for recently used directories"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-dired-inserted-subdirs]
|
|
'(menu-item "Dired Each Inserted Subdir..." diredp-dired-inserted-subdirs
|
|
:enable (cdr dired-subdir-alist) ; First elt is current dir. Must have at least one more.
|
|
:help "Open Dired separately for each of the inserted subdirectories"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-add-to-this-dired-buffer]
|
|
'(menu-item "Add Entries Here..." diredp-add-to-this-dired-buffer
|
|
:help "Add individual file and directory names to the listing"
|
|
:keys "C-x E"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-dired-union]
|
|
'(menu-item "Dired Union..." diredp-dired-union
|
|
:help "Open Dired for the union of some existing Dired buffers"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-fileset-other-window]
|
|
'(menu-item "Dired Fileset..." diredp-fileset-other-window
|
|
:enable (> emacs-major-version 21) :help "Open Dired on an Emacs fileset"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-dired-for-files]
|
|
'(menu-item "Dired Files Located Anywhere" diredp-dired-for-files
|
|
:help "Open Dired on specific files whose names you provide"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-marked-other-window]
|
|
'(menu-item "Dired Marked Files in Other Window" diredp-marked-other-window
|
|
:enable (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t)))
|
|
:help "Open Dired on marked files only, in other window"))
|
|
(define-key diredp-menu-bar-dir-menu [diredp-marked]
|
|
'(menu-item "Dired Marked Files" diredp-marked
|
|
:enable (save-excursion (goto-char (point-min))
|
|
(and (re-search-forward (dired-marker-regexp) nil t)
|
|
(re-search-forward (dired-marker-regexp) nil t)))
|
|
:help "Open Dired on marked files only"))
|
|
(define-key diredp-menu-bar-dir-menu [dired]
|
|
'(menu-item "Dired (Filter via Wildcards)..." dired
|
|
:help "Explore a directory (you can provide wildcards)"))
|
|
|
|
(define-key diredp-menu-bar-dir-menu [separator-dired] '("--")) ; ---------------------
|
|
|
|
(define-key diredp-menu-bar-dir-menu [insert]
|
|
'(menu-item "Insert/Move-To This Subdir" dired-maybe-insert-subdir
|
|
:help "Move to subdirectory line or listing"))
|
|
(define-key diredp-menu-bar-dir-menu [revert]
|
|
'(menu-item "Refresh (Sync \& Show All)" revert-buffer :help "Update directory contents"))
|
|
(define-key diredp-menu-bar-dir-menu [create-directory] ; Moved from "Immediate".
|
|
'(menu-item "New Directory..." dired-create-directory :help "Create a directory"))
|
|
|
|
|
|
;;; Mouse-3 menu binding.
|
|
(define-key dired-mode-map [down-mouse-3] 'diredp-mouse-3-menu)
|
|
(define-key dired-mode-map [mouse-3] 'ignore)
|
|
|
|
|
|
;;; Non-menu Dired bindings.
|
|
|
|
;; Move `dired-omit-mode' to `C-x M-o', so prefix key `M-o' is free for face/font-lock stuff.
|
|
(define-key dired-mode-map "\C-x\M-o" (if (fboundp 'dired-omit-mode) 'dired-omit-mode 'dired-omit-toggle))
|
|
(when (memq (lookup-key dired-mode-map "\M-o") '(dired-omit-mode dired-omit-toggle))
|
|
(define-key dired-mode-map "\M-o" nil))
|
|
|
|
;; These are global, not just Dired mode. They are on prefix key `C-x D'.
|
|
(unless (lookup-key ctl-x-map "D")
|
|
(define-key ctl-x-map "D" nil) ; For Emacs 20
|
|
(define-key ctl-x-map "DA" 'diredp-add-to-dired-buffer) ; `C-x D A'
|
|
(define-key ctl-x-map "DF" 'diredp-dired-for-files) ; `C-x D F'
|
|
(define-key ctl-x-map "DR" 'diredp-dired-recent-dirs) ; `C-x D R'
|
|
(define-key ctl-x-map "DS" 'diredp-fileset) ; `C-x D S'
|
|
(define-key ctl-x-map "DU" 'diredp-dired-union)) ; `C-x D U'
|
|
|
|
(unless (lookup-key ctl-x-4-map "D")
|
|
(define-key ctl-x-4-map "D" nil) ; For Emacs 20
|
|
(define-key ctl-x-4-map "DA" 'diredp-add-to-dired-buffer-other-window) ; `C-x 4 D A'
|
|
(define-key ctl-x-4-map "DF" 'diredp-dired-for-files-other-window) ; `C-x 4 D F'
|
|
(define-key ctl-x-4-map "DR" 'diredp-dired-recent-dirs-other-window) ; `C-x 4 D R'
|
|
(define-key ctl-x-4-map "DS" 'diredp-fileset-other-window) ; `C-x 4 D S'
|
|
(define-key ctl-x-4-map "DU" 'diredp-dired-union-other-window)) ; `C-x 4 D U'
|
|
|
|
;; Navigation
|
|
(substitute-key-definition 'dired-up-directory 'diredp-up-directory dired-mode-map)
|
|
(substitute-key-definition 'dired-next-line 'diredp-next-line dired-mode-map)
|
|
(substitute-key-definition 'dired-previous-line 'diredp-previous-line dired-mode-map)
|
|
(substitute-key-definition 'dired-next-dirline 'diredp-next-dirline dired-mode-map)
|
|
(substitute-key-definition 'dired-prev-dirline 'diredp-prev-dirline dired-mode-map)
|
|
(substitute-key-definition 'dired-next-subdir 'diredp-next-subdir dired-mode-map)
|
|
(substitute-key-definition 'dired-prev-subdir 'diredp-prev-subdir dired-mode-map)
|
|
|
|
|
|
(define-key dired-mode-map [S-down-mouse-1] 'ignore) ; (normally `mouse-set-font')
|
|
;; `diredp-mouse-mark-region-files' provides Windows-Explorer behavior
|
|
;; for selecting (marking) files.
|
|
(define-key dired-mode-map [S-mouse-1] 'diredp-mouse-mark-region-files) ; `S-mouse-1'
|
|
(define-key dired-mode-map [mouse-2] 'dired-mouse-find-file-other-window) ; `mouse-2'
|
|
;; But be aware that `dired-sort-menu.el' binds `S-mouse-2' to `dired-sort-menu-popup'.
|
|
(define-key dired-mode-map [S-down-mouse-2] 'dired-mouse-find-file) ; `S-mouse-2'
|
|
(define-key dired-mode-map [S-mouse-2] 'ignore)
|
|
(define-key dired-mode-map [M-mouse-2] 'diredp-mouse-find-file-other-frame) ; `M-mouse-2'
|
|
|
|
;; On Windows, bind more.
|
|
(eval-after-load "w32-browser"
|
|
'(progn
|
|
(define-key dired-mode-map [(control return)] 'dired-w32explore) ; `C-RET'
|
|
(define-key dired-mode-map [(meta return)] 'dired-w32-browser) ; `M-RET'
|
|
(define-key dired-mode-map [mouse-2] 'dired-mouse-w32-browser) ; `mouse-2'
|
|
(define-key dired-mode-map (kbd "<C-M-return>") 'dired-multiple-w32-browser))) ; `C-M-RET'
|
|
|
|
(when (fboundp 'diredp-w32-drives)
|
|
(when (< emacs-major-version 21) (define-key dired-mode-map ":" nil)) ; For Emacs 20
|
|
(define-key dired-mode-map ":/" 'diredp-w32-drives)) ; `:/'
|
|
|
|
;; Other keyboard keys
|
|
(define-key dired-mode-map "@" 'diredp-do-apply-function) ; `@'
|
|
(define-key dired-mode-map "\$" 'diredp-hide-subdir-nomove) ; `$'
|
|
(define-key dired-mode-map "\M-$" 'dired-hide-subdir) ; `M-$'
|
|
(define-key dired-mode-map "=" 'diredp-ediff) ; `='
|
|
;; This replaces the `dired-x.el' binding of `dired-mark-extension'.
|
|
(define-key dired-mode-map "*." 'diredp-mark/unmark-extension) ; `* .'
|
|
(define-key dired-mode-map "*B" 'diredp-mark-autofiles) ; `* B'
|
|
(define-key dired-mode-map [(control meta ?*)] 'diredp-marked-other-window) ; `C-M-*'
|
|
(define-key dired-mode-map "\M-a" 'dired-do-search) ; `M-a'
|
|
(define-key dired-mode-map "\M-b" 'diredp-do-bookmark) ; `M-b'
|
|
(define-key dired-mode-map "\C-\M-b" 'diredp-set-bookmark-file-bookmark-for-marked) ; `C-M-b'
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key dired-mode-map [(control meta shift ?b)] ; `C-M-B' (aka `C-M-S-b')
|
|
'diredp-do-bookmark-in-bookmark-file))
|
|
(define-key dired-mode-map "e" 'diredp-visit-this-file) ; `e' (was `dired-find-file')
|
|
(define-key dired-mode-map [C-down] 'diredp-visit-next-file) ; `C-down' (was `forward-paragraph')
|
|
(define-key dired-mode-map [C-up] 'diredp-visit-previous-file) ; `C-up' (was `backward-paragraph')
|
|
(define-key dired-mode-map "\C-\M-G" 'diredp-do-grep) ; `C-M-G'
|
|
(when (fboundp 'mkhtml-dired-files) ; In `mkhtml.el'.
|
|
(define-key dired-mode-map "\M-h" 'mkhtml-dired-files)) ; `M-h'
|
|
(define-key dired-mode-map "\C-\M-i" 'diredp-dired-inserted-subdirs) ; `C-M-i'
|
|
(define-key dired-mode-map "\M-q" (if (< emacs-major-version 21)
|
|
'dired-do-query-replace
|
|
'dired-do-query-replace-regexp)) ; `M-q'
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key dired-mode-map [(control meta shift ?r)] ; `C-M-R' (aka `C-M-S-r')
|
|
'diredp-toggle-find-file-reuse-dir))
|
|
(define-key dired-mode-map "U" 'dired-unmark-all-marks) ; `U'
|
|
(substitute-key-definition 'describe-mode 'diredp-describe-mode ; `h', `C-h m'
|
|
dired-mode-map (current-global-map))
|
|
|
|
;; Tags - same keys as in `*Bookmark List*'.
|
|
;;
|
|
;; NOTE: If this changes then need to update `dired-sort-menu+.el' to reflect the changes.
|
|
;;
|
|
(define-key dired-mode-map "T" nil) ; For Emacs 20
|
|
(define-key dired-mode-map "T+" 'diredp-tag-this-file) ; `T +'
|
|
(define-key dired-mode-map "T-" 'diredp-untag-this-file) ; `T -'
|
|
(define-key dired-mode-map "T0" 'diredp-remove-all-tags-this-file) ; `T 0'
|
|
(define-key dired-mode-map "Tc" 'diredp-copy-tags-this-file) ; `T c'
|
|
(define-key dired-mode-map "Tp" 'diredp-paste-add-tags-this-file) ; `T p'
|
|
(define-key dired-mode-map "Tq" 'diredp-paste-replace-tags-this-file) ; `T q'
|
|
(define-key dired-mode-map "Tv" 'diredp-set-tag-value-this-file) ; `T v'
|
|
(define-key dired-mode-map "T\M-w" 'diredp-copy-tags-this-file) ; `T M-w'
|
|
(define-key dired-mode-map "T\C-y" 'diredp-paste-add-tags-this-file) ; `T C-y'
|
|
(define-key dired-mode-map "T>+" 'diredp-do-tag) ; `T > +'
|
|
(define-key dired-mode-map "T>-" 'diredp-do-untag) ; `T > -'
|
|
(define-key dired-mode-map "T>0" 'diredp-do-remove-all-tags) ; `T > 0'
|
|
(define-key dired-mode-map "T>p" 'diredp-do-paste-add-tags) ; `T > p'
|
|
(define-key dired-mode-map "T>q" 'diredp-do-paste-replace-tags) ; `T > q'
|
|
(define-key dired-mode-map "T>v" 'diredp-do-set-tag-value) ; `T > v'
|
|
(define-key dired-mode-map "T>\C-y" 'diredp-do-paste-add-tags) ; `T > C-y'
|
|
(define-key dired-mode-map "Tm%" 'diredp-mark-files-tagged-regexp) ; `T m %'
|
|
(define-key dired-mode-map "Tm*" 'diredp-mark-files-tagged-all) ; `T m *'
|
|
(define-key dired-mode-map "Tm+" 'diredp-mark-files-tagged-some) ; `T m +'
|
|
(define-key dired-mode-map "Tm~*" 'diredp-mark-files-tagged-not-all) ; `T m ~ *'
|
|
(define-key dired-mode-map "Tm~+" 'diredp-mark-files-tagged-none) ; `T m ~ +'
|
|
(define-key dired-mode-map "Tu%" 'diredp-unmark-files-tagged-regexp) ; `T u %'
|
|
(define-key dired-mode-map "Tu*" 'diredp-unmark-files-tagged-all) ; `T u *'
|
|
(define-key dired-mode-map "Tu+" 'diredp-unmark-files-tagged-some) ; `T u +'
|
|
(define-key dired-mode-map "Tu~*" 'diredp-unmark-files-tagged-not-all) ; `T u ~ *'
|
|
(define-key dired-mode-map "Tu~+" 'diredp-unmark-files-tagged-none) ; `T u ~ +'
|
|
;; $$$$$$ (define-key dired-mode-map [(control ?+)] 'diredp-do-tag)
|
|
;; $$$$$$ (define-key dired-mode-map [(control ?-)] 'diredp-do-untag)
|
|
|
|
|
|
;; Vanilla Emacs binds `c' to `dired-do-compress-to'. Use `M-z' instead'.
|
|
;; (`dired-sort-menu.el' binds `c' to `dired-sort-menu-toggle-ignore-case'.)
|
|
;;
|
|
(when (fboundp 'dired-do-compress-to) ; Emacs 25+
|
|
(define-key dired-mode-map (kbd "M-z") 'dired-do-compress-to))
|
|
|
|
|
|
;; Commands for operating on the current line's file. When possible,
|
|
;; these are lower-case versions of the upper-case commands for operating on
|
|
;; the marked files. (Most of the other corresponding lower-case letters are already
|
|
;; defined and cannot be used here.)
|
|
|
|
;; $$$$$$ (define-key dired-mode-map [(control meta ?+)] 'diredp-tag-this-file)
|
|
;; $$$$$$ (define-key dired-mode-map [(control meta ?-)] 'diredp-untag-this-file)
|
|
(define-key dired-mode-map "\r" 'dired-find-file) ; `RET'
|
|
(when (fboundp 'diredp-describe-file)
|
|
(define-key dired-mode-map (kbd "C-h RET") 'diredp-describe-file) ; `C-h RET'
|
|
(define-key dired-mode-map (kbd "C-h C-<return>") 'diredp-describe-file)) ; `C-h C-RET'
|
|
(define-key dired-mode-map "%c" 'diredp-capitalize) ; `% c'
|
|
(define-key dired-mode-map "b" 'diredp-byte-compile-this-file) ; `b'
|
|
(define-key dired-mode-map [(control shift ?b)] 'diredp-bookmark-this-file) ; `C-B'
|
|
(define-key dired-mode-map "\M-c" 'diredp-capitalize-this-file) ; `M-c'
|
|
(when (and (fboundp 'diredp-chgrp-this-file) diredp-bind-problematic-terminal-keys)
|
|
(define-key dired-mode-map [(control meta shift ?g)] 'diredp-chgrp-this-file)) ; `C-M-G' (aka `C-M-S-g')
|
|
(define-key dired-mode-map "\M-i" 'diredp-insert-subdirs) ; `M-i'
|
|
(define-key dired-mode-map "\M-l" 'diredp-downcase-this-file) ; `M-l'
|
|
(define-key dired-mode-map "\C-\M-l" 'diredp-list-marked) ; `C-M-l'
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key dired-mode-map [(meta shift ?m)] 'diredp-chmod-this-file)) ; `M-M' (aka `M-S-m')
|
|
(define-key dired-mode-map "\C-o" 'diredp-find-file-other-frame) ; `C-o'
|
|
(when (and (fboundp 'diredp-chown-this-file) diredp-bind-problematic-terminal-keys)
|
|
(define-key dired-mode-map [(meta shift ?o)] 'diredp-chown-this-file)) ; `M-O' (aka `M-S-o')
|
|
(define-key dired-mode-map "\C-\M-o" 'dired-display-file) ; `C-M-o' (not `C-o')
|
|
(define-key dired-mode-map "\M-p" 'diredp-print-this-file) ; `M-p'
|
|
(define-key dired-mode-map "r" 'diredp-rename-this-file) ; `r'
|
|
(when (fboundp 'image-dired-dired-display-image)
|
|
(define-key dired-mode-map "\C-tI" 'diredp-image-show-this-file)) ; `C-t I'
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key dired-mode-map [(meta shift ?t)] 'diredp-touch-this-file) ; `M-T' (aka `M-S-t')
|
|
(define-key dired-mode-map [(control meta shift ?t)] 'dired-do-touch)) ; `C-M-T' (aka `C-M-S-t')
|
|
(define-key dired-mode-map "\M-u" 'diredp-upcase-this-file) ; `M-u'
|
|
(define-key dired-mode-map "y" 'diredp-relsymlink-this-file) ; `y'
|
|
(define-key dired-mode-map "\C-w" 'diredp-move-files-named-in-kill-ring) ; `C-w'
|
|
(define-key dired-mode-map "\C-y" 'diredp-yank-files) ; `C-y'
|
|
(define-key dired-mode-map "z" 'diredp-compress-this-file) ; `z'
|
|
(when (fboundp 'dired-show-file-type)
|
|
(define-key dired-mode-map "_" 'dired-show-file-type)) ; `_' (underscore)
|
|
(substitute-key-definition 'kill-line 'diredp-delete-this-file ; `C-k', `delete', `deleteline'
|
|
dired-mode-map (current-global-map))
|
|
|
|
|
|
;; Commands that handle marked below, recursively.
|
|
;; Use `M-+' as a prefix key for all such commands.
|
|
|
|
(define-prefix-command 'diredp-recursive-map)
|
|
(define-key dired-mode-map "\M-+" diredp-recursive-map) ; `M-+'
|
|
|
|
(when (fboundp 'char-displayable-p) ; Emacs 22+
|
|
(define-key diredp-recursive-map "\M-\C-?" 'diredp-unmark-all-files-recursive)) ; `M-DEL'
|
|
(define-key diredp-recursive-map "@" 'diredp-do-apply-function-recursive) ; `@'
|
|
(define-key diredp-recursive-map "#" 'diredp-flag-auto-save-files-recursive) ; `#'
|
|
(define-key diredp-recursive-map "*@" 'diredp-mark-symlinks-recursive) ; `* @'
|
|
(define-key diredp-recursive-map "**" 'diredp-mark-executables-recursive) ; `* *'
|
|
(define-key diredp-recursive-map "*/" 'diredp-mark-directories-recursive) ; `* /'
|
|
(define-key diredp-recursive-map "*." 'diredp-mark-extension-recursive) ; `* .'
|
|
(define-key diredp-recursive-map "*(" 'diredp-mark-sexp-recursive) ; `* ('
|
|
(define-key diredp-recursive-map "*B" 'diredp-mark-autofiles-recursive) ; `* B'
|
|
(when (fboundp 'char-displayable-p) ; Emacs 22+
|
|
(define-key diredp-recursive-map "*c" 'diredp-change-marks-recursive)) ; `* c'
|
|
(define-key diredp-recursive-map "*%" 'diredp-mark-files-regexp-recursive) ; `* %'
|
|
(when (> emacs-major-version 22)
|
|
(define-key diredp-recursive-map ":d" 'diredp-do-decrypt-recursive) ; `: d'
|
|
(define-key diredp-recursive-map ":e" 'diredp-do-encrypt-recursive) ; `: e'
|
|
(define-key diredp-recursive-map ":s" 'diredp-do-sign-recursive) ; `: s'
|
|
(define-key diredp-recursive-map ":v" 'diredp-do-verify-recursive)) ; `: v'
|
|
(define-key diredp-recursive-map "%c" 'diredp-capitalize-recursive) ; `% c'
|
|
(define-key diredp-recursive-map "%g" 'diredp-mark-files-containing-regexp-recursive) ; `% g'
|
|
(define-key diredp-recursive-map "%l" 'diredp-downcase-recursive) ; `% l'
|
|
(define-key diredp-recursive-map "%m" 'diredp-mark-files-regexp-recursive) ; `% m'
|
|
(define-key diredp-recursive-map "%u" 'diredp-upcase-recursive) ; `% u'
|
|
(when (fboundp 'dired-do-async-shell-command) ; Emacs 23+
|
|
(define-key diredp-recursive-map "&" 'diredp-do-async-shell-command-recursive)) ; `&'
|
|
(define-key diredp-recursive-map "!" 'diredp-do-shell-command-recursive) ; `!'
|
|
(define-key diredp-recursive-map (kbd "C-M-*") 'diredp-marked-recursive-other-window) ; `C-M-*'
|
|
(define-key diredp-recursive-map "A" 'diredp-do-search-recursive) ; `A'
|
|
(define-key diredp-recursive-map "\M-b" 'diredp-do-bookmark-recursive) ; `M-b'
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key diredp-recursive-map [(meta shift ?b)] ; `M-B' (aka `M-S-b')
|
|
'diredp-do-bookmark-dirs-recursive))
|
|
(define-key diredp-recursive-map (kbd "C-M-b") ; `C-M-b'
|
|
'diredp-set-bookmark-file-bookmark-for-marked-recursive)
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key diredp-recursive-map [(control meta shift ?b)] ; `C-M-B' (aka `C-M-S-b')
|
|
'diredp-do-bookmark-in-bookmark-file-recursive))
|
|
(define-key diredp-recursive-map "C" 'diredp-do-copy-recursive) ; `C'
|
|
(define-key diredp-recursive-map "D" 'diredp-do-delete-recursive) ; `D'
|
|
(define-key diredp-recursive-map "F" 'diredp-do-find-marked-files-recursive) ; `F'
|
|
(when (fboundp 'diredp-do-chgrp-recursive)
|
|
(define-key diredp-recursive-map "G" 'diredp-do-chgrp-recursive)) ; `G'
|
|
(define-key diredp-recursive-map "\C-\M-G" 'diredp-do-grep-recursive) ; `C-M-G'
|
|
(define-key diredp-recursive-map "H" 'diredp-do-hardlink-recursive) ; `H'
|
|
(define-key diredp-recursive-map "\M-i" 'diredp-insert-subdirs-recursive) ; `M-i'
|
|
(define-key diredp-recursive-map "\C-\M-l" 'diredp-list-marked-recursive) ; `C-M-l'
|
|
(define-key diredp-recursive-map "M" 'diredp-do-chmod-recursive) ; `M'
|
|
(when (fboundp 'diredp-do-chown-recursive)
|
|
(define-key diredp-recursive-map "O" 'diredp-do-chown-recursive)) ; `O'
|
|
(define-key diredp-recursive-map "P" 'diredp-do-print-recursive) ; `P'
|
|
(define-key diredp-recursive-map "Q" 'diredp-do-query-replace-regexp-recursive) ; `Q'
|
|
(define-key diredp-recursive-map "R" 'diredp-do-move-recursive) ; `R'
|
|
(define-key diredp-recursive-map "S" 'diredp-do-symlink-recursive) ; `S'
|
|
(define-key diredp-recursive-map (kbd "M-s a C-s") ; `M-s a C-s'
|
|
'diredp-do-isearch-recursive)
|
|
(define-key diredp-recursive-map (kbd "M-s a C-M-s") ; `M-s a C-M-s'
|
|
'diredp-do-isearch-regexp-recursive)
|
|
(when diredp-bind-problematic-terminal-keys
|
|
(define-key diredp-recursive-map [(control meta shift ?t)]
|
|
'diredp-do-touch-recursive)) ; `C-M-T' (aka `C-M-S-t')
|
|
(define-key diredp-recursive-map "\C-tc" 'diredp-image-dired-comment-files-recursive) ; `C-t c'
|
|
(define-key diredp-recursive-map "\C-td" 'diredp-image-dired-display-thumbs-recursive) ; `C-t d'
|
|
(define-key diredp-recursive-map "\C-tr" 'diredp-image-dired-delete-tag-recursive) ; `C-t r'
|
|
(define-key diredp-recursive-map "\C-tt" 'diredp-image-dired-tag-files-recursive) ; `C-t t'
|
|
(when (fboundp 'char-displayable-p) ; Emacs 22+
|
|
(define-key diredp-recursive-map "U" 'diredp-unmark-all-marks-recursive)) ; `U'
|
|
(define-key diredp-recursive-map "\M-(" 'diredp-mark-sexp-recursive) ; `M-('
|
|
(define-key diredp-recursive-map "\M-w" 'diredp-copy-filename-as-kill-recursive) ; `M-w'
|
|
(define-key diredp-recursive-map "Y" 'diredp-do-relsymlink-recursive) ; `Y'
|
|
|
|
(eval-after-load "w32-browser"
|
|
'(define-key diredp-recursive-map (kbd "<C-M-return>") 'diredp-multiple-w32-browser-recursive)) ; `C-M-RET'
|
|
|
|
;; Undefine some bindings that would try to modify a Dired buffer. Their key sequences will
|
|
;; then appear to the user as available for local (Dired) definition.
|
|
(when (fboundp 'undefine-killer-commands) (undefine-killer-commands dired-mode-map))
|
|
|
|
;;;;;;;;;;;;
|
|
|
|
(setq diredp-loaded-p t)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; dired+.el ends here
|