#function info_print () {
#    local esc_begin esc_end
#    esc_begin="$1"
#    esc_end="$2"
#    shift 2
#    printf '%s' ${esc_begin}
#    printf '%s' "$*"
#    printf '%s' "${esc_end}"
#}
#
#function set_title () {
#    info_print  $'\e]0;' $'\a' "$@"
#}
#
#function ESC_print () {
#    info_print $'\ek' $'\e\\' "$@"
#}
#
#preexec () {
#    case $TERM in
#        (xterm*|rxvt*)
#            set_title "${(%):-"%n@%m:"}" "$1"
#        ;;
#        (screen*)
#            local CMD=${1[(wr)^(*=*|sudo|ssh|evince|-*)]}
#            ESC_print ${CMD}
#        ;;
#    esac
#}
#
#precmd () {
#    case $TERM in
#        (xterm*|rxvt*)
#            set_title ${(%):-"%n@%m: %~"}
#        ;;
#        (screen*)
#            ESC_print "zsh"
#        ;;
#    esac
#
#    vcs_info
#
##    local INBOXINFO="$(task rc.gc=off rc.verbose=nothing +in +PENDING count) "
#
#    PS1="${HENKSPROMPTHEADER}%(0?..%F{red}E%?%f )%(1j.%F{yellow}J%j%f .)%(3L.%F{yellow}L%L%f .)%3~ %F{green}$VCSH_REPO_NAME%f%F{yellow}${vcs_info_msg_0_}%f%# "
#}

function vifind () {
    vi $( find $@)
}

function new_haskell_project () {
    stack new $1 simple
    cd $1
    git init
}

function henkspngpostproc () {
    local resize_by
    local img
    resize_by="$1"
    shift
    for img in $*
    do
        mkdir -p resized/pngnqed/optipnged
        convert -resize $resize_by% $img resized/$img
        pngnq -f -d resized/pngnqed -e .png resized/$img
        optipng -out resized/pngnqed/optipnged/$img resized/pngnqed/$img
    done
}

function with () {
    local prefix="$* " str compcontext=normal:normal:_normal
    while :
    do
      str=$prefix
      vared str && eval $str
    done
}