X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d5bb14b29d37e8fdd1e4f7b44f7b548d4d0ad74d..3aab2658e078a4f424343fb10817f8d0eab9343b:/digraphs.plp?ds=sidebyside diff --git a/digraphs.plp b/digraphs.plp index 02fcbc5..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,25 +115,20 @@ print "
\n"; chinese - +
unicode latin1 ascii - private proposed
-