blob: 8ae97962cbd58a61f12832c3cda2686e119f82e3 (
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
|
#compdef man apropos whatis
setopt localoptions rcexpandparam
local rep expl star approx
if [[ $compstate[pattern_match] != [^*] ]]; then
# If a string other than *, we just want correction, so no `*'.
star='*'
fi
if [[ -n $_comp_correct ]]; then
# If this is set, we are correcting with this many approximations.
approx="(#a${_comp_correct})"
fi
if (( ! $#manpath )); then
local mp
mp=($(manpath 2>/dev/null))
[[ "$mp" == *:* ]] && mp=( ${(s.:.)mp} )
manpath=( $mp )
fi
(( $#manpath )) || manpath=( ${(s.:.)$(manpath 2>/dev/null)} ) ||
manpath=( /usr/man(-/N) /(opt|usr)/(dt|share|X11R6|local)/(cat|)man(-/N) )
# `sman' is the SGML manual directory for Solaris 7.
if [[ $words[2] = (<->*|l|n) ]]; then
rep=(
$manpath/(sman|man|cat)${words[2]}/${~approx}$PREFIX${~star}$SUFFIX.<->*(N:t) )
else
rep=( $manpath/(sman|man|cat)*/${~approx}$PREFIX${~star}$SUFFIX.<->*(N:t) )
fi
(( $#rep )) && _wanted manuals expl 'manual page' \
compadd - ${rep%%.[^.]##(.gz|.bz2|)}
|