orrg

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:
M
orrg.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', '');