Fish like shell path in zsh.

gistfile1.sh

# shorten path -> /home/miekg/bla -> /h/m/bla
function shorten() {
    full=$(print -P "$1")
    a=(${(s:/:)full}) 
    if [[ $#a -eq 0 || $#a -eq 1 ]]; then
        print $1; return
    fi
    last=$a[$#a]
    a[$#a]= # clear last element
    for i in $a; do 
        if [[ ${i:0:1} == "~" ]]; then
            print -n $i
            continue
        fi
        print -n "/"${i:0:1}
    done
    print -n "/"$last
}