font choice, and proper vertical rendering

NOTE: hinting:none and antialias:full is needed to get Japanese
displayed correctly… bug?

1 files changed, 15 insertions, 0 deletions

diff --git a/lib/GridFiller/Types.pm b/lib/GridFiller/Types.pm
index 92834ba..90e094f 100644
--- a/lib/GridFiller/Types.pm
+++ b/lib/GridFiller/Types.pm
@@ -1,9 +1,13 @@
 package GridFiller::Types;
+use strict;
+use warnings;
+use namespace::autoclean;
 use MooseX::Types -declare =>
     [qw(
            GridT GridStatusT
            CharT LetterCellT TextResultT
            WordListT
+           FontDescrT FontOptT
    )];
 use MooseX::Types::Moose qw(Str ArrayRef Int);
 use MooseX::Types::Structured qw(Tuple);
@@ -23,4 +27,15 @@ subtype WordListT, as ArrayRef[Str];
 
 subtype TextResultT, as ArrayRef[ArrayRef[LetterCellT]];
 
+class_type FontDescrT, { class => 'Pango::FontDescription' };
+
+coerce FontDescrT,
+    from Str,
+    via {
+        require Pango;
+        Pango::FontDescription->from_string($_);
+    };
+
+class_type FontOptT, { class => 'Cairo::FontOptions' };
+
 1;