From 9ca1d24d30a485300b9486b18c068660da630cc1 Mon Sep 17 00:00:00 2001
From: John Wiegley <johnw@newartisans.com>
Date: Thu, 13 May 2004 18:37:12 -0400
Subject: initial import into Darcs

---
 scripts/bal | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 scripts/bal

(limited to 'scripts/bal')

diff --git a/scripts/bal b/scripts/bal
new file mode 100755
index 00000000..7fdf54ca
--- /dev/null
+++ b/scripts/bal
@@ -0,0 +1,27 @@
+#!/bin/sh
+
+switch=""
+current="-c"
+limit="-l \$50"
+negonly="-N ^Liabilities"
+
+if [ "$1" = "-C" -o "$1" = "-U" -o "$1" = "-P" ]; then
+  switch="$1"
+  shift
+elif [ "$1" = "-b" -o "$1" = "-e" ]; then
+  current="$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
-- 
cgit v1.2.3