common: bump version to 1.9
[sheet.git] / index.plp
index 22f13df..01b59c4 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -2,14 +2,13 @@
 
 Html({
        title => 'cheat sheets',
-       version => 'v1.4',
+       version => '1.9',
        description => [
                "Cheat sheets summarising various software programs and standards.",
        ],
        keywords => [qw'
                sheet cheat reference software overview summary help keyboard map unicode
        '],
-       stylesheet => [qw'light dark red'],
 });
 
 :>
@@ -22,11 +21,22 @@ the following topics have been condensed into single pages of reference.
 Originally created by Mischa <span style="font-variant:small-caps">Poslawsky</span>,
 but you're free to use, print, alter, and redistribute under the AGPL license.
 </p>
+<:
+my @format = ('--date=short', "--pretty=%ad (%ar)\t%s");
+if (open my $log, '-|', git => 'log', -1, @format) {{
+       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";
+}}
 
+:>
 <div class="section">
 <h2>Keyboard maps</h2>
 <ul>
 <li><a href="/readline">readline</a>
+<li><a href="/screen">screen</a>
 <li><a href="/less">less</a>
 <li><a href="/vi">vi/vim</a>
 <li><a href="/vimperator">vimperator</a>
@@ -42,7 +52,9 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <li><a href="/charset">charsets</a>
 <li><a href="/unicode">common glyphs</a>
 <li><a href="/digraphs">digraphs</a>
-<li><a href="/writing">script comparison</a>
+<li><a href="/writing">alphabet comparison</a>
+<li><a href="/latin">latin variants</a>
+<li><a href="/font">font coverage</a>
 </ul>
 </div>
 
@@ -51,21 +63,12 @@ but you're free to use, print, alter, and redistribute under the AGPL license.
 <ul>
 <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/2">starcraft 2 units</a>
+       (<a href="/sc" title="StarCraft: Brood War">bw</a>)
 <li><a href="/emoji">emoticons</a>
 </ul>
 </div>
 
-<:
-if (open my $log, '-|', 'git log -20 --since=2\ week\ ago --pretty=%ai%x00%s%x00%h') {
-       print "<h1>Recent updates</h1>\n\n";
-       print "<dl>\n";
-       while (readline $log) {
-               chomp;
-               my ($date, $subject, $commit) = split /\0/, $_;
-               $date =~ s{( .+)}{<small>$1</small>};
-               printf '<dt>%s</dt><dd>%s</dd>'."\n", $date, $subject;
-       }
-       print "</dl>\n\n";
-}
-