function proml {
    local BLUE="\[\033[0;34m\]"
    local RED="\[\033[0;31m\]"
    local LIGHT_RED="\[\033[1;31m\]"
    local WHITE="\[\033[1;37m\]"
    local LIGHT_GRAY="\[\033[0;37m\]"
    case $TERM in
        xterm*)
            TITLEBAR='\[\033]0;\u@\h:\w\007\]'
            ;;
        *)
        TITLEBAR=""
            ;;
    esac
    PS1="${TITLEBAR}$BLUE[$RED\u $LIGHT_RED\w$BLUE]$WHITE\$$LIGHT_GRAY "
    PS2='> '
    PS4='+ '
}

proml