From 3e6e3b6a343a952d6b7bd401973c1763a7e2c115 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Mon, 2 Mar 2026 10:21:21 -0500
Subject: [PATCH] Use original font size for MOON and WEEK specials.

---
 rem2pdf/bin/rem2pdf.in          | 3 +++
 rem2pdf/lib/Remind/PDF/Entry.pm | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/rem2pdf/bin/rem2pdf.in b/rem2pdf/bin/rem2pdf.in
index 47127812..21738bc5 100644
--- a/rem2pdf/bin/rem2pdf.in
+++ b/rem2pdf/bin/rem2pdf.in
@@ -302,6 +302,9 @@ if ($settings->{svg}) {
                                                         $settings->{width}, $settings->{height});
 }
 
+# Save original entry size
+$settings->{original_entry_size} = $settings->{entry_size};
+
 # set_metadata not available in older versions of Cairo
 eval { $surface->set_metadata('title', 'Calendar'); };
 eval { $surface->set_metadata('author', 'Remind (https://dianne.skoll.ca/projects/remind/)'); };
diff --git a/rem2pdf/lib/Remind/PDF/Entry.pm b/rem2pdf/lib/Remind/PDF/Entry.pm
index 81a0f01b..6f4eff8a 100644
--- a/rem2pdf/lib/Remind/PDF/Entry.pm
+++ b/rem2pdf/lib/Remind/PDF/Entry.pm
@@ -146,7 +146,7 @@ sub render
         my $layout = Pango::Cairo::create_layout($cr);
 
         $layout->set_text(Encode::decode('UTF-8', $self->{body}));
-        my $desc = Pango::FontDescription->from_string($settings->{entry_font} . ' ' . int(0.75 * $settings->{entry_size}) . 'px');
+        my $desc = Pango::FontDescription->from_string($settings->{entry_font} . ' ' . int(0.75 * $settings->{original_entry_size}) . 'px');
         $layout->set_font_description($desc);
         my ($wid, $h) = $layout->get_pixel_size();
 
@@ -197,7 +197,7 @@ sub render
         my $layout;
         my $bodywidth = 0;
         if ($self->{fontsize} <= 0) {
-                $self->{fontsize} = $settings->{entry_size};
+                $self->{fontsize} = $settings->{original_entry_size};
         }
         if ($self->{size} <= 0) {
                 $self->{size} = $settings->{daynum_size};