blob: 368b41ee242aab5c0b1412d3b66ff69290ddd600 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
#autoload
local name nopt xopt format gname hidden hide match opts tag
local -a ign gropt sort
local -a match mbegin mend
opts=()
xopt=(-X)
nopt=()
zparseopts -K -D -a nopt 1 2 V=gropt J=ign x=xopt
3="${${3##[[:blank:]]#}%%[[:blank:]]#}"
[[ -n "$3" ]] && _lastdescr=( "$_lastdescr[@]" "$3" )
zstyle -s ":completion:${curcontext}:$1" group-name gname &&
[[ -z "$gname" ]] && gname="$1"
_setup "$1" "${gname:--default-}"
name="$2"
zstyle -s ":completion:${curcontext}:$1" format format ||
zstyle -s ":completion:${curcontext}:descriptions" format format
if zstyle -s ":completion:${curcontext}:$1" hidden hidden &&
[[ "$hidden" = (all|yes|true|1|on) ]]; then
[[ "$hidden" = all ]] && format=''
opts=(-n)
fi
zstyle -s ":completion:${curcontext}:$1" matcher match &&
opts=($opts -M "$match")
[[ -n "$_matcher" ]] && opts=($opts -M "$_matcher")
# Use sort style, but ignore `menu' value to help _expand.
# Also don't override explicit use of -V.
if [[ -z "$gropt" ]]; then
if zstyle -a ":completion:${curcontext}:$1" sort sort ||
zstyle -a ":completion:${curcontext}:" sort sort
then
if [[ -z "${(@)sort:#(match|numeric|reverse)}" ]]; then
gropt=( -o ${(j.,.)sort} )
elif [[ "$sort" != (yes|true|1|on|menu) ]]; then
gropt=( -o nosort )
fi
fi
else
gropt=( -o nosort )
fi
if [[ -z "$_comp_no_ignore" ]]; then
zstyle -a ":completion:${curcontext}:$1" ignored-patterns _comp_ignore ||
_comp_ignore=()
if zstyle -s ":completion:${curcontext}:$1" ignore-line hidden; then
local -a qwords
qwords=( ${words//(#m)[\[\]()\\*?#<>~\^\|]/\\$MATCH} )
case "$hidden" in
true|yes|on|1) _comp_ignore+=( $qwords );;
current) _comp_ignore+=( $qwords[CURRENT] );;
current-shown)
[[ "$compstate[old_list]" = *shown* ]] &&
_comp_ignore+=( $qwords[CURRENT] );;
other) _comp_ignore+=( $qwords[1,CURRENT-1]
$qwords[CURRENT+1,-1] );;
esac
fi
# Ensure the ignore option is first so we can override it
# for fake-always.
(( $#_comp_ignore )) && opts=( -F _comp_ignore $opts )
else
_comp_ignore=()
fi
tag="$1"
shift 2
if [[ -z "$1" && $# -eq 1 ]]; then
format=
elif [[ -n "$format" ]]; then
if [[ -z $2 ]]; then
argv+=( h:${1%%( ##\((#b)([^\)]#[^0-9-][^\)]#)(#B)\)|)( ##\((#b)([0-9-]##)(#B)\)|)( ##\[(#b)([^\]]##)(#B)\]|)} )
[[ -n $match[1] ]] && argv+=( m:$match[1] )
[[ -n $match[2] ]] && argv+=( r:$match[2] )
[[ -n $match[3] ]] && argv+=( o:$match[3] )
fi
zformat -F format "$format" "d:$1" "${(@)argv[2,-1]}"
fi
if [[ -n "$gname" ]]; then
if [[ -n "$format" ]]; then
set -A "$name" "$opts[@]" "$nopt[@]" "$gropt[@]" -J "$gname" "$xopt" "$format"
else
set -A "$name" "$opts[@]" "$nopt[@]" "$gropt[@]" -J "$gname"
fi
else
if [[ -n "$format" ]]; then
set -A "$name" "$opts[@]" "$nopt[@]" "$gropt[@]" -J -default- "$xopt" "$format"
else
set -A "$name" "$opts[@]" "$nopt[@]" "$gropt[@]" -J -default-
fi
fi
if ! (( ${funcstack[2,-1][(I)_description]} )); then
local fakestyle descr
for fakestyle in fake fake-always; do
zstyle -a ":completion:${curcontext}:$tag" $fakestyle match ||
continue
descr=( "${(@M)match:#*[^\\]:*}" )
opts=("${(@P)name}")
if [[ $fakestyle = fake-always && $opts[1,2] = "-F _comp_ignore" ]]; then
shift 2 opts
fi
compadd "${(@)opts}" - "${(@)${(@)match:#*[^\\]:*}:s/\\:/:/}"
(( $#descr )) && _describe -t "$tag" '' descr "${(@)opts}"
done
fi
return 0
|
