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