From 9f5cb900e58653de6fd4f2983d3dcbe23662c35d Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Sat, 21 Aug 2004 06:20:21 -0400
Subject: changes to bal script

---
 scripts/bal | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

(limited to 'scripts/bal')

diff --git a/scripts/bal b/scripts/bal
index a6d97ab9..ca79b8ad 100755
--- a/scripts/bal
+++ b/scripts/bal
@@ -1,26 +1,23 @@
 #!/bin/sh
 
-switch=""
-current="-c"
-limit="-l \$50"
+switch="-c"
+limit="-d /^Liabilities/?T<0:(T&AT>{\$100.00})"
 
-if [ "$1" = "-C" -o "$1" = "-U" -o "$1" = "-P" ]; then
+if [ "$1" = "-C" -o "$1" = "-U" ]; then
   switch="$1"
   shift
 elif [ "$1" = "-b" -o "$1" = "-e" ]; then
-  current="$1 $2"
+  switch="$1 $2"
   shift 2
 fi
 
 accts="$@"
 if [ -z "$accts" ]; then
   accts="-Equity -Income -Expenses"
-  if [ ! "$switch" = "-P" ]; then
-    accts="$accts -Savings -Retirement"
-  fi
+  accts="$accts -^Retirement"
+  accts="$accts -Deposits"
 else
   limit=""
-  negonly=""
 fi
 
-ledger $current $limit $negonly -s $switch balance $accts
+ledger $switch $limit -s -S "-AT" -V -Q balance $accts
-- 
cgit v1.2.3