sergiotarxz/burguillos.info
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Allowing more text in previews.

Browse Source
This commit is contained in:
Sergiotarxz 2023-09-17 01:51:22 +02:00
parent ee89210e02
commit 4812fd2579
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/BurguillosInfo/Preview.pm
View File

@ -104,15 +104,16 @@ sub _GenerateSVGPreview($self, $title, $content, $image_file, $image_bottom_prev
$group->text(
x => 10,
y => $new_y,
style => { 'font-size' => 50 }
style => { 'font-size' => 42 }
)->cdata($title);
my $n = 0;
for my $line (@content) {
next if $line =~ /^\s*$/;
$group->text(
x => 10,
y => $new_y + 40 + ( 30 * $n ),
style => { 'font-size' => 38 }
style => { 'font-size' => 32 }
)->cdata($line);
$n++;
}