blob: 65e709b6a7069a6878577cf85a14a44c764c3fa1 (
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
52
53
54
55
|
# 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 luncleared='ledger register --uncleared --begin "last 30 days"'
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'
alias ele="vim '$HOME/Dropbox/ledger/data/current.ledger'"
_ledger_smartcase_expr() {
echo "$1" | sed -r 's/[A-Z]/.*&/g'
}
bal() {
if [ $# -eq 0 ] || [[ $1 =~ [-].+ ]] ; then
ledger balance --format '%(account)\n' ^Assets | sort | fzf --multi --preview "ledger balance $* {+}"
elif [ $# -eq 1 ] ; then
ledger balance \( ^Assets ^Liabilities \) and $(_ledger_smartcase_expr "$*")
else
ledger balance \( ^Assets ^Liabilities \) and $*
fi
}
lx() {
entry=$(ledger xact $*)
fn="$HOME/Dropbox/ledger/data/current.ledger"
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 --force-color -p {} --exchange R ^Expenses and not ^Expenses:Cash'
}
expenses() {
account=$(ledger accounts -p 'last 6 months' '^Assets:' | fzf)
ledger balance "$@" '^Expenses:' and not '^Expenses:Cash$' and expr "any(account == '$account')"
}
alias expenses-month='expenses -p "this month"'
# vim: et ft=zsh :
|
