|
0
|
1 ;;;; dired-num.el - Renaming with numbers in Tree Dired.
|
|
|
2
|
|
|
3 (defconst dired-num-version (substring "!Revision: 1.2 !" 11 -2)
|
|
|
4 "Id: dired-num.el,v 1.2 1991/10/15 13:24:10 sk RelBeta ")
|
|
|
5
|
|
|
6 ;; Copyright (C) 1991 by Sebastian Kremer <sk@thp.uni-koeln.de>
|
|
|
7
|
|
|
8 ;; This program is free software; you can redistribute it and/or modify
|
|
|
9 ;; it under the terms of the GNU General Public License as published by
|
|
|
10 ;; the Free Software Foundation; either version 1, or (at your option)
|
|
|
11 ;; any later version.
|
|
|
12 ;;
|
|
|
13 ;; This program is distributed in the hope that it will be useful,
|
|
|
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
16 ;; GNU General Public License for more details.
|
|
|
17 ;;
|
|
|
18 ;; You should have received a copy of the GNU General Public License
|
|
|
19 ;; along with this program; if not, write to the Free Software
|
|
|
20 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
21
|
|
|
22 ;; LISPDIR ENTRY for the Elisp Archive ===============================
|
|
|
23 ;; LCD Archive Entry:
|
|
|
24 ;; dired-num|Sebastian Kremer|sk@thp.uni-koeln.de
|
|
|
25 ;; |Renaming with numbers in Tree Dired.
|
|
|
26 ;; |Date: 1991/10/15 13:24:10 |Revision: 1.2 |
|
|
|
27
|
|
|
28 ;; INSTALLATION ======================================================
|
|
|
29 ;;
|
|
|
30 ;; Put this file into your load-path and the following in your ~/.emacs:
|
|
|
31 ;;
|
|
|
32 ;; (autoload 'dired-do-rename-numeric "dired-num")
|
|
|
33 ;; (autoload 'dired-do-rename-list "dired-num")
|
|
|
34 ;;
|
|
|
35 ;; Do
|
|
|
36 ;;
|
|
|
37 ;; (define-key dired-mode-map "%#" 'dired-do-rename-numeric)
|
|
|
38 ;; (define-key dired-mode-map "%(" 'dired-do-rename-list)
|
|
|
39 ;;
|
|
|
40 ;; inside your dired-load-hook.
|
|
|
41
|
|
|
42 (require 'dired);; we need its macros when being compiled
|
|
|
43
|
|
|
44 (defun dired-number-of-marked-files (&optional arg)
|
|
|
45 ;; Return the number of marked files in a dired buffer.
|
|
|
46 ;; Optional ARG as in dired-mark-map.
|
|
|
47 (length
|
|
|
48 (save-excursion
|
|
|
49 ;; this returns a list of ``results'' (i.e. nil's):
|
|
|
50 (dired-mark-map nil arg))))
|
|
|
51
|
|
|
52 (defun dired-do-create-files-numeric (file-creator operation arg format start
|
|
|
53 &optional arg)
|
|
|
54 ;; Create a new file for each marked file using numbers.
|
|
|
55 ;; FILE-CREATOR and OPERATION as in dired-create-files.
|
|
|
56 ;; ARG as in dired-mark-get-files.
|
|
|
57 ;; FORMAT is a format string for use with an integer, assuming
|
|
|
58 ;; values starting from START, incremented for each marked file.
|
|
|
59 (let ((i (1- start)));; signals an error if START is not a number
|
|
|
60 (dired-create-files-non-directory
|
|
|
61 file-creator
|
|
|
62 (function (lambda (x)
|
|
|
63 (format format (setq i (1+ i)))))
|
|
|
64 operation arg)))
|
|
|
65
|
|
|
66 ;;;###autoload
|
|
|
67 (defun dired-do-rename-numeric (format start &optional arg)
|
|
|
68 "Rename all marked (or next ARG) files using numbers.
|
|
|
69 You are prompted for a format string, e.g \"part_%d_of_8\", and a starting
|
|
|
70 number, e.g. 1. If there are 8 marked files, this example will rename them to
|
|
|
71
|
|
|
72 part_1_of_8
|
|
|
73 part_2_of_8
|
|
|
74 ...
|
|
|
75 part_8_of_8"
|
|
|
76 (interactive
|
|
|
77 (list
|
|
|
78 (read-string
|
|
|
79 (format "Rename numeric [%d files] (format string using %%d): "
|
|
|
80 (dired-number-of-marked-files current-prefix-arg)))
|
|
|
81 (read-minibuffer "Numbers start at: " "1")
|
|
|
82 current-prefix-arg))
|
|
|
83 (dired-do-create-files-numeric
|
|
|
84 (function dired-rename-file)
|
|
|
85 "Rename-numeric" arg format start))
|
|
|
86
|
|
|
87 ;; Copy etc. would be similar to implement.
|
|
|
88
|
|
|
89
|
|
|
90 (defun dired-do-create-files-list (file-creator operation arg format list
|
|
|
91 &optional arg)
|
|
|
92 ;; Create a new file for each marked file by subsituting elements
|
|
|
93 ;; from LIST in the format string FORMAT.
|
|
|
94 ;; FILE-CREATOR and OPERATION as in dired-create-files.
|
|
|
95 ;; ARG as in dired-mark-get-files.
|
|
|
96 (let ((rest list))
|
|
|
97 (dired-create-files-non-directory
|
|
|
98 file-creator
|
|
|
99 (function (lambda (x)
|
|
|
100 (format format (prog1
|
|
|
101 (car rest)
|
|
|
102 (setq rest (cdr rest))))))
|
|
|
103 operation arg)))
|
|
|
104
|
|
|
105 ;;;###autoload
|
|
|
106 (defun dired-do-rename-list (format list &optional arg)
|
|
|
107 "Rename all marked (or next ARG) files using elements from LIST.
|
|
|
108 You are prompted for a format string, e.g \"x_%s\", and the list,
|
|
|
109 e.g. '(foo bar zod). This example will rename the marked files to
|
|
|
110
|
|
|
111 x_foo
|
|
|
112 x_bar
|
|
|
113 x_zod
|
|
|
114
|
|
|
115 It is an error if LIST has not as many elements as there are files."
|
|
|
116 (interactive "sRename list (format using %%s): \nxList: \nP")
|
|
|
117 (or (= (dired-number-of-marked-files arg)
|
|
|
118 (length list))
|
|
|
119 (error "Must have as many elements as there are files to rename"))
|
|
|
120 (dired-do-create-files-list
|
|
|
121 (function dired-rename-file)
|
|
|
122 "Rename-list" arg format list))
|
|
|
123
|
