X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/875d2f3d40ce1b81193c660a9731c93585c61675..1feabc854356323923357263a4dec6fd05ecc46e:/unicode.plp diff --git a/unicode.plp b/unicode.plp index ca822ac..d5e0145 100644 --- a/unicode.plp +++ b/unicode.plp @@ -17,74 +17,6 @@ $header{content_type} = 'text/html; charset=utf-8'; digraph cheat sheet - @@ -93,6 +25,8 @@ small.value {

i^k in Vim. Also see the complete digraphs table.

+
+ <: my $diinfo = do 'digraphs.inc.pl'; my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} } @@ -167,26 +101,29 @@ sub table { @$colheads } - return sprintf "\n%s
\n", join '', map {"$_\n"} @rows; + return sprintf qq{\n%s
\n}, + join '', map {"$_\n"} @rows; } -print "

Common

\n\n"; +print "
\n", "

Popular

\n\n"; print table(@$_) for ( [ 3 => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚}]], [ 3 => [qw{. † ‡ • . § ¶ # . © ® ™ . − × ÷ . ± ² √}]], [ 3 => [qw{. å ä ö ü ß . Å æ ø ű ſ}]], [ 3 => [qw{. ¿ ç ñ é ê è}]], ); +print "
\n\n"; -print "

Arrows

\n\n"; +print "
\n", "

Arrows

\n\n"; print table(@$_) for ( [ 4 => [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}]], [ 4 => [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . ⇙ ⇓ ⇘ -}]], [ 3 => [qw{. ◤ ▲ ◥ . ◀ ◆ ▶ . ◣ ▼ ◢}]], [ 3 => [qw{. ◸ △ ◹ . ◁ ◇ ▷ . ◺ ▽ ◿}]], ); +print "
\n\n"; -print "

Line drawing

\n\n"; +print "
\n", "

Line drawing

\n\n"; print table(@$_) for ( [ 4 => [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]], [ 4 => [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]], @@ -203,8 +140,9 @@ print table(@$_) for ( [ 3 => [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }]], [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }]], ); +print "
\n\n"; -print "

Blocks

\n\n"; +print "
\n", "

Blocks

\n\n"; print table(@$_) for ( [ 3 => [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ }]], [ 3 => [qw{. ░ . ▒ . ▓ }]], @@ -212,16 +150,18 @@ print table(@$_) for ( [ 2 => [qw{. ▁ ▂ ▃ ▄ ▅ ▆ ▇ ▔ . ▏ ▎ ▍ ▌ ▋ ▊ ▉ ▕ }]], [ 3 => [qw{. □ ▣ ■ . ▤ ▦ ▥ . ▧ ▩ ▨}]], ); +print "
\n\n"; -print "

Signs

\n\n"; +print "
\n", "

Signs

\n\n"; print table(@$_) for ( [ 8 => [qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}]], [ 4 => [qw{. ♠ ♡ ♢ ♣ . ♤ ♥ ♦ ♧}]], [ 5 => [qw{. ☉ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇}]], # solar [12 => [qw{. ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓}]], # zodiac ); +print "
\n\n"; -print "

IPA

\n\n"; +print "
\n", "

IPA

\n\n"; print table(@$_) for ( [ 12 => [qw{ @@ -272,8 +212,9 @@ print table(@$_) for ( [map {substr($_, 0, 1).':'.$_, substr($_, 0, 1)." r:$_ rounded"} qw{Front Central Back}] ], ); +print "
\n\n"; -print "

Alphabetics

\n\n"; +print "
\n", "

Alphabetics

\n\n"; print table(1, [ map { ('.', split //, $_->[1]) } @$_ ], [ map { $_->[0] } @$_ ], @@ -283,8 +224,9 @@ print table(1, [Greek => 'αίϊηϋπψσςθξΩ'], [Hebrew => 'אײיעונןסשטצץ'], ]; +print "
\n\n"; -print "

Japanese

\n\n"; +print "
\n", "

Japanese

\n\n"; print table(@$_) for ( [ 1 => [qw{ @@ -342,8 +284,11 @@ print table(@$_) for ( [qw{A I U E O}], ], ); +print "
\n\n"; + +:>
-:>