it* hacker news on gopher Err codevoid.de 70 i Err codevoid.de 70 hgit clone git://git.codevoid.de/hn-gopher URL:git://git.codevoid.de/hn-gopher codevoid.de 70 1Log /git/hn-gopher/log.gph codevoid.de 70 1Files /git/hn-gopher/files.gph codevoid.de 70 1Refs /git/hn-gopher/refs.gph codevoid.de 70 i--- Err codevoid.de 70 1commit 6533286bc1276e7584436c98fa4f88251da82bf9 /git/hn-gopher/commit/6533286bc1276e7584436c98fa4f88251da82bf9.gph codevoid.de 70 1parent d93b0ad18f02983bb67885550fa8258095545a34 /git/hn-gopher/commit/d93b0ad18f02983bb67885550fa8258095545a34.gph codevoid.de 70 hAuthor: Stefan Hagen URL:mailto:sh+git[at]codevoid[dot]de codevoid.de 70 iDate: Mon, 30 Jul 2018 16:08:15 +0200 Err codevoid.de 70 i Err codevoid.de 70 iAdd level bar | to the side of comments Err codevoid.de 70 i Err codevoid.de 70 iDiffstat: Err codevoid.de 70 i M hn-scraper.pl | 10 +++++----- Err codevoid.de 70 i Err codevoid.de 70 i1 file changed, 5 insertions(+), 5 deletions(-) Err codevoid.de 70 i--- Err codevoid.de 70 1diff --git a/hn-scraper.pl b/hn-scraper.pl /git/hn-gopher/file/hn-scraper.pl.gph codevoid.de 70 it@@ -127,11 +127,11 @@ sub formatContent { Err codevoid.de 70 i Err codevoid.de 70 i # shorten links Err codevoid.de 70 i my $short = $linkitem->{href}; Err codevoid.de 70 i- my $l = 63 - length($pad); Err codevoid.de 70 i+ my $l = 62 - length($pad); Err codevoid.de 70 i if(length($short) > $l) { $short = substr($short,0,$l)."..."; } Err codevoid.de 70 i Err codevoid.de 70 i # add link to output scalar Err codevoid.de 70 i- $links .= sprintf("[h|${pad}[%i]: %s|URL:%s|codevoid.de|70]\n", $c, $short, $linkitem->{href}); Err codevoid.de 70 i+ $links .= sprintf("[h|${pad}\\|[%i]: %s|URL:%s|codevoid.de|70]\n", $c, $short, $linkitem->{href}); Err codevoid.de 70 i } Err codevoid.de 70 i } Err codevoid.de 70 i Err codevoid.de 70 it@@ -143,12 +143,12 @@ sub formatContent { Err codevoid.de 70 i $content_clean =~ s/\n\n(\n)*/\n\n/g; Err codevoid.de 70 i Err codevoid.de 70 i # Add padding to the left Err codevoid.de 70 i- $content_clean =~ s/^/$pad/g; Err codevoid.de 70 i- $content_clean =~ s/\n/\n$pad/g; Err codevoid.de 70 i+ $content_clean =~ s/^/$pad\|/g; Err codevoid.de 70 i+ $content_clean =~ s/\n/\n$pad\|/g; Err codevoid.de 70 i Err codevoid.de 70 i # print links if there were any. Err codevoid.de 70 i if($links) { Err codevoid.de 70 i- $content_clean .= "\n\n$links"; Err codevoid.de 70 i+ $content_clean .= "\n$pad\|\n$links"; Err codevoid.de 70 i } else { Err codevoid.de 70 i $content_clean .= "\n"; Err codevoid.de 70 i } Err codevoid.de 70 .