… | |
… | |
986 | |
986 | |
987 | return $img |
987 | return $img |
988 | if FOCUS; |
988 | if FOCUS; |
989 | |
989 | |
990 | my $fade = @_ >= 1 ? $_[0] : defined $self->resource ("fade") ? $self->resource ("fade") * 0.01 : 0; |
990 | my $fade = @_ >= 1 ? $_[0] : defined $self->resource ("fade") ? $self->resource ("fade") * 0.01 : 0; |
991 | my $color = @_ >= 2 ? $_[1] : $self->resource ("color+" . urxvt::Color_fade); |
991 | my $color = @_ >= 2 ? $_[1] : $self->resource ("color+" . &urxvt::Color_fade ()); # Color_fade not always available |
992 | |
992 | |
993 | $img = $img->tint ($color) if $color ne "rgb:00/00/00"; |
993 | $img = $img->tint ($color) if $color ne "rgb:00/00/00"; |
994 | $img = $img->muladd (1 - $fade, 0) if $fade; |
994 | $img = $img->muladd (1 - $fade, 0) if $fade; |
995 | |
995 | |
996 | $img |
996 | $img |
… | |
… | |
1448 | } |
1448 | } |
1449 | } |
1449 | } |
1450 | } |
1450 | } |
1451 | |
1451 | |
1452 | # helper function, quote string as perl without allowing |
1452 | # helper function, quote string as perl without allowing |
1453 | # any code execution or other shenanigans. does not |
1453 | # any code execution or other shenanigans. |
1454 | # support binary NULs in string. |
|
|
1455 | sub q0 { |
1454 | sub q0 { |
1456 | (my $str = shift) =~ s/\x00//g; # make sure there really aren't any embedded NULs |
|
|
1457 | "q\x00$str\x00" |
1455 | "qq\x00\Q$_\E\x00" |
1458 | } |
1456 | } |
1459 | |
1457 | |
1460 | sub old_bg_expr { |
1458 | sub old_bg_expr { |
1461 | my ($self) = @_; |
1459 | my ($self) = @_; |
1462 | |
1460 | |