55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
1 ;;; wdired.el --- Rename files editing their names in dired buffers
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
2
|
101010
|
3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009
|
|
4 ;; Free Software Foundation, Inc.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
5
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
6 ;; Filename: wdired.el
|
61350
|
7 ;; Author: Juan Le�n Lahoz Garc�a <juanleon1@gmail.com>
|
|
8 ;; Version: 2.0
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
9 ;; Keywords: dired, environment, files, renaming
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
10
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
11 ;; This file is part of GNU Emacs.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
12
|
94678
|
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
14 ;; it under the terms of the GNU General Public License as published by
|
|
15 ;; the Free Software Foundation, either version 3 of the License, or
|
|
16 ;; (at your option) any later version.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
17
|
94678
|
18 ;; GNU Emacs is distributed in the hope that it will be useful,
|
|
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
21 ;; GNU General Public License for more details.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
22
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
23 ;; You should have received a copy of the GNU General Public License
|
94678
|
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
25
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
26 ;;; Commentary:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
27
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
28 ;; wdired.el (the "w" is for writable) provides an alternative way of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
29 ;; renaming files.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
30 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
31 ;; Have you ever wished to use C-x r t (string-rectangle), M-%
|
68680
|
32 ;; (query-replace), M-c (capitalize-word), etc... to change the name of
|
61473
|
33 ;; the files in a "dired" buffer? Now you can do this. All the power
|
|
34 ;; of Emacs commands are available to renaming files!
|
68680
|
35 ;;
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
36 ;; This package provides a function that makes the filenames of a a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
37 ;; dired buffer editable, by changing the buffer mode (which inhibits
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
38 ;; all of the commands of dired mode). Here you can edit the names of
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
39 ;; one or more files and directories, and when you press C-c C-c, the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
40 ;; renaming takes effect and you are back to dired mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
41 ;;
|
61473
|
42 ;; Another things you can do with WDired:
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
43 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
44 ;; - To move files to another directory (by typing their path,
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
45 ;; absolute or relative, as a part of the new filename).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
46 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
47 ;; - To change the target of symbolic links.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
48 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
49 ;; - To change the permission bits of the filenames (in systems with a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
50 ;; working unix-alike `dired-chmod-program'). See and customize the
|
61473
|
51 ;; variable `wdired-allow-to-change-permissions'. To change a single
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
52 ;; char (toggling between its two more usual values) you can press
|
61473
|
53 ;; the space bar over it or left-click the mouse. To set any char to
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
54 ;; an specific value (this includes the SUID, SGID and STI bits) you
|
61473
|
55 ;; can use the key labeled as the letter you want. Please note that
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
56 ;; permissions of the links cannot be changed in that way, because
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
57 ;; the change would affect to their targets, and this would not be
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
58 ;; WYSIWYG :-).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
59 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
60 ;; - To mark files for deletion, by deleting their whole filename.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
61
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
62 ;;; Installation:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
63
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
64 ;; Add this file (byte-compiling it is recommended) to your load-path.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
65 ;; Then add one of these set of lines (or similar ones) to your config:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
66 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
67 ;; This is the easy way:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
68 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
69 ;; (require 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
70 ;; (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
71 ;;
|
61473
|
72 ;; This is the recommended way for faster Emacs startup time and lower
|
|
73 ;; memory consumption:
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
74 ;;
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
75 ;; (autoload 'wdired-change-to-wdired-mode "wdired")
|
61473
|
76 ;; (eval-after-load "dired"
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
77 ;; '(lambda ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
78 ;; (define-key dired-mode-map "r" 'wdired-change-to-wdired-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
79 ;; (define-key dired-mode-map
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
80 ;; [menu-bar immediate wdired-change-to-wdired-mode]
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
81 ;; '("Edit File Names" . wdired-change-to-wdired-mode))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
82 ;;
|
61473
|
83 ;; Type "M-x customize-group RET wdired" if you want to make changes
|
|
84 ;; to the default behavior.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
85
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
86 ;;; Usage:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
87
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
88 ;; Then, you can start editing the names of the files by typing "r"
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
89 ;; (or whatever key you choose, or M-x wdired-change-to-wdired-mode).
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
90 ;; Use C-c C-c when finished or C-c C-k to abort. You can use also the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
91 ;; menu options: in dired mode, "Edit File Names" under "Immediate".
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
92 ;; While editing the names, a new submenu "WDired" is available at top
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
93 ;; level. You can customize the behavior of this package from this
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
94 ;; menu.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
95
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
96 ;;; Change Log:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
97
|
61473
|
98 ;; Google is your friend (previous versions with complete changelogs
|
|
99 ;; were posted to gnu.emacs.sources)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
100
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
101 ;;; Code:
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
102
|
61473
|
103 (defvar dired-backup-overwrite) ; Only in Emacs 20.x this is a custom var
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
104
|
69279
|
105 (eval-when-compile (require 'cl))
|
68680
|
106 (require 'dired)
|
|
107 (autoload 'dired-do-create-files-regexp "dired-aux")
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
108
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
109 (defgroup wdired nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
110 "Mode to rename files by editing their names in dired buffers."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
111 :group 'dired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
112
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
113 (defcustom wdired-use-interactive-rename nil
|
68680
|
114 "If non-nil, WDired requires confirmation before actually renaming files.
|
61473
|
115 If nil, WDired doesn't require confirmation to change the file names,
|
|
116 and the variable `wdired-confirm-overwrite' controls whether it is ok
|
|
117 to overwrite files without asking."
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
118 :type 'boolean
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
119 :group 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
120
|
61473
|
121 (defcustom wdired-confirm-overwrite t
|
68680
|
122 "If nil the renames can overwrite files without asking.
|
61473
|
123 This variable has no effect at all if `wdired-use-interactive-rename'
|
|
124 is not nil."
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
125 :type 'boolean
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
126 :group 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
127
|
61473
|
128 (defcustom wdired-use-dired-vertical-movement nil
|
68680
|
129 "If t, the \"up\" and \"down\" movement works as in Dired mode.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
130 That is, always move the point to the beginning of the filename at line.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
131
|
85930
|
132 If `sometimes', only move to the beginning of filename if the point is
|
|
133 before it, and `track-eol' is non-nil. This behavior is very handy
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
134 when editing several filenames.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
135
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
136 If nil, \"up\" and \"down\" movement is done as in any other buffer."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
137 :type '(choice (const :tag "As in any other mode" nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
138 (const :tag "Smart cursor placement" sometimes)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
139 (other :tag "As in dired mode" t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
140 :group 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
141
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
142 (defcustom wdired-allow-to-redirect-links t
|
68680
|
143 "If non-nil, the target of the symbolic links are editable.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
144 In systems without symbolic links support, this variable has no effect
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
145 at all."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
146 :type 'boolean
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
147 :group 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
148
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
149 (defcustom wdired-allow-to-change-permissions nil
|
68680
|
150 "If non-nil, the permissions bits of the files are editable.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
151
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
152 If t, to change a single bit, put the cursor over it and press the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
153 space bar, or left click over it. You can also hit the letter you want
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
154 to set: if this value is allowed, the character in the buffer will be
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
155 changed. Anyway, the point is advanced one position, so, for example,
|
61473
|
156 you can keep the <x> key pressed to give execution permissions to
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
157 everybody to that file.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
158
|
91898
|
159 If `advanced', the bits are freely editable. You can use
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
160 `string-rectangle', `query-replace', etc. You can put any value (even
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
161 newlines), but if you want your changes to be useful, you better put a
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
162 intelligible value.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
163
|
61473
|
164 Anyway, the real change of the permissions is done by the external
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
165 program `dired-chmod-program', which must exist."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
166 :type '(choice (const :tag "Not allowed" nil)
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
167 (const :tag "Toggle/set bits" t)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
168 (other :tag "Bits freely editable" advanced))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
169 :group 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
170
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
171 (defvar wdired-mode-map
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
172 (let ((map (make-sparse-keymap)))
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
173 (define-key map "\C-x\C-s" 'wdired-finish-edit)
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
174 (define-key map "\C-c\C-c" 'wdired-finish-edit)
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
175 (define-key map "\C-c\C-k" 'wdired-abort-changes)
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
176 (define-key map "\C-c\C-[" 'wdired-abort-changes)
|
82194
|
177 (define-key map "\C-x\C-q" 'wdired-exit)
|
61473
|
178 (define-key map "\C-m" 'ignore)
|
|
179 (define-key map "\C-j" 'ignore)
|
|
180 (define-key map "\C-o" 'ignore)
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
181 (define-key map [up] 'wdired-previous-line)
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
182 (define-key map "\C-p" 'wdired-previous-line)
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
183 (define-key map [down] 'wdired-next-line)
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
184 (define-key map "\C-n" 'wdired-next-line)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
185
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
186 (define-key map [menu-bar wdired]
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
187 (cons "WDired" (make-sparse-keymap "WDired")))
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
188 (define-key map [menu-bar wdired wdired-customize]
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
189 '("Options" . wdired-customize))
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
190 (define-key map [menu-bar wdired dashes]
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
191 '("--"))
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
192 (define-key map [menu-bar wdired wdired-abort-changes]
|
68152
|
193 '(menu-item "Abort Changes" wdired-abort-changes
|
|
194 :help "Abort changes and return to dired mode"))
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
195 (define-key map [menu-bar wdired wdired-finish-edit]
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
196 '("Commit Changes" . wdired-finish-edit))
|
68680
|
197
|
|
198 (define-key map [remap upcase-word] 'wdired-upcase-word)
|
|
199 (define-key map [remap capitalize-word] 'wdired-capitalize-word)
|
|
200 (define-key map [remap downcase-word] 'wdired-downcase-word)
|
|
201
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
202 map))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
203
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
204 (defvar wdired-mode-hook nil
|
61473
|
205 "Hooks run when changing to WDired mode.")
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
206
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
207 ;; Local variables (put here to avoid compilation gripes)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
208 (defvar wdired-col-perm) ;; Column where the permission bits start
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
209 (defvar wdired-old-content)
|
67561
|
210 (defvar wdired-old-point)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
211
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
212
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
213 (defun wdired-mode ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
214 "\\<wdired-mode-map>File Names Editing mode.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
215
|
61473
|
216 Press \\[wdired-finish-edit] to make the changes to take effect
|
|
217 and exit. To abort the edit, use \\[wdired-abort-changes].
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
218
|
61473
|
219 In this mode you can edit the names of the files, the target of
|
|
220 the links and the permission bits of the files. You can use
|
|
221 \\[customize-group] RET wdired to customize WDired behavior.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
222
|
61473
|
223 The only editable texts in a WDired buffer are filenames,
|
|
224 symbolic link targets, and filenames permission."
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
225 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
226 (error "This mode can be enabled only by `wdired-change-to-wdired-mode'"))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
227 (put 'wdired-mode 'mode-class 'special)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
228
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
229
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
230 ;;;###autoload
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
231 (defun wdired-change-to-wdired-mode ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
232 "Put a dired buffer in a mode in which filenames are editable.
|
61473
|
233 \\<wdired-mode-map>
|
|
234 This mode allows the user to change the names of the files, and after
|
|
235 typing \\[wdired-finish-edit] Emacs renames the files and directories
|
|
236 in disk.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
237
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
238 See `wdired-mode'."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
239 (interactive)
|
72160
|
240 (or (eq major-mode 'dired-mode)
|
|
241 (error "Not a Dired buffer"))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
242 (set (make-local-variable 'wdired-old-content)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
243 (buffer-substring (point-min) (point-max)))
|
67561
|
244 (set (make-local-variable 'wdired-old-point) (point))
|
61350
|
245 (set (make-local-variable 'query-replace-skip-read-only) t)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
246 (use-local-map wdired-mode-map)
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
247 (force-mode-line-update)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
248 (setq buffer-read-only nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
249 (dired-unadvertise default-directory)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
250 (add-hook 'kill-buffer-hook 'wdired-check-kill-buffer nil t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
251 (setq major-mode 'wdired-mode)
|
61473
|
252 (setq mode-name "Editable Dired")
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
253 (setq revert-buffer-function 'wdired-revert)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
254 ;; I temp disable undo for performance: since I'm going to clear the
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
255 ;; undo list, it can save more than a 9% of time with big
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
256 ;; directories because setting properties modify the undo-list.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
257 (buffer-disable-undo)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
258 (wdired-preprocess-files)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
259 (if wdired-allow-to-change-permissions
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
260 (wdired-preprocess-perms))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
261 (if (and wdired-allow-to-redirect-links (fboundp 'make-symbolic-link))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
262 (wdired-preprocess-symlinks))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
263 (buffer-enable-undo) ; Performance hack. See above.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
264 (set-buffer-modified-p nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
265 (setq buffer-undo-list nil)
|
62746
|
266 (run-mode-hooks 'wdired-mode-hook)
|
67561
|
267 (message "%s" (substitute-command-keys
|
|
268 "Press \\[wdired-finish-edit] when finished \
|
61030
|
269 or \\[wdired-abort-changes] to abort changes")))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
270
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
271
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
272 ;; Protect the buffer so only the filenames can be changed, and put
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
273 ;; properties so filenames (old and new) can be easily found.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
274 (defun wdired-preprocess-files ()
|
95915
|
275 (put-text-property (point-min) (1+ (point-min))'front-sticky t)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
276 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
277 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
278 (let ((b-protection (point))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
279 filename)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
280 (while (not (eobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
281 (setq filename (dired-get-filename nil t))
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
282 (when (and filename
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
283 (not (member (file-name-nondirectory filename) '("." ".."))))
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
284 (dired-move-to-filename)
|
74526
|
285 ;; The rear-nonsticky property below shall ensure that text preceding
|
|
286 ;; the filename can't be modified.
|
|
287 (add-text-properties
|
|
288 (1- (point)) (point) `(old-name ,filename rear-nonsticky (read-only)))
|
|
289 (put-text-property b-protection (point) 'read-only t)
|
|
290 (setq b-protection (dired-move-to-end-of-filename t))
|
|
291 (put-text-property (point) (1+ (point)) 'end-name t))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
292 (forward-line))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
293 (put-text-property b-protection (point-max) 'read-only t))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
294
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
295 ;; This code is a copy of some dired-get-filename lines.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
296 (defsubst wdired-normalize-filename (file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
297 (setq file
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
298 ;; FIXME: shouldn't we check for a `b' argument or somesuch before
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
299 ;; doing such unquoting? --Stef
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
300 (read (concat
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
301 "\"" (replace-regexp-in-string
|
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
302 "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" file)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
303 "\"")))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
304 (and file buffer-file-coding-system
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
305 (not file-name-coding-system)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
306 (not default-file-name-coding-system)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
307 (setq file (encode-coding-string file buffer-file-coding-system)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
308 file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
309
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
310 (defun wdired-get-filename (&optional no-dir old)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
311 "Return the filename at line.
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
312 Similar to `dired-get-filename' but it doesn't rely on regexps. It
|
61473
|
313 relies on WDired buffer's properties. Optional arg NO-DIR with value
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
314 non-nil means don't include directory. Optional arg OLD with value
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
315 non-nil means return old filename."
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
316 ;; FIXME: Use dired-get-filename's new properties.
|
74526
|
317 (let (beg end file)
|
|
318 (save-excursion
|
|
319 (setq end (line-end-position))
|
|
320 (beginning-of-line)
|
|
321 (setq beg (next-single-property-change (point) 'old-name nil end))
|
|
322 (unless (eq beg end)
|
|
323 (if old
|
|
324 (setq file (get-text-property beg 'old-name))
|
88003
|
325 ;; In the following form changed `(1+ beg)' to `beg' so that
|
|
326 ;; the filename end is found even when the filename is empty.
|
|
327 ;; Fixes error and spurious newlines when marking files for
|
|
328 ;; deletion.
|
|
329 (setq end (next-single-property-change beg 'end-name))
|
74526
|
330 (setq file (buffer-substring-no-properties (1+ beg) end)))
|
|
331 (and file (setq file (wdired-normalize-filename file))))
|
|
332 (if (or no-dir old)
|
|
333 file
|
|
334 (and file (> (length file) 0)
|
|
335 (concat (dired-current-directory) file))))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
336
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
337
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
338 (defun wdired-change-to-dired-mode ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
339 "Change the mode back to dired."
|
72160
|
340 (or (eq major-mode 'wdired-mode)
|
|
341 (error "Not a Wdired buffer"))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
342 (let ((inhibit-read-only t))
|
74526
|
343 (remove-text-properties
|
|
344 (point-min) (point-max)
|
|
345 '(front-sticky nil rear-nonsticky nil read-only nil keymap nil)))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
346 (use-local-map dired-mode-map)
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
347 (force-mode-line-update)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
348 (setq buffer-read-only t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
349 (setq major-mode 'dired-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
350 (setq mode-name "Dired")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
351 (dired-advertise)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
352 (remove-hook 'kill-buffer-hook 'wdired-check-kill-buffer t)
|
68680
|
353 (set (make-local-variable 'revert-buffer-function) 'dired-revert))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
354
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
355
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
356 (defun wdired-abort-changes ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
357 "Abort changes and return to dired mode."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
358 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
359 (let ((inhibit-read-only t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
360 (erase-buffer)
|
67561
|
361 (insert wdired-old-content)
|
|
362 (goto-char wdired-old-point))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
363 (wdired-change-to-dired-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
364 (set-buffer-modified-p nil)
|
55371
|
365 (setq buffer-undo-list nil)
|
|
366 (message "Changes aborted"))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
367
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
368 (defun wdired-finish-edit ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
369 "Actually rename files based on your editing in the Dired buffer."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
370 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
371 (wdired-change-to-dired-mode)
|
95915
|
372 (let ((changes nil)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
373 (errors 0)
|
100066
|
374 files-deleted
|
|
375 files-renamed
|
|
376 some-file-names-unchanged
|
|
377 file-old file-new tmp-value)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
378 (save-excursion
|
74526
|
379 (when (and wdired-allow-to-redirect-links
|
|
380 (fboundp 'make-symbolic-link))
|
|
381 (setq tmp-value (wdired-do-symlink-changes))
|
|
382 (setq errors (cdr tmp-value))
|
|
383 (setq changes (car tmp-value)))
|
|
384 (when (and wdired-allow-to-change-permissions
|
|
385 (boundp 'wdired-col-perm)) ; could have been changed
|
|
386 (setq tmp-value (wdired-do-perm-changes))
|
|
387 (setq errors (+ errors (cdr tmp-value)))
|
|
388 (setq changes (or changes (car tmp-value))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
389 (goto-char (point-max))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
390 (while (not (bobp))
|
100066
|
391 (setq file-old (wdired-get-filename nil t))
|
|
392 (when file-old
|
95915
|
393 (setq file-new (wdired-get-filename))
|
100066
|
394 (if (equal file-new file-old)
|
|
395 (setq some-file-names-unchanged t)
|
95915
|
396 (setq changes t)
|
|
397 (if (not file-new) ;empty filename!
|
100066
|
398 (push file-old files-deleted)
|
|
399 (push (cons file-old (substitute-in-file-name file-new))
|
|
400 files-renamed))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
401 (forward-line -1)))
|
100066
|
402 (when files-renamed
|
|
403 (setq errors (+ errors (wdired-do-renames files-renamed))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
404 (if changes
|
100066
|
405 (progn
|
|
406 ;; If we are displaying a single file (rather than the
|
|
407 ;; contents of a directory), change dired-directory if that
|
|
408 ;; file was renamed. (This ought to be generalized to
|
|
409 ;; handle the multiple files case, but that's less trivial).
|
|
410 (when (and (stringp dired-directory)
|
|
411 (not (file-directory-p dired-directory))
|
|
412 (null some-file-names-unchanged)
|
|
413 (= (length files-renamed) 1))
|
|
414 (setq dired-directory (cdr (car files-renamed))))
|
|
415 ;; Re-sort the buffer.
|
|
416 (revert-buffer))
|
68680
|
417 (let ((inhibit-read-only t))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
418 (remove-text-properties (point-min) (point-max)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
419 '(old-name nil end-name nil old-link nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
420 end-link nil end-perm nil
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
421 old-perm nil perm-changed nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
422 (message "(No changes to be performed)")))
|
74526
|
423 (when files-deleted
|
|
424 (wdired-flag-for-deletion files-deleted))
|
|
425 (when (> errors 0)
|
|
426 (dired-log-summary (format "%d rename actions failed" errors) nil)))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
427 (set-buffer-modified-p nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
428 (setq buffer-undo-list nil))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
429
|
95915
|
430 (defun wdired-do-renames (renames)
|
|
431 "Perform RENAMES in parallel."
|
|
432 (let ((residue ())
|
|
433 (progress nil)
|
|
434 (errors 0)
|
|
435 (overwrite (or (not wdired-confirm-overwrite) 1)))
|
|
436 (while (or renames
|
|
437 ;; We've done one round through the renames, we have found
|
|
438 ;; some residue, but we also made some progress, so maybe
|
|
439 ;; some of the residue were resolved: try again.
|
|
440 (prog1 (setq renames residue)
|
|
441 (setq progress nil)
|
|
442 (setq residue nil)))
|
|
443 (let* ((rename (pop renames))
|
|
444 (file-new (cdr rename)))
|
|
445 (cond
|
|
446 ((rassoc file-new renames)
|
|
447 (error "Trying to rename 2 files to the same name"))
|
|
448 ((assoc file-new renames)
|
|
449 ;; Renaming to a file name that already exists but will itself be
|
|
450 ;; renamed as well. Let's wait until that one gets renamed.
|
|
451 (push rename residue))
|
|
452 ((and (assoc file-new residue)
|
|
453 ;; Make sure the file really exists: if it doesn't it's
|
|
454 ;; not really a conflict. It might be a temp-file generated
|
|
455 ;; specifically to break a circular renaming.
|
|
456 (file-exists-p file-new))
|
|
457 ;; Renaming to a file name that already exists, needed to be renamed,
|
|
458 ;; but whose renaming could not be performed right away.
|
|
459 (if (or progress renames)
|
|
460 ;; There's still a chance the conflict will be resolved.
|
|
461 (push rename residue)
|
|
462 ;; We have not made any progress and we've reached the end of
|
|
463 ;; the renames, so we really have a circular conflict, and we
|
|
464 ;; have to forcefully break the cycle.
|
|
465 (message "Circular renaming: using temporary file name")
|
|
466 (let ((tmp (make-temp-name file-new)))
|
|
467 (push (cons (car rename) tmp) renames)
|
|
468 (push (cons tmp file-new) residue))))
|
|
469 (t
|
|
470 (setq progress t)
|
|
471 (let ((file-ori (car rename)))
|
|
472 (if wdired-use-interactive-rename
|
|
473 (wdired-search-and-rename file-ori file-new)
|
|
474 ;; If dired-rename-file autoloads dired-aux while
|
|
475 ;; dired-backup-overwrite is locally bound,
|
|
476 ;; dired-backup-overwrite won't be initialized.
|
|
477 ;; So we must ensure dired-aux is loaded.
|
|
478 (require 'dired-aux)
|
|
479 (condition-case err
|
|
480 (let ((dired-backup-overwrite nil))
|
|
481 (dired-rename-file file-ori file-new
|
|
482 overwrite))
|
|
483 (error
|
|
484 (setq errors (1+ errors))
|
|
485 (dired-log (concat "Rename `" file-ori "' to `"
|
|
486 file-new "' failed:\n%s\n")
|
|
487 err)))))))))
|
|
488 errors))
|
|
489
|
|
490
|
82194
|
491 (defun wdired-exit ()
|
|
492 "Exit wdired and return to dired mode.
|
|
493 Just return to dired mode if there are no changes. Otherwise,
|
|
494 ask a yes-or-no question whether to save or cancel changes,
|
|
495 and proceed depending on the answer."
|
|
496 (interactive)
|
|
497 (if (buffer-modified-p)
|
|
498 (if (y-or-n-p (format "Buffer %s modified; save changes? "
|
|
499 (current-buffer)))
|
|
500 (wdired-finish-edit)
|
|
501 (wdired-abort-changes))
|
|
502 (wdired-change-to-dired-mode)
|
|
503 (set-buffer-modified-p nil)
|
|
504 (setq buffer-undo-list nil)
|
|
505 (message "(No changes need to be saved)")))
|
|
506
|
68680
|
507 ;; Rename a file, searching it in a modified dired buffer, in order
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
508 ;; to be able to use `dired-do-create-files-regexp' and get its
|
68680
|
509 ;; "benefits".
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
510 (defun wdired-search-and-rename (filename-ori filename-new)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
511 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
512 (goto-char (point-max))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
513 (forward-line -1)
|
95915
|
514 (let ((done nil)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
515 curr-filename)
|
95915
|
516 (while (and (not done) (not (bobp)))
|
|
517 (setq curr-filename (wdired-get-filename nil t))
|
|
518 (if (equal curr-filename filename-ori)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
519 (progn
|
95957
|
520 (setq done t)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
521 (let ((inhibit-read-only t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
522 (dired-move-to-filename)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
523 (search-forward (wdired-get-filename t) nil t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
524 (replace-match (file-name-nondirectory filename-ori) t t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
525 (dired-do-create-files-regexp
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
526 (function dired-rename-file)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
527 "Move" 1 ".*" filename-new nil t))
|
95915
|
528 (forward-line -1))))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
529
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
530 ;; marks a list of files for deletion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
531 (defun wdired-flag-for-deletion (filenames-ori)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
532 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
533 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
534 (while (not (eobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
535 (if (member (dired-get-filename nil t) filenames-ori)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
536 (dired-flag-file-deletion 1)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
537 (forward-line)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
538
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
539 (defun wdired-customize ()
|
61473
|
540 "Customize WDired options."
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
541 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
542 (customize-apropos "wdired" 'groups))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
543
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
544 (defun wdired-revert (&optional arg noconfirm)
|
61473
|
545 "Discard changes in the buffer and update it based on changes on disk.
|
|
546 Optional arguments are ignored."
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
547 (wdired-change-to-dired-mode)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
548 (revert-buffer)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
549 (wdired-change-to-wdired-mode))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
550
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
551 (defun wdired-check-kill-buffer ()
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
552 ;; FIXME: Can't we use the normal mechanism for that? --Stef
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
553 (if (and
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
554 (buffer-modified-p)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
555 (not (y-or-n-p "Buffer changed. Discard changes and kill buffer? ")))
|
87139
|
556 (error "Error.")))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
557
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
558 (defun wdired-next-line (arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
559 "Move down lines then position at filename or the current column.
|
61473
|
560 See `wdired-use-dired-vertical-movement'. Optional prefix ARG
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
561 says how many lines to move; default is one line."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
562 (interactive "p")
|
85747
|
563 (with-no-warnings (next-line arg))
|
61473
|
564 (if (or (eq wdired-use-dired-vertical-movement t)
|
|
565 (and wdired-use-dired-vertical-movement
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
566 (< (current-column)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
567 (save-excursion (dired-move-to-filename)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
568 (current-column)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
569 (dired-move-to-filename)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
570
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
571 (defun wdired-previous-line (arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
572 "Move up lines then position at filename or the current column.
|
61473
|
573 See `wdired-use-dired-vertical-movement'. Optional prefix ARG
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
574 says how many lines to move; default is one line."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
575 (interactive "p")
|
85747
|
576 (with-no-warnings (previous-line arg))
|
61473
|
577 (if (or (eq wdired-use-dired-vertical-movement t)
|
|
578 (and wdired-use-dired-vertical-movement
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
579 (< (current-column)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
580 (save-excursion (dired-move-to-filename)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
581 (current-column)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
582 (dired-move-to-filename)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
583
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
584 ;; Put the needed properties to allow the user to change links' targets
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
585 (defun wdired-preprocess-symlinks ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
586 (let ((inhibit-read-only t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
587 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
588 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
589 (while (not (eobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
590 (if (looking-at dired-re-sym)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
591 (progn
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
592 (re-search-forward " -> \\(.*\\)$")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
593 (put-text-property (- (match-beginning 1) 2)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
594 (1- (match-beginning 1)) 'old-link
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
595 (match-string-no-properties 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
596 (put-text-property (match-end 1) (1+ (match-end 1)) 'end-link t)
|
74528
6be933449565
(wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
597 (put-text-property (1- (match-beginning 1))
|
6be933449565
(wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
598 (match-beginning 1)
|
6be933449565
(wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
599 'rear-nonsticky '(read-only))
|
6be933449565
(wdired-preprocess-symlinks): Make the spaces after symlink arrows
Chong Yidong <cyd@stupidchicken.com>
diff
changeset
|
600 (put-text-property (match-beginning 1)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
601 (match-end 1) 'read-only nil)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
602 (forward-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
603 (beginning-of-line)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
604
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
605
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
606 (defun wdired-get-previous-link (&optional old move)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
607 "Return the next symlink target.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
608 If OLD, return the old target. If MOVE, move point before it."
|
74526
|
609 (let (beg end target)
|
|
610 (setq beg (previous-single-property-change (point) 'old-link nil))
|
|
611 (if beg
|
|
612 (progn
|
|
613 (if old
|
|
614 (setq target (get-text-property (1- beg) 'old-link))
|
|
615 (setq end (next-single-property-change beg 'end-link))
|
|
616 (setq target (buffer-substring-no-properties (1+ beg) end)))
|
|
617 (if move (goto-char (1- beg)))))
|
|
618 (and target (wdired-normalize-filename target))))
|
|
619
|
86324
|
620 (declare-function make-symbolic-link "fileio.c")
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
621
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
622 ;; Perform the changes in the target of the changed links.
|
68680
|
623 (defun wdired-do-symlink-changes ()
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
624 (let ((changes nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
625 (errors 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
626 link-to-ori link-to-new link-from)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
627 (goto-char (point-max))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
628 (while (setq link-to-new (wdired-get-previous-link))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
629 (setq link-to-ori (wdired-get-previous-link t t))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
630 (setq link-from (wdired-get-filename nil t))
|
68680
|
631 (unless (equal link-to-new link-to-ori)
|
|
632 (setq changes t)
|
|
633 (if (equal link-to-new "") ;empty filename!
|
|
634 (setq link-to-new "/dev/null"))
|
|
635 (condition-case err
|
|
636 (progn
|
|
637 (delete-file link-from)
|
|
638 (make-symbolic-link
|
|
639 (substitute-in-file-name link-to-new) link-from))
|
|
640 (error
|
|
641 (setq errors (1+ errors))
|
|
642 (dired-log (concat "Link `" link-from "' to `"
|
|
643 link-to-new "' failed:\n%s\n")
|
|
644 err)))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
645 (cons changes errors)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
646
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
647 ;; Perform a "case command" skipping read-only words.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
648 (defun wdired-xcase-word (command arg)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
649 (if (< arg 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
650 (funcall command arg)
|
68680
|
651 (while (> arg 0)
|
|
652 (condition-case err
|
|
653 (progn
|
|
654 (funcall command 1)
|
|
655 (setq arg (1- arg)))
|
|
656 (error
|
75159
|
657 (if (forward-word)
|
|
658 ;; Skip any non-word characters to avoid triggering a read-only
|
|
659 ;; error which would cause skipping the next word characters too.
|
|
660 (skip-syntax-forward "^w")
|
|
661 (setq arg 0)))))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
662
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
663 (defun wdired-downcase-word (arg)
|
61473
|
664 "WDired version of `downcase-word'.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
665 Like original function but it skips read-only words."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
666 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
667 (wdired-xcase-word 'downcase-word arg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
668
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
669 (defun wdired-upcase-word (arg)
|
61473
|
670 "WDired version of `upcase-word'.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
671 Like original function but it skips read-only words."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
672 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
673 (wdired-xcase-word 'upcase-word arg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
674
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
675 (defun wdired-capitalize-word (arg)
|
61473
|
676 "WDired version of `capitalize-word'.
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
677 Like original function but it skips read-only words."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
678 (interactive "p")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
679 (wdired-xcase-word 'capitalize-word arg))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
680
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
681
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
682 ;; The following code deals with changing the access bits (or
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
683 ;; permissions) of the files.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
684
|
68680
|
685 (defvar wdired-perm-mode-map
|
|
686 (let ((map (make-sparse-keymap)))
|
|
687 (define-key map " " 'wdired-toggle-bit)
|
|
688 (define-key map "r" 'wdired-set-bit)
|
|
689 (define-key map "w" 'wdired-set-bit)
|
|
690 (define-key map "x" 'wdired-set-bit)
|
|
691 (define-key map "-" 'wdired-set-bit)
|
|
692 (define-key map "S" 'wdired-set-bit)
|
|
693 (define-key map "s" 'wdired-set-bit)
|
|
694 (define-key map "T" 'wdired-set-bit)
|
|
695 (define-key map "t" 'wdired-set-bit)
|
|
696 (define-key map "s" 'wdired-set-bit)
|
|
697 (define-key map "l" 'wdired-set-bit)
|
|
698 (define-key map [down-mouse-1] 'wdired-mouse-toggle-bit)
|
|
699 map))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
700
|
74526
|
701 ;; Put a keymap property to the permission bits of the files, and store the
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
702 ;; original name and permissions as a property
|
68680
|
703 (defun wdired-preprocess-perms ()
|
74526
|
704 (let ((inhibit-read-only t))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
705 (set (make-local-variable 'wdired-col-perm) nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
706 (save-excursion
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
707 (goto-char (point-min))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
708 (while (not (eobp))
|
74526
|
709 (when (and (not (looking-at dired-re-sym))
|
|
710 (wdired-get-filename)
|
|
711 (re-search-forward dired-re-perms (line-end-position) 'eol))
|
|
712 (let ((begin (match-beginning 0))
|
|
713 (end (match-end 0)))
|
|
714 (unless wdired-col-perm
|
|
715 (setq wdired-col-perm (- (current-column) 9)))
|
|
716 (if (eq wdired-allow-to-change-permissions 'advanced)
|
|
717 (progn
|
|
718 (put-text-property begin end 'read-only nil)
|
|
719 ;; make first permission bit writable
|
|
720 (put-text-property
|
|
721 (1- begin) begin 'rear-nonsticky '(read-only)))
|
|
722 ;; avoid that keymap applies to text following permissions
|
|
723 (add-text-properties
|
|
724 (1+ begin) end
|
|
725 `(keymap ,wdired-perm-mode-map rear-nonsticky (keymap))))
|
|
726 (put-text-property end (1+ end) 'end-perm t)
|
|
727 (put-text-property
|
|
728 begin (1+ begin) 'old-perm (match-string-no-properties 0))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
729 (forward-line)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
730 (beginning-of-line)))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
731
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
732 (defun wdired-perm-allowed-in-pos (char pos)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
733 (cond
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
734 ((= char ?-) t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
735 ((= char ?r) (= (% pos 3) 0))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
736 ((= char ?w) (= (% pos 3) 1))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
737 ((= char ?x) (= (% pos 3) 2))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
738 ((memq char '(?s ?S)) (memq pos '(2 5)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
739 ((memq char '(?t ?T)) (= pos 8))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
740 ((= char ?l) (= pos 5))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
741
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
742 (defun wdired-set-bit ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
743 "Set a permission bit character."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
744 (interactive)
|
101010
|
745 (if (wdired-perm-allowed-in-pos last-command-event
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
746 (- (current-column) wdired-col-perm))
|
101010
|
747 (let ((new-bit (char-to-string last-command-event))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
748 (inhibit-read-only t)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
749 (pos-prop (- (point) (- (current-column) wdired-col-perm))))
|
68680
|
750 (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
751 (put-text-property 0 1 'read-only t new-bit)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
752 (insert new-bit)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
753 (delete-char 1)
|
74526
|
754 (put-text-property (1- pos-prop) pos-prop 'perm-changed t)
|
|
755 (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap)))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
756 (forward-char 1)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
757
|
68680
|
758 (defun wdired-toggle-bit ()
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
759 "Toggle the permission bit at point."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
760 (interactive)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
761 (let ((inhibit-read-only t)
|
74526
|
762 (new-bit "-")
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
763 (pos-prop (- (point) (- (current-column) wdired-col-perm))))
|
74526
|
764 (if (eq (char-after (point)) ?-)
|
81639
|
765 (setq new-bit
|
74526
|
766 (if (= (% (- (current-column) wdired-col-perm) 3) 0) "r"
|
|
767 (if (= (% (- (current-column) wdired-col-perm) 3) 1) "w"
|
|
768 "x"))))
|
68680
|
769 (put-text-property 0 1 'keymap wdired-perm-mode-map new-bit)
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
770 (put-text-property 0 1 'read-only t new-bit)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
771 (insert new-bit)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
772 (delete-char 1)
|
74526
|
773 (put-text-property (1- pos-prop) pos-prop 'perm-changed t)
|
|
774 (put-text-property (1- (point)) (point) 'rear-nonsticky '(keymap))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
775
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
776 (defun wdired-mouse-toggle-bit (event)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
777 "Toggle the permission bit that was left clicked."
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
778 (interactive "e")
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
779 (mouse-set-point event)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
780 (wdired-toggle-bit))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
781
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
782 ;; Allowed chars for 4000 bit are Ss in position 3
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
783 ;; Allowed chars for 2000 bit are Ssl in position 6
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
784 ;; Allowed chars for 1000 bit are Tt in position 9
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
785 (defun wdired-perms-to-number (perms)
|
74526
|
786 (let ((nperm 0777))
|
|
787 (if (= (elt perms 1) ?-) (setq nperm (- nperm 400)))
|
|
788 (if (= (elt perms 2) ?-) (setq nperm (- nperm 200)))
|
|
789 (let ((p-bit (elt perms 3)))
|
|
790 (if (memq p-bit '(?- ?S)) (setq nperm (- nperm 100)))
|
|
791 (if (memq p-bit '(?s ?S)) (setq nperm (+ nperm 4000))))
|
|
792 (if (= (elt perms 4) ?-) (setq nperm (- nperm 40)))
|
|
793 (if (= (elt perms 5) ?-) (setq nperm (- nperm 20)))
|
|
794 (let ((p-bit (elt perms 6)))
|
|
795 (if (memq p-bit '(?- ?S ?l)) (setq nperm (- nperm 10)))
|
|
796 (if (memq p-bit '(?s ?S ?l)) (setq nperm (+ nperm 2000))))
|
|
797 (if (= (elt perms 7) ?-) (setq nperm (- nperm 4)))
|
|
798 (if (= (elt perms 8) ?-) (setq nperm (- nperm 2)))
|
|
799 (let ((p-bit (elt perms 9)))
|
|
800 (if (memq p-bit '(?- ?T)) (setq nperm (- nperm 1)))
|
|
801 (if (memq p-bit '(?t ?T)) (setq nperm (+ nperm 1000))))
|
|
802 nperm))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
803
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
804 ;; Perform the changes in the permissions of the files that have
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
805 ;; changed.
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
806 (defun wdired-do-perm-changes ()
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
807 (let ((changes nil)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
808 (errors 0)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
809 (prop-wanted (if (eq wdired-allow-to-change-permissions 'advanced)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
810 'old-perm 'perm-changed))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
811 filename perms-ori perms-new perm-tmp)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
812 (goto-char (next-single-property-change (point-min) prop-wanted
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
813 nil (point-max)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
814 (while (not (eobp))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
815 (setq perms-ori (get-text-property (point) 'old-perm))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
816 (setq perms-new (buffer-substring-no-properties
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
817 (point) (next-single-property-change (point) 'end-perm)))
|
68680
|
818 (unless (equal perms-ori perms-new)
|
|
819 (setq changes t)
|
|
820 (setq filename (wdired-get-filename nil t))
|
|
821 (if (= (length perms-new) 10)
|
|
822 (progn
|
|
823 (setq perm-tmp
|
|
824 (int-to-string (wdired-perms-to-number perms-new)))
|
81639
|
825 (unless (equal 0 (process-file dired-chmod-program
|
|
826 nil nil nil perm-tmp filename))
|
68680
|
827 (setq errors (1+ errors))
|
|
828 (dired-log (concat dired-chmod-program " " perm-tmp
|
|
829 " `" filename "' failed\n\n"))))
|
|
830 (setq errors (1+ errors))
|
|
831 (dired-log (concat "Cannot parse permission `" perms-new
|
|
832 "' for file `" filename "'\n\n"))))
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
833 (goto-char (next-single-property-change (1+ (point)) prop-wanted
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
834 nil (point-max))))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
835 (cons changes errors)))
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
836
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
837 (provide 'wdired)
|
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
838
|
68680
|
839 ;; Local Variables:
|
|
840 ;; coding: latin-1
|
|
841 ;; byte-compile-dynamic: t
|
|
842 ;; End:
|
|
843
|
55109
043dd9a4d1b4
(wdired-mode-map): Move init into declaration. Fix `return' binding.
Stefan Monnier <monnier@iro.umontreal.ca>
diff
changeset
|
844 ;; arch-tag: bc00902e-526f-4305-bc7f-8862a559184f
|
55098
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
diff
changeset
|
845 ;;; wdired.el ends here
|