From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 15 Dec 2023 01:03:47 +0000 (+0100)
Subject: keyboard: cleanup legend column grouping code
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/caf5dd7b399d4214dbd0c71b66a70750d06d41b9

keyboard: cleanup legend column grouping code
---

diff --git a/keyboard.plp b/keyboard.plp
index d40c434..ea62b5a 100644
--- 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">';