latin: list ascii alphabet equivalents (morse, braille)

diff --git a/latin.plp b/latin.plp
new file mode 100644 (file)
index 0000000..89afb61
--- /dev/null
+++ b/latin.plp
@@ -0,0 +1,40 @@
+<(common.inc.plp)><:
+
+Html({
+       title => 'latin alphabet cheat sheet',
+       version => 'v1.0',
+       description => [
+       ],
+       keywords => [qw'
+               latin roman alphabet script letter unicode font glyph abc
+               writing comparison character sample test language
+       '],
+       stylesheet => [qw'light dark red'],
+});
+
+:>
+<h1>Latin alphabet</h1>
+
+<p>Also see <a href="/writing">other alphabets</a>
+and <a href="/unicode">common chars</a>.</p>
+
+<div class="-diinfo">
+
+<:
+use Shiar_Sheet::FormatChar;
+my $glyphs = Shiar_Sheet::FormatChar->new;
+unless (exists $get{v}) {
+       $glyphs->{unicode}--;
+       $glyphs->{digraph}--;
+}
+
+my @t = (qw{
+       .>Latin      a b c d e f g h i j k l m n o p q r s t u v w x y z
+       .>Braille    ⠁ ⠃ ⠉ ⠙ ⠑ ⠋ ⠛ ⠓ ⠊ ⠚ ⠅ ⠇ ⠍ ⠝ ⠕ ⠏ ⠟ ⠗ ⠎ ⠞ ⠥ ⠧ ⠺ ⠭ ⠽ ⠵
+       .>Morse      ‧‑ ‑‧‧‧ ‑‧‑‧ ‑‧‧ ‧ ‧‧‐‧ ‐‐‧ ‧‧‧‧ ‧‧ ‧‐‐‐ ‐‧‐ ‧‐‧‧ ‐‐
+                    ‐‧ ‐‐‐ ‧‐‐‧ ‐‐‧‐ ‧‐‧ ‧‧‧ ‐ ‧‧‐ ‧‧‧‐ ‧‐‐ ‐‧‧‐ ‐‧‐‐ ‐‐‧‧
+});
+print $glyphs->table(exists $get{uc} ? [map {s/\s.//; uc} @t] : \@t);
+
+print "</div>\n";
+

diff --git a/writing.plp b/writing.plp
index 8ecdee14b694cc87ce7231642e7e50d862edb152..b8cb0b46e4e579a3c8b406b69169415c07cbd7ef 100644 (file)
--- a/writing.plp
+++ b/writing.plp
@@ -74,8 +74,9 @@ print $glyphs->table([qw{
 }]);
 
 $glyphs->print(
 }]);
 
 $glyphs->print(

-Western => [qw{
-       .>Latin      A > B  C G  D  > E  F  Y  VU W Z H  > -  I J K L M N > X  O  P >  - Q  R > S  T
+Western => [
+       '.><a href="/latin">Latin</a>', qw{
+                    A > B  C G  D  > E  F  Y  VU W Z H  > -  I J K L M N > X  O  P >  - Q  R > S  T

        .>Old_Italic 𐌀 > 𐌁  > 𐌂  𐌃  > 𐌄  𐌅  >  >  𐌖 𐌆 𐌇  𐌈 𐌚  𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎  𐌏  𐌐 >  𐌑 𐌒  𐌓 > 𐌔  𐌕
        .>Gothic     𐌰 > 𐌱  𐌲 𐌾  𐌳  > 𐌴  𐍆  >  >  𐍅 𐌶 𐌷  𐌸 𐍈  > 𐌹 𐌺 𐌻 𐌼 𐌽 > -𐍇 𐌿 𐍀𐌵 >  - -𐍁 𐍂 > 𐍃  𐍄
        .>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ Ⲫ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
        .>Old_Italic 𐌀 > 𐌁  > 𐌂  𐌃  > 𐌄  𐌅  >  >  𐌖 𐌆 𐌇  𐌈 𐌚  𐌉 𐌝 𐌊 𐌋 𐌌 𐌍 > 𐌎  𐌏  𐌐 >  𐌑 𐌒  𐌓 > 𐌔  𐌕
        .>Gothic     𐌰 > 𐌱  𐌲 𐌾  𐌳  > 𐌴  𐍆  >  >  𐍅 𐌶 𐌷  𐌸 𐍈  > 𐌹 𐌺 𐌻 𐌼 𐌽 > -𐍇 𐌿 𐍀𐌵 >  - -𐍁 𐍂 > 𐍃  𐍄
        .>Coptic     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ Ⲫ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ