X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/aae69dfcf69ae9825f53f670aa09691934fc27ba..a0ba9298856b2426c5c66b6d2f2b284d98cee594:/digraphs.plp
diff --git a/digraphs.plp b/digraphs.plp
index c5184a4..73189c9 100644
--- a/digraphs.plp
+++ b/digraphs.plp
@@ -16,16 +16,22 @@ $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.
<:
@@ -47,11 +53,11 @@ my @chars = (
);
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";
}
@@ -87,8 +93,8 @@ for my $c1group (@chars) {
}
print " |
|---|
\n";
:>
-
-
+
+
| control
| spacing
| modifier
@@ -109,7 +115,7 @@ print " |
\n";
chinese
|
-
+
| unicode
| latin1
| ascii
@@ -117,11 +123,11 @@ print " |
\n";