blob: 4d80a93a4f3a9f64b07188de4be4b194896f64e7 (
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
56
57
58
59
|
# 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 |
head -n-1 | sort |
fzf --multi --preview "ledger balance $* {+}" |
xargs ledger balance $*
elif [ $# -eq 1 ] ; then
ledger balance \( ^Assets ^Liabilities \) and $(_ledger_smartcase_expr "$*")
else
ledger balance \( ^Assets ^Liabilities \) and $*
fi
}
lx() {
local entry=$(ledger xact $*)
local fn="$HOME/Dropbox/ledger/data/current.ledger"
local reply
echo "$entry"
vared -p "Is it ok? (Y/n) " -c reply
case "$reply" in
y|Y|"")
echo "\n$entry" >> "$fn";;
esac
}
budgets() {
first_day_of_current_month=$(date +%Y%m01)
seq 0 24 | xargs -I{} date -d "$first_day_of_current_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 :
|
