X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/1feabc854356323923357263a4dec6fd05ecc46e..3aab2658e078a4f424343fb10817f8d0eab9343b:/digraphs.plp?ds=sidebyside diff --git a/digraphs.plp b/digraphs.plp index 6193b97..487b59f 100644 --- a/digraphs.plp +++ b/digraphs.plp @@ -5,7 +5,7 @@ use warnings; no warnings 'qw'; # to quote or not to quote, that is the question use open IO => ':utf8'; -our $VERSION = '1.0'; +our $VERSION = 'v1.0'; $header{content_type} = 'text/html; charset=utf-8'; @@ -14,18 +14,24 @@ $header{content_type} = 'text/html; charset=utf-8'; + digraph cheat sheet - - +<: + my %styles = map {$_ => $_} qw(dark circus mono red terse); + our $style = exists $get{style} && $styles{$get{style}} || 'light'; + printf(qq{\n}, + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "$_.css", $_ + ) for keys %styles; +:> - +

RFC-1345 Digraphs

i^k in Vim. Also see common digraphs.

-

Unofficial proposals +

Unofficial proposals are available as ex commands.

<: @@ -51,7 +57,7 @@ print ''; print qq'' for map {scalar @$_} @chars2; print "\n"; for my $section (qw{thead tfoot}) { - print "<$section>
 "; + print "<$section>
↳"; print '', quote($_) for map {@$_} @chars2; print " \n"; } @@ -87,7 +93,7 @@ for my $c1group (@chars) { } print "
\n"; :> -
+
control spacing @@ -117,16 +123,12 @@ print "
\n";
-