.zsh_functions


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

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}${INBOXINFO}%(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
}