vr func for moving to VCS root

1 files changed, 57 insertions, 0 deletions

diff --git a/bash/bashrc.d/vr.bash b/bash/bashrc.d/vr.bash
new file mode 100644
index 00000000..8b7855da
--- /dev/null
+++ b/bash/bashrc.d/vr.bash
@@ -0,0 +1,57 @@
+# Move to the root directory of a VCS working copy
+vr() {
+    local path=${1:-$PWD}
+    path=${path%/}
+
+    # Raise some helpful errors
+    if ! [[ -e $path ]] ; then
+        printf 'bash: %s: %s: No such file or directory\n' \
+            "$FUNCNAME" "$path"
+        return
+    fi
+    if ! [[ -d $path ]] ; then
+        printf 'bash: %s: %s: Not a directory\n' \
+            "$FUNCNAME" "$path"
+        return
+    fi
+    if ! [[ -x $path ]] ; then
+        printf 'bash: %s: %s: Permission denied\n' \
+            "$FUNCNAME" "$path"
+        return
+    fi
+    
+    # Ask Git the top level
+    local git_root=$(cd -- "$path" && git rev-parse --show-toplevel 2>/dev/null)
+    if [[ $git_root ]] ; then
+        cd -- "$git_root"
+        return
+    fi
+
+    # Ask Mercurial the top level
+    local hg_root=$(cd -- "$path" && hg root 2>/dev/null)
+    if [[ $hg_root ]] ; then
+        cd -- "$hg_root"
+        return
+    fi
+
+    # If we have a .svn dir, iterate upwards until we find an ancestor that
+    # doesn't; hopefully that's the root
+    if [[ -d $path/.svn ]] ; then
+        local search=$path
+        while [[ $search ]] ; do
+            if [[ -d ${search%/*}/.svn ]] ; then
+                search=${search%/*}
+            else
+                cd -- "$search"
+                return
+            fi
+        done
+    fi
+
+    # Couldn't find repository root, say so
+    printf 'bash: %s: Failed to find repository root\n' \
+        "$FUNCNAME" >&2
+    return 1
+}
+complete -A directory vr
+