mirror of
https://github.com/fish-shell/fish-shell
synced 2024-11-15 09:27:38 +00:00
23 lines
510 B
Fish
23 lines
510 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)
|
||
|
|
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
|
||
|
|
|