lei_view_text: translate background colors from git

This seems to work with or without attributes.  We'll deal with
256-color terminal colors when/if somebody cares for it, but the
usual 16 ought to be more than enough.

1 files changed, 15 insertions, 4 deletions

diff --git a/lib/PublicInbox/LeiViewText.pm b/lib/PublicInbox/LeiViewText.pm
index 5d649840..e0d62c0d 100644
--- a/lib/PublicInbox/LeiViewText.pm
+++ b/lib/PublicInbox/LeiViewText.pm
@@ -36,8 +36,11 @@ my %DEFAULT_COLOR = (
         context => undef,
 );
 
+my $COLOR = qr/(?:bright)?
+                (?:normal|black|red|green|yellow|blue|magenta|cyan|white)/x;
+
 sub my_colored {
-        my ($self, $slot) = @_; # $_[2] = buffer
+        my ($self, $slot, $buf) = @_;
         my $val = $self->{"color.$slot"} //=
                         $self->{-leicfg}->{"color.$slot"} //
                         $self->{-gitcfg}->{"color.diff.$slot"} //
@@ -45,11 +48,19 @@ sub my_colored {
                         $DEFAULT_COLOR{$slot};
         $val = $val->[-1] if ref($val) eq 'ARRAY';
         if (defined $val) {
+                $val = lc $val;
                 # git doesn't use "_", Term::ANSIColor does
-                $val =~ s/\Abright([^_])/bright_$1/i;
-                ${$self->{obuf}} .= Term::ANSIColor::colored($_[2], lc $val);
+                $val =~ s/\Abright([^_])/bright_$1/ig;
+
+                # git: "green black" => T::A: "green on_black"
+                $val =~ s/($COLOR)(.+?)($COLOR)/$1$2on_$3/;
+
+                # FIXME: convert git #XXXXXX to T::A-compatible colors
+                # for 256-color terminals
+
+                ${$self->{obuf}} .= colored($buf, $val);
         } else {
-                ${$self->{obuf}} .= $_[2];
+                ${$self->{obuf}} .= $buf;
         }
 }