mirror of
https://github.com/fish-shell/fish-shell
synced 2024-12-27 21:33:09 +00:00
9367d4ff71
This does not include checks/function.fish because that currently includes a "; end" in a message that indent would remove, breaking the test.
24 lines
533 B
Fish
24 lines
533 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
|
|
|