X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/20500d885f632dc1d88e69f7e7750b84054410bd..f1bebae9f4ca77ef3e1b4d3036933f29a0da1ac0:/keyboard.plp?ds=sidebyside
diff --git a/keyboard.plp b/keyboard.plp
index a7bdc91..d40c434 100644
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -34,5 +34,32 @@ use Shiar_Sheet::Keyboard 2.08;
my $keys = Shiar_Sheet::Keyboard->new($info);
$keys->map($get{map}) or undef $get{map};
$keys->print_rows($get{rows}, $info->{rows});
-$keys->print_legends(\%get);
+{
+ say "
\n";
+ say '';
+
+ say "\t", '
';
+ my @groups = sort grep {/^g\d/} keys %{ $keys->{flag} };
+ $keys->print_legend('legend-types', \@groups);
+ say "\t
\n";
+
+ say "\t", '
';
+ my @attr = sort grep {!/^g\d/} keys %{ $keys->{flag} };
+ $keys->print_legend('legend-options', \@attr);
+ say '';
+
+ say "\t\t", '
';
+
+ say "\t\t- keyboard map is ",
+ ($get{map} ? 'set to ' : ''), "$keys->{map}";
+ say "\t\t
- keys are ",
+ "", ($showkeys ? 'always shown' : 'hidden if unassigned'), "",
+ (!defined $showkeys && ' by default');
+ say "\t\t
- default style is ",
+ (defined $get{style} && 'set to '), "$style";
+
+ say "\t\t
";
+ say "\t
\n";
+ say "
\n";
+}