From d11d31ec2e89b4c6c7d6113094403f157e85452b Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Thu, 28 Feb 2013 02:07:43 +0100
Subject: [PATCH] Negative balances in red.

---
 RevBank/Messages.pm | 3 ++-
 plugins/users       | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/RevBank/Messages.pm b/RevBank/Messages.pm
index 81f07a5..727e80a 100644
--- a/RevBank/Messages.pm
+++ b/RevBank/Messages.pm
@@ -46,7 +46,8 @@ sub hook_reject {
 sub hook_user_balance {
     my ($class, $username, $old, $delta, $new) = @_;
     my $sign = $delta >= 0 ? '+' : '-';
-    printf "New balance for %s: %+.2f %s %.2f = \e[1m%+.2f\e[0m %s\n",
+    my $rood = $new < 0 ? '31;' : '';
+    printf "New balance for %s: %+.2f %s %.2f = \e[${rood}1m%+.2f\e[0m %s\n",
         $username, $old, $sign, abs($delta), $new,
         ($new < -13.37 ? "\e[5;1m(!!)\e[0m" : "");
 }
diff --git a/plugins/users b/plugins/users
index 18fe8da..b8543c9 100755
--- a/plugins/users
+++ b/plugins/users
@@ -33,7 +33,7 @@ sub hook_checkout {
 }
 
 sub list {
-    system "sort -f revbank.accounts | grep -v ^# | more";
+    system "sort -f revbank.accounts | grep -v ^# | perl -pe's/( -[\\d.]+)/\\e[31;1m\$1\\e[0m/' | more";
     return ACCEPT;
 }