From a180fb63ca5b34948194aad96395f3ba8ec5b22d Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 9 Apr 2017 04:03:45 +0200
Subject: [PATCH] charset: newline after each cell in HTML source

---
 charset.plp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/charset.plp b/charset.plp
index ca38182..b6b61b9 100644
--- a/charset.plp
+++ b/charset.plp
@@ -388,7 +388,7 @@ sub range_cell {
 	$attr .= $1 if $class and $class =~ s/( \w+="[^"]*")//;
 	$attr .= sprintf ' class="%s"', $class if $class;
 	$attr .= sprintf ' title="%s"', EscapeHTML($title) if $title;
-	return "<td$attr>$name";
+	return "<td$attr>$name\n";
 }
 
 for my $row (@request) {
@@ -431,6 +431,8 @@ for my $row (@request) {
 				printf '%X', ($offset + $row->{offset}) / $rowdiv;
 			}
 		}
+		say '';
+
 		for (1 .. $cols) {
 			if ($row->{cell}) {
 				print range_cell($row, $offset);
@@ -458,12 +460,11 @@ for my $row (@request) {
 				next;
 			}
 
-			print "\n".$glyphs->glyph_cell($glyph);
+			say $glyphs->glyph_cell($glyph);
 		}
 		continue {
 			$offset += $colsize;
 		}
-		print "\n";
 	}
 	say '</table></div>';
 }
-- 
2.30.0