mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-20 05:53:52 +01:00
moved to Completion/Zsh/Command/_compdef
This commit is contained in:
parent
d9ba273ed7
commit
b8821e159a
@ -1,52 +0,0 @@
|
|||||||
#compdef compdef
|
|
||||||
|
|
||||||
local state line expl list disp curcontext="$curcontext"
|
|
||||||
typeset -A opt_args
|
|
||||||
|
|
||||||
_arguments -C -s -A "-*" -S \
|
|
||||||
'(-d)-a[make function autoloadable]' \
|
|
||||||
'(-d -p -P)-n[leave existing definitions intact]' \
|
|
||||||
':completion function:->cfun' \
|
|
||||||
'*:commands: _command_names' \
|
|
||||||
- d \
|
|
||||||
'(-a -n)-d[delete]:*:completed command:->ccom' \
|
|
||||||
- p \
|
|
||||||
'(-n)-p[completion for command matching pattern]:completion function:->cfun:pattern' \
|
|
||||||
- P \
|
|
||||||
'(-n)-P[as -p for commands without own completion]:completion function:->cfun:pattern' \
|
|
||||||
- k \
|
|
||||||
'-k[define widget and key binding]:completion function:->cfun:style:->style:*:key' \
|
|
||||||
- K \
|
|
||||||
'-K[define multiple widgets based on function]:*::: :->multi' && return 0
|
|
||||||
|
|
||||||
if [[ $state = multi ]]; then
|
|
||||||
case $(( CURRENT % 3 )) in
|
|
||||||
0) _message key
|
|
||||||
return 1;;
|
|
||||||
1) state=cfun;;
|
|
||||||
2) state=style;;
|
|
||||||
esac
|
|
||||||
fi
|
|
||||||
|
|
||||||
case $state in
|
|
||||||
ccom)
|
|
||||||
_wanted commands expl 'completed command' compadd -k _comps
|
|
||||||
;;
|
|
||||||
cfun)
|
|
||||||
list=( ${^fpath:/.}/_(|*[^~])(:t) )
|
|
||||||
if zstyle -T ":completion:${curcontext}:functions" prefix-hidden; then
|
|
||||||
disp=( ${list[@]#_} )
|
|
||||||
_wanted functions expl 'completion function' \
|
|
||||||
compadd -d disp -a list
|
|
||||||
else
|
|
||||||
_wanted functions expl 'completion function' compadd -a list
|
|
||||||
fi
|
|
||||||
;;
|
|
||||||
style)
|
|
||||||
_wanted widgetstyle expl 'widget style' \
|
|
||||||
compadd -M 'r:|-=* r:|=*' \
|
|
||||||
complete-word delete-char-or-list expand-or-complete \
|
|
||||||
expand-or-complete-prefix list-choices menu-complete \
|
|
||||||
menu-expand-or-complete reverse-menu-complete
|
|
||||||
;;
|
|
||||||
esac
|
|
Loading…
Reference in New Issue
Block a user