git.sur5r.net Git - glabels/blob - glabels2/src/font-util.c

   1 /*
   2  *  font-util.h
   3  *  Copyright (C) 2009  Jim Evins <evins@snaught.com>.
   4  *
   5  *  This file is part of gLabels.
   6  *
   7  *  gLabels is free software: you can redistribute it and/or modify
   8  *  it under the terms of the GNU General Public License as published by
   9  *  the Free Software Foundation, either version 3 of the License, or
  10  *  (at your option) any later version.
  11  *
  12  *  gLabels is distributed in the hope that it will be useful,
  13  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  *  GNU General Public License for more details.
  16  *
  17  *  You should have received a copy of the GNU General Public License
  18  *  along with gLabels.  If not, see <http://www.gnu.org/licenses/>.
  19  */
  20
  21 #include <config.h>
  22
  23 #include "font-util.h"
  24
  25 #include <pango/pango.h>
  26 #include <pango/pangocairo.h>
  27 #include <glib/gstrfuncs.h>
  28 #include <libglabels/str.h>
  29
  30
  31 /****************************************************************************/
  32 /* Get list of all available font families.                                 */
  33 /****************************************************************************/
  34 const GList  *
  35 gl_font_util_get_all_families (void)
  36 {
  37         static GList         *list = NULL;
  38         PangoFontMap         *fontmap;
  39         PangoContext         *context;
  40         PangoFontFamily     **families;
  41         gint                  n;
  42         gint                  i;
  43         gchar                *name;
  44
  45         if ( !list )
  46         {
  47                 fontmap = pango_cairo_font_map_new ();
  48                 context = pango_cairo_font_map_create_context (PANGO_CAIRO_FONT_MAP (fontmap));
  49
  50                 pango_context_list_families (context, &families, &n);
  51
  52                 for ( i=0; i<n; i++ )
  53                 {
  54                         name = g_strdup (pango_font_family_get_name (families[i]));
  55                         list = g_list_insert_sorted (list, name,
  56                                                      (GCompareFunc)lgl_str_utf8_casecmp);
  57                 }
  58
  59                 g_free (families);
  60
  61                 g_object_unref (context);
  62                 g_object_unref (fontmap);
  63         }
  64
  65         return list;
  66 }
  67
  68
  69 /****************************************************************************/
  70 /* Get list of all available proportional font families.                    */
  71 /****************************************************************************/
  72 const GList  *
  73 gl_font_util_get_proportional_families (void)
  74 {
  75         static GList         *list = NULL;
  76         PangoFontMap         *fontmap;
  77         PangoContext         *context;
  78         PangoFontFamily     **families;
  79         gint                  n;
  80         gint                  i;
  81         gchar                *name;
  82
  83         if ( !list )
  84         {
  85                 fontmap = pango_cairo_font_map_new ();
  86                 context = pango_cairo_font_map_create_context (PANGO_CAIRO_FONT_MAP (fontmap));
  87
  88                 pango_context_list_families (context, &families, &n);
  89
  90                 for ( i=0; i<n; i++ )
  91                 {
  92                         if ( !pango_font_family_is_monospace (families[i]) )
  93                         {
  94                                 name = g_strdup (pango_font_family_get_name (families[i]));
  95                                 list = g_list_insert_sorted (list, name,
  96                                                              (GCompareFunc)lgl_str_utf8_casecmp);
  97                         }
  98                 }
  99
 100                 g_free (families);
 101
 102                 g_object_unref (context);
 103                 g_object_unref (fontmap);
 104         }
 105
 106         return list;
 107 }
 108
 109
 110 /****************************************************************************/
 111 /* Get list of all available fixed-width font families.                     */
 112 /****************************************************************************/
 113 const GList  *
 114 gl_font_util_get_fixed_width_families (void)
 115 {
 116         static GList         *list = NULL;
 117         PangoFontMap         *fontmap;
 118         PangoContext         *context;
 119         PangoFontFamily     **families;
 120         gint                  n;
 121         gint                  i;
 122         gchar                *name;
 123
 124         if ( !list )
 125         {
 126                 fontmap = pango_cairo_font_map_new ();
 127                 context = pango_cairo_font_map_create_context (PANGO_CAIRO_FONT_MAP (fontmap));
 128
 129                 pango_context_list_families (context, &families, &n);
 130
 131                 for ( i=0; i<n; i++ )
 132                 {
 133                         if ( pango_font_family_is_monospace (families[i]) )
 134                         {
 135                                 name = g_strdup (pango_font_family_get_name (families[i]));
 136                                 list = g_list_insert_sorted (list, name,
 137                                                              (GCompareFunc)lgl_str_utf8_casecmp);
 138                         }
 139                 }
 140
 141                 g_free (families);
 142
 143                 g_object_unref (context);
 144                 g_object_unref (fontmap);
 145         }
 146
 147         return list;
 148 }
 149
 150
 151
 152 /*
 153  * Local Variables:       -- emacs
 154  * mode: C                -- emacs
 155  * c-basic-offset: 8      -- emacs
 156  * tab-width: 8           -- emacs
 157  * indent-tabs-mode: nil  -- emacs
 158  * End:                   -- emacs
 159  */