aboutsummaryrefslogtreecommitdiff
path: root/files/.zsh/rc/S51_ledger
blob: 12028acc376105cb6024cd3bff304cd65ebb53fd (plain) (blame)
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
# Ledger

alias ledger='noglob ledger'
alias ltoday='noglob ledger register --period today'
alias ldays='noglob ledger register --begin "last day"'
alias lweek='noglob ledger register --begin "last 7 days"'
alias balc='bal --current --aux-date'
alias lpending='ledger register --pending'
alias lcash='ledger balance Expenses:Cash'
alias budget='ledger budget --exchange R ^Expenses and not ^Expenses:Cash'
alias budget-month='ledger budget --period "this month" --exchange R ^Expenses and not ^Expenses:Cash'

_ledger_smartcase_expr() {
    echo "$1" | sed -r 's/[A-Z]/.*&/g'
}

bal() {
    if  [ $# -eq 0 ] || [[ $1 =~ [-].+  ]] ; then
        ledger accounts | fzf --multi --preview "ledger balance $* {+}"
    elif [ $# -eq 1 ] ; then
        ledger balance \( ^Assets ^Liabilities \) and $(_ledger_smartcase_expr "$*")
    else
        ledger balance \( ^Assets ^Liabilities \) and $*
    fi
}

ele() {
    fn=$(sed -En 's/^--file (.*)/\1/p' ~/.ledgerrc)
    vim "$(eval "echo $fn")"
}

lx() {
    entry=$(ledger xact $*)
    fn=$(sed -En 's/^--file (.*)/\1/p' ~/.ledgerrc)
    fn=${fn/#\~/$HOME}

    echo "$entry"
    read -q reply?"Is it ok? (Y/n) "
    echo
    case "$reply" in
        [yY])
            echo "$entry\n" >> "$fn";;
    esac
}

budgets() {
    seq 0 24 | xargs -I{} date -d "this month - {} months" +%Y-%m | \
        fzf --reverse --preview-window 90% --preview 'ledger budget -p {} --exchange R ^Expenses and not ^Expenses:Cash'
}

# vim: et ft=zsh :