| … | |
… | |
| 442 | my ($face, $visibility, $fg, $bg, $glyph) = split /\s+/, $_, 5; |
442 | my ($face, $visibility, $fg, $bg, $glyph) = split /\s+/, $_, 5; |
| 443 | # bg not used except for text clients |
443 | # bg not used except for text clients |
| 444 | |
444 | |
| 445 | utf8::decode $glyph; |
445 | utf8::decode $glyph; |
| 446 | $glyph =~ s/^\?(?=.)//; # remove "autoglyph" flag |
446 | $glyph =~ s/^\?(?=.)//; # remove "autoglyph" flag |
|
|
447 | $glyph =~ s/^"(.+)"$/$1/; # allow for ""-style quoting |
| 447 | |
448 | |
| 448 | $fg = "white" if $fg eq "none"; # lots of faces have no fg colour yet |
449 | $fg = "white" if $fg eq "none"; # lots of faces have no fg colour yet |
| 449 | |
450 | |
| 450 | (my $fgi = $COLOR{$fg}) |
451 | (my $fgi = $COLOR{$fg}) |
| 451 | // warn "WARNING: $path: $face specifies unknown foreground colour '$fg'.\n"; |
452 | // warn "WARNING: $path: $face specifies unknown foreground colour '$fg'.\n"; |
