keyboard: cleanup legend column grouping code

[sheet.git] / keyboard.plp

diff --git a/keyboard.plp b/keyboard.plp
index d40c434f62d833c17ee6f768d2d0943937a7641d..ea62b5a5284a9bf4c13fb126493a8b3c04c2f5e1 100644 (file)
--- a/keyboard.plp
+++ b/keyboard.plp
@@ -39,14 +39,15 @@ $keys->print_rows($get{rows}, $info->{rows});
        say "<hr/>\n";
        say '<div class="help">';
 
+       use List::MoreUtils qw( part );
+       my @gflags = part {/^g\d/} sort keys %{ $keys->{flag} };
+
        say "\t", '<div class="left">';
-       my @groups = sort grep {/^g\d/} keys %{ $keys->{flag} };
-       $keys->print_legend('legend-types', \@groups);
+       $keys->print_legend('legend-types', $gflags[1]);
        say "\t</div>\n";
 
        say "\t", '<div class="right">';
-       my @attr = sort grep {!/^g\d/} keys %{ $keys->{flag} };
-       $keys->print_legend('legend-options', \@attr);
+       $keys->print_legend('legend-options', $gflags[0]);
        say '';
 
        say "\t\t", '<ul class="legend legend-set">';