From c13334d651b13d8b047cb3dc35ad3e1ef239013f Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Thu, 22 Oct 2009 05:30:58 +0200 Subject: added snippets for loading with module from dotfiles --- .../text-mode/emacs-lisp-mode/dired.process_marked | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 emacs.d/snippets/text-mode/emacs-lisp-mode/dired.process_marked (limited to 'emacs.d/snippets/text-mode/emacs-lisp-mode/dired.process_marked') diff --git a/emacs.d/snippets/text-mode/emacs-lisp-mode/dired.process_marked b/emacs.d/snippets/text-mode/emacs-lisp-mode/dired.process_marked new file mode 100644 index 0000000..1b42597 --- /dev/null +++ b/emacs.d/snippets/text-mode/emacs-lisp-mode/dired.process_marked @@ -0,0 +1,16 @@ +#name : process marked files in dired +#contributor : Xah Lee +# -- +;; 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 -- cgit v1.2.3