X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/e23bdedbbacbada904520b4d2a90d13f3dd5179d..01d61f72fed7ac041786ea69d1b080f45a4c49d1:/index.plp

diff --git a/index.plp b/index.plp
index 22f13df..01b59c4 100644
--- 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";
-}
-