From b2be59c4f3907ccf13f159d624279359136464f0 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 25 Dec 2010 01:27:01 +0100
Subject: [PATCH] unicode: allow row ranges, fix verbose binary

---
 unicode.plp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/unicode.plp b/unicode.plp
index 0920030..2e9678b 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -59,7 +59,10 @@ $glyphs->print(map {
 			for ($rowlen = 1; $rowlen++; $rowlen <= $#$table) {
 				last if $table->[$rowlen] =~ /\./;
 			}
-			my @cells = map { $_*$rowlen .. ($_+1)*$rowlen - 1 } @select;
+			my @cells = map {
+				my $end = (s/-(.+)?// ? ($1 // @$table / $rowlen - 1) : $_) + 1;
+				$_ * $rowlen .. $end * $rowlen - 1;
+			} @select;
 			[ @$table[@cells] ];
 		}
 		else {
@@ -70,9 +73,9 @@ $glyphs->print(map {
 	Popular
 		punctuation/quoting
 			common
-		symbols/binary?symbols/binary=0
-		latin/sample=0=1
-			sample=2=3
+		symbols/binary?symbols/binary=-5
+		latin/sample=-1
+			sample=2-3
 			?uncommon
 		punctuation/version
 		punctuation/marks
-- 
2.30.0