X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/ada87baf9947ff8d17f0099f29011313c7fbff34..56fda72a2e2017647b16253b8084fc9b03618f00:/keyboard/altgr/atari.eng.inc.pl

diff --git a/keyboard/altgr/atari.eng.inc.pl b/keyboard/altgr/atari.eng.inc.pl
index e6bc674..6f581f8 100644
--- 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) {