find.el --- Build a valid find(1) command with sexps

[Phil Jackson]

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