no warnings 'uninitialized'; # save some useless checks for more legible code
use Carp;
-our $VERSION = '2.09';
+our $VERSION = '2.10';
my @casedesc = (undef, qw/shift ctrl meta/, 'shift meta');
my @rowdesc = qw(numeric top home bottom);
s/\+/_m/g;
s/\[/_sbo/g;
s/\]/_sbc/g;
+ s/\\/_b/g;
s/^$/_/;
return $_;
}
);
my @modes = sort keys %{ $self->{def} };
- print '<table id="rows" class="keys">'."\n\n";
+ printf '<table id="rows" class="%s">'."\n\n", $self->{tableclass} // 'keys';
print_row:
for (my $row = -1; $row <= $#{ $keyrows{$self->{map}} }; $row++) {
my ($class, $flags) = @_;
say qq{\t\t<dl class="legend $class">};
- printf("\t\t".'<dt class="%s">%s'."\n\t\t\t".'<dd>%s'."\n",
+ printf("\t\t".'<dt class="%s">%s'."\n\t\t\t".'<dd>%s</dd>'."\n",
$_, map { $self->escapedesc($_) } @{ $self->{flag}->{$_} || ["($_)", '...'] }
) for @$flags;
say "\t\t</dl>";
=head1 DESCRIPTION
-Used by http://sheet.shiar.nl to display keyboard sheets.
+Used by https://sheet.shiar.nl to display keyboard sheets.
Assumes specific stylesheets and javascript from this site,
so probably not of much use elsewhere.