… | |
… | |
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"; |