mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-11-23 10:00:43 +08:00
9c327b19a6
New fish_indent does that too, so this will make any future reformatting diffs smaller. Done using either of: perl -pi -e 'undef $/; s/\n*$/\n/' share/**.fish kak -n -f '<a-/>\n*<ret>d' share/**.fish
28 lines
578 B
Fish
28 lines
578 B
Fish
function __fish_seen_argument
|
|
argparse 's/short=+' 'o/old=+' 'l/long=+' -- $argv
|
|
|
|
set -l cmd (commandline -co)
|
|
set -e cmd[1]
|
|
for t in $cmd
|
|
for s in $_flag_s
|
|
if string match -qr "^-[A-z0-9]*"$s"[A-z0-9]*\$" -- $t
|
|
return 0
|
|
end
|
|
end
|
|
|
|
for o in $_flag_o
|
|
if string match -qr "^-$s\$" -- $t
|
|
return 0
|
|
end
|
|
end
|
|
|
|
for l in $_flag_l
|
|
if string match -q -- "--$l" $t
|
|
return 0
|
|
end
|
|
end
|
|
end
|
|
|
|
return 1
|
|
end
|