keyboard/altgr: move code include to project packages

diff --git a/keyboard/altgr/groups.inc.pl b/Shiar_Sheet/KeyboardChars.pm
similarity index 100%
rename from keyboard/altgr/groups.inc.pl
rename to Shiar_Sheet/KeyboardChars.pm

diff --git a/keyboard/altgr/apl.eng.inc.pl b/keyboard/altgr/apl.eng.inc.pl
index 215fc8ed81fe605af4a92f273953b7a55efc4cb6..b8636b7d49454ee544b6330d9be1c0c5742f3e64 100644 (file)
--- a/keyboard/altgr/apl.eng.inc.pl
+++ b/keyboard/altgr/apl.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my %dyalogx = (
        'Q' => '⍰',

diff --git a/keyboard/altgr/eurkey.eng.inc.pl b/keyboard/altgr/eurkey.eng.inc.pl
index d62971f87da09ab06e3fa6654e13a4358b1a4118..4fd357dc361ccd83e43fa120b7f6e5cac4e2e860 100644 (file)
--- a/keyboard/altgr/eurkey.eng.inc.pl
+++ b/keyboard/altgr/eurkey.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbmodes');
+use Shiar_Sheet::KeyboardChars 'kbmodes';
 
 my $V = v1.3;
 

diff --git a/keyboard/altgr/macos-abc.eng.inc.pl b/keyboard/altgr/macos-abc.eng.inc.pl
index 069a9b32d124d14931f7d9a7f8ce2ef1600d24c5..a5d63b49a25dd848a4eedb3aeb3296a99128e3c2 100644 (file)
--- a/keyboard/altgr/macos-abc.eng.inc.pl
+++ b/keyboard/altgr/macos-abc.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbmodes');
+use Shiar_Sheet::KeyboardChars 'kbmodes';
 
 my %rows = (
        '' => {

diff --git a/keyboard/altgr/macos.eng.inc.pl b/keyboard/altgr/macos.eng.inc.pl
index 4c80397d0bab490780d89d5fb46c773a79046ff3..884eeb9595e6ab38e07f3f522abb274f47c63eb7 100644 (file)
--- a/keyboard/altgr/macos.eng.inc.pl
+++ b/keyboard/altgr/macos.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my %rows = (
        'A' => 'Å',

diff --git a/keyboard/altgr/msx.eng.inc.pl b/keyboard/altgr/msx.eng.inc.pl
index b84e37a42eefbaa7c1b25d07aa54984de7c63e8d..af79ad3a03770dc00b46c9d08a3739d87ef0ac4a 100644 (file)
--- a/keyboard/altgr/msx.eng.inc.pl
+++ b/keyboard/altgr/msx.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my %rows = (
        '!' => '¡',

diff --git a/keyboard/altgr/spacecadet.eng.inc.pl b/keyboard/altgr/spacecadet.eng.inc.pl
index dacb57f20eb14effe348288d51e7d703d54dd8fe..0fd89528e513743992d222ca94c131b2f0f37261 100644 (file)
--- a/keyboard/altgr/spacecadet.eng.inc.pl
+++ b/keyboard/altgr/spacecadet.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my %rows = (
        'q' => '∧',

diff --git a/keyboard/altgr/ukext.eng.inc.pl b/keyboard/altgr/ukext.eng.inc.pl
index 87d629a012652ec5a8372dac5601200096a306cb..9fa019f0bf4a876709b3376e13ab12a337b764b6 100644 (file)
--- a/keyboard/altgr/ukext.eng.inc.pl
+++ b/keyboard/altgr/ukext.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my %rows = (
        '~' => '¦',

diff --git a/keyboard/altgr/windows.eng.inc.pl b/keyboard/altgr/windows.eng.inc.pl
index 329cb7f156e45f8e264ffc6e6b3e8a5859231bcb..06c29931e7f3c1c1015c3daca29fe9ebdeadb836 100644 (file)
--- a/keyboard/altgr/windows.eng.inc.pl
+++ b/keyboard/altgr/windows.eng.inc.pl
@@ -1,8 +1,7 @@
 use utf8;
 use strict;
 use warnings;
-require './keyboard/altgr/groups.inc.pl';
-Shiar_Sheet::KeyboardChars->import('kbchars');
+use Shiar_Sheet::KeyboardChars 'kbchars';
 
 my @az = ('A'..'Z', 'a'..'z');
 my @letters = qw(