5 use open IO => ':utf8';
9 $header{content_type} = 'text/html; charset=utf-8';
11 :><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
12 "http://www.w3.org/TR/html4/loose.dtd">
16 <title>digraph cheat sheet</title>
17 <meta http-equiv="content-type" content="utf-8">
18 <!-- link rel="stylesheet" type="text/css" media="all" href="unicode.css" -->
21 border-collapse: collapse;
25 border: 1px solid #888;
42 <h1>Common Digraphs</h1>
45 my $diinfo = do 'digraphs.inc.pl';
46 my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} }
58 my ($width, $digraphs) = @_;
61 push @cells, sprintf '<td title="%s">%s%s',
62 $di{ord $_} && $diinfo->{$di{ord $_}}->[1],
63 $_ eq '-' ? ' ' : quote($_),
64 $di{ord $_} && sprintf(' <small>%s</small>', $di{ord $_})
68 push @rows, sprintf '<tr>%s', join '', splice @cells, 0, $width, ()
71 return sprintf "<table>%s</table>\n", join '', @rows;
74 print "<h2>Arrows</h2>\n\n";
75 print table(@$_) for (
76 [ 4 => [qw{↖ ↑ ↗ ↔ ← - → ↕ ↙ ↓ ↘ -}]],
77 [ 4 => [qw{⇖ ⇑ ⇗ ⇔ ⇐ - ⇒ ⇕ ⇘ ⇓ ⇙ -}]],
78 [ 3 => [qw{◤ ▲ ◥ ◀ ◆ ▶ ◣ ▼ ◢}]],
79 [ 3 => [qw{◸ △ ◹ ◁ ◇ ▷ ◺ ▽ ◿}]],
82 print "<h2>Line drawing</h2>\n\n";
83 print table(@$_) for (
84 [ 4 => [qw{┌ ┬ ┐ ─ ├ ┼ ┤ │ └ ┴ ┘ -}]],
85 [ 4 => [qw{┏ ┳ ┓ ━ ┣ ╋ ┫ ┃ ┗ ┻ ┛ -}]],
86 [ 3 => [qw{┍ ┯ ┑ ┝ ┿ ┥ ┕ ┷ ┙}]],
87 [ 3 => [qw{┎ ┰ ┒ ┠ ╂ ┨ ┖ ┸ ┚}]],
88 # [ 4 => [qw{╔ ╦ ╗ ═ ╠ ╬ ╣ ║ ╚ ╩ ╝ -}]],
89 # [ 3 => [qw{╒ ╤ ╕ ╞ ╪ ╡ ╘ ╧ ╛}]],
90 # [ 3 => [qw{╓ ╥ ╖ ╟ ╫ ╢ ╙ ╨ ╜}]],
93 print "<h2>Signs</h2>\n\n";
94 print table(@$_) for (
95 [ 3 => [qw{▘ ▀ ▝ ▌ █ ▐ ▖ ▄ ▗}]],
96 [ 3 => [qw{░ ▒ ▓ □ ▣ ■ ▤ ▦ ▥ ▧ ▩ ▨}]],
97 [ 4 => [qw{♠ ♡ ♢ ♣ ♤ ♥ ♦ ♧}]],
98 [10 => [qw{☼ ☿ ♀ ♁ ♂ ♃ ♄ ♅ ♆ ♇}]], # solar
99 # [12 => [qw{♈ ♉ ♊ ♋ ♌ ♍ ♎ ♏ ♐ ♑ ♒ ♓}]], # zodiac
100 [ 8 => [qw{¤ ¢ ₥ € £ ₨ $ ¥ ₫ ₭ ₦ ₱ ₧ ₮ ₩ ₪}]],
103 print "<h2>IPA</h2>\n\n";
104 print table(@$_) for (
106 p t - ʈ - c k q - ʔ - ʡ
107 b d - ɖ - ɟ ɡ ɢ - - - -
108 m ɱ - n - ɳ ɲ ŋ ɴ - - -
109 ʙ - - r - - - - - - - -
110 - ⱱ - ɾ - ɽ - - - - - -
111 ɸ f θ s ʃ ʂ ç x χ ħ h ʜ
112 β v ð z ʒ ʐ ʝ ɣ ʁ ʕ ɦ ʢ
113 - - - ɬ - - - - - - - -
114 - - - ɮ - - - - - - - -
115 - ʋ - ɹ - ɻ j ɰ - - - -
116 - - - l - ɭ ʎ ʟ - - - -
117 ʘ - ǀ ǁ ǃ - ǂ - - - - -
118 ɓ - ɗ - - - ʄ ɠ ʛ - - -