From 56fda72a2e2017647b16253b8084fc9b03618f00 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 1 May 2024 23:54:21 +0200
Subject: [PATCH] keyboard/altgr/atari: consistent line width transcription

Prefer uniform thin lines also for outer borders, despite being 2/8 pixels
in the original font corresponding to quarter blocks.

More historically accurate fat variants stashed under ?compat but not
advertised due to missing diagonal equivalents.
---
 keyboard/altgr/atari.eng.inc.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

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) {
-- 
2.30.0