blob: f21d7bc3b6c09c0544bf6fc49bd46b4c052f596a (
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
#compdef -redirect-,-default-,-default-
local opts tmp glob pat pats expl tag i def descr end ign ret=1 match tried
local type sdef ignvars ignvar
zparseopts -a opts \
'/=tmp' 'f=tmp' 'g+:-=tmp' q n 1 2 P: S: r: R: W: X+: M+: F: J+: V+:
type="${(@j::M)${(@)tmp#-}#?}"
if (( $tmp[(I)-g*] )); then
glob="${${${${(@M)tmp:#-g*}#-g}##[[:blank:]]#}%%[[:blank:]]#}"
[[ "$glob" = *[^\\][[:blank:]]* ]] &&
glob="{${glob//(#b)([^\\])[[:blank:]]##/${match[1]},}}"
# add `#q' to the beginning of any glob qualifier if not there already
[[ "$glob" = (#b)(*\()([^\|\~]##\)) && $match[2] != \#q* ]] &&
glob="${match[1]}#q${match[2]}"
fi
tmp=$opts[(I)-F]
if (( tmp )); then
ignvars=($=opts[tmp+1])
if [[ $ignvars = _comp_ignore ]]; then
ign=( $_comp_ignore )
else
ign=()
for ignvar in $ignvars; do
ign+=(${(P)ignvar})
done
opts[tmp+1]=_comp_ignore
fi
else
ign=()
fi
if zstyle -a ":completion:${curcontext}:" file-patterns tmp; then
[[ "$type" = */* ]] && glob="$glob,*(-/)"
pats=()
for i in ${tmp//\%p/${${glob:-\*}//:/\\:}}; do
if [[ $i = *[^\\]:* ]]; then
pats=( "$pats[@]" " $i " )
else
pats=( "$pats[@]" " ${i}:files " )
fi
done
elif zstyle -t ":completion:${curcontext}:" list-dirs-first; then
if [[ "$type" = *g* ]]; then
# add `^-/' after `#q' glob qualifier if not there already
if [[ "$glob" = (#b)(*\(\#q)(*\)) ]]; then
[[ $match[2] != \^-/* ]] &&
glob="${match[1]}^-/,${match[2]}"
else
glob="$glob(#q^-/)"
fi
pats=( " *(-/):directories:directories ${glob//:/\\:}:globbed-files" )
elif [[ "$type" = */* ]] then
pats=( '*(-/):directories ' '*:all-files ' )
else
pats=( '*(-/):directories:directories *(^-/):other-files ' )
fi
else
if [[ "$type" = *g* ]]; then
# People prefer to have directories shown on first try as default.
# Even if the calling function didn't use -/.
#
# if [[ "$type" = */* ]]; then
pats=( " ${glob//:/\\:}:globbed-files *(-/):directories" '*:all-files '
### We could allow _next_tags to offer only globbed-files or directories
### by adding:
### " ${glob//:/\\:}:only-globbed-files " ' *(-/):only-directories '
)
# else
# pats=( " ${glob//:/\\:}:globbed-files "
# '*(-/):directories ' '*:all-files ' )
# fi
elif [[ "$type" = */* ]]; then
pats=( '*(-/):directories ' '*:all-files ' )
else
pats=( '*:all-files ' )
fi
fi
tried=()
for def in "$pats[@]"; do
eval "def=( ${${def//\\:/\\\\\\:}//(#b)([][()|*?^#~<>])/\\${match[1]}} )"
tmp="${(@M)def#*[^\\]:}"
(( $tried[(I)${(q)tmp}] )) && continue
tried=( "$tried[@]" "$tmp" )
for sdef in "$def[@]"; do
tag="${${sdef#*[^\\]:}%%:*}"
pat="${${sdef%%:${tag}*}//\\:/:}"
if [[ "$sdef" = *:${tag}:* ]]; then
descr="${(Q)sdef#*:${tag}:}"
else
if (( $opts[(I)-X] )); then
descr=
else
descr=file
fi
end=yes
fi
_tags "$tag"
while _tags; do
_comp_ignore=()
while _next_label "$tag" expl "$descr"; do
_comp_ignore=( $_comp_ignore $ign )
if [[ -n "$end" ]]; then
_path_files -g "$pat" "$opts[@]" "$expl[@]" && ret=0
else
_path_files "$expl[@]" -g "$pat" "$opts[@]" && ret=0
fi
done
(( ret )) || break
done
### For that _next_tags change mentioned above we would have to
### comment out the following line. (Or not, depending on the order
### of the patterns.)
[[ "$pat" = '*' ]] && return ret
done
(( ret )) || return 0
done
return 1
|
