X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/dca3ceff1489175ca452c72a278e129f6863cb3e..a0ba9298856b2426c5c66b6d2f2b284d98cee594:/digraphs.plp
diff --git a/digraphs.plp b/digraphs.plp
index ab9aab5..73189c9 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -2,6 +2,7 @@
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';
@@ -15,12 +16,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
+are available as ex commands.
+
<:
my $di = do 'digraphs.inc.pl';
@@ -38,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";
}
@@ -80,8 +93,8 @@ for my $c1group (@chars) {
}
print " |
|---|
\n";
:>
-
-
+
+
| control
| spacing
| modifier
@@ -102,20 +115,19 @@ print " |
\n";
chinese
|
-
+
| unicode
| latin1
| ascii
- | private
| proposed
|
-