From: Mischa POSLAWSKY Date: Mon, 15 Sep 2008 08:19:21 +0000 (+0000) Subject: unicode: more digestible page showing common digraphs X-Git-Tag: v1.2~47 X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/1d1b3f6faefdc6666db120b3cbaf5c76a7dadcb6 unicode: more digestible page showing common digraphs Instead of the full thousands of digraph combinations, also supply this summarized page of oftenly used characters, grouped by usage. --- diff --git a/unicode.plp b/unicode.plp new file mode 100644 index 0000000..afd74d1 --- /dev/null +++ b/unicode.plp @@ -0,0 +1,130 @@ +<: +use utf8; +use strict; +use warnings; +use open IO => ':utf8'; + +our $VERSION = '1.0'; + +$header{content_type} = 'text/html; charset=utf-8'; + +:> + + + +digraph cheat sheet + + + + + + +

Common Digraphs

+ +<: +my $diinfo = do 'digraphs.inc.pl'; +my %di = map { $diinfo->{$_}->[0] => $_ } grep { ref $diinfo->{$_} } + keys %$diinfo; + +sub quote { + local $_ = shift; + s/"/"/g; + s//>/g; + return $_; +} + +sub table { + my ($width, $digraphs) = @_; + + my @cells; + push @cells, sprintf '%s%s', + $di{ord $_} && $diinfo->{$di{ord $_}}->[1], + $_ eq '-' ? ' ' : quote($_), + $di{ord $_} && sprintf(' %s', $di{ord $_}) + for @$digraphs; + + my @rows; + push @rows, sprintf '%s', join '', splice @cells, 0, $width, () + while @cells; + + return sprintf "%s

\n", join '', @rows; +} + +print "

Arrows

\n\n"; +print table(@$_) for ( + [ 4 => [qw{â â â â â - â â â â â -}]], + [ 4 => [qw{â â â â â - â â â â â -}]], + [ 3 => [qw{â¤ â² â¥ â â â¶ â£ â¼ â¢}]], + [ 3 => [qw{â¸ â³ â¹ â â â· âº â½ â¿}]], +); + +print "

Line drawing

\n\n"; +print table(@$_) for ( + [ 4 => [qw{â â¬ â â â â¼ â¤ â â â´ â -}]], + [ 4 => [qw{â â³ â â â£ â â« â â â» â -}]], + [ 3 => [qw{â â¯ â â â¿ â¥ â â· â}]], + [ 3 => [qw{â â° â â â â¨ â â¸ â}]], +# [ 4 => [qw{â â¦ â â â â¬ â£ â â â© â -}]], +# [ 3 => [qw{â â¤ â â âª â¡ â â§ â}]], +# [ 3 => [qw{â â¥ â â â« â¢ â â¨ â}]], +); + +print "

Signs

\n\n"; +print table(@$_) for ( + [ 3 => [qw{â â â â â â â â â}]], + [ 3 => [qw{â â â â¡ â£ â â¤ â¦ â¥ â§ â© â¨}]], + [ 4 => [qw{â â¡ â¢ â£ â¤ â¥ â¦ â§}]], + [10 => [qw{â¼ â¿ â â â â â â â â}]], # solar +# [12 => [qw{â â â â â â â â â â â â}]], # zodiac + [ 8 => [qw{Â¤ Â¢ â¥ â¬ Â£ â¨ $ Â¥ â« â â¦ â± â§ â® â© âª}]], +); + +print "

IPA

\n\n"; +print table(@$_) for ( + [12 => [qw{ + p t - Ê - c k q - Ê - Ê¡ + b d - É - É É¡ É¢ - - - - + m É± - n - É³ É² Å É´ - - - + Ê - - r - - - - - - - - + - â±± - É¾ - É½ - - - - - - + É¸ f Î¸ s Ê Ê Ã§ x Ï Ä§ h Ê + Î² v Ã° z Ê Ê Ê É£ Ê Ê É¦ Ê¢ + - - - É¬ - - - - - - - - + - - - É® - - - - - - - - + - Ê - É¹ - É» j É° - - - - + - - - l - É Ê Ê - - - - + Ê - Ç Ç Ç - Ç - - - - - + É - É - - - Ê É Ê - - - + }]], + [6 => [qw{ + i y É¨ Ê É¯ u + - Éª Ê - Ê - + e Ã¸ É Éµ É¤ o + - - É - - - + É Å É É Ê É + Ã¦ - É - - - + a É¶ - - É É + }]], +); +