summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
aed7529)
Ignore mode prefix in key matches.
$info{mode}->{$lead} //= "mode $lead";
$info{def}->{$lead}{$lead} = 'g1 mode'; # back
}
$info{mode}->{$lead} //= "mode $lead";
$info{def}->{$lead}{$lead} = 'g1 mode'; # back
}
- while (my ($c, $v) = each %{ $modes->{$lead} }) {
+ while (my ($k, $v) = each %{ $modes->{$lead} }) {
my ($glyph, $title) = $uc->glyph_html($v);
my ($glyph, $title) = $uc->glyph_html($v);
- $info{key}{$lead.$c} = join "\n", $glyph, $title;
+ $info{key}{$lead.$k} = join "\n", $glyph, $title;
+ my $c = $k =~ s/\A[+^](?=.)//r; # trim modifier indicator
my $class = 'g'.(
!defined $v || $c eq $v ? 1 # identical
my $class = 'g'.(
!defined $v || $c eq $v ? 1 # identical
- $info{def}{$lead}{$c} //= $class;
+ $info{def}{$lead}{$k} //= $class;