1
0
Fork 0
mirror of git://git.code.sf.net/p/zsh/code synced 2025-09-02 10:01:11 +02:00

19790: complete functions after -a and allow multiple -z/-k options

This commit is contained in:
Oliver Kiddle 2004-04-17 21:07:16 +00:00
parent 9b32c65e49
commit 53b0a922a2
2 changed files with 22 additions and 14 deletions

View file

@ -1,3 +1,8 @@
2004-04-17 Oliver Kiddle <opk@zsh.org>
* 19790: Completion/Zsh/Command/_zcompile: complete functions
after -a and allow multiple -z/-k options
2004-04-17 Doug Kearns <djkea2@mugca.its.monash.edu.au>
* 19775: Completion/Unix/Command/_php: new completion for php

View file

@ -3,23 +3,26 @@
local state line expl curcontext="$curcontext" ret=1
typeset -A opt_args
_arguments -C -s -A "-*" -S \
'(-t -c -m -a)-U[don'\''t expand aliases]' \
'(-t -M)-R[mark as read]' \
'(-t -R)-M[mark as mapped]' \
'(-t -c -z -m -a)-k[ksh-style autoloading]' \
'(-t -c -k -m -a)-z[zsh-style autoloading]' \
'(-t -U -z -k)-c[currently defined functions]' \
'(-t -U -z -k)-m[use names as patterns]' \
'(-t -U -z -k)-a[write autoload functions]' \
'(-M -R -U -z -k -a -c -m)-t[show table of contents]' \
':zwc file:_files' \
'*:function:->function' && ret=0
_arguments -C -s \
"(-t -c -m -a)-U[don't expand aliases]" \
'(-t -M)-R[mark as read]' \
'(-t -R)-M[mark as mapped]' \
'(-t -c -m -a)*-k[ksh-style autoloading]' \
'(-t -c -m -a)*-z[zsh-style autoloading]' \
'(-t -U -z -k)-c[currently defined functions]' \
'(-t -U -z -k)-m[use names as patterns]' \
'(-t -U -z -k)-a[write autoload functions]' \
'(-M -R -U -z -k -a -c -m)-t[show table of contents]' \
'(-M -R -U -a -c -m -t):file:->file' \
'*:function:->function' && ret=0
if (( $+opt_args[-c] )); then
if [[ $state = function && -n $opt_args[(i)-[ac]] ]]; then
_wanted functions expl 'function to write' compadd -k functions && ret=0
elif [[ -n $opt_args[(i)-[tca]] ]]; then
_description files expl 'zwc file'
_files -g '*.zwc(-.)' "$expl[@]" && ret=0
else
_description files expl 'zsh source file'
_description files expl 'file'
_files "$expl[@]" && ret=0
fi