unicode.plp

   1 <(common.inc.plp)><:
   2
   3 Html({
   4         title => 'unicode glyph cheat sheet',
   5         version => 'v1.0',
   6         description => [
   7                 "Common Unicode characters with digraph or code point, layed out for quick location.",
   8                 "Includes general symbols, arrows, drawing characters, and IPA letters.",
   9         ],
  10         keywords => [qw'
  11                 unicode glyph char character reference common ipa symbol sign mark table digraph
  12         '],
  13         stylesheet => [qw'light dark red'],
  14 });
  15
  16 :>
  17 <h1>Common Unicode</h1>
  18
  19 <p>i^k in <a href="/vi">Vim</a>.
  20 Also see the <a href="/digraphs">complete digraphs table</a>.</p>
  21
  22 <div class="diinfo">
  23
  24 <:
  25 my $diinfo = do 'digraphs.inc.pl';
  26 my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
  27         sort { length $a <=> length $b } keys %$diinfo;
  28
  29 sub glyph_table {
  30         my ($digraphs) = @_;
  31
  32         my @rows;
  33
  34         my @colheads;
  35         while ($digraphs->[0] !~ /^\./) {
  36                 my $cell = shift @$digraphs or last;
  37                 push @colheads, sprintf(
  38                         '<%s%s>%s',
  39                         $cell =~ s/^-// ? 'td' : 'th',
  40                         $cell =~ s/:(.*)// ? qq{ title="$1"} : '',
  41                         $cell eq '_' ? '&nbsp;' : $cell
  42                 );
  43         }
  44         push @rows, sprintf '<thead><tr>%s<tbody>', join '', @colheads if @colheads;
  45
  46         my $colspan = 1;
  47         for my $cell (@$digraphs) {
  48                 if ($cell =~ s/^\.//) {
  49                         # dot indicates start of a new row
  50                         push @rows, '';
  51                         if ($cell =~ s/^>//) {
  52                                 # header cell text follows
  53                                 $cell =~ s/_/ /g;  # underscores may be used instead of whitespace (for qw//ability)
  54                                 $rows[-1] .= '<th>'.($cell || '&nbsp;');
  55                         }
  56                         next;
  57                 }
  58                 elsif ($cell eq '>') {
  59                         # merge this cell to the next column
  60                         $colspan++;
  61                         next;
  62                 }
  63
  64                 my ($code, $name);
  65
  66                 # determine display class
  67                 my @class;
  68                 if ($cell eq '-') {
  69                         $cell = '';
  70                 }
  71                 elsif ($cell eq '=') {
  72                         push @class, 'di-invalid';
  73                         $cell = '';
  74                 }
  75                 else {
  76                         push @class, 'X';
  77
  78                         if ($cell =~ s/^-//) {
  79                                 push @class, 'di-rare'; # discouraged
  80                         }
  81
  82                         $code = join '', map { $di{ord $_} || '' } split //, $cell;
  83                         $name = $diinfo->{$code}->[1];
  84                         length $code == 2 or undef $code;
  85
  86                         if (defined $code) {
  87                                 push @class, 'di-d'; # digraph
  88                                 push @class, 'di-prop' # unofficial
  89                                         if $diinfo->{$code}->[2] =~ /\bXz\b/;
  90                         }
  91
  92                         if ($cell =~ /[ -~]/) {
  93                                 push @class, 'di-a'; # ascii
  94                         }
  95                         else {
  96                                 push @class, 'di-b'; # basic unicode
  97                         }
  98                 }
  99
 100                 # add cell html
 101                 $rows[-1] .= sprintf('<td%s%s%s>%s%s',
 102                         defined $name  ? qq{ title="$name"}  : '',
 103                         @class ? sprintf(' class="%s"', join ' ', @class) : '',
 104                         $colspan > 1 && qq{ colspan="$colspan"},
 105                         $cell eq '' ? '&nbsp;' : EscapeHTML($cell),
 106                         defined $code ? sprintf(' <small class="digraph">%s</small>', EscapeHTML($code))
 107                                 : length($cell) == 1 && $cell !~ /[a-z]/
 108                                         ? sprintf(' <small class="%s">%04X</small>', 'value', ord $cell)
 109                                         : '',
 110                 );
 111
 112                 $colspan = 1;
 113         }
 114
 115         return sprintf qq{<table class="glyphs dilabel">\n%s</table>\n},
 116                 join '', map {"<tr>$_\n"} @rows;
 117 }
 118
 119 sub print_glyph_tables {
 120         while (@_) {
 121                 printf '<div class="section"><h2>%s</h2>'."\n\n", shift;
 122                 while (ref $_[0] and $_ = shift) {
 123                         print glyph_table($_);
 124                 }
 125                 print '</div>';
 126         }
 127 }
 128
 129 our $verbose = exists $get{v};
 130
 131 print_glyph_tables(
 132         'Popular',
 133         [qw{. « » . ‹ › . ‘ ’ . “ ” . „ ‚ . ‟ ‛}],
 134         [qw{. † ‡ • . § ¶ # . © ® ™ . ° ′ ″ . − × ÷ . ± ² √}],
 135         [qw{. ⚋ ⚊ . ⚐ ⚑ . ☺ ☹ . ✓ ✗ . ✔ ✘ }],
 136         [qw{. å ä ö ü ß . ā æ ø ű ſ}],
 137         [qw{. ñ ç é ê è . ŋ č ų ŭ ů }],
 138         [qw{. ¿ … 〃 ‐ – . ‽ · ※ ‒ — }],
 139         [qw{. α β}],
 140
 141         'Symbols',
 142         [qw{. ¤ ¢ ₥ € £ ₨ $ ¥ . ฿ ₫ ₭ ₦ ₱ ₮ ₩ ₪}],
 143         [qw{. ♠ ♡ ♢ ♣ . ♤ ♥ ♦ ♧}],
 144         [qw{. ☮ ☯ ☻ ♪ ♲ ♿ }],
 145         [qw{. ✂ ✉ ☎ }], [qw{. ⚠ ☡ ☠}],
 146         'Signs',
 147         [qw{. ☉ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇}],  # solar
 148         [qw{. ♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓}],  # zodiac
 149
 150         'Key commands',
 151         [qw{. ⇥ ⇤ . ␣ ⌫ }], # common spacing
 152         [qw{. ⎀ ⇱ ⇞ . ⌦ ⇲ ⇟ }], # edit block
 153         [qw{. ⇪ ⇯ ⇭ . ⇧ ⇮ № }], # modifier
 154         [qw{. ⎈ ⌥ ⌘ ⎄ }], [qw{. ↵ ⎋ ⎉ ⎊ }], # command
 155         [qw{. ► ⏩ ⏭ ◼ ⚫ . ◄ ⏪ ⏮ ⏏ -❚❚ }], # player ui
 156
 157         'Arrows',
 158         [qw{. ↖ ↑ ↗ ↔ . ← - → ↕ . ↙ ↓ ↘ -}],
 159         [qw{. ⇖ ⇑ ⇗ ⇔ . ⇐ - ⇒ ⇕ . ⇙ ⇓ ⇘ -}],
 160         [qw{. ⬁ ⇧ ⬀ ⬄ . ⇦ - ⇨ ⇳ . ⬃ ⇩ ⬂ -}],
 161         [qw{. ⬉ ⬆ ⬈ ⬌ . ⬅ - ➡ ⬍ . ⬋ ⬇ ⬊ -}],
 162         [qw{. ◩ ⬒ ⬔   . ◧ □ ◨   . ⬕ ⬓ ◪  }],
 163         [qw{. ◤ ▲ ◥   . ◀ ◆ ▶   . ◣ ▼ ◢  }],
 164         [qw{. ◸ △ ◹   . ◁ ◇ ▷   . ◺ ▽ ◿  }],
 165 $verbose ? (
 166         [qw{.    .  -  .    }],
 167         [qw{.    .  -  .    }],
 168 ) : (),
 169
 170         'Line drawing',
 171         [qw{. ╔ ╦ ╗ ═ . ╠ ╬ ╣ ║ . ╚ ╩ ╝ - }],
 172         [qw{. ╒ ╤ ╕ . ╞ ╪ ╡ . ╘ ╧ ╛ }],
 173         [qw{. ╓ ╥ ╖ . ╟ ╫ ╢ . ╙ ╨ ╜ }],
 174         [qw{. ┌ ┬ ┐ . ├ ┼ ┤ . └ ┴ ┘}],
 175         [qw{. ┏ ┳ ┓ . ┣ ╋ ┫ . ┗ ┻ ┛}],
 176         [qw{. ┍ ┯ ┑ . ┝ ┿ ┥ . ┕ ┷ ┙}],
 177         [qw{. ┎ ┰ ┒ . ┠ ╂ ┨ . ┖ ┸ ┚}],
 178         [qw{
 179                 . ╴ ─ ╌ ┄ ┈ ╶ ╾
 180                 . ╸ ━ ╍ ┅ ┉ ╺ ╼
 181                 . ╵ │ ╎ ┆ ┊ ╷ ╿
 182                 . ╹ ┃ ╏ ┇ ┋ ╻ ╽
 183         }],
 184         [qw{. ╭ ╮ . ╰ ╯ }],
 185         [qw{. ╱ ╳ ╲ }],
 186         # ┞┟┡┢┦┧┩┪┭┮┱┲┵┶┹┺┽┾╀╁╃╄╅╆╇╈╉╊
 187
 188         'Blocks',
 189         [qw{. □ ▣ ■ . ▤ ▦ ▥ . ▧ ▩ ▨}],
 190         [qw{. ░ . ▒ . ▓ }],
 191         [qw{. ▘ ▀ ▝ . ▌ █ ▐ . ▖ ▄ ▗ }],
 192         [qw{. ▛ ▚ ▟ . ▙ ▞ ▜ }],
 193         [qw{. ▁ ▂ ▃ ▄ ▅ ▆ ▇ ▔ . ▏ ▎ ▍ ▌ ▋ ▊ ▉ ▕ }],
 194
 195         'IPA',
 196         [qw{
 197                 - BiL:Bilabial LD:Labiodental D:Dental Alv:Alveolar PA:Postalveolar
 198                   Rf:Retroflex Pal:Palatal Vel:Velar Uv:Uvular Ph:Pharyngeal
 199                   EG:Epiglottal Gl:Glottal
 200                 .>Plosive                   p  -ȹ >  >  t  ʈ  c  k  q  =  ʡ  ʔ
 201                 .>Voiced_Plosive            b  -ȸ >  >  d  ɖ  ɟ  ɡ  ɢ  =  -  =
 202                 .>Nasal                     m  ɱ  >  >  n  ɳ  ɲ  ŋ  ɴ  =  =  =
 203                 .>Trill                     ʙ  -  >  >  r  -  -  =  ʀ  =  -я =
 204                 .>Tap/flap                  -  ⱱ  >  >  ɾ  ɽ  -  =  ɢ̆  =  -  =
 205                 .>Fricative                 ɸ  f  θ  s  ʃ  ʂ  ç  x  χ  ħ  ʜ  h
 206                 .>Voiced_fricative          β  v  ð  z  ʒ  ʐ  ʝ  ɣ  ʁ  ʕ  ʢ  ɦ
 207                 .>Lateral_fricative         =  =  >  >  ɬ  -  -  -  -  =  =  =
 208                 .>Voiced_lateral_fricative  =  =  >  >  ɮ  -  -  -  -  =  =  =
 209                 .>Approximant               -  ʋ  >  >  ɹ  ɻ  j  ɰ  -  -  -  =
 210                 .>Lateral_approximant       =  =  >  >  l  ɭ  ʎ  ʟ  -  =  =  =
 211                 .>Click                     ʘ  -  ǀ  ǁ  ǃ  -‼ ǂ  -  -  =  =  =
 212                 .>Implosive                 ɓ  ɗ̪  >  >  ɗ  -ᶑ ʄ  ɠ  ʛ  =  =  =
 213         }],
 214         [qw{
 215                 - co:coarticulated .>sç ɕ .>zʝ ʑ .>ʃx ɧ .>jʷ ɥ .>hw̥ ʍ .>ɰʷ w
 216         }],
 217         [(
 218                 '-',
 219                 map { substr($_, 0, 1).':'.$_, substr($_, 0, 1)." r:$_ rounded" }
 220                 qw{Front Central Back}
 221         ), qw{
 222                 .>Close      i y  ɨ ʉ  ɯ u
 223                 .>Near-close ɪ ʏ  - -  - ʊ
 224                 .>Close-mid  e ø  ɘ ɵ  ɤ o
 225                 .>Mid        - -  ə -  - -
 226                 .>Open-mid   ɛ œ  ɜ ɞ  ʌ ɔ
 227                 .>Near-open  æ -  ɐ -  - -
 228                 .>Open       a ɶ  - -  ɑ ɒ
 229         }],
 230
 231 $verbose ? (
 232         'Japanese',
 233         [qw{
 234                   - A  I  U  E  O  _
 235                 .>  あ い う え お =
 236                 .>K か き く け こ =
 237                 .>S さ し す せ そ =
 238                 .>T た ち つ て と =
 239                 .>N な に ぬ ね の ん
 240                 .>H は ひ ふ へ ほ =
 241                 .>M ま み む め も =
 242                 .>Y や =  ゆ =  よ =
 243                 .>R ら り る れ ろ =
 244                 .>W わ -ゐ = -ゑ を =
 245         }],
 246         [qw{
 247                   - A  I  U  E  O
 248                 .>G が ぎ ぐ げ ご
 249                 .>Z ざ じ ず ぜ ぞ
 250                 .>D だ ぢ づ で ど
 251                 .>B ば び ぶ べ ぼ
 252                 .>P ぱ ぴ ぷ ぺ ぽ
 253         }],
 254         [qw{
 255                   - A  I  U  E  O  _
 256                 .>  ア イ ウ エ オ ー
 257                 .>K カ キ ク ケ コ =
 258                 .>S サ シ ス セ ソ =
 259                 .>T タ チ ツ テ ト =
 260                 .>N ナ ニ ヌ ネ ノ ン
 261                 .>H ハ ヒ フ ヘ ホ =
 262                 .>M マ ミ ム メ モ =
 263                 .>Y ヤ -  ユ -  ヨ =
 264                 .>R ラ リ ル レ ロ =
 265                 .>W ワ ヰ -  ヱ ヲ =
 266         }],
 267         [qw{
 268                   - A  I  U  E  O
 269                 .>G ガ ギ グ ゲ ゴ
 270                 .>Z ザ ジ ズ ゼ ゾ
 271                 .>D ダ ヂ ヅ デ ド
 272                 .>B バ ビ ブ ベ ボ
 273                 .>P パ ピ プ ペ ポ
 274                 .>V ヷ ヸ ヴ ヹ ヺ
 275         }],
 276 ) : (),
 277 );
 278
 279 :></div>
 280
 281 <div class="legend">
 282         <table class="glyphs"><tr>
 283         <td class="X di-a">ascii
 284         <td class="X di-d">digraph
 285         <td class="X di-prop">proposed
 286         <td class="X di-b">other unicode
 287         <td class="X di-rare">discouraged
 288         </table>
 289 </div>
 290