Hi all, I don't think I've ever written out a (semi-complex) find(1) command that has worked first time. I've written this module so that now I can screw it up in sexp notation too.
As the commentary states:
(find (prune (name ".svn" ".git" ".CVS"))
(and (or (name "*.pl" "*.pm" "*.t")
(mtime "+1"))
(fstype "nfs" "ufs")))
will become (un-wrapped):
"find '/home/phil/' \\( \\( -name '.svn' -or -name '.git' -or
-name '.CVS' \\) -prune -or -true \\) \\( \\( \\( -name '*.pl'
-or -name '*.pm' -or -name '*.t' \\) -or -mtime '+1' \\) -and \\(
-fstype 'nfs' -or -fstype 'ufs' \\) \\)"
I'm /still/ learning elisp so commentary (critical or not) is welcomed.
find.el
Description: application/emacs-lisp
Cheers, Philip Jackson
_______________________________________________ gnu-emacs-sources mailing list [email protected] http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
