| … | |
… | |
| 498 | |
498 | |
| 499 | for (split /\n/, $data) { |
499 | for (split /\n/, $data) { |
| 500 | my ($face, $visibility, $fg, $bg, $glyph) = split /\s+/; |
500 | my ($face, $visibility, $fg, $bg, $glyph) = split /\s+/; |
| 501 | |
501 | |
| 502 | $glyph =~ s/^\?(?=.)//; # remove "autoglyph" flag |
502 | $glyph =~ s/^\?(?=.)//; # remove "autoglyph" flag |
|
|
503 | |
|
|
504 | $fg = "white" if $fg eq "none"; # lots of faces have no fg colour yet |
| 503 | |
505 | |
| 504 | (my $fgi = $COLOR{$fg}) |
506 | (my $fgi = $COLOR{$fg}) |
| 505 | // warn "WARNING: $path: $face specifies unknown foreground colour '$fg'.\n"; |
507 | // warn "WARNING: $path: $face specifies unknown foreground colour '$fg'.\n"; |
| 506 | (my $bgi = $COLOR{$bg}) |
508 | (my $bgi = $COLOR{$bg}) |
| 507 | // warn "WARNING: $path: $face specifies unknown background colour '$bg'.\n"; |
509 | // warn "WARNING: $path: $face specifies unknown background colour '$bg'.\n"; |
