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 C-TYPE: PangoFont
  19 C-TYPE: PangoFontFamily
  20 C-TYPE: PangoFontFace
  21 C-TYPE: PangoFontMap
  22 C-TYPE: PangoFontMetrics
  23 C-TYPE: PangoFontDescription
  24 C-TYPE: PangoGlyphString
  25 C-TYPE: PangoLanguage
  26
  27 CONSTANT: PANGO_WEIGHT_THIN 100
  28 CONSTANT: PANGO_WEIGHT_ULTRALIGHT 200
  29 CONSTANT: PANGO_WEIGHT_LIGHT 300
  30 CONSTANT: PANGO_WEIGHT_BOOK 380
  31 CONSTANT: PANGO_WEIGHT_NORMAL 400
  32 CONSTANT: PANGO_WEIGHT_MEDIUM 500
  33 CONSTANT: PANGO_WEIGHT_SEMIBOLD 600
  34 CONSTANT: PANGO_WEIGHT_BOLD 700
  35 CONSTANT: PANGO_WEIGHT_ULTRABOLD 800
  36 CONSTANT: PANGO_WEIGHT_HEAVY 900
  37 CONSTANT: PANGO_WEIGHT_ULTRAHEAVY 1000
  38
  39 FUNCTION: PangoFontDescription*
  40 pango_font_description_new ( ) ;
  41
  42 FUNCTION: void
  43 pango_font_description_free ( PangoFontDescription* desc ) ;
  44
  45 DESTRUCTOR: pango_font_description_free
  46
  47 FUNCTION: PangoFontDescription*
  48 pango_font_description_from_string ( char* str ) ;
  49
  50 FUNCTION: char*
  51 pango_font_description_to_string ( PangoFontDescription* desc ) ;
  52
  53 FUNCTION: char*
  54 pango_font_description_to_filename ( PangoFontDescription* desc ) ;
  55
  56 FUNCTION: void
  57 pango_font_description_set_family ( PangoFontDescription* desc, char* family ) ;
  58
  59 FUNCTION: void
  60 pango_font_description_set_style ( PangoFontDescription* desc, PangoStyle style ) ;
  61
  62 FUNCTION: void
  63 pango_font_description_set_weight ( PangoFontDescription* desc, PangoWeight weight ) ;
  64
  65 FUNCTION: void
  66 pango_font_description_set_size ( PangoFontDescription* desc, gint size ) ;
  67
  68 FUNCTION: void
  69 pango_font_map_list_families ( PangoFontMap* fontmap, PangoFontFamily*** families, int* n_families ) ;
  70
  71 FUNCTION: char*
  72 pango_font_family_get_name ( PangoFontFamily* family ) ;
  73
  74 FUNCTION: int
  75 pango_font_family_is_monospace ( PangoFontFamily* family ) ;
  76
  77 FUNCTION: void
  78 pango_font_family_list_faces ( PangoFontFamily* family, PangoFontFace*** faces, int* n_faces ) ;
  79
  80 FUNCTION: char*
  81 pango_font_face_get_face_name ( PangoFontFace* face ) ;
  82
  83 FUNCTION: void
  84 pango_font_face_list_sizes ( PangoFontFace* face, int** sizes, int* n_sizes ) ;
  85
  86 FUNCTION: void pango_font_metrics_unref ( PangoFontMetrics* metrics ) ;
  87
  88 DESTRUCTOR: pango_font_metrics_unref
  89
  90 FUNCTION: int pango_font_metrics_get_ascent ( PangoFontMetrics* metrics ) ;
  91
  92 FUNCTION: int pango_font_metrics_get_descent ( PangoFontMetrics* metrics ) ;
  93
  94 FUNCTION: PangoFont* pango_font_map_load_font ( PangoFontMap* fontmap, PangoContext* context, PangoFontDescription* desc ) ;
  95
  96 FUNCTION: PangoFontMetrics* pango_context_get_metrics ( PangoContext* context, PangoFontDescription* desc, PangoLanguage* language ) ;
  97
  98 FUNCTION: PangoFontMetrics* pango_font_get_metrics ( PangoFont* font, PangoLanguage* language ) ;
  99
 100 MEMO: (cache-font-description) ( font -- description )
 101     [
 102         [ pango_font_description_new |pango_font_description_free ] dip {
 103             [ name>> pango_font_description_set_family ]
 104             [ size>> float>pango pango_font_description_set_size ]
 105             [ bold?>> PANGO_WEIGHT_BOLD PANGO_WEIGHT_NORMAL ? pango_font_description_set_weight ]
 106             [ italic?>> PANGO_STYLE_ITALIC PANGO_STYLE_NORMAL ? pango_font_description_set_style ]
 107             [ drop ]
 108         } 2cleave
 109     ] with-destructors ;
 110
 111 : cache-font-description ( font -- description )
 112     strip-font-colors (cache-font-description) ;
 113
 114 [ \ (cache-font-description) reset-memoized ] "pango.fonts" add-startup-hook