From d41fb64d4655e00ef12972ae3eda386e53446594 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 13 Mar 2010 00:51:19 +0000
Subject: [PATCH] latin: list ascii alphabet equivalents (morse, braille)

---
 latin.plp   | 40 ++++++++++++++++++++++++++++++++++++++++
 writing.plp |  5 +++--
 2 files changed, 43 insertions(+), 2 deletions(-)
 create mode 100644 latin.plp

diff --git a/latin.plp b/latin.plp
new file mode 100644
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 8ecdee1..b8cb0b4 100644
--- a/writing.plp
+++ b/writing.plp
@@ -74,8 +74,9 @@ print $glyphs->table([qw{
 }]);
 
 $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     Ⲁ > Ⲃ  > Ⲅ  Ⲇ  > Ⲉ  >  >  >  Ⲩ Ⲍ Ⲏ  Ⲑ Ⲫ  > Ⲓ Ⲕ Ⲗ Ⲙ Ⲛ Ⲭ Ⲝ  Ⲟ  Ⲡ >  Ⲋ -  Ⲣ > Ⲥ  Ⲧ
-- 
2.30.0