path functions: remove duplicate

qcd_function

@@ -383,6 +383,12 @@ function path_add_current {
         echo Path "$1" not found >&2
         return
     }
-    export PATH=$( echo ${p}:$PATH | awk -F: '{for (i=1;i<=NF;i++) { if ( !x[$i]++ ) printf("%s:",$i); }}' | sed 's,:\+$,,g' )
+    export PATH="${p}:$PATH"
+    path_remove_ducplicates 
     echo PATH=$PATH
 }
+function path_remove_duplicates {
+    # Remove duplicates in PATH
+    PATH=$( echo $PATH | awk -F: '{for (i=1;i<=NF;i++) { if ( !x[$i]++ ) printf("%s:",$i); }}' | sed 's,:\+$,,g' )
+    export PATH
+}

rc

@@ -5,11 +5,8 @@ TOOLSPATH=$( readlink -f $( dirname "$BASH_SOURCE" ) )
 PATH=$PATH:"$TOOLSPATH"/bin
 [[ "$1" = "-f" ]] && PATH="$TOOLSPATH"/bin:$PATH
 
-# remove duplicate path
-PATH=$( echo $PATH | awk -F: '{for (i=1;i<=NF;i++) { if ( !x[$i]++ ) printf("%s:",$i); }}' | sed 's,:\+$,,g' )
-export PATH
-
 . "$TOOLSPATH"/qcd_function
+path_remove_duplicates
 [[ -f "$TOOLSPATH"/tsv/tsvkit.sh ]] && . "$TOOLSPATH"/tsv/tsvkit.sh &>/dev/null
 function _q-tools-reload {                                                        
     # reload self