unicode: silence perl warning about empty query range offsets

[sheet.git] / keyboard / altgr / unigraph.eng.inc.pl

diff --git a/keyboard/altgr/unigraph.eng.inc.pl b/keyboard/altgr/unigraph.eng.inc.pl
index c1d29cd9b1a0b4d0f23b8b1f34147d84ca551918..fbcf88c68663ad47b18670699b7478b9265a38ca 100644 (file)
--- a/keyboard/altgr/unigraph.eng.inc.pl
+++ b/keyboard/altgr/unigraph.eng.inc.pl
@@ -32,7 +32,7 @@ my %rows = qw`
        +f ╞ +F ╟ +g ╪ +G ╫ +h ╡ +H ╢
        +v ╘ +V ╙ +b ╧ +B ╨ +n ╛ +N ╜
 
        +f ╞ +F ╟ +g ╪ +G ╫ +h ╡ +H ╢
        +v ╘ +V ╙ +b ╧ +B ╨ +n ╛ +N ╜
 

-       ' ▬ " ▮
+       ' ▬ " ▮ +' ▪

        > ▛ . ▘ , ▀ M ▜ m ▝
        l ▌ ( ▚ k █ & ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
        O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅
        > ▛ . ▘ , ▀ M ▜ m ▝
        l ▌ ( ▚ k █ & ▞ j ▐  ; ▎ : ▊  +; 🮇 +: 🮊
        O ▙ o ▖ i ▄ U ▟ u ▗  / ▂ ? ▆  +/ 🮂 +? 🮅


@@ -66,13 +66,14 @@ while (my ($k, $c) = each %rows) {
                'g0'
        );
 }
                'g0'
        );
 }

-$groups->{def}{''}{')'}[0] .= ' linkkeyboard/altgr/zoo';
+$groups->{def}{''}{'+0'}[0] .= ' linkkeyboard/altgr/zoo';
+$groups->{def}{''}{ '0'}[0] .= ' linkkeyboard/altgr/im';

 
 +{
        %{ $groups },
 
 +{
        %{ $groups },

-       version => '1.2',
+       version => '1.3',

        title => 'Unicode semigraphics',
        title => 'Unicode semigraphics',

-       category => 'specialized',
+       category => 'specialized/graph',

        intro => join("\n",
                sprintf('Keyboard mode to %s draw character graphics.',
                        '<span title="without requiring a specialised editor">manually</span>',
        intro => join("\n",
                sprintf('Keyboard mode to %s draw character graphics.',
                        '<span title="without requiring a specialised editor">manually</span>',