git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
1def557
)
keyboard: report code errors in altgr includes
author
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 12 Dec 2023 17:44:48 +0000
(18:44 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Tue, 19 Dec 2023 23:54:11 +0000
(
00:54
+0100)
altgr-macos.eng.inc.pl
patch
|
blob
|
history
altgr-ukext.eng.inc.pl
patch
|
blob
|
history
altgr.eng.inc.pl
patch
|
blob
|
history
keyboard.eng.inc.pl
patch
|
blob
|
history
keyboard.plp
patch
|
blob
|
history
diff --git
a/altgr-macos.eng.inc.pl
b/altgr-macos.eng.inc.pl
index 0c1e694b4aeacdcbb2172c80c9f4baac337a3888..774734ae0d222b08b182a1dc46420bde226a3d39 100644
(file)
--- a/
altgr-macos.eng.inc.pl
+++ b/
altgr-macos.eng.inc.pl
@@
-1,4
+1,6
@@
use utf8;
+use strict;
+use warnings;
our %rows = (
'A' => 'Å',
'a' => 'å',
diff --git
a/altgr-ukext.eng.inc.pl
b/altgr-ukext.eng.inc.pl
index d5f77494460d42daa9b65452d3a7cad88de31737..ec04b8a4abda94282f19cee4f4d99ae644a51725 100644
(file)
--- a/
altgr-ukext.eng.inc.pl
+++ b/
altgr-ukext.eng.inc.pl
@@
-1,4
+1,6
@@
use utf8;
+use strict;
+use warnings;
our %rows = (
'~' => '¦',
'!' => '¡',
diff --git
a/altgr.eng.inc.pl
b/altgr.eng.inc.pl
index e98345589677f2725ca414590c086fc7ed7b9405..9abad16413a3711cef58579a70cc64d1d4cdc087 100644
(file)
--- a/
altgr.eng.inc.pl
+++ b/
altgr.eng.inc.pl
@@
-1,4
+1,6
@@
use utf8;
+use strict;
+use warnings;
my @az = ('A'..'Z', 'a'..'z');
my @letters = qw(
Á B ¢ Ð É F G H Í J Œ Ø µ Ñ Ó Ö Ä ® § Þ Ú V Å X Ü Æ
diff --git
a/keyboard.eng.inc.pl
b/keyboard.eng.inc.pl
index 378acdc6dee87d5420416181a5f4d45e951033e1..4b72d088a50f91b615af2bf9c03563c111b38274 100644
(file)
--- a/
keyboard.eng.inc.pl
+++ b/
keyboard.eng.inc.pl
@@
-1,6
+1,9
@@
+use strict;
+use warnings;
use Unicode::Normalize qw( NFKD );
use Text::Unidecode qw( unidecode );
+our %rows;
my %g; # present group classes
{
rows => [0, 1],
diff --git
a/keyboard.plp
b/keyboard.plp
index c96977d7eb7dadf4df9f596dad50222322489a90..a7bdc9144d1813aa27ae06198f1a7f9f42223727 100644
(file)
--- a/
keyboard.plp
+++ b/
keyboard.plp
@@
-4,6
+4,7
@@
my $mode = lc($Request || 'altgr');
my $include = "$mode.eng";
my $info = eval { Data($include) } || {};
+warn "error in $include: ", @{$@} if ref $@;
$mode = $info->{title} // $mode;
Html({