X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/04d963b223ec1e49784c96a1b6b36cddf6cd29f0..a9bd14706592fd50c5e427635d6c70005dfa4953:/rfc1345convert

diff --git a/rfc1345convert b/rfc1345convert
index 8b29b80..6edfa74 100644
--- a/rfc1345convert
+++ b/rfc1345convert
@@ -47,18 +47,24 @@ for (@t) {
 }
 
 # optionally get unicode character information
-my %charinfo = eval {
+my %info = eval {
 	require Unicode::UCD;
 	map { $_ => Unicode::UCD::charinfo($di{$_}) } keys %di;
 };
 
+# add custom categories for certain blocks
+for (values %info) {
+	$_->{category} .= ' Xa' if $_->{block} eq 'Basic Latin';
+	$_->{category} .= ' Xl' if $_->{block} eq 'Latin-1 Supplement';
+}
+
 # output perl code of hash
 # (assume no backslashes or curlies, so we can just q{} w/o escaping)
 print "{\n";
 printf "q{%s}=>[%s],\n", $_, join(',',
 	$di{$_},       # glyph code point
-	$charinfo{$_}  # optional additional arguments
-		? map {"'$_'"} @{ $charinfo{$_} }{qw/name category script/}
+	$info{$_}  # optional additional arguments
+		? map {"'$_'"} @{ $info{$_} }{qw/name category script/}
 		: ()
 ) for sort keys %di;
 print "}\n";