basis/pango/fonts/fonts.factor

   1 ! Copyright (C) 2008 Matthew Willis.
   2 ! Copyright (C) 2009 Slava Pestov.
   3 ! See http://factorcode.org/license.txt for BSD license
   4 USING: pango alien.syntax alien.c-types alien.destructors
   5 kernel glib accessors combinators destructors init fonts
   6 memoize math ;
   7 IN: pango.fonts
   8
   9 LIBRARY: pango
  10
  11 TYPEDEF: int PangoStyle
  12 C-ENUM:
  13 PANGO_STYLE_NORMAL
  14 PANGO_STYLE_OBLIQUE
  15 PANGO_STYLE_ITALIC ;
  16
  17 TYPEDEF: int PangoWeight
  18 CONSTANT: PANGO_WEIGHT_THIN 100
  19 CONSTANT: PANGO_WEIGHT_ULTRALIGHT 200
  20 CONSTANT: PANGO_WEIGHT_LIGHT 300
  21 CONSTANT: PANGO_WEIGHT_BOOK 380
  22 CONSTANT: PANGO_WEIGHT_NORMAL 400
  23 CONSTANT: PANGO_WEIGHT_MEDIUM 500
  24 CONSTANT: PANGO_WEIGHT_SEMIBOLD 600
  25 CONSTANT: PANGO_WEIGHT_BOLD 700
  26 CONSTANT: PANGO_WEIGHT_ULTRABOLD 800
  27 CONSTANT: PANGO_WEIGHT_HEAVY 900
  28 CONSTANT: PANGO_WEIGHT_ULTRAHEAVY 1000
  29
  30 FUNCTION: PangoFontDescription*
  31 pango_font_description_new ( ) ;
  32
  33 FUNCTION: void
  34 pango_font_description_free ( PangoFontDescription* desc ) ;
  35
  36 DESTRUCTOR: pango_font_description_free
  37
  38 FUNCTION: PangoFontDescription*
  39 pango_font_description_from_string ( char* str ) ;
  40
  41 FUNCTION: char*
  42 pango_font_description_to_string ( PangoFontDescription* desc ) ;
  43
  44 FUNCTION: char*
  45 pango_font_description_to_filename ( PangoFontDescription* desc ) ;
  46
  47 FUNCTION: void
  48 pango_font_description_set_family ( PangoFontDescription* desc, char* family ) ;
  49
  50 FUNCTION: void
  51 pango_font_description_set_style ( PangoFontDescription* desc, PangoStyle style ) ;
  52
  53 FUNCTION: void
  54 pango_font_description_set_weight ( PangoFontDescription* desc, PangoWeight weight ) ;
  55
  56 FUNCTION: void
  57 pango_font_description_set_size ( PangoFontDescription* desc, gint size ) ;
  58
  59 FUNCTION: void
  60 pango_font_map_list_families ( PangoFontMap* fontmap, PangoFontFamily*** families, int* n_families ) ;
  61
  62 FUNCTION: char*
  63 pango_font_family_get_name ( PangoFontFamily* family ) ;
  64
  65 FUNCTION: int
  66 pango_font_family_is_monospace ( PangoFontFamily* family ) ;
  67
  68 FUNCTION: void
  69 pango_font_family_list_faces ( PangoFontFamily* family, PangoFontFace*** faces, int* n_faces ) ;
  70
  71 FUNCTION: char*
  72 pango_font_face_get_face_name ( PangoFontFace* face ) ;
  73
  74 FUNCTION: void
  75 pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
  76
  77 FUNCTION: void pango_font_metrics_unref ( PangoFontMetrics* metrics ) ;
  78
  79 DESTRUCTOR: pango_font_metrics_unref
  80
  81 FUNCTION: int pango_font_metrics_get_ascent ( PangoFontMetrics* metrics ) ;
  82
  83 FUNCTION: int pango_font_metrics_get_descent ( PangoFontMetrics* metrics ) ;
  84
  85 FUNCTION: PangoFont* pango_font_map_load_font ( PangoFontMap* fontmap, PangoContext* context, PangoFontDescription* desc ) ;
  86
  87 FUNCTION: PangoFontMetrics* pango_context_get_metrics ( PangoContext* context, PangoFontDescription* desc, PangoLanguage* language ) ;
  88
  89 FUNCTION: PangoFontMetrics* pango_font_get_metrics ( PangoFont* font, PangoLanguage* language ) ;
  90
  91 MEMO: (cache-font-description) ( font -- description )
  92     [
  93         [ pango_font_description_new |pango_font_description_free ] dip {
  94             [ name>> pango_font_description_set_family ]
  95             [ size>> float>pango pango_font_description_set_size ]
  96             [ bold?>> PANGO_WEIGHT_BOLD PANGO_WEIGHT_NORMAL ? pango_font_description_set_weight ]
  97             [ italic?>> PANGO_STYLE_ITALIC PANGO_STYLE_NORMAL ? pango_font_description_set_style ]
  98             [ drop ]
  99         } 2cleave
 100     ] with-destructors ;
 101
 102 : cache-font-description ( font -- description )
 103     strip-font-colors (cache-font-description) ;
 104
 105 [ \ (cache-font-description) reset-memoized ] "pango.fonts" add-init-hook