notes/font-search/fontsearch2

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 our %done;
   6
   7 while (<>) {
   8     next unless s/^name:\s+//;
   9     next if m/iso8859-(?!1\b)/;
  10     next if m/\bkoi8\b/;
  11     my $other = $_;
  12     $other =~ s/\b(iso8859-1|microsoft-cp1251|paratype-\w+|muleipa-1|jisx0201\.1976-0)\b/iso10646-1/;
  13     next if $done{$other};
  14     $done{$_}++;
  15 }
  16
  17 foreach my $bold (keys %done) {
  18     my $medium = $bold;
  19     next unless $medium =~ s/\bbold\b/medium/;
  20     delete $done{$bold} if $done{$medium};
  21 }
  22
  23 foreach my $bold (keys %done) {
  24     my $medium = $bold;
  25     next unless $medium =~ s/-bold-/-/;
  26     delete $done{$bold} if $done{$medium};
  27 }
  28
  29 foreach (sort keys %done) {
  30 #    print;
  31     chomp;
  32     print "xterm -fn '$_' -e '(echo $_; man ascii) |less' &\n";
  33 }