mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-11-20 05:53:52 +01:00
76 lines
1.8 KiB
Plaintext
76 lines
1.8 KiB
Plaintext
#compdef compdef
|
|
|
|
local state line expl list disp curcontext="$curcontext" pat normal ret=1
|
|
local args1 args2
|
|
typeset -A opt_args
|
|
|
|
args2=()
|
|
if (( ! ${words[2,-1][(I)[^-]*]} || ${words[(I)-[kK]]} )); then
|
|
args1=(
|
|
-A '-*'
|
|
'(-d)-a[make function autoloadable]'
|
|
'(-d)-n[leave existing definitions intact]'
|
|
)
|
|
args2=(
|
|
- d
|
|
'(-a -n)-d[delete]:*:completed command:->ccom'
|
|
- k
|
|
'-k[define widget and key binding]:completion function:->cfun:style:->style:*:key'
|
|
- K
|
|
'-K[define multiple widgets based on function]:*::: :->multi'
|
|
)
|
|
else
|
|
args1=(
|
|
'-N[completion for named command]'
|
|
)
|
|
fi
|
|
|
|
_arguments -C -s -S \
|
|
"$args1[@]" \
|
|
'-p[completion for command matching pattern]' \
|
|
'-P[completion for command matching pattern]' \
|
|
':completion function:->cfun' \
|
|
'*:commands:->com' \
|
|
"$args2[@]" && 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
|
|
com)
|
|
pat="${words[(I)-[pP]]}"
|
|
normal="${words[(I)-N]}"
|
|
if (( pat && pat > normal )); then
|
|
_message -e patterns 'pattern'
|
|
else
|
|
_command_names
|
|
fi
|
|
;;
|
|
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
|