qcd_function

@@ -0,0 +1,61 @@
+function cd_history () {
+    if [ -z "$1" ]
+    then \cd "$HOME"
+         return
+    fi
+    old=$( tail -n 49 "$HOME/.bash_cdhistory" )
+    echo "$old" > "$HOME/.bash_cdhistory"
+    \cd "$1"
+    p=$( pwd )
+    b=$( basename "$p" )
+    echo $b":"$p >> "$HOME/.bash_cdhistory"
+}
+alias cd=cd_history
+
+function qcd() {
+    while getopts alh opt
+    do  case "$opt" in
+        a)
+            # Adding
+            name=${!OPTIND}
+            if [ -z "$name" ]
+            then name=$( basename $( pwd ))
+            fi
+
+            echo "$name":$( pwd )
+            echo "$name":$( pwd ) >> ~/.qcd
+        ;;
+        l)
+             echo ==History ~/.bash_cdhistory:
+             cat ~/.bash_cdhistory
+             echo 
+             echo ==Saved ~/.qcd:
+             cat ~/.qcd
+        ;;
+        h)
+            echo "qcd [-al] [name]"
+            echo "Change current working path based on the list ~/.qcd"
+            echo "Keeps a history of folders visited in ~/.bash_cdhistory"
+            echo " "
+            echo "qcd -a [name]"
+            echo "  Adds the path to the list"
+            echo "  You may add the name of the path, but when omitted"
+            echo "  the basename will be used"
+            echo " "
+            echo "qcd -l "
+            echo "  Lists the paths"
+        ;;
+        esac
+    done
+    unset OPTSTRING
+    unset OPTIND
+    if [ -z "$1" ]
+    then \cd
+    else
+     d=$( grep ^"$1" ~/.qcd ~/.bash_cdhistory | head -n 1 )
+     d=${d/*:/}
+     if [ ! -z "$d" ]
+     then \cd "$d" 
+     fi
+    fi
+}