From caf5dd7b399d4214dbd0c71b66a70750d06d41b9 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 15 Dec 2023 02:03:47 +0100
Subject: [PATCH] keyboard: cleanup legend column grouping code

---
 keyboard.plp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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">';
-- 
2.30.0