ACC SHELL
#compdef zstyle
local state context ostate line expl ctop suf
local nm=$compstate[nmatches] taglist patterns pstyles
typeset -A opt_args styles
(( $+functions[_completers] )) ||
_completers() {
# option: -p - needs a `_' prefix
local us
local -a disp list expl
list=( complete approximate correct match expand list menu oldlist
ignored prefix history )
zparseopts -D -K -E 'p=us'
[[ -n "$us" ]] && us='_'
zstyle -t ":completion:${curcontext}:completers" prefix-hidden &&
disp=(-d list)
_wanted completers expl 'completer' \
compadd "$@" "$disp[@]" - "$us${^list[@]}"
}
# Assoc array of styles; the values give the possible top-level
# contexts:
# c completion
# e line editor
# z zftp
# or any combination of the above,
# followed by a colon, followed by a state to enter, empty if none.
styles=(
accept-exact c:bool
accept-exact-dirs c:bool
add-space c:bool
ambiguous c:bool
assign-list c:_parameters
auto-description c:
avoid-completer c:completer
break-keys c:
cache-path c:_directories
cache-policy c:_functions
call-command c:bool
command c:command
commands c:
complete c:bool
completer c:completer
condition c:bool
cursor c:cursor
disabled c:bool
domains c:
expand c:
fake-files c:fake-files
fake-parameters c:fake-params
file-list c:bool
file-patterns c:filepat
file-sort c:fsort
filter c:
force-list c:
format c:
glob c:bool
global c:bool
group-name c:
group-order c:tag
groups c:_groups
hidden c:bool
hosts c:_hosts
hosts-ports c:host-port
ignore-line c:ignline
ignore-parents c:ignorepar
ignored-patterns c:
insert-ids c:insert-ids
insert-tab c:bool
insert-unambiguous c:insunambig
keep-prefix c:keep-prefix
last-prompt c:bool
list ce:listwhen
list-colors c:
list-dirs-first c:bool
list-grouped c:bool
list-packed c:bool
list-prompt c:
list-rows-first c:bool
list-separator c:separator
list-suffixes c:bool
local c:
mail-directory c:_directories
match-original c:match-orig
matcher c:
matcher-list c:
max-errors c:
max-matches-width c:max-matches-width
menu c:boolauto
muttrc c:_files
numbers c:bool
old-list c:bool
old-matches c:oldmatches
old-menu c:bool
original c:bool
packageset c:packageset
path c:_directories
pager c:_command_names
pine-directory c:_directories
ports c:_ports
prefix-hidden c:bool
prefix-needed c:bool
preserve-prefix c:preserve-prefix
range c:
regular c:bool
remote-access c:bool
remove-all-dups c:bool
select-prompt c:
select-scroll c:
separate-sections c:bool
single-ignored c:single-ignored
sort c:bool
special-dirs c:sdirs
squeeze-slashes c:bool
stop c:stop
stop-keys c:
strip-comments c:bool
subst-globs-only c:bool
substitute c:bool
suffix c:bool
tag-order c:tag-order
try-to-use-pminst c:bool
urls c:_urls
use-cache c:bool
use-compctl c:urgh
users c:_users
users-hosts c:user-host
users-hosts-ports c:user-host-port
verbose ce:bool
word c:bool
auto-previous e:bool
break-keys e:
cursor e:
edit-buffer e:bool
edit-previous e:bool
insert-kept e:
leave-cursor e:bool
match e:
prompt e:
stop-keys e:
toggle e:bool
url-globbers e:
url-local-schema e:
url-metas e:
url-other-schema e:
url-seps e:
whence e:
word-chars e:
word-style e:word-style
word-context e:
chpwd z:bool
progress z:progress
remote-glob z:bool
titlebar z:bool
update z:
)
taglist=(
accounts all-expansions all-files arguments arrays association-keys
bookmarks builtins characters colormapids colors commands contexts
corrections cursors default descriptions devices directories
directory-stack displays expansions extensions files flags fstypes
fonts functions globbed-files groups history-words hosts indexes
interfaces jobs keymaps keysyms libraries limits local-directories
mailboxes manuals maps messages modifiers modules my-accounts
named-directories names newsgroups nicknames options original
other-accounts packages parameters path-directories paths pods ports
prefixes printers processes processes-names ps regex sequences
sessions signals strings styles tags targets timezones types urls
users values variant visuals warnings widgets windows zsh-options
email-address ${(k)functions[(I)_email-*]#_}
)
_arguments -C \
'(-)-L[output in form of zstyle commands]' \
'(: -)-d[delete style definitions]:context pattern:->patterns:*:styles:->pstyles' \
'(-)-e[value is evaluated when style is looked up]' \
':context:->contexts' ':style:->styles' '*:argument:->style-arg'
while (( $#state )); do
case "$state[1]" in
(contexts)
if [[ ! -prefix :*: ]]; then
_wanted contexts expl context compadd -P : -S : completion zftp
elif compset -P :completion:; then
for ostate in functions _completers cmdorcont argument tag; do
compset -P '[^:]#:' || break
done
suf=()
compset -S ':*' || suf=( -qS: )
[[ $ostate = tag ]] && suf=()
if compset -P '(|\\)\((*\||)'; then # handle (x|y) patterns
suf=()
compset -S '(|\\)[)|]*' ||
suf=( -S "${${QIPREFIX:+|}:-\|}" -r "${${QIPREFIX:+|}:-\\\\} \t)" )
fi
state+=( "$ostate" )
fi
;;
(patterns)
zstyle -g patterns
_wanted contexts expl 'context pattern' compadd -a patterns
;;
(pstyles)
zstyle -g pstyles ${(Q)${(M)opt_args[-d]#*[^\\]:}%:}
_wanted styles expl style compadd -a pstyles
;;
(styles)
# Get the top-level context we're completing for, if any.
case $line[1] in
(:completion:*)
ctop=c
;;
(:zftp:*)
ctop=z
;;
(:zle:*)
ctop=e
;;
(*)
ctop=cez
;;
esac
_wanted styles expl style \
compadd -M 'r:|-=* r:|=*' -k "styles[(R)[^:]#[$ctop][^:]#:*]"
;;
(style-arg)
state+=( "${styles[$line[2]]#*:}" )
;;
(argument)
_message -e arguments argument
;;
(bool)
_wanted values expl boolean compadd true false
;;
(boolauto)
_wanted values expl boolean \
compadd true false auto select search search-backward interactive
;;
(cmdorcont)
_alternative -O suf \
'commands:command:_command ' \
'contexts:context:(-array-value- -brace-parameter- -command- -condition- -math- -parameter- -redirect- -subscript- -value-)'
;;
(cursor)
_wanted values expl 'cursor positioning' compadd complete key default
;;
(completer)
_wanted values expl completer _completers -p
;;
(fsort)
_wanted values expl 'how to sort files' \
compadd name size links time date modification access inode change reverse
;;
(function)
_wanted control-function expl 'control function' \
compadd predict-on all-matches
;;
(functions)
_wanted comp-widget expl 'completion widget' \
compadd $suf - all-matches complete-debug complete-tag \
correct-word expand-word expand-alias-word history-words
;;
(user-host-port)
if [[ $PREFIX != *[@:]* ]]; then
_users -S @
elif [[ $PREFIX = *[@:]*[[@:]* ]]; then
compset -P 2 '*[:@]'
_ports
else
compset -P 1 '*[:@]'
_hosts -S :
fi
;;
(host-port)
if [[ $PREFIX != *:* ]]; then
_hosts -S :
else
compset -P 1 '*:'
_ports
fi
;;
(listwhen)
_wanted values expl 'when to list completions' \
compadd always never sometimes
;;
(packageset)
_wanted values expl 'default package set' \
compadd available installed uninstalled
;;
(progress)
_wanted values expl 'progress meter style' \
compadd none bar percent
;;
(sdirs)
_wanted values expl 'whether to complete . or ..' \
compadd true false ..
;;
(stop)
_wanted values expl 'when to insert matches' \
compadd true false verbose
;;
(tag)
_wanted tags expl tag compadd $suf -a taglist
;;
(tag-order)
if compset -P '*:*:'; then
_message -e descriptions description
elif compset -P '*:'; then
_message -e labels 'tag label'
else
suf=()
compset -S ':*' || suf=( -qS: )
_wanted values expl tag compadd $suf -a taglist
fi
;;
(filepat)
if compset -P '*:*:'; then
_message -e descriptions description
elif compset -P '*:'; then
_message -e tags tag
else
_message -e patterns 'glob patterns'
fi
;;
(user-host)
if [[ $PREFIX = *[@:]* ]]; then
compset -P '*[@:]'
_hosts
else
_users -S @
fi
;;
(ignorepar)
_wanted values expl 'which parents to ignore' \
compadd parent pwd .. directory
;;
(single-ignored)
_wanted values expl 'how to handle a single ignored match' \
compadd - show menu
;;
(command)
shift 3 words
(( CURRENT -= 3 ))
_normal
;;
(insert-ids)
_wanted values expl 'when to insert process IDs' \
compadd - menu single longer
;;
(fake-files)
_message -e fakes 'prefix and names'
;;
(fake-params)
if compset -P '*:'; then
_wanted values expl 'parameter type' compadd scalar array integer
else
suf=''
compset -S ':*' || suf='-qS:'
_wanted values expl 'fake parameter' _parameters $suf
fi
;;
(ignline)
_wanted values expl 'ignore strings on the line' compadd true false current current-shown other
;;
(keep-prefix)
_wanted values expl 'keep prefix' compadd true false changed
;;
(match-orig)
_wanted values expl "match without inserting \`*'" compadd only both
;;
(oldmatches)
_wanted values expl 'use list of old matches' compadd true false only
;;
(insunambig)
_wanted values expl 'insert unambiguous string' compadd true false pattern
;;
(preserve-prefix)
_message -e prefixes 'pattern matching prefix to keep'
;;
(separator)
_message -e separators 'separator string'
;;
(max-matches-width)
_message -e numbers 'maximum display width for matches'
;;
(urgh)
_wanted values expl no compadd no false off 0
;;
(word-style)
_wanted word-styles expl 'word style' compadd normal shell space
;;
(_*)
${=state[1]} $suf
;;
esac
shift state
done
[[ $compstate[nmatches] != $nm ]]
ACC SHELL 2018