X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/01c47091040e8e84d64b8f2b0b395f47bad139c4..3aab2658e078a4f424343fb10817f8d0eab9343b:/digraphs.plp
diff --git a/digraphs.plp b/digraphs.plp
index d339b09..487b59f 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -2,9 +2,10 @@
use utf8;
use strict;
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';
@@ -13,17 +14,26 @@ $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
+are available as ex commands.
+
<:
my $di = do 'digraphs.inc.pl';
@@ -41,13 +51,13 @@ my @chars = (
['A'..'M'], ['N'..'Z'],
['a'..'m'], ['n'..'z'],
);
-my @chars2 = (@chars, ['_']); # trailing character (extended set)
+my @chars2 = (['_'], @chars); # trailing character (extended set)
-print '';
+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";
}
@@ -83,8 +93,8 @@ for my $c1group (@chars) {
}
print " |
|---|
\n";
:>
-
-
+
+
| control
| spacing
| modifier
@@ -105,7 +115,7 @@ print " |
\n";
chinese
|
-
+
| unicode
| latin1
| ascii
@@ -113,16 +123,12 @@ print " |
\n";