--- /dev/null
+<(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";
+
}]);
$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 Ⲁ > Ⲃ > Ⲅ Ⲇ > Ⲉ > > > Ⲩ Ⲍ Ⲏ Ⲑ Ⲫ > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ Ⲟ Ⲡ > Ⲋ - Ⲣ > Ⲥ Ⲧ