Phil Jackson <[EMAIL PROTECTED]> writes: > 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' \\) \\)"
Neat! One minor quibble: the name `find' is already taken by cl-seq.el, where it has a different meaning. Maybe this new function could be called `make-find-cmd' or something similar. -- | Michael Olson | FSF Associate Member #652 | | http://mwolson.org/ | Hobbies: Lisp, HCoop | | Projects: Emacs, Muse, ERC, EMMS, ErBot, DVC, Planner | `-------------------------------------------------------'
pgpJICz01ZVha.pgp
Description: PGP signature
_______________________________________________ gnu-emacs-sources mailing list [email protected] http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
