X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/a60151fdf6594651f38af2107d0653a140822803..7a060671fe3e8963c31c3b933f4f26b468319e7e:/unicode.plp
diff --git a/unicode.plp b/unicode.plp
index a6a33bd..81e54a3 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -2,6 +2,7 @@
use utf8;
use strict;
use warnings;
+no warnings 'qw'; # that's not a comment, it's a NUMBER SIGN
use open IO => ':utf8';
our $VERSION = '1.0';
@@ -17,6 +18,10 @@ $header{content_type} = 'text/html; charset=utf-8';
-Common Digraphs
+Common uncommon Unicode
i^k in Vim.
Also see the complete digraphs table.
+
+
<:
my $diinfo = do 'digraphs.inc.pl';
my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
@@ -108,16 +129,29 @@ sub table {
$colspan++;
next;
}
- elsif ($cell =~ s/^-//) {
- $class = 'empty';
+
+ my $code = join '', map { $di{ord $_} || '' } split //, $cell;
+ my $name = $diinfo->{$code}->[1];
+
+ if ($cell =~ s/^-//) {
+# $class = 'Empty';
}
elsif ($cell eq '=') {
- $class = 'reserved';
+ $class = 'Reserved';
$cell = '';
}
-
- my $code = join '', map { $di{ord $_} || '' } split //, $cell;
- my $name = $diinfo->{$code}->[1];
+ elsif ($cell =~ /[ -~]/) {
+ $class = 'Ascii';
+ }
+ elsif (not $code) {
+ $class = 'DiNone';
+ }
+ elsif ($diinfo->{$code}->[2] =~ /\bXz\b/) {
+ $class = 'DiProp';
+ }
+ else {
+ $class = 'Di';
+ }
$rows[-1] .= sprintf('
%s%s',
defined $name ? qq{ title="$name"} : '',
@@ -135,7 +169,7 @@ sub table {
if ($colheads) {
unshift @rows, sprintf '%s | | ', join '',
- map { sprintf '%s', split(/:/, $_, 2) }
+ map { sprintf ' | %s', split(/:/, $_, 2), '', '' }
@$colheads
}
@@ -245,6 +279,17 @@ print table(@$_) for (
],
);
+print "Alphabetics\n\n";
+print table(1,
+ [ map { ('.', split //, $_->[1]) } @$_ ],
+ [ map { $_->[0] } @$_ ],
+) for [
+ [Latin => 'aīıÄôɳÅṡšÄðƷ'],
+ [Cyrillic => 'аÑйÑÑнÑÑÑÑÑЯ'],
+ [Greek => 'αίÏηÏÏÏÏÏθξΩ'],
+ [Hebrew => '×ײ××¢×× ×סש×צץ'],
+];
+
print "Japanese\n\n";
print table(@$_) for (
[
@@ -303,3 +348,19 @@ print table(@$_) for (
[qw{A I U E O}],
],
);
+
+:>
+
+
+
+
|