From a32173ace60df5a1e9414f5e95b556c436f62718 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Tue, 3 Aug 2004 04:34:50 +0000
Subject: changes

---
 scripts/bal | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)
 mode change 100755 => 100644 scripts/bal

(limited to 'scripts/bal')

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