X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/fa8b78782cf8ce0639cab402ac0d8d3afca92891..082d363b562650988d2d57c73497801a4f8794ed:/unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 739e8a7..3e0c948 100644
--- a/unicode.plp
+++ b/unicode.plp
@@ -31,12 +31,13 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 if (exists $get{di}) {
-	$glyphs->{digraph} = defined $get{di} ? ! !$get{di} : 1;
-	$glyphs->{unicode} = 1;
+	$glyphs->{anno} = [ (!defined $get{di} || $get{di}) && 'di', 'hex' ];
 }
 if (exists $get{q}) {
-	$glyphs->{unicode} = -1;
-	$glyphs->{digraph}--;
+	$glyphs->{anno} = [];
+}
+if (exists $get{html}) {
+	$glyphs->{anno} = ['html', 'xml'];
 }
 
 our $verbose = exists $get{v};
@@ -58,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 {
@@ -69,15 +73,19 @@ $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
+		math/size
+			equal
+			set
 	Symbols
 		symbols/currency
 			cards
+			?chess
 			signs1
 			communic=0?communic
 			trinity=0?trinity
@@ -135,8 +143,8 @@ $glyphs->print(map {
 <div class="legend">
 	<table class="glyphs"><tr>
 	<td class="X l4">ascii
-	<td class="X l3"><:= $glyphs->{digraph} ? 'digraph' : 'latin1' :>
-	<td class="X l2"><:= $glyphs->{digraph} ? 'proposed' : 'BMP' :>
+	<td class="X l3"><:= $glyphs->{style} eq 'di' ? 'digraph' : 'latin1' :>
+	<td class="X l2"><:= $glyphs->{style} eq 'di' ? 'proposed' : 'BMP' :>
 	<td class="X l1">other unicode
 	<td class="X ex">discouraged
 	</table>