From c9fb11bd60a2170fb896d77ff8d7706f563ad597 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Mon, 8 Nov 2004 06:43:11 +0000
Subject: updated to version 2.0

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

(limited to 'scripts/bal')

diff --git a/scripts/bal b/scripts/bal
old mode 100644
new mode 100755
index 7fdf54ca..be7c3a0a
--- a/scripts/bal
+++ b/scripts/bal
@@ -1,27 +1,21 @@
 #!/bin/sh
 
-switch=""
-current="-c"
-limit="-l \$50"
-negonly="-N ^Liabilities"
+switch="-c"
+limit="-t (/Liabilities/?a<0:Ua>100)&a"
 
-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"
+elif [ "$1" = "-b" -o "$1" = "-e" -o "$1" = "-p" ]; then
+  switch="$1 $2"
   shift 2
 fi
 
 accts="$@"
 if [ -z "$accts" ]; then
   accts="-Equity -Income -Expenses"
-  if [ ! "$switch" = "-P" ]; then
-    accts="$accts -Savings -Retirement"
-  fi
 else
   limit=""
-  negonly=""
 fi
 
-ledger $current $limit $negonly -s $switch balance $accts
+ledger -VQ $switch $limit -s -S "-AT" balance $accts
-- 
cgit v1.2.3