keyboard/altgr/unigraph: version 1.1 with meta numbers

Fit additional symbols and (ZX Spectrum (or C64) inspired) color indicators.

diff --git a/keyboard/altgr/unigraph.eng.inc.pl b/keyboard/altgr/unigraph.eng.inc.pl
index 03e5161f248f4e48f7a80b3fb7b3df7aa5185d14..e54badf90cc7405897cf51418d2e6e9d4f26f50d 100644 (file)
--- a/keyboard/altgr/unigraph.eng.inc.pl
+++ b/keyboard/altgr/unigraph.eng.inc.pl
@@ -1,16 +1,19 @@
 use utf8;
 use strict;
 use warnings;
+no  warnings 'qw';
 use Shiar_Sheet::KeyboardChars 'kbchars';
 
-my %rows = qw{
-       +! 🐀 +@ 🐂 +# 🐅 +$ 🐇 +% 🐉 +^ 🐍 +& 🐎 +* 🐐 +( 🐒 +) 🐓 +_ 🐕 ++ 🐖
-       +1 ♙  +2 ♖  +3 ♘  +4 ♗  +5 ♕  +6 ♔  +7 ♚  +8 ♛  +9 ♝  +0 ♞  +-  ♜ += ♟
+my %guys = qw{
+       ! 🐀 @ 🐂 # 🐅 $ 🐇 % 🐉 ^ 🐍 & 🐎 * 🐐 ( 🐒 ) 🐓 _ 🐕 + 🐖
+       1 ♙  2 ♖  3 ♘  4 ♗  5 ♕  6 ♔  7 ♚  8 ♛  9 ♝  0 ♞  -  ♜ = ♟
+};
 
-       $ ○ 4 ●  % □ 5 ■  ^ ☆ 6 ★  \{ ☓
-       & ♠ * ♥ ( ♦ ) ♣
-       - ☺ _ ☹ = ☻
-       = ☼ + ☀
+my %rows = qw{
+       +P ♠ +p ♥ +[ ♦ +\{ ♣
+       ++ ☺ +_ ☹ += ☻  0 ✂  +) ☼ +0 ☀
+       +! ○ +1 ●  +@ □ +2 ■  +# ☆ +3 ★
+       - ✗ = ✓  _ ✘ + ✔  +- ☓
 
        q ↖ w ↑ e ↗  Q ⇖ W ⇑ E ⇗  +q ◤ +w ▲ +e ◥  +Q ◸ +W △ +E ◹
        a ← s ↔ d →  A ⇐ S ⇔ D ⇒  +a ◀ +s ◆ +d ▶  +A ◁ +S ◇ +D ▷
@@ -20,26 +23,30 @@ my %rows = qw{
        r ┌ t ┬ y ┐  R ╔ T ╦ Y ╗
        f ├ g ┼ h ┤  F ╠ G ╬ H ╣
        v └ b ┴ n ┘  V ╚ B ╩ N ╝
-       ' ─ \ │      " ═ | ║      +' ╌ +\ ╎  +" ┈ +| ┊
+       4 ─ 5 │      $ ═ % ║      +4 ╌ +5 ╎  +$ ┈ +% ┊
+       6 ╴ ^ ╶ +6 ╷ +^ ╵
+       ' ⋯ \ ⋮  " ⋰ | ⋱
+       K ╳      J ╱ L ╲
 
        +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 ▐  ; ▎ : ▊  +; 🮇 +: 🮊
+       l ▌ I ▚ k █ < ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
        O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅
        7 ░ 8 ▒ 9 ▓
-       I 🮙 K 🮖 < 🮘
+       +' 🮙 +\ 🮘  * 🮕 +* 🮖
+
+       p 🟥 [ 🟩 ] 🟦  P 🟧 \{ 🟪 \} 🟨
 
-       +i 🭯 +, 🭭 +j 🭮 +l 🭬  +[ 🮚 +k 🮛
+       +i 🭯 +, 🭭 +j 🭮 +l 🭬  +8 🮚 +k 🮛
        +u ╭ +o ╮ +m ╰ +. ╯
 
        +U 🮣 +I 🮦 +O 🮢
        +J 🮥 +K 🮮 +L 🮤
        +M 🮡 +< 🮧 +> 🮠
-       p ╱ [ ╳ ] ╲
-       P 🮨 \} 🮩  +p 🮫 +] 🮪  +P 🮬 +\} 🮭
+       & 🮨 ( 🮩  +7 🮫 +9 🮪  +& 🮬 +( 🮭
 };
 $rows{' '} = "\N{FIGURE SPACE}";
 
@@ -67,7 +74,7 @@ while (my ($k, $c) = each %rows) {
 
 +{
        %{ $groups },
-       version => '1.0',
+       version => '1.1',
        title => 'Unicode semigraphics',
        category => 'specialized',
        intro => join("\n",
@@ -77,7 +84,7 @@ while (my ($k, $c) = each %rows) {
                'Inspired by <a href="/keyboard/altgr/msx-graph">MSX graph</a> mode,',
                'but reimagined for modern Unicode coverage.',
        ),
-       moderows => '5421-21',
+       moderows => '5421',
        flag => {
                g2 => ['cp850'    => 'shared international repetoire in most DOS code pages'],
                g3 => ['historic' => 'extended graphics presentations of control characters in cp437 ea'],