From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 25 Dec 2010 00:27:01 +0000 (+0100)
Subject: unicode: allow row ranges, fix verbose binary
X-Git-Tag: v1.5~93
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/b2be59c4f3907ccf13f159d624279359136464f0

unicode: allow row ranges, fix verbose binary
---

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