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:
parent
9b32c65e49
commit
53b0a922a2
2 changed files with 22 additions and 14 deletions
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue