Re: Recursive Completition

[Karoly Negyesi <karoly@xxxxxxxxxxx>]

Sorry for not getting back to you sooner on this but I wanted to say a
big thanks because it works!

On Tue, Aug 21, 2012 at 11:27 AM, Peter Stephenson
<p.w.stephenson@xxxxxxxxxxxx> wrote:
> Here's a second version with documentation.
>
> 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 21 Aug 2012 18:24:15 -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 rfiles rfile
>
>  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,21 @@ 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 -a ":completion:${curcontext}:$tag" recursive-files rfiles; then
> +           for rfile in $rfiles; do
> +             if [[ $PWD/ = ${~rfile} ]]; then
> +               for prepath in **/*(/); do
> +                 oprefix=$PREFIX
> +                 PREFIX=$prepath/$PREFIX
> +                 _path_files -g "$pat" "$opts[@]" "$expl[@]" && ret=0
> +                 PREFIX=$oprefix
> +               done
> +               break
> +             fi
> +           done
> +         fi
>          else
>            _path_files "$expl[@]" -g "$pat" "$opts[@]" && ret=0
>          fi
> Index: Doc/Zsh/compsys.yo
> ===================================================================
> RCS file: /cvsroot/zsh/zsh/Doc/Zsh/compsys.yo,v
> retrieving revision 1.247
> diff -p -u -r1.247 compsys.yo
> --- Doc/Zsh/compsys.yo  14 Feb 2012 17:01:17 -0000      1.247
> +++ Doc/Zsh/compsys.yo  21 Aug 2012 18:24:15 -0000
> @@ -2355,6 +2355,28 @@ found, or var(max) words have been tried
>
>  The default is to complete all words from the history at once.
>  )
> +kindex(recursive-files, completion style)
> +item(tt(recursive-files))(
> +If this style is set, its value is an array of patterns to be
> +tested against `tt($PWD/)': note the trailing slash, which allows
> +directories in the pattern to be delimited unambiguously by including
> +slashes on both sides.  If an ordinary file completion fails
> +and the word on the command line does not yet have a directory part to its
> +name, the style is retrieved using the same tag as for the completion
> +just attempted, then the elements tested against tt($PWD/) in turn.
> +If one matches, then the shell reattempts completion by prepending the word
> +on the command line with each directory in the expansion of tt(**/*(/))
> +in turn.  Typically the elements of the style will be set to restrict
> +the number of directories beneath the current one to a manageable
> +number, for example `tt(*/.git/*)'.
> +
> +For example,
> +
> +example(zstyle ':completion:*' recursive-files '*/zsh/*')
> +
> +If the current directory is tt(/home/pws/zsh/Src), then
> +tt(zle_tr)em(TAB) can be completed to tt(Zle/zle_tricky.c).
> +)
>  kindex(regular, completion style)
>  item(tt(regular))(
>  This style is used by the tt(_expand_alias) completer and bindable
>
> --
> Peter Stephenson <p.w.stephenson@xxxxxxxxxxxx>
> Web page now at http://homepage.ntlworld.com/p.w.stephenson/