[EMAIL PROTECTED] writes: Hi Bill,
> (setq anything-transform-files-excludes (list "/Applications/cache/" > "/.backups" > "/.svn" > "/CVS" > "/.DS_Store" > "/.cvsignore")) > > (defun anything-transform-files (files) > "Transform file candidates." > > (if anything-transform-files-excludes > (setq files (let ((filtered-files nil)) > (loop for file in files > do (if (loop for regexp in > anything-transform-files-excludes > do (if (string-match regexp file) > (return nil)) > finally (return file)) > (setq filtered-files (append (list file) > filtered-files))) > finally (return filtered-files))))) > > (let ((boring-file-regexp > (concat "\\(?:" (regexp-opt completion-ignored-extensions) "\ > \)\\'"))) > (mapcar (lambda (file) > ;; Add shadow face property to boring files. > (let ((face (if (facep 'file-name-shadow) > 'file-name-shadow > ;; fall back to default on XEmacs > 'default))) > (if (string-match boring-file-regexp file) > (setq file (propertize file 'face face)))) > > ;; replace path of HOME directory in paths with the > string > ;; <home> > (let ((home (replace-regexp-in-string "\\\\" "/" ; > stupid Windows... > (getenv "HOME")))) > (if (string-match home file) > (cons (replace-match "<home>" nil nil file) file) > file))) > files))) Hey, that's nice. I'll integrate it in anything-config.el, but I'll modify it a bit to have the same interface as the action transformers. Bye, Tassilo -- The movie "Delta Force" was extremely hard to make because Chuck had to downplay his abilities. The first few cuts were completely unbelievable. _______________________________________________ gnu-emacs-sources mailing list gnu-emacs-sources@gnu.org http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources