From 50675af660c6830d98a56262f57f3ae97563fa12 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 1 Nov 2022 04:50:52 +0100
Subject: [PATCH] Case insensitive sort

---
 plugins/users | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/plugins/users b/plugins/users
index 26d3128..0482193 100644
--- a/plugins/users
+++ b/plugins/users
@@ -31,7 +31,13 @@ sub hook_checkout($class, $cart, $user, $transaction_id, @) {
 
 sub list($self) {
     require RevBank::TextEditor;
-    my $list = join "", sort grep !/^[-+]/, slurp("revbank.accounts");
+
+    my $list = join "", sort {
+        lc($a) cmp lc($b)
+    } grep {
+        !/^[-+]/
+    } slurp("revbank.accounts");
+
     RevBank::TextEditor::pager("RevBank account list", $list);
     return ACCEPT;
 }