-- Leo's gemini proxy

-- Connecting to git.thebackupbox.net:1965...

-- Connected

-- Sending request

-- Meta line: 20 text/gemini

repo: rxvt-unicode-sixel
action: commit
revision:
path_from:
revision_from: d4f42e718a68b107da1d28a0710fe3b2340b13e0:
path_to:
revision_to:

commit d4f42e718a68b107da1d28a0710fe3b2340b13e0
Author: Emanuele Giaquinta <emanuele.giaquinta@gmail.com>
Date:   Thu Jul 14 13:57:51 2016 +0000

    Fix bg option priority.

diff --git a/src/perl/background b/src/perl/background

--- a/src/perl/background
+++ b/src/perl/background
@@ -1426,7 +1426,7 @@ sub old_bg_expr {

    my $bg_opts = $self->{bg_opts};

-   if ($bg_opts->{root}) {
+   if ($bg_opts->{root} =~ /^\s*(?:true|yes|on|1)\s*$/i) {
       $expr .= "tile (";

       my $shade = $bg_opts->{shade};
@@ -1525,10 +1525,10 @@ sub on_osc_seq {
 }

 sub find_resource {
-   my ($self, $a, $b) = @_;
+   my ($self, $res, $opt) = @_;

-   my $v = $self->x_resource ($a);
-   $v = $self->x_resource ($b) unless defined $v;
+   my $v = $self->x_resource ($opt);
+   $v = $self->x_resource ($res) unless defined $v;

    $v
 }
@@ -1545,10 +1545,7 @@ sub on_start {
       $self->{bg_opts}->{shade} = $self->find_resource ("shading", "sh");
       $self->{bg_opts}->{tint} = $self->find_resource ("tintColor", "tint");
       $self->{bg_opts}->{blur} = $self->find_resource ("blurRadius", "blr");
-      if ($self->x_resource_boolean ("transparent")
-          or $self->x_resource_boolean ("tr")) {
-         $self->{bg_opts}->{root} = 1;
-      }
+      $self->{bg_opts}->{root} = $self->find_resource ("transparent", "tr");

       $self->old_bg_opts ($self->find_resource ("backgroundPixmap", "pixmap"));
       $expr = $self->old_bg_expr;

-- Response ended

-- Page fetched on Sun Jun 2 10:11:54 2024