mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 05:13:10 +00: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
23 lines
532 B
Fish
23 lines
532 B
Fish
function fish_print_hg_root
|
|
# If hg isn't installed, there's nothing we can do
|
|
if not command -sq hg
|
|
return 1
|
|
end
|
|
|
|
# Find an hg directory above $PWD
|
|
# without calling `hg root` because that's too slow
|
|
set -l root
|
|
set -l dir (pwd -P 2>/dev/null)
|
|
or return 1
|
|
|
|
while test $dir != /
|
|
if test -f $dir'/.hg/dirstate'
|
|
echo $dir/.hg
|
|
return 0
|
|
end
|
|
# Go up one directory
|
|
set dir (string replace -r '[^/]*/?$' '' $dir)
|
|
end
|
|
|
|
return 1
|
|
end
|