From cf266153da2a0d7a6e246b79cbfcd259eb56e566 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 26 Feb 2013 14:50:47 +0100
Subject: [PATCH] Shame: negative amounts in red, sort.

---
 plugins/users | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/users b/plugins/users
index 4cf978d..18fe8da 100755
--- a/plugins/users
+++ b/plugins/users
@@ -38,7 +38,7 @@ sub list {
 }
 
 sub shame {
-    system "sort -f revbank.accounts | grep -v ^# | grep -- ' .-' | more";
+    system "sort -k2 -n revbank.accounts | grep -v ^# | grep -- ' -' | perl -pe's/( -[\\d.]+)/\\e[31;1m\$1\\e[0m/' | more";
     return ACCEPT;
 }