X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/7c01a97313cb7a300b69c4e6939ece041be1a1ae..bfef771407d10c416bc87505623130f93a04a4be:/unicode.plp
diff --git a/unicode.plp b/unicode.plp
index 242253b..18ed2ce 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';
@@ -31,20 +32,33 @@ tbody {
h2, h3 {
clear: both;
}
+h2 {
+ margin: 0 1ex;
+ font-size: 100%;
+}
th {
text-align: left;
font-size: 50%;
background: #888;
+ background: #778;
+ background: #889;
color: #FFF;
padding: 0 0.2em;
}
+th, td {
+ border-color: #778;
+ border: 1px solid #888;
+}
thead td {
border: 0;
+ background: transparent;
+}
+thead th {
+ text-align: center;
}
td {
- background: transparent;
vertical-align: top;
margin: 0;
padding: 0;
@@ -57,23 +71,24 @@ small {
small.digraph {
background: #888;
color: #FFF;
+
+ background: #000;
+ color: #FFF;
+ opacity: 0.3;
}
small.value {
background: #CCC;
color: #666;
-}
-td.empty {
- background: #DDD;
-}
-td.reserved {
- background: #BBB;
+ background: #800;
+ color: #FFF;
+ opacity: 0.3;
}
-Common Digraphs
+Common uncommon Unicode
i^k in Vim.
Also see the complete digraphs table.
@@ -108,16 +123,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 +163,7 @@ sub table {
if ($colheads) {
unshift @rows, sprintf '| %s |
', join '',
- map { sprintf '%s', split(/:/, $_, 2) }
+ map { sprintf ' | %s', split(/:/, $_, 2), '', '' }
@$colheads
}
@@ -153,30 +181,44 @@ print table(@$_) for (
print "Arrows\n\n";
print table(@$_) for (
[ 4 => [qw{. â â â â . â - â â . â â â -}]],
- [ 4 => [qw{. â â â â . â - â â . â â â -}]],
+ [ 4 => [qw{. â â â â . â - â â . â â â -}]],
[ 3 => [qw{. ⤠Ⲡ⥠. â â ⶠ. ⣠⼠â¢}]],
[ 3 => [qw{. ⸠Ⳡ⹠. â â â· . ⺠⽠â¿}]],
);
print "Line drawing\n\n";
print table(@$_) for (
- [ 4 => [qw{. â ⬠â â . â ⼠⤠â . â â´ â -}]],
- [ 4 => [qw{. â â³ â â . ⣠â â« â . â â» â -}]],
+ [ 4 => [qw{. â ⬠â . â ⼠⤠. â â´ â}]],
+ [ 4 => [qw{. â â³ â . ⣠â â« . â â» â}]],
[ 3 => [qw{. â ⯠â . â ⿠⥠. â â· â}]],
[ 3 => [qw{. â â° â . â â ⨠. â ⸠â}]],
-# [ 4 => [qw{. â ⦠â â . â ⬠⣠â . â â© â -}]],
-# [ 3 => [qw{. â ⤠â . â ⪠⡠. â ⧠â}]],
-# [ 3 => [qw{. â ⥠â . â ⫠⢠. â ⨠â}]],
+ [ 4 => [qw{
+ . â´ â â â â ⶠâ¾
+ . ⸠â â â
â ⺠â¼
+ . âµ â â â â â· â¿
+ . â¹ â â â â â» â½
+ }]],
+ [ 1 => [qw{. â± â³ â² }]],
+ [ 4 => [qw{. â ⦠â â . â ⬠⣠â . â â© â - }]],
+ [ 3 => [qw{. â ⤠â . â ⪠⡠. â ⧠â }]],
+ [ 3 => [qw{. â ⥠â . â ⫠⢠. â ⨠â }]],
);
-print "Signs\n\n";
+print "Blocks\n\n";
print table(@$_) for (
- [ 3 => [qw{. â â â . â â â . â â â . â â â}]],
+ [ 3 => [qw{. â â â . â â â . â â â }]],
+ [ 3 => [qw{. â . â . â }]],
+ [ 2 => [qw{. â â â . â â â }]],
+ [ 2 => [qw{. â â â â â
â â â . â â â â â â â â }]],
[ 3 => [qw{. ⡠⣠â . ⤠⦠⥠. ⧠⩠â¨}]],
- [ 4 => [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}]],
- [ 5 => [qw{. â¼ â¿ â â â â â â
â â}]], # solar
-# [12 => [qw{. â â â â â â â â â â â â}]], # zodiac
+);
+
+print "Signs\n\n";
+print table(@$_) for (
[ 8 => [qw{. ¤ ¢ ⥠⬠£ ⨠$ Â¥ . â« â ⦠Ⱡ⧠⮠⩠âª}]],
+ [ 4 => [qw{. â ⡠⢠⣠. ⤠⥠⦠â§}]],
+ [ 5 => [qw{. â â¿ â â â â â â
â â}]], # solar
+ [12 => [qw{. â â â â â â â â â â â â}]], # zodiac
);
print "IPA\n\n";
@@ -289,3 +331,17 @@ print table(@$_) for (
[qw{A I U E O}],
],
);
+
+:>
+
+
|