code.delx.au - gnu-emacs-elpa/blob - packages/yasnippet/snippets/emacs-lisp-mode/x-traverse_dir.yasnippet

   1 # name: traversing a directory
   2 # contributor: Xah Lee (XahLee.org)
   3 # key: x-traverse_dir
   4 # --
   5 ;; apply a function to all files in a dir
   6 (require 'find-lisp)
   7 (mapc 'my-process-file (find-lisp-find-files "~/myweb/" "\\.html$"))