Re: Recursive Completition

[Peter Stephenson <p.w.stephenson@xxxxxxxxxxxx>]

On Sat, 18 Aug 2012 17:18:26 -0700
Bart Schaefer <schaefer@xxxxxxxxxxxxxxxx> wrote:
> } Perfect would be just
> } 
> } ls Kern[tab]
> } 
> } to do that. I am aware of the performance implications -- could this
> } be restricted to the user's home dir only so it doesnt try to read the
> } whole OS when in the root.
> 
> This one would require that you create a new widget or a new completion
> function to insert the implicit leading **/ in the right contexts.  It's
> certainly do-able, but I'm going to leave it as an exercise for someone
> else, this time.

Bizarrely, I think I've got this to work as part of normal file
completion, ish.  No, honestly.  Set the recursive-files style to true
and see if this does the right thing.  No documentation yet.  It only
works if there's no "/" in the word on the command line at the point
completion is tried.

I can't be sure this is the best place to put it in the file completion
calling sequence, but that statement is so obvious as hardly to be worth
mentioning...

I wonder if there's some limit we can apply to stop this going haywire?

Index: Completion/Unix/Type/_files
===================================================================
RCS file: /cvsroot/zsh/zsh/Completion/Unix/Type/_files,v
retrieving revision 1.13
diff -p -u -r1.13 _files
--- Completion/Unix/Type/_files	19 Mar 2010 16:38:26 -0000	1.13
+++ Completion/Unix/Type/_files	19 Aug 2012 19:40:55 -0000
@@ -1,7 +1,7 @@
 #compdef -redirect-,-default-,-default-
 
 local opts tmp glob pat pats expl tag i def descr end ign ret=1 match tried
-local type sdef ignvars ignvar
+local type sdef ignvars ignvar prepath oprefix
 
 zparseopts -a opts \
     '/=tmp' 'f=tmp' 'g+:-=tmp' q n 1 2 P: S: r: R: W: X+: M+: F: J+: V+:
@@ -118,7 +118,16 @@ for def in "$pats[@]"; do
       while _next_label "$tag" expl "$descr"; do
         _comp_ignore=( $_comp_ignore $ign )
         if [[ -n "$end" ]]; then
-          _path_files -g "$pat" "$opts[@]" "$expl[@]" && ret=0
+          if _path_files -g "$pat" "$opts[@]" "$expl[@]"; then
+	    ret=0
+	  elif [[ $PREFIX$SUFFIX != */* ]] && zstyle -t ":completion:${curcontext}:" recursive-files; then
+	    for prepath in **/*(/); do
+	      oprefix=$PREFIX
+	      PREFIX=$prepath/$PREFIX
+	      _path_files -g "$pat" "$opts[@]" "$expl[@]" && ret=0
+	      PREFIX=$oprefix
+	    done
+	  fi
         else
           _path_files "$expl[@]" -g "$pat" "$opts[@]" && ret=0
         fi

-- 
Peter Stephenson <p.w.stephenson@xxxxxxxxxxxx>
Web page now at http://homepage.ntlworld.com/p.w.stephenson/