bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

openepaperlink: white foreground for #promo

Browse source
This commit is contained in:
Juerd Waalboer 2025-01-04 03:08:26 +01:00
parent 3e7dee0da7
commit e644526496
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
contrib/openepaperlink.pl
View file

@ -112,9 +112,13 @@ sub draw_hwtype_3 ($product) {
# Terminus sizes: 12 14 16 18 20 22 24 28 32 # Terminus sizes: 12 14 16 18 20 22 24 28 32
my $is_promo = $product->{tags}{promo};
my $fg = $is_promo ? $white : $black;
my $bg = $is_promo ? $red : $white;
my $image = Imager->new(xsize => $xsize, ysize => $ysize); my $image = Imager->new(xsize => $xsize, ysize => $ysize);
$image->setcolors(colors => \@colors); $image->setcolors(colors => \@colors);
$image->box(filled => 1, color => $product->{tags}{promo} ? $red : $white); $image->box(filled => 1, color => $bg);
my $h = $font->bounding_box(string => "")->font_height + 1; my $h = $font->bounding_box(string => "")->font_height + 1;
@ -135,7 +139,7 @@ sub draw_hwtype_3 ($product) {
image => $image, image => $image,
font => $font, font => $font,
string => $text, string => $text,
color => $black, color => $fg,
justify => "center", justify => "center",
x => 0, x => 0,
y => 0, y => 0,
@ -149,7 +153,7 @@ sub draw_hwtype_3 ($product) {
image => $image, image => $image,
font => $font, font => $font,
string => $addon_text, string => $addon_text,
color => ($addon_highlight ? $red : $black), color => ($addon_highlight ? ($is_promo ? $black : $red) : $fg),
justify => "center", justify => "center",
x => 0, x => 0,
y => $bottom, y => $bottom,
@ -194,7 +198,7 @@ sub draw_hwtype_3 ($product) {
halign => 'right', halign => 'right',
string => comma("$product->{tags}{$unit} $unit $perX/$X"), string => comma("$product->{tags}{$unit} $unit $perX/$X"),
utf8 => 1, utf8 => 1,
color => $black, color => $fg,
font => $font, font => $font,
aa => 0, aa => 0,
size => 12, size => 12,
@ -243,7 +247,7 @@ for my $line (@lines) {
my $fn = draw($product, $hwtype, !!@ARGV) or next; my $fn = draw($product, $hwtype, !!@ARGV) or next;
print "Uploading image for $mac ($product->{description}).\n"; print "Uploading image for $mac ($product->{description}).\n";
post "imgupload" => [ mac => $mac, file => $fn, lut => 1, alias => $product->{description} ]; post "imgupload" => [ mac => $mac, lut => 1, alias => $product->{description}, file => $fn ];
if ($new_hwtype{$mac}) { if ($new_hwtype{$mac}) {
$line =~ s/$/ $new_hwtype{$mac}/; $line =~ s/$/ $new_hwtype{$mac}/;