我提供了我的解决方案。它不仅给提示着色，而且打印当前目录，如果目录太长，则打印缩写：

function getPS1path()
{
    local p="$PWD"
    local len=${#HOME}
    (( $len > 3 )) && [[ ${p:0:$len} == $HOME ]] && p="~${p:$len}"

    local max="${PS1_MAX_PATH//[!0-9]}"
    [[ $max = "" ]] && max=$(( $(stty -a | tr \; '\n' | awk '$1=="columns" {print $2}')/3 ))
    (( max < 20 )) && max=20
    (( max > 50 )) && max=50

    local i x pre=
    for (( i=0; i<30; i++ ))
    do
        len=${#p}
        (( len <= max )) && break
        x="${p#*/}"
        [[ $x = "" || "$x" = "$p" ]] && break
        p="$x"
        pre=".../"
    done
    echo -n "$pre$p"
}

[[ $origPS1 = "" ]] && origPS1="$PS1"
newPS1=$'\\[\e[1m\e[31m\\]\\h:$(getPS1path) # \\[\e[m\017\\]'
PS1="$newPS1"

变量origPS1和newPS1设置为在其他脚本中使用。