Use dired and macros to process multiple files

 

http://www.ftrain.com/util_emacs_hints.html

 

  1. M-x dired navigate to directory
  2. navigate cursor to first file
  3. C-x ( - enter macro definition
  4. RET - open file (we’re in dired mode)
  5. <all processing here>
  6. C-x C-s - save
  7. C-x k - close
  8. [Cursor down] - down to next file
  9. C-x )@ - exit macro definition
    
    [@C-x u <n> C-x e
    - execute last-defined-macro <n> times

 

dolist

http://tinyurl.com/42nosh

 

See Introduction to Programming in Emacs Lisp - 11.2

 

Serial Rename

EmacsWiki:SerialRename

 

This little code provide a way to rename file sequentially and safely.

 

To sort the files correctly, you have to set start to 101 if you have a set of files bigger than 100.

 

This code is part of Lisp:Thumb-page.el

 

;;rename all files of rep matching ext sequentially

(defun tv-serial-rename (dir ext name start)
  "Rename sequentially a set of file with the extension ext
in a repertory dir with the name name + the startnumber start"

  (interactive "fDir: \nsExt(no dot): \nsName: \nnStart: ")
  (find-file dir)
  (let (ls-dir
        new-ls-dir
        n
        c)
  (setq ls-dir (file-expand-wildcards (format "*.%s" ext) t))
  (setq new-ls-dir nil)
  (setq n 0)
  (while (< n (length ls-dir))
    (if (< start 10)
        (push (concat dir name (format "%03d" start) "." ext) new-ls-dir)
      (push (concat dir name (format "%03d" start) "." ext) new-ls-dir))
    (setq start (+ start 1))
    (setq n (+ n 1)))
  (setq ls-dir (reverse ls-dir))
  (setq c 0)
  (dolist (i ls-dir)
    (rename-file i (nth c new-ls-dir))
    (setq c (+ c 1)))))

 

NOTE: original code has been updated to force three-digit numberig; eg 001..099+

 

When you get done running it, you’ll be left in a dired buffer with the OLD filenames.

See Also

Dired?

 

Tags

Emacs Macro Dired


 

Comments

Comment Page  

  titan-gel-vietnam.pro   - 10.06.2017 - 04:09    
titan gel where to buy

How does titan gel vietnam ferment?
Titan gel review
The $ttnglvn767 unparalleled message delivered
the likely event eve if obtained with archaic methods or ill-used on an irregular basis.

 

Thanks to the Bodoni methods of qualification the extract and its compounding with many innate active substances, the creators of “Titan gel” managed to attain an telling outcome! https://titan-gel-vietnam.pro/(approve sites)

 

 

Add Comment

Heading:
 Your Message
 
 Enter value ← Have you entered the code number?
Author: