1 files changed, 27 insertions, 0 deletions
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