Collapse multiple newlines after all other processing.

This commit is contained in:
Dianne Skoll
2024-08-28 12:52:29 -04:00
parent c860b46baa
commit 40a78dfbbb

View File

@@ -91,12 +91,11 @@ sub render
# Collapse multiple spaces/tabs to a single space
$body =~ s/[ \t]+/ /g;
# Collapse multiple newlines to a single newline
$body =~ s/\n+/\n/g;
# Remove whitespace before/after newlines
$body =~ s/\s+\n/\n/g;
$body =~ s/\n\s+/\n/g;
# Collapse multiple newlines to a single newline
$body =~ s/\n+/\n/g;
$layout->set_text(Encode::decode('UTF-8', $body));
my $desc = Pango::FontDescription->from_string($settings->{entry_font} . ' ' . $settings->{entry_size} . 'px');