git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
perl: wrap code blocks on mobile screens
[sheet.git]
/
Shiar_Sheet
/
KeyboardChars.pm
diff --git
a/Shiar_Sheet/KeyboardChars.pm
b/Shiar_Sheet/KeyboardChars.pm
index 5301185e42601cc8d981a73d218e4c008d3d4579..7077d3c863236c3f594b266a3572835efecb406e 100644
(file)
--- a/
Shiar_Sheet/KeyboardChars.pm
+++ b/
Shiar_Sheet/KeyboardChars.pm
@@
-42,10
+42,10
@@
sub kbmodes ($modes) {
);
for my $lead (keys %{$modes}) {
if ($lead ne '') {
);
for my $lead (keys %{$modes}) {
if ($lead ne '') {
- $info{def}->{''}->{$lead} = "g1 mode$lead";
+ $info{def}->{''}->{$lead}
[0]
= "g1 mode$lead";
$g{g1} = 1;
$info{mode}->{$lead} //= "mode $lead";
$g{g1} = 1;
$info{mode}->{$lead} //= "mode $lead";
- $info{def}->{$lead}{$lead} =
'g1 mode'
; # back
+ $info{def}->{$lead}{$lead} =
['g1 mode']
; # back
}
while (my ($k, $v) = each %{ $modes->{$lead} }) {
my @class;
}
while (my ($k, $v) = each %{ $modes->{$lead} }) {
my @class;
@@
-55,7
+55,6
@@
sub kbmodes ($modes) {
@class = 'ext';
}
my ($glyph, $title) = $uc->glyph_html($v);
@class = 'ext';
}
my ($glyph, $title) = $uc->glyph_html($v);
- $info{key}{$lead.$k} = join "\n", $glyph, $title;
my $c = $k =~ s/\A[+^](?=.)//r; # trim modifier indicator
unshift @class, (
my $c = $k =~ s/\A[+^](?=.)//r; # trim modifier indicator
unshift @class, (
@@
-69,7
+68,8
@@
sub kbmodes ($modes) {
: 'g6'
);
$g{$_} = 1 for grep { $_ ne 'no' } @class;
: 'g6'
);
$g{$_} = 1 for grep { $_ ne 'no' } @class;
- $info{def}{$lead}{$k} //= join ' ', @class;
+ $info{def}{$lead}{$k} //= [join ' ', @class];
+ $info{def}{$lead}{$k}[1] = join "\n", $glyph, $title;
}
}
$info{flag} = {%{{
}
}
$info{flag} = {%{{