X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/982ebe99c0ce43548ad4910fb87d7b425b6ff689..4213ec8371d27fa2f8be49d9ea8d803179e4523d:/unicode.plp diff --git a/unicode.plp b/unicode.plp index 2d5b54c..15651eb 100644 --- a/unicode.plp +++ b/unicode.plp @@ -17,82 +17,16 @@ $header{content_type} = 'text/html; charset=utf-8'; digraph cheat sheet - -

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->{$_} } @@ -106,8 +40,8 @@ sub quote { return $_; } -sub table { - my ($width, $digraphs, $rowheads, $colheads) = @_; +sub glyph_table { + my ($digraphs, $rowheads, $colheads) = @_; my @rows; @@ -167,64 +101,70 @@ 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 table(@$_) for ( - [ 3 => [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚}]], - [ 3 => [qw{. † ‡ • . § ¶ # . © ® ™ . − × ÷ . ± ² √}]], - [ 3 => [qw{. å ä ö ü ß . Å æ ø ű ſ}]], - [ 3 => [qw{. ¿ ç ñ é ê è}]], +print "
\n", "

Popular

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

Arrows

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

Arrows

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

Line drawing

\n\n"; -print table(@$_) for ( - [ 4 => [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]], - [ 4 => [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]], - [ 3 => [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}]], - [ 3 => [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}]], - [ 4 => [qw{ +print "
\n", "

Line drawing

\n\n"; +print glyph_table(@$_) for ( + [ [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}]], + [ [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}]], + [ [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}]], + [ [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}]], + [ [qw{ . ╴ ─ ╌ ┄ ┈ ╶ ╾ . ╸ ━ ╍ ┅ ┉ ╺ ╼ . ╵ │ ╎ ┆ ┊ ╷ ╿ . ╹ ┃ ╏ ┇ ┋ ╻ ╽ }]], - [ 1 => [qw{. ╱ ╳ ╲ }]], - [ 4 => [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }]], - [ 3 => [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }]], - [ 3 => [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }]], + [ [qw{. ╱ ╳ ╲ }]], + [ [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }]], + [ [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }]], + [ [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }]], ); +print "
\n\n"; -print "

Blocks

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

Blocks

\n\n"; +print glyph_table(@$_) for ( + [ [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ }]], + [ [qw{. ░ . ▒ . ▓ }]], + [ [qw{. ▛ ▚ ▟ . ▙ ▞ ▜ }]], + [ [qw{. ▁ ▂ ▃ ▄ ▅ ▆ ▇ ▔ . ▏ ▎ ▍ ▌ ▋ ▊ ▉ ▕ }]], + [ [qw{. □ ▣ ■ . ▤ ▦ ▥ . ▧ ▩ ▨}]], ); +print "
\n\n"; -print "

Signs

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

Signs

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

IPA

\n\n"; -print table(@$_) for ( +print "
\n", "

IPA

\n\n"; +print glyph_table(@$_) for ( [ - 12 => [qw{ + [qw{ . p p̪ > > t ʈ c k q = ʡ ʔ . b b̪ > > d ɖ ɟ ɡ ɢ = - = . m ɱ > > n ɳ ɲ ŋ ɴ = = = @@ -259,7 +199,7 @@ print table(@$_) for ( ], ], [ - 6 => [qw{ + [qw{ . i y ɨ ʉ ɯ u . - ɪ ʏ - ʊ - . e ø ɘ ɵ ɤ o @@ -272,11 +212,24 @@ print table(@$_) for ( [map {substr($_, 0, 1).':'.$_, substr($_, 0, 1)." r:$_ rounded"} qw{Front Central Back}] ], ); +print "
\n\n"; + +print "
\n", "

Alphabetics

\n\n"; +print glyph_table( + [ map { ('.', split //, $_->[1]) } @$_ ], + [ map { $_->[0] } @$_ ], +) for [ + [Latin => 'aīıęôɳŋṡšđðƷ'], + [Cyrillic => 'аійэёнњшщчьЯ'], + [Greek => 'αίϊηϋπψσςθξΩ'], + [Hebrew => 'אײיעונןסשטצץ'], +]; +print "
\n\n"; -print "

Japanese

\n\n"; -print table(@$_) for ( +print "
\n", "

Japanese

\n\n"; +print glyph_table(@$_) for ( [ - 1 => [qw{ + [qw{ . あ い う え お = . か き く け こ = . さ し す せ そ = @@ -292,7 +245,7 @@ print table(@$_) for ( [qw{A I U E O}, ''], ], [ - 1 => [qw{ + [qw{ . が ぎ ぐ げ ご . ざ じ ず ぜ ぞ . だ ぢ づ で ど @@ -303,7 +256,7 @@ print table(@$_) for ( [qw{A I U E O}], ], [ - 1 => [qw{ + [qw{ . ア イ ウ エ オ ー . カ キ ク ケ コ = . サ シ ス セ ソ = @@ -319,7 +272,7 @@ print table(@$_) for ( [qw{A I U E O}, ''], ], [ - 1 => [qw{ + [qw{ . ガ ギ グ ゲ ゴ . ザ ジ ズ ゼ ゾ . ダ ヂ ヅ デ ド @@ -331,3 +284,20 @@ print table(@$_) for ( [qw{A I U E O}], ], ); +print "
\n\n"; + +:>
+ + + +