Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun dired-rename-sequential ()
- "Rename range of files in dired given format template."
- (interactive)
- (let (newname pattern fname (num 0))
- (setq pattern (read-from-minibuffer "Rename pattern: "))
- (if (not (string-match "%[0-9]*d" pattern)) (error "No counter! '%s'" pattern))
- (save-excursion
- (dolist (fname (dired-get-marked-files))
- (while (file-exists-p (setq newname (concat (file-name-directory fname) (format pattern (setq num (1+ num))))))
- (message "Rename '%s' to '%s'..." fname newname))
- (rename-file fname newname)))
- (revert-buffer)
- (jay/recenter)))
- (define-key dired-mode-map (kbd "C-c r") 'dired-rename-sequential)
Add Comment
Please, Sign In to add comment