felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-21 08:42:56 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

More updates.

Browse Source
This commit is contained in:
Dianne Skoll
2022-01-27 09:18:41 -05:00
parent dc07a3cf32
commit 2f8eaeacf0
2 changed files with 106 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
rem2pdf/lib/Remind/PDF/Entry.pm
+30 -1
View File
@@ -14,7 +14,18 @@ sub new_from_hash
$class = 'Remind::PDF::Entry::UNKNOWN';
}
}
return bless($hash, $class);
bless($hash, $class);
$hash->adjust();
return $hash;
}
# Base class: Set the color to black
sub adjust
{
my ($self) = @_;
$self->{r} = 0;
$self->{g} = 0;
$self->{b} = 0;
}
package Remind::PDF::Entry::html;
@@ -27,8 +38,26 @@ package Remind::PDF::Entry::moon;
use base 'Remind::PDF::Entry';
package Remind::PDF::Entry::shade;
use base 'Remind::PDF::Entry';
sub adjust
{
my ($self) = @_;
if ($self->{body} =~ /^(\d+)\s+(\d+)\s+(\d+)/) {
$self->{r} = $1;
$self->{g} = $2;
$self->{b} = $3;
}
}
package Remind::PDF::Entry::color;
use base 'Remind::PDF::Entry';
# Strip the RGB prefix from body
sub adjust
{
my ($self) = @_;
$self->{body} =~ s/^\d+\s+\d+\s+\d+\s+//;
}
package Remind::PDF::Entry::postscript;
use base 'Remind::PDF::Entry';
package Remind::PDF::Entry::psfile;