Dired: Duplicate Files (операция, а не как избавиться от них)

Question

Иногда я хочу создать дубликат нескольких файлов (скажем, файлов конфигурации), которые изначально должны иметь тот же контент, что и исходные файлы , Поэтому я хотел бы отметить некоторые файлы в дурацких и «дублированных», эта процедура дублирования может работать аналогично процедуре дублирования, используемой большинством файловых менеджеров, при вставке в исходный каталог: имена файлов дублированного get " (Копирование) "(непосредственно перед расширением файла).

Я не могу найти встроенную функцию, которая выполняет это, может быть, кто-то может помочь/уже создал такую ​​функцию?

Помощь очень ценится!

Answer 1

Может быть, вы хотите переименовать функции (я не придумал лучше имена), может быть, некоторые более сложное форматирование, если вы хотите ...

(defcustom dired-keep-marker-version ?V 
    "Controls marking of versioned files. 
If t, versioned files are marked if and as the corresponding original files were. 
If a character, copied files are unconditionally marked with that character." 
    :type '(choice (const :tag "Keep" t) 
     (character :tag "Mark")) 
    :group 'dired-mark) 

(defun dired-version-file (from to ok-flag) 
    (dired-handle-overwrite to) 
    (dired-copy-file-recursive from to ok-flag dired-copy-preserve-time t 
       dired-recursive-copies)) 

(defun dired-do-version (&optional arg) 
    "Search for numeric pattern in file name and create a version of that file 
with that number incremented by one, or, in case such file already exists, 
will search for a file with the similar name, incrementing the counter each 
time by one. 
Additionally, if called with prefix argument, will prompt for number format. 
The formatting is the same as is used with `format' function." 
    (interactive "P") 
    (let ((fn-list (dired-get-marked-files nil nil))) 
    (dired-create-files 
    (function dired-version-file) "Version" fn-list 
    (function 
     (lambda (from) 
     (let (new-name (i 0) (fmt (if arg (read-string "Version format: " "%d") "%d"))) 
      (while (or (null new-name) (file-exists-p new-name)) 
      (setq new-name 
        (if (string-match "^\\([^0-9]*\\)\\([0-9]+\\)\\(.*\\)$" from) 
         (concat (match-string 1 from) 
           (format fmt 
             (+ (string-to-number (match-string 2 from)) (1+ i))) 
           (match-string 3 from)) 
        (concat from (format (concat "." fmt) i))) 
        i (1+ i))) new-name))) 
    dired-keep-marker-version))) 

(define-key dired-mode-map (kbd "c") 'dired-do-version) 

Кроме того, я первоначально использовал v, чтобы связать эту функцию, потому что я не использую dired-view, но вам нужно будет связать ее внутри dired s hook. c только что был первым неопределенным ключом, поэтому я использовал его.

Answer 2

Существует одна функция, которая делает то, что вы хотите: dired-do-copy-regexp

Пример использования:

1. пометить файлы
2. M-x dired-do-copy-regexp
3. \(.*\)\.\(.*\)
4. \1 (copy).\2

Для файла с именем foo.txt вы создадите другое имя foo (copy) .txt

Обратите внимание, что мое первое регулярное выражение имеет две группы, а второе регулярное выражение ссылается на них. При необходимости вы можете делать гораздо более сложные вещи.