[zsh] Update aliases.

- Add quick ledger xact function "lx".

1 files changed, 17 insertions, 0 deletions

diff --git a/files/.zsh/rc/S51_ledger b/files/.zsh/rc/S51_ledger
index dfc6ee9..7d632cf 100644
--- a/files/.zsh/rc/S51_ledger
+++ b/files/.zsh/rc/S51_ledger
@@ -1,6 +1,9 @@
 # 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'
 
 bal() {
@@ -12,4 +15,18 @@ ele() {
     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
+}
+
 # vim: et ft=zsh :