browser: user-configurable usage threshold
[sheet.git] / index.plp
index 789607b297084b949f5fbf54ae6f71729c9eaab8..22f13df4a9273f1e0220493c3a869949939dec84 100644 (file)
--- a/index.plp
+++ b/index.plp
@@ -1,8 +1,71 @@
+<(common.inc.plp)><:
+
+Html({
+       title => 'cheat sheets',
+       version => 'v1.4',
+       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'],
+});
+
+:>
+<h1>Shiar's cheat sheets</h1>
+
+<p>
+Through the miracle of formatting, design, abbreviation, compression, and Perl,
+the following topics have been condensed into single pages of reference.
+<br>
+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>
+
+<div class="section">
+<h2>Keyboard maps</h2>
+<ul>
+<li><a href="/readline">readline</a>
+<li><a href="/less">less</a>
+<li><a href="/vi">vi/vim</a>
+<li><a href="/vimperator">vimperator</a>
+<li><a href="/mutt">mutt</a>
+<li><a href="/nethack">nethack</a>
+<li><a href="/mplayer">mplayer</a>
+</ul>
+</div>
+
+<div class="section">
+<h2>Unicode characters</h2>
+<ul>
+<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>
+</ul>
+</div>
+
+<div class="section">
+<h2>Other references</h2>
+<ul>
+<li><a href="/browser">browser support</a>
+<li><a href="/countries">country codes</a>
+<li><a href="/termcol">terminal colours</a>
+<li><a href="/emoji">emoticons</a>
+</ul>
+</div>
+
 <:
-$header{Status}   = '302 Go right ahead';
-$header{Location} = '/vim';
-:><html>
-<body>
-<p>Mainly just the <a href="/vim">Vim sheet</a> so far...</p>
-</body>
-</html>
+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";
+}
+