font: search font files in multiple candidates

[sheet.git] / font.plp

diff --git a/font.plp b/font.plp
index f9b7ac6501326b32ecaec92ada1e810790852a42..22479b4763f2b124264b94ae33a5c27f29186e7f 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -26,13 +26,12 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 my %oslist = (
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 my %oslist = (

-       win95 => [qw( arial ariuni verdana times )],
-       mac10 => [qw( )],
-       oss   => [qw( dvsans droid c2k guf )],
-
-       android => ['droid'],
+       win95   => [qw( arial ariuni verdana times )],  # microsoft
+       mac10   => [qw( )],  # apple
+       android => [qw( droidsans )],  # google
+       oss     => [qw( dvsans c2k unifont )],

 );
 );

-my @ossel = qw(win95 oss);
+my @ossel = qw( win95 oss android );

 
 my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
 my (%font, @fontlist);
 
 my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
 my (%font, @fontlist);