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

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

-
+
<: my $diinfo = do 'digraphs.inc.pl'; @@ -173,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{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]], @@ -209,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{. ░ . ▒ . ▓ }]], @@ -218,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{ @@ -278,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] } @$_ ], @@ -289,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{ @@ -348,6 +284,7 @@ print table(@$_) for ( [qw{A I U E O}], ], ); +print "
\n\n"; :>