ZSH persistent directory aliases

.zsh

if which sponge &>/dev/null; then

    qjc() {
        ALIAS="$1"
        DIR="$(pwd)"
        hash -d "$1"="$DIR"
        echo "hash -d \"$1\"=\"$DIR\"" >> ~/.zsh/dirhashes 
    }

    qjd() {
        if [[ -z "$1" ]]; then
            DIR=$(pwd)
            grep -v "hash -d \".*\"=\"$DIR\"" ~/.zsh/dirhashes | sponge ~/.zsh/dirhashes
        else
            ALIAS="$1"
            grep -vF "hash -d \"$ALIAS\"" ~/.zsh/dirhashes | sponge ~/.zsh/dirhashes
        fi
        hash -rd
        source ~/.zsh/dirhashes
    }

    qjl() {
        sed -n '/^hash/ { s/hash -d "\([^"]*\)"="\([^"]*\)"/\1: \2/g p }' < ~/.zsh/dirhashes
    }

    source ~/.zsh/dirhashes
else
    echo "Sponge not found, dirhash functionality not available. Install moreutils."
fi

Added functionality to delete alias for pwd.