From c9b704adca979766e7e5bccd92c6329a99867ac1 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Tue, 5 Nov 2019 06:16:54 +0100
Subject: [PATCH] Make ">" prompt green

---
 revbank | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/revbank b/revbank
index 2f895a4..de31c80 100755
--- a/revbank
+++ b/revbank
@@ -39,7 +39,6 @@ if (@ARGV) {
 $| = 1;
 
 my $readline = Term::ReadLine->new($0);
-$readline->ornaments('me,md,,');
 
 my $select = IO::Select->new;
 $select->add(\*STDIN);
@@ -49,8 +48,14 @@ my $cart = RevBank::Cart->new;
 sub prompt {
     my ($prompt, $plugins, $completions) = @_;
 
-    $prompt =~ s/$/: /;
-    $prompt =~ s/([?>]): $/$1 /;
+    if ($prompt) {
+        $prompt =~ s/$/:/ if $prompt !~ /[?>]$/;
+        $prompt .= " ";
+    } else {
+        # \x01...\x02 = zero width markers for readline
+        # \e[...m     = ansi escape (32 = green, 1 = bright)
+        $prompt = "\x01\e[32;1m\x02>\x01\e[0m\x02 ";
+    }
 
     my @matches;
     $readline->Attribs->{completion_entry_function} = sub {
@@ -127,7 +132,7 @@ OUTER: for (;;) {
     }
 
     my $split_input = 1;
-    my $prompt = ">";
+    my $prompt = "";
     my @plugins = RevBank::Plugins->new;
     my $method = "command";