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