mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 05:13:10 +00:00
6020fc497a
...when searching for long arguments by name/key. Closes #10615.
41 lines
1.1 KiB
Fish
41 lines
1.1 KiB
Fish
function __fish_seen_argument --description 'Check whether argument is used'
|
|
argparse --ignore-unknown 's/short=+' 'o/old=+' 'l/long=+' 'w/windows=+' -- $argv
|
|
|
|
set --local tokens (commandline --current-process --tokens-expanded --cut-at-cursor)
|
|
set --erase tokens[1]
|
|
|
|
for t in $tokens
|
|
for s in $_flag_s
|
|
if string match --regex --quiet -- "^-[A-z0-9]*"$s"[A-z0-9]*\$" $t
|
|
return 0
|
|
end
|
|
end
|
|
|
|
for o in $_flag_o
|
|
if string match --quiet -- "-$o" $t
|
|
return 0
|
|
end
|
|
end
|
|
|
|
for l in $_flag_l
|
|
# Make sure to only prefix-match --foo=bar style tokens
|
|
if string match --quiet -- "--$l" (string replace -r -- '^(--.*?)=.*' '$1' $t)
|
|
return 0
|
|
end
|
|
end
|
|
|
|
for w in $_flag_w
|
|
if string match --quiet -- "/$w" $t
|
|
return 0
|
|
end
|
|
end
|
|
|
|
for raw_arg in $argv
|
|
if string match --quiet -- $t $raw_arg
|
|
return 0
|
|
end
|
|
end
|
|
end
|
|
|
|
return 1
|
|
end
|