mirror of
git://git.code.sf.net/p/zsh/code
synced 2025-10-12 23:11:14 +02:00
26 lines
511 B
Text
26 lines
511 B
Text
#compdef perldoc
|
|
#
|
|
# _perldoc - zsh completion function for perldoc
|
|
#
|
|
# Adam Spiers <adam@spiers.net>
|
|
#
|
|
|
|
_perldoc () {
|
|
_arguments -s \
|
|
'-h:help:' \
|
|
'(-q)-f:Perl built-in function:_perl_builtin_funcs:*:' \
|
|
'(-f)-q:Perl FAQ keyword:' \
|
|
'*:Perl pod pages:_perl_pods'
|
|
}
|
|
|
|
_perl_pods () {
|
|
local nm="$compstate[nmatches]"
|
|
|
|
_perl_modules
|
|
_perl_basepods
|
|
_path_files -J 'Perl modules and .pods' -/ -g '*.(pod|pm)'
|
|
|
|
[[ nm -ne "$compstate[nmatches]" ]]
|
|
}
|
|
|
|
_perldoc "$@"
|