font: search font files in multiple candidates
[sheet.git] / font.plp
index f9b7ac6..22479b4 100644 (file)
--- a/font.plp
+++ b/font.plp
@@ -26,13 +26,12 @@ use Shiar_Sheet::FormatChar;
 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);