font: determine source os to better explain distribution

[sheet.git] / index.plp

diff --git a/index.plp b/index.plp
index 404d2e3ec48de864f19ae03db636a67d6fbd862a..8baf9017d1722a3685432d0975ac7308e8940425 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -9,7 +9,6 @@ Html({
        keywords => [qw'
                sheet cheat reference software overview summary help keyboard map unicode
        '],
-       stylesheet => [qw'light dark red'],
 });
 
 :>
@@ -25,7 +24,8 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <:
 my @format = ('--date=short', "--pretty=%ad (%ar)\t%s");
 if (open my $log, '-|', git => 'log', -1, @format) {{
-       my $line = readline $log or next;
+       my $line = readline $log;
+       $line or next;  # explicitly ignore empty input
        my ($date, $subject) = split /[\t\n]/, $line;
        $date =~ s/ \K/<small>/ and $date .= '</small>';
        print "<p><strong>Last update</strong>: $date $subject</p>\n";
@@ -63,6 +63,7 @@ if (open my $log, '-|', git => 'log', -1, @format) {{
 <li><a href="/browser">browser support</a>
 <li><a href="/countries">country codes</a>
 <li><a href="/perl">perl versions</a>
+<li><a href="/apl">apl symbols</a>
 <li><a href="/termcol">terminal colours</a>
 <li><a href="/sc">starcraft units</a>
 <li><a href="/emoji">emoticons</a>