keyboard/altgr/atari: consistent line width transcription

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

diff --git a/keyboard/altgr/atari.eng.inc.pl b/keyboard/altgr/atari.eng.inc.pl
index e6bc674a673a36aa7458668fc7b5196a81284eef..6f581f8f3ec29a4419cb3c9a1f7c7ac57f174dcf 100644 (file)
--- a/keyboard/altgr/atari.eng.inc.pl
+++ b/keyboard/altgr/atari.eng.inc.pl
@@ -3,15 +3,24 @@ use strict;
 use warnings;
 no warnings 'qw';
 use Shiar_Sheet::KeyboardChars 'kbchars';
+our %get;
 
 # card suits at 50,00,60,7B mapped differently depending on keyboard
 my %rows = qw(
        p ♣  , ♥  ; ♠  . ♦
        q ┌  w ┬  e ┐  r ─  t ●  y ▌  u ▄  i ▗  o ▖
        a ├  s ┼  d ┤  f ╱  g ╲  h ◢  j ◣  k ▝  l ▘
-       z └  x ┴  c ┘  v ��  b 🮇  n ▂  m 🮂
+       z └  x ┴  c ┘  v ��  b ▕  n ▁  m ▔
 );
 
+if (exists $get{compat}) {
+       %rows = (%rows, qw(
+               q ┏  w ┳  e ┓  r ━
+               a ┣  s ╋  d ┫
+               z ┗  x ┻  c ┛  v ▎  b 🮇  n ▂  m 🮂
+       ));
+}
+
 my $groups = kbchars(\%rows);
 
 while (my ($k, $c) = each %rows) {