orrg

Unnamed repository; edit this file 'description' to name the repository.
git clone git://code.clttr.info/orrg.git
Log | Files | Refs | README | LICENSE

commit af7333093a747a6b9bf6e969664352bbe65348ae
parent ecf0d4d8ec1179291f21d20237d19026eb60c7d3
Author: René Wagner <rwagner@rw-net.de>
Date:   Thu, 10 Dec 2020 21:28:10 +0100

improve handling of trailing/leading whitespaces

and newlines

Diffstat:
Morrg.pl | 8++++++--
1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/orrg.pl b/orrg.pl @@ -78,11 +78,15 @@ sub item } if ($it->description ne '') { my $desc = $it->description; - chomp $desc; $desc =~ s/\<li\>/* /igm; $desc =~ s/\<br \/\>/\r\n/igm; + $desc = $hs->parse($desc); + $desc =~ s/^\r\n$//igm; $desc =~ s/^\s+\*/*/igm; - push @item, $hs->parse($desc); + $desc =~ s/\s+$//igm; + $desc =~ s/^\s+//igm; + chomp $desc; + push @item, $desc; } $link eq '' or push @item, ('=> '.$link.' open entry in browser', '');