keyboard/altgr: unicode semigraphics proposal

[sheet.git] / keyboard / altgr / unigraph.eng.inc.pl

diff --git a/keyboard/altgr/unigraph.eng.inc.pl b/keyboard/altgr/unigraph.eng.inc.pl
new file mode 100644 (file)
index 0000000..03e5161
--- /dev/null
+++ b/keyboard/altgr/unigraph.eng.inc.pl
@@ -0,0 +1,89 @@
+use utf8;
+use strict;
+use warnings;
+use Shiar_Sheet::KeyboardChars 'kbchars';
+
+my %rows = qw{
+       +! 🐀 +@ 🐂 +# 🐅 +$ 🐇 +% 🐉 +^ 🐍 +& 🐎 +* 🐐 +( 🐒 +) 🐓 +_ 🐕 ++ 🐖
+       +1 ♙  +2 ♖  +3 ♘  +4 ♗  +5 ♕  +6 ♔  +7 ♚  +8 ♛  +9 ♝  +0 ♞  +-  ♜ += ♟
+
+       $ ○ 4 ●  % □ 5 ■  ^ ☆ 6 ★  \{ ☓
+       & ♠ * ♥ ( ♦ ) ♣
+       - ☺ _ ☹ = ☻
+       = ☼ + ☀
+
+       q ↖ w ↑ e ↗  Q ⇖ W ⇑ E ⇗  +q ◤ +w ▲ +e ◥  +Q ◸ +W △ +E ◹
+       a ← s ↔ d →  A ⇐ S ⇔ D ⇒  +a ◀ +s ◆ +d ▶  +A ◁ +S ◇ +D ▷
+       z ↙ x ↓ c ↘  Z ⇙ X ⇓ C ⇘  +z ◣ +x ▼ +c ◢  +Z ◺ +X ▽ +C ◿
+       1 ⤡ 2 ↕ 3 ⤢  ! ◄ @ ⇕ # ►
+
+       r ┌ t ┬ y ┐  R ╔ T ╦ Y ╗
+       f ├ g ┼ h ┤  F ╠ G ╬ H ╣
+       v └ b ┴ n ┘  V ╚ B ╩ N ╝
+       ' ─ \ │      " ═ | ║      +' ╌ +\ ╎  +" ┈ +| ┊
+
+       +r ╒ +R ╓ +t ╤ +T ╥ +y ╕ +Y ╖
+       +f ╞ +F ╟ +g ╪ +G ╫ +h ╡ +H ╢
+       +v ╘ +V ╙ +b ╧ +B ╨ +n ╛ +N ╜
+
+       > ▛ . ▘ , ▀ M ▜ m ▝
+       l ▌ L ▚ k █ J ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
+       O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅
+       7 ░ 8 ▒ 9 ▓
+       I 🮙 K 🮖 < 🮘
+
+       +i 🭯 +, 🭭 +j 🭮 +l 🭬  +[ 🮚 +k 🮛
+       +u ╭ +o ╮ +m ╰ +. ╯
+
+       +U 🮣 +I 🮦 +O 🮢
+       +J 🮥 +K 🮮 +L 🮤
+       +M 🮡 +< 🮧 +> 🮠
+       p ╱ [ ╳ ] ╲
+       P 🮨 \} 🮩  +p 🮫 +] 🮪  +P 🮬 +\} 🮭
+};
+$rows{' '} = "\N{FIGURE SPACE}";
+
+# remaining candidates: ┄┆ 🮗 🮕 ♤♧♡♢ ⚐⚑ ✓✔ ✗✘ ▬
+
+my $groups = kbchars(\%rows);
+
+use Encode 'decode';
+my %cpcompat = (
+       # lower cp437 representations from charset-encoding excluding BEL/BS/CR/LF
+       (map {$_ => 'g3'} split //, '☺☻♥♦♣♠○♂♀♫☼►◄↕‼¶§▬↨↑↓→←∟↔▲▼'),
+       # upper characters converted to unicode
+       (map {$_ => 'g4'} split //, decode('cp437', pack 'C*', 127..255)),
+       (map {$_ => 'g2'} split //, decode('cp850', pack 'C*', 127..255)),
+);
+
+while (my ($k, $c) = each %rows) {
+       $groups->{def}{''}{$k} = $cpcompat{$c} // (
+               $c =~ /\p{In=1.1}/ ? 'g5' :
+               $c =~ /\p{In=6.0}/ ? 'g6' :
+               $c =~ /[\x{1FB00}-\x{1FBFF}]/ ? 'g7' : # Age=V13.0
+               'g0'
+       );
+}
+
++{
+       %{ $groups },
+       version => '1.0',
+       title => 'Unicode semigraphics',
+       category => 'specialized',
+       intro => join("\n",
+               sprintf('Keyboard mode to %s draw character graphics.',
+                       '<span title="without requiring a specialised editor">manually</span>',
+               ),
+               'Inspired by <a href="/keyboard/altgr/msx-graph">MSX graph</a> mode,',
+               'but reimagined for modern Unicode coverage.',
+       ),
+       moderows => '5421-21',
+       flag => {
+               g2 => ['cp850'    => 'shared international repetoire in most DOS code pages'],
+               g3 => ['historic' => 'extended graphics presentations of control characters in cp437 ea'],
+               g4 => ['cp437'    => '<em>ANSI art</em> drawing glyphs in English code page 437 (OEM-US)'],
+               g5 => ['standard' => 'gathered in the original Unicode release in 1993'],
+               g6 => ['extended' => 'later additions accumulated within a decade, mostly Unicode 3.2'],
+               g7 => ['rare'     => 'exceptional <em>symbols for legacy computing</em> in Unicode since <abbr title="Unicode 13.0">2020</abbr>'],
+       },
+}