17 lines
No EOL
482 B
Text
Executable file
17 lines
No EOL
482 B
Text
Executable file
# contributor: Xah Lee (XahLee.org)
|
|
# name: process marked files in dired
|
|
# key: x-dired
|
|
# --
|
|
;; idiom for processing a list of files in dired's marked files
|
|
|
|
;; suppose myProcessFile is your function that takes a file path
|
|
;; and do some processing on the file
|
|
|
|
(defun dired-myProcessFile ()
|
|
"apply myProcessFile function to marked files in dired."
|
|
(interactive)
|
|
(require 'dired)
|
|
(mapc 'myProcessFile (dired-get-marked-files))
|
|
)
|
|
|
|
;; to use it, type M-x dired-myProcessFile |