formatchar: annotation fallback

[sheet.git] / unicode.plp

diff --git a/unicode.plp b/unicode.plp
index 5b3093d05c781db29e05d3c0219cb4ea90a1fac3..2f9969a3e70dce904b9693e960e70d8f7316b969 100644 (file)
--- a/unicode.plp
+++ b/unicode.plp
@@ -31,12 +31,10 @@ use Shiar_Sheet::FormatChar;
 my $glyphs = Shiar_Sheet::FormatChar->new;
 
 if (exists $get{di}) {
-       $glyphs->{anno} = (!defined $get{di} || $get{di}) && 'di';
-       $glyphs->{unicode} = 1;
+       $glyphs->{anno} = [ (!defined $get{di} || $get{di}) && 'di', 'hex' ];
 }
 if (exists $get{q}) {
-       $glyphs->{unicode} = -1;
-       $glyphs->{anno} = 0;
+       $glyphs->{anno} = [];
 }
 
 our $verbose = exists $get{v};