From 2fb0fb7012a25b6847ca8187e215da735eb186bf Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Thu, 5 Mar 2015 04:31:51 +0100
Subject: [PATCH] font: show currency and mathematical unicode categories

---
 font.plp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/font.plp b/font.plp
index 98fff40..5e81234 100644
--- a/font.plp
+++ b/font.plp
@@ -50,7 +50,9 @@ my @rows = (
 	'table/punctuation',
 	'block/Dingbats',
 	'table/symbols',
+	'category/Sc', # currency
 	'table/math',
+	'category/Sm', # mathematical
 	'table/arrows/single',
 	'table/lines/single',
 	'table/block',
@@ -58,7 +60,7 @@ my @rows = (
 	'table/html',
 );
 
-for my $group ($ENV{PATH_INFO} || ()) {
+if (my $group = $ENV{PATH_INFO}) {
 	$group =~ s{^/}{};
 	my $grouprows = $cover->{$group}
 		or die "Unknown character category $_\n";
-- 
2.30.0