mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 05:13:10 +00:00
535845861a
Mimic the behavior of Linux's `apropos -e` and ~BSD's `apropos -f` with the awk script by disallowing trailing characters in the name of the manpage as compared to the original input string. Apart from being faster (by aborting earlier and stopping `apropos` by breaking the pipe after the first match), it's also more correct.
43 lines
1.4 KiB
Fish
43 lines
1.4 KiB
Fish
#
|
|
# This function is used internally by the fish command completion code
|
|
#
|
|
|
|
# macOS 10.15 "Catalina" has some major issues.
|
|
# The whatis database is non-existent, so apropos tries (and fails) to create it every time,
|
|
# which takes about half a second.
|
|
#
|
|
# So we disable this entirely in that case.
|
|
if test (uname) = Darwin
|
|
set -l darwin_version (uname -r | string split .)
|
|
# macOS 15 is Darwin 19, this is an issue at least up to 10.15.3.
|
|
# If this is fixed in later versions uncomment the second check.
|
|
if test "$darwin_version[1]" = 19 # -a "$darwin_version[2]" -le 3
|
|
function __fish_describe_command
|
|
end
|
|
# (remember: exit when `source`ing only exits the file, not the shell)
|
|
exit
|
|
end
|
|
end
|
|
|
|
# Perform this check once at startup rather than on each invocation
|
|
if not type -q apropos
|
|
function __fish_describe_command
|
|
end
|
|
exit
|
|
end
|
|
|
|
function __fish_describe_command -d "Command used to find descriptions for commands"
|
|
# $argv will be inserted directly into the awk regex, so it must be escaped
|
|
set -l argv_regex (string escape --style=regex "$argv")
|
|
apropos $argv 2>/dev/null | awk -v FS=" +- +" '{
|
|
split($1, names, ", ");
|
|
for (name in names)
|
|
if (names[name] ~ /^'"$argv_regex"'[^A-z._-]* *\([18]\)/ ) {
|
|
sub( "( |\t)*\\\([18]\\\)", "", names[name] );
|
|
sub( " \\\[.*\\\]", "", names[name] );
|
|
print names[name] "\t" $2;
|
|
exit;
|
|
}
|
|
}'
|
|
end
|
|
|