keyboard/altgr: c64 layout of petscii graphics

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

diff --git a/keyboard/altgr/unigraph.eng.inc.pl b/keyboard/altgr/unigraph.eng.inc.pl
index 89498ff5100c578dbc87b5b31ba2ed21aec4d407..7c4d5709d9a1d170d739090f764a63a666f0e0b7 100644 (file)
--- a/keyboard/altgr/unigraph.eng.inc.pl
+++ b/keyboard/altgr/unigraph.eng.inc.pl
@@ -9,49 +9,44 @@ my %guys = qw{
        1 ♙  2 ♖  3 ♘  4 ♗  5 ♕  6 ♔  7 ♚  8 ♛  9 ♝  0 ♞  -  ♜ = ♟
 };
 
-my %rows = qw{
-       +P ♠ +p ♥ +[ ♦ +\{ ♣
-       ++ ☺ +_ ☹ += ☻  0 ✂  +) ☼ +0 ☀
+my %rows = qw`
+       +- ♠ += ♥ ++ ♦ +_ ♣
+       ) ☺ +) ☹ 0 ☻  +6 ✂  +0 ☼  ^ ⚐ 6 ⚑
        +! ○ +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 ▷
        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 ╝
-       4 ─ 5 │      $ ═ % ║      +4 ╌ +5 ╎  +$ ┈ +% ┊
-       6 ╴ ^ ╶ +6 ╷ +^ ╵
-       ' ⋯ \ ⋮  " ⋰ | ⋱
-       K ╳      J ╱ L ╲
+       r ┌ t ┬ y ┐  R ╔ T ╦ Y ╗  +u ╭ +i ╷ +o ╮
+       f ├ g ┼ h ┤  F ╠ G ╬ H ╣  +j ╶ +k 🮯 +l ╴
+       v └ b ┴ n ┘  V ╚ B ╩ N ╝  +m ╰ +, ╵ +. ╯
+       4 ─ 5 │      $ ═ % ║
+       { ⋯ | ⋮ \\ · P ⋰ } ⋱      +| ⁙ +" ⁘
+       [ ╳          p ╱ ] ╲
+       +[ ┄ +4 ╌ +$ ┈  +\\ ┆ +5 ╎ +% ┊
 
        +r ╒ +R ╓ +t ╤ +T ╥ +y ╕ +Y ╖
        +f ╞ +F ╟ +g ╪ +G ╫ +h ╡ +H ╢
        +v ╘ +V ╙ +b ╧ +B ╨ +n ╛ +N ╜
 
+       ' ▬ " ▮
        > ▛ . ▘ , ▀ M ▜ m ▝
-       l ▌ I ▚ k █ < ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
+       l ▌ ( ▚ k █ & ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
        O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅
        7 ░ 8 ▒ 9 ▓
-       +' 🮙 +\ 🮘  * 🮕 +* 🮖
+       +p 🮙 +] 🮘  +8 🮕 +* 🮖  +{ 🮗
+       I 🭯 < 🭭 J 🭮 L 🭬  * 🮚 K 🮛
 
-       p 🟥 [ 🟩 ] 🟦  P 🟧 \{ 🟪 \} 🟨
+       +U 🮣 +I 🮦 +O 🮢  +7 🮫 +9 🮪
+       +J 🮥 +K 🮮 +L 🮤  +P 🮨 +} 🮩
+       +M 🮡 +< 🮧 +> 🮠  +& 🮬 +( 🮭
+`;
 
-       +i 🭯 +, 🭭 +j 🭮 +l 🭬  +8 🮚 +k 🮛
-       +u ╭ +o ╮ +m ╰ +. ╯
-
-       +U 🮣 +I 🮦 +O 🮢
-       +J 🮥 +K 🮮 +L 🮤
-       +M 🮡 +< 🮧 +> 🮠
-       & 🮨 ( 🮩  +7 🮫 +9 🮪  +& 🮬 +( 🮭
-};
 $rows{' '} = "\N{FIGURE SPACE}";
 
-# remaining candidates: ┄┆ 🮗 🮕 ♤♧♡♢ ⚐⚑ ✓✔ ✗✘ ▬
-
 my $groups = kbchars(\%rows);
 
 use Encode 'decode';
@@ -64,19 +59,20 @@ my %cpcompat = (
 );
 
 while (my ($k, $c) = each %rows) {
-       $groups->{def}{''}{$k} = $cpcompat{$c} // (
+       $groups->{def}{''}{$k}[0] = $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->{def}{''}{')'}[0] .= ' linkkeyboard/altgr/zoo';
 
 +{
        %{ $groups },
-       version => '1.1',
+       version => '1.2',
        title => 'Unicode semigraphics',
-       category => 'specialized',
+       category => 'specialized/graph',
        intro => join("\n",
                sprintf('Keyboard mode to %s draw character graphics.',
                        '<span title="without requiring a specialised editor">manually</span>',