From ae16b1077311c228048f040f93977d3ae862340b Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 25 Jan 2017 16:30:16 +1300
Subject: Add "pop" and "shift" methods to path()

---
 sh/shrc.d/path.sh | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

(limited to 'sh/shrc.d')

diff --git a/sh/shrc.d/path.sh b/sh/shrc.d/path.sh
index 23eec75b..2759e11f 100644
--- a/sh/shrc.d/path.sh
+++ b/sh/shrc.d/path.sh
@@ -79,6 +79,40 @@ path() {
             PATH=${PATH%%:}
             ;;
 
+        # Remove the first directory in $PATH
+        shift)
+            case $PATH in
+                '')
+                    printf >&2 'path(): %s: PATH is empty!\n' "$@"
+                    return 1
+                    ;;
+                *:*)
+                    PATH=${PATH#*:}
+                    ;;
+                *)
+                    # shellcheck disable=SC2123
+                    PATH=
+                    ;;
+            esac
+            ;;
+
+        # Remove the last directory in $PATH
+        pop)
+            case $PATH in
+                '')
+                    printf >&2 'path(): %s: PATH is empty!\n' "$@"
+                    return 1
+                    ;;
+                *:*)
+                    PATH=${PATH%:*}
+                    ;;
+                *)
+                    # shellcheck disable=SC2123
+                    PATH=
+                    ;;
+            esac
+            ;;
+
         # Check whether a directory is in PATH
         check)
             path _argcheck "$@" || return
@@ -103,6 +137,10 @@ USAGE:
     Add directory DIR (default $PWD) to the end of PATH
   path remove [DIR]
     Remove directory DIR (default $PWD) from PATH
+  path shift
+    Remove the first directory from PATH
+  path pop
+    Remove the last directory from PATH
   path check [DIR]
     Return whether directory DIR (default $PWD) is a component of PATH
   path help
-- 
cgit v1.2.3