common: bump version to 1.11
[sheet.git] / index.plp
index ed49475..57cca20 100644 (file)
--- a/index.plp
+++ b/index.plp
-<:
-use utf8;
-use strict;
-use warnings;
-no  warnings 'qw';  # you know what you doing
-no  warnings 'uninitialized';  # save some useless checks for more legible code
-
-our $VERSION = '1.1';
-
-our $ascii = 0;
-if (exists $get{ascii}) {
-       $ascii = $get{ascii} ne '0';  # manual override
-} elsif (defined $ENV{HTTP_ACCEPT_CHARSET}) {
-       $ascii = 1;
-       for (split q{,}, $ENV{HTTP_ACCEPT_CHARSET}) {
-               $ascii = 0, last if $_ eq '*' or m{utf-?8}i;
-       }
-}
-
-my $charset = $ascii ? 'us-ascii' : 'utf-8';
-my $ctype = "text/html; charset=$charset";
-$header{content_type} = $ctype;
-
-:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
- "http://www.w3.org/TR/html4/loose.dtd">
-<html>
+<(common.inc.plp)><:
+
+Html({
+       title => 'cheat sheets',
+       version => '1.11',
+       description => [
+               "Cheat sheets summarising various software programs and standards.",
+       ],
+       keywords => [qw'
+               sheet cheat reference software overview summary help keyboard map unicode
+       '],
+       raw => [
+               '<link rel="sitemap" type="application/xml" href="/sitemap.xml">',
+               '<link rel="alternate" type="application/rss+xml"',
+               ' title="RSS feed of repository updates"',
+               ' href="http://git.shiar.nl/sheet.git/rss">',
+       ],
+});
 
-<head>
-<title>vi cheat sheet</title>
-<meta http-equiv="content-type" content="<:= $ctype :>">
-<link rel="stylesheet" type="text/css" media="all" href="base.css">
-<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
-<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
-       my %styles = map {$_ => $_} qw(dark circus mono terse);
-       our $style = exists $get{style} && $styles{$get{style}} || 'light';
-       printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
-               $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_
-       ) for keys %styles;
-
-       our $showkeys = exists $get{keys} && $get{keys} ne '0';
-       print "\n<style> .no {visibility:hidden} </style>" unless $showkeys;
-       print "\n<style> .no, .alias {opacity:.5} </style>"
-               if $showkeys and $get{keys} eq 'ghost';
 :>
-
-<script><!--
-function setmode(classname) {
-       // set style for each #rows>li>ul>li to display:none unless it matches classname
-       var showclass = classname ? ' '+classname+'(?!\\w)' : '^$';
-       var parentskip = /^keys/;
-       var row = document.getElementById('rows').firstChild;
-       do {
-               if (row.tagName == 'LI' && row.firstChild.tagName == 'UL'
-               && !row.firstChild.className.match(parentskip)) {
-                       var el = row.firstChild.firstChild;
-                       if (el) do {
-                               if (el.tagName == 'LI') {
-                                       el.style.display = el.className.match(showclass) ? 'block' : 'none';
-                               }
-                       } while (el = el.nextSibling);
-               }
-       } while (row = row.nextSibling);
-
-       // update H2 to reflect the first part of a currently active (but hidden) H3
-       var h3s = document.getElementsByTagName('H3');
-       for (var i = 0; i < h3s.length; i++) {
-               if (h3s[i].parentNode.style.display != 'block') continue;
-               document.getElementsByTagName('H2')[0].innerHTML = h3s[i].firstChild.data;
-       }
-} // setmode
-//--></script>
-
-<body>
-
-<h1>vi/vim cheat sheet</h1>
-
-<h2>normal mode (default)</h2>
-
-<ul id="rows">
-
-<li class="row">
-       <ul class="keys omni">
-       <li class="mo" onclick="setmode()"><b>Esc</b> normal mode
-               <!-- not as static anymore, but never bothered; just see ^[ -->
-       </ul>
-</li>
-
+<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 class="family-name">Poslawsky</span>,
+but you're free to use, print, alter, and redistribute under the AGPL license.
+</p>
 <:
-our %sign = (
-       arg    => $ascii ? '.' : '·',  # described as 'dot'
-       motion => $ascii ? '|' : '↕',
-       alias  => $ascii ? 'see: ' : '»',
-       up     => $ascii ? 'up'    : '▲',
-       right  => $ascii ? 'right' : '▶',
-       down   => $ascii ? 'down'  : '▼',
-       left   => $ascii ? 'left'  : '◀',
-       sep    => $ascii ? '*'     : '•',
-       _      => exists $get{ascii} && !$ascii ? "\x{200b}" : '<wbr>',
-               # use the correct ZWNJ only when unicode is forced on
-               # default to use unofficial html for best support
-);
-
-my %keys = do 'vim-cmds.inc.pl';
-
-my @casedesc = qw(ctrl shift);
-my @rowdesc = qw(numeric top home bottom);
-my %keyrows = do 'vim-keys.inc.pl';
-
-sub keyunalias {
-       my ($key, %tree) = @_;
-       $key =~ s/(\S*?)(\^?\S)($|\s.*)/$2/;
-       my $mode = $1;
-       return [] unless defined $keys{$mode}{$key};
-       return $keys{$mode}{$key} if ref $keys{$mode}{$key};
-       return if $tree{$key}++;  # endless loop failsafe
-       return keyunalias($keys{$mode}{$key}, %tree);
-}
-
-sub escapeclass {
-       local $_ = shift;
-       s/\^/_c/g;
-       s/\[/_sbo/g;
-       s/\]/_sbc/g;
-       s/^$/_/;
-       return $_;
-}
-
-sub print_key {
-       my ($mode, $key, $keyinfo) = @_;
-
-       $keyinfo = [ $sign{alias}.$keyinfo, keyunalias($keyinfo)->[1] . ' alias' ]
-               if defined $keyinfo and not ref $keyinfo;  # alias
-       my ($desc, $flags, $mnem) = @$keyinfo if defined $keyinfo;
-       defined $desc or $flags = $key eq '^0' ? 'ni' : 'no';
-
-       my $keytxt = $mode . Entity($key) if $key ne '^0';
-          $keytxt .= $sign{arg} while $flags =~ s/ ?\barg\b//;  # argument
-          $keytxt .= "<small>$sign{motion}</small>" if $flags =~ s/ ?\bargm\b//;  # motion argument
-          $keytxt =~ s{\^(?=.)}{<small>^</small>};  # element around ctrl-identifier
-       my $onclick = $flags =~ s/ ?\bmode(\S*)// && defined $keys{$1} && sprintf(
-               ' onclick="setmode(%s)"',
-               $1 eq '' ? '' : sprintf(q{'mode%s'}, escapeclass($1))
-       );
-       my $keyhint = defined($mnem) && qq{ title="$mnem"};
-
-       print qq{\t\t<li class="$flags"$onclick><b$keyhint>$keytxt</b>};
-       print ' ', $desc if defined $desc;
-       print "\n";
-}
-
-our $map = defined $keyrows{$get{map}} ? $get{map} : 'qwerty';
-my $keyrows = $keyrows{$map};
-
-for (my $row = 0; $row <= $#$keyrows; $row++) {
-       my $keyrow = $keyrows->[$row];
-       print qq{<li class="row row$row"><ul>\n};
-       while (my ($mode, $modekeys) = each %keys) {
-               for (my $case = 0; $case <= $#$keyrow; $case++) {
-                       my $keycase = $keyrow->[$case];
-                         @$keycase or next;
-
-                       printf(qq{\t<li%s><h3>%s</h3>\n}, # XXX insert &nbsp; here to fix msie<=6
-                               $mode eq '' ? '' : sprintf(
-                                       ' class="%s"', 'mode mode' . escapeclass($mode)
-                               ),
-                               sprintf('%s<small>: %s</small>',
-                                       $modekeys->{desc} || "mode $mode",
-                                       "$rowdesc[$row] row $casedesc[$case]"
-                               )
-                       );
-                       my $modeclass = 'keys';
-                          $modeclass .= ' lead' if defined $modekeys->{lead};  # leading command key shown
-                          $modeclass .= " $casedesc[$case]" if defined $casedesc[$case];
-                       print qq{\t\t<ul class="$modeclass">\n};
-                       print_key($modekeys->{lead}, $_, $modekeys->{$_}) for @$keycase;
-                       print qq{\t\t</ul>\n};
-               } # case
-
-       } # mode
-       print qq{\t</ul>\n};
-} # row
+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>';
+       say "<p><strong>Last update</strong>: $date $subject</p>";
+}}
 
 :>
+<nav>
+<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>
+<li><a href="/mutt">mutt</a>
+<li><a href="/nethack">nethack</a>
+<li><a href="/mplayer">mplayer</a>
 </ul>
+</div>
 
-<hr>
-
-<div class="help">
-       <div class="left">
-               <dl class="legend legend-types">
-               <dt class="ci">info
-                       <dd>Info command: shows/does something without altering anything.
-               <dt class="pm">motion
-                       <dd>Moves the cursor, or defines the range for an operator (<:= $sign{motion} :>).
-               <dt class="po">positioning
-                       <dd>Other movement (jumps, window (re)positioning).
-               <dt class="co">command
-                       <dd>Direct action command.
-               <dt class="mi">ins mode
-                       <dd>Enters Insert or Replace mode.
-               <dt class="mo">mode
-                       <dd>Enters a different mode.
-               <dt class="mv">vis mode
-                       <dd>Enters Visual or Select mode.
-               <dt class="me">key cmd
-                       <dd>Additional key commands (click for overview).
-               </dl>
-       </div>
-
-       <div class="right">
-               <dl class="legend legend-options">
-               <dt>key<:= $sign{arg} :>
-                       <dd>Commands with a dot need a char argument afterwards.
-               <dt>key<:= $sign{motion} :>
-                       <dd>Requires a motion afterwards, operates between cursor and destination.
-               <dt class="vim">vim
-                       <dd>Not in original Vi (assessment incomplete).
-               <dt class="vim7">vim7
-                       <dd>New in vim version 7.x.
-               </dl>
-
-               <ul class="legend legend-set">
-               <li>keyboard <strong>map</strong> is
-                       <:= $get{map} ? 'set to ' : '' :><em><:= $map :></em>
-               <li><strong>ascii</strong> mode is
-                       <:= exists $get{ascii} ? 'forced ' : '' :><em><:=
-                               $ascii ? 'on' : 'off' :></em>
-               <li><strong>keys</strong> are
-                       <em><:= $showkeys ? 'always shown' : 'hidden if unassigned' :></em><:=
-                               exists $get{keys} ? '' : ' by default' :>
-               <li>default <strong>style</strong> is
-                       <:= defined $get{style} ? 'set to ' : '' :><em><:= $style :></em>
-               </ul>
-       </div>
+<div class="section">
+<h2>Unicode characters</h2>
+<ul>
+<li><a href="/charset">charsets</a>
+<li><a href="/charset/unicode">unicode allocation</a>
+<li><a href="/unicode">common glyphs</a>
+<li><a href="/digraphs">digraphs</a>
+<li><a href="/writing">alphabet comparison</a>
+<li><a href="/latin">latin variants</a>
+<li><a href="/digits">numerals</a>
+<li><a href="/font">font coverage</a>
+</ul>
 </div>
 
-<p class="footer">
-       <a href="http://vi.shiar.net/">vi.<strong>shiar.net</strong></a>
-       <a href="git://dev.shiar.net/vi-cheat"><:= "v$VERSION" :></a>
-       created by Shiar <:= $sign{sep} :>
-       <a title="Licensed under the GNU Affero General Public License, version 3"
-          href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a> <:= $sign{sep} :>
-       last update <:
-               use Time::Format qw(time_format);
-               print time_format('yyyy-mm-dd', (stat 'vim-cmds.inc.pl')[9]);
-       :>
-</p>
+<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="/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>
+</nav>
 
-</html>