annotate src/xftfont.c @ 102945:f623dc25d37e

(get_adstyle_property): Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Mon, 13 Apr 2009 12:37:41 +0000
parents 0ea82e792866
children 64cdf8a83bdd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 /* xftfont.c -- XFT font driver.
100951
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100551
diff changeset
2 Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
e038c1a8307c Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100551
diff changeset
3 Copyright (C) 2006, 2007, 2008, 2009
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 National Institute of Advanced Industrial Science and Technology (AIST)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5 Registration Number H13PRO009
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7 This file is part of GNU Emacs.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
9 GNU Emacs is free software: you can redistribute it and/or modify
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
11 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
12 (at your option) any later version.
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14 GNU Emacs is distributed in the hope that it will be useful,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 GNU General Public License for more details.
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94941
diff changeset
20 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 #include <config.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 #include <stdio.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 #include <X11/Xlib.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 #include <X11/Xft/Xft.h>
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 #include "lisp.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 #include "dispextern.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 #include "xterm.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 #include "frame.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 #include "blockinput.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 #include "character.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 #include "charset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 #include "fontset.h"
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 #include "font.h"
91143
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
36 #include "ftfont.h"
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 /* Xft font driver. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 static Lisp_Object Qxft;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
41 static Lisp_Object QChinting , QCautohint, QChintstyle, QCrgba, QCembolden;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 /* The actual structure for Xft font that can be casted to struct
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 font. */
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 struct xftfont_info
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 struct font font;
101555
a8e049b0d2c2 (struct xftfont_info): New member `index'.
Kenichi Handa <handa@m17n.org>
parents: 100951
diff changeset
49 /* The following four members must be here in this order to be
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
50 compatible with struct ftfont_info (in ftfont.c). */
91143
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
51 #ifdef HAVE_LIBOTF
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
52 int maybe_otf; /* Flag to tell if this may be OTF or not. */
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
53 OTF *otf;
91163
a12e3e58ec94 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 91143
diff changeset
54 #endif /* HAVE_LIBOTF */
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
55 FT_Size ft_size;
101555
a8e049b0d2c2 (struct xftfont_info): New member `index'.
Kenichi Handa <handa@m17n.org>
parents: 100951
diff changeset
56 int index;
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
57 Display *display;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
58 int screen;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
59 XftFont *xftfont;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 /* Structure pointed by (struct face *)->extra */
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
63
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 struct xftface_info
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 {
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
66 XftColor xft_fg; /* color for face->foreground */
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
67 XftColor xft_bg; /* color for face->background */
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 };
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 static void xftfont_get_colors P_ ((FRAME_PTR, struct face *, GC gc,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 struct xftface_info *,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 XftColor *fg, XftColor *bg));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
75 /* Setup foreground and background colors of GC into FG and BG. If
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
76 XFTFACE_INFO is not NULL, reuse the colors in it if possible. BG
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
77 may be NULL. */
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
78
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 xftfont_get_colors (f, face, gc, xftface_info, fg, bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 GC gc;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 struct xftface_info *xftface_info;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 XftColor *fg, *bg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 if (xftface_info && face->gc == gc)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 *fg = xftface_info->xft_fg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 if (bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 *bg = xftface_info->xft_bg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
93 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 XGCValues xgcv;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 int fg_done = 0, bg_done = 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 BLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 XGetGCValues (FRAME_X_DISPLAY (f), gc,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 GCForeground | GCBackground, &xgcv);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 if (xftface_info)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 if (xgcv.foreground == face->foreground)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 *fg = xftface_info->xft_fg, fg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 else if (xgcv.foreground == face->background)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 *fg = xftface_info->xft_bg, fg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 if (! bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 bg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 else if (xgcv.background == face->background)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 *bg = xftface_info->xft_bg, bg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 else if (xgcv.background == face->foreground)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 *bg = xftface_info->xft_fg, bg_done = 1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 if (fg_done + bg_done < 2)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 XColor colors[2];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 colors[0].pixel = fg->pixel = xgcv.foreground;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 if (bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 colors[1].pixel = bg->pixel = xgcv.background;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 XQueryColors (FRAME_X_DISPLAY (f), FRAME_X_COLORMAP (f), colors,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 bg ? 2 : 1);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 fg->color.alpha = 0xFFFF;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 fg->color.red = colors[0].red;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 fg->color.green = colors[0].green;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 fg->color.blue = colors[0].blue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 if (bg)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 bg->color.alpha = 0xFFFF;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 bg->color.red = colors[1].red;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 bg->color.green = colors[1].green;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 bg->color.blue = colors[1].blue;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
135 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
138 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
139
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
140
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
141 static Lisp_Object xftfont_list P_ ((Lisp_Object, Lisp_Object));
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
142 static Lisp_Object xftfont_match P_ ((Lisp_Object, Lisp_Object));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
143 static Lisp_Object xftfont_open P_ ((FRAME_PTR, Lisp_Object, int));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
144 static void xftfont_close P_ ((FRAME_PTR, struct font *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
145 static int xftfont_prepare_face P_ ((FRAME_PTR, struct face *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
146 static void xftfont_done_face P_ ((FRAME_PTR, struct face *));
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
147 static int xftfont_has_char P_ ((Lisp_Object, int));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
148 static unsigned xftfont_encode_char P_ ((struct font *, int));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
149 static int xftfont_text_extents P_ ((struct font *, unsigned *, int,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
150 struct font_metrics *));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
151 static int xftfont_draw P_ ((struct glyph_string *, int, int, int, int, int));
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
152 static int xftfont_end_for_frame P_ ((FRAME_PTR f));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
153
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
154 struct font_driver xftfont_driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
155
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
156 static Lisp_Object
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
157 xftfont_list (frame, spec)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
158 Lisp_Object frame;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
159 Lisp_Object spec;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
160 {
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
161 Lisp_Object list = ftfont_driver.list (frame, spec), tail;
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
162
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
163 for (tail = list; CONSP (tail); tail = XCDR (tail))
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
164 ASET (XCAR (tail), FONT_TYPE_INDEX, Qxft);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
165 return list;
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
166 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
167
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
168 static Lisp_Object
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
169 xftfont_match (frame, spec)
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
170 Lisp_Object frame;
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
171 Lisp_Object spec;
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
172 {
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
173 Lisp_Object entity = ftfont_driver.match (frame, spec);
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
174
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
175 if (! NILP (entity))
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
176 ASET (entity, FONT_TYPE_INDEX, Qxft);
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
177 return entity;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
178 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
179
96431
abddf0a4cec0 (xftfont_open): Don't call FcConfigSubstitute and
Kenichi Handa <handa@m17n.org>
parents: 96146
diff changeset
180 extern Lisp_Object ftfont_font_format P_ ((FcPattern *, Lisp_Object));
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
181 extern FcCharSet *ftfont_get_fc_charset P_ ((Lisp_Object));
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
182 extern Lisp_Object QCantialias;
90700
b165eceb829f (ftfont_font_format): Extern declaration.
Kenichi Handa <handa@m17n.org>
parents: 90675
diff changeset
183
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
184 static FcChar8 ascii_printable[95];
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
185
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
186 static Lisp_Object
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
187 xftfont_open (f, entity, pixel_size)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
188 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
189 Lisp_Object entity;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
190 int pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
191 {
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
192 FcResult result;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
193 Display *display = FRAME_X_DISPLAY (f);
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
194 Lisp_Object val, filename, index, tail, font_object;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
195 FcPattern *pat = NULL, *match;
90460
86449661f321 (xftfont_open): Change coding style of error
Kenichi Handa <handa@m17n.org>
parents: 90442
diff changeset
196 struct xftfont_info *xftfont_info = NULL;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
197 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
198 double size = 0;
90460
86449661f321 (xftfont_open): Change coding style of error
Kenichi Handa <handa@m17n.org>
parents: 90442
diff changeset
199 XftFont *xftfont = NULL;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
200 int spacing;
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
201 char name[256];
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
202 int len, i;
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
203 XGlyphInfo extents;
91226
040f2e332dc3 (struct xftfont_info): Delete the member ft_face.
Kenichi Handa <handa@m17n.org>
parents: 91163
diff changeset
204 FT_Face ft_face;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
206 val = assq_no_quit (QCfont_entity, AREF (entity, FONT_EXTRA_INDEX));
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
207 if (! CONSP (val))
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
208 return Qnil;
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
209 val = XCDR (val);
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
210 filename = XCAR (val);
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
211 index = XCDR (val);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
212 size = XINT (AREF (entity, FONT_SIZE_INDEX));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
213 if (size == 0)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
214 size = pixel_size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
215 pat = FcPatternCreate ();
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
216 FcPatternAddInteger (pat, FC_WEIGHT, FONT_WEIGHT_NUMERIC (entity));
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
217 i = FONT_SLANT_NUMERIC (entity) - 100;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
218 if (i < 0) i = 0;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
219 FcPatternAddInteger (pat, FC_SLANT, i);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
220 FcPatternAddInteger (pat, FC_WIDTH, FONT_WIDTH_NUMERIC (entity));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
221 FcPatternAddDouble (pat, FC_PIXEL_SIZE, pixel_size);
90714
698001835583 (xftfont_open): Call FcConfigSubstitute.
Kenichi Handa <handa@m17n.org>
parents: 90712
diff changeset
222 val = AREF (entity, FONT_FAMILY_INDEX);
698001835583 (xftfont_open): Call FcConfigSubstitute.
Kenichi Handa <handa@m17n.org>
parents: 90712
diff changeset
223 if (! NILP (val))
698001835583 (xftfont_open): Call FcConfigSubstitute.
Kenichi Handa <handa@m17n.org>
parents: 90712
diff changeset
224 FcPatternAddString (pat, FC_FAMILY, (FcChar8 *) SDATA (SYMBOL_NAME (val)));
96094
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
225 val = AREF (entity, FONT_FOUNDRY_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
226 if (! NILP (val))
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
227 FcPatternAddString (pat, FC_FOUNDRY, (FcChar8 *) SDATA (SYMBOL_NAME (val)));
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
228 val = AREF (entity, FONT_SPACING_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
229 if (! NILP (val))
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
230 FcPatternAddInteger (pat, FC_SPACING, XINT (val));
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
231 val = AREF (entity, FONT_DPI_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
232 if (! NILP (val))
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
233 {
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
234 double dbl = XINT (val);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
235
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
236 FcPatternAddDouble (pat, FC_DPI, dbl);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
237 }
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
238 val = AREF (entity, FONT_AVGWIDTH_INDEX);
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
239 if (INTEGERP (val) && XINT (val) == 0)
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
240 FcPatternAddBool (pat, FC_SCALABLE, FcTrue);
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
241 /* This is necessary to identify the exact font (e.g. 10x20.pcf.gz
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
242 over 10x20-ISO8859-1.pcf.gz). */
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
243 FcPatternAddCharSet (pat, FC_CHARSET, ftfont_get_fc_charset (entity));
96094
0304b3142c84 (xftfont_open): Add FOUNDRY, SPACING, DPI, SCALABLE to the pattern.
Kenichi Handa <handa@m17n.org>
parents: 96075
diff changeset
244
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
245 for (tail = AREF (entity, FONT_EXTRA_INDEX); CONSP (tail); tail = XCDR (tail))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
246 {
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
247 Lisp_Object key, val;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
248
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
249 key = XCAR (XCAR (tail)), val = XCDR (XCAR (tail));
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
250 if (EQ (key, QCantialias))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
251 FcPatternAddBool (pat, FC_ANTIALIAS, NILP (val) ? FcFalse : FcTrue);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
252 else if (EQ (key, QChinting))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
253 FcPatternAddBool (pat, FC_HINTING, NILP (val) ? FcFalse : FcTrue);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
254 else if (EQ (key, QCautohint))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
255 FcPatternAddBool (pat, FC_AUTOHINT, NILP (val) ? FcFalse : FcTrue);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
256 else if (EQ (key, QChintstyle))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
257 {
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
258 if (INTEGERP (val))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
259 FcPatternAddInteger (pat, FC_RGBA, XINT (val));
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
260 }
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
261 else if (EQ (key, QCrgba))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
262 {
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
263 if (INTEGERP (val))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
264 FcPatternAddInteger (pat, FC_RGBA, XINT (val));
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
265 }
96146
e26d249d40df (xftfont_open): Handle QCembolden only when FC_EMBOLDEN is defined.
Kenichi Handa <handa@m17n.org>
parents: 96094
diff changeset
266 #ifdef FC_EMBOLDEN
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
267 else if (EQ (key, QCembolden))
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
268 FcPatternAddBool (pat, FC_EMBOLDEN, NILP (val) ? FcFalse : FcTrue);
96146
e26d249d40df (xftfont_open): Handle QCembolden only when FC_EMBOLDEN is defined.
Kenichi Handa <handa@m17n.org>
parents: 96094
diff changeset
269 #endif
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
270 }
90442
d6abf2344438 (xftfont_open): Make the font name fontconfig's
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
271
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
272 FcPatternAddString (pat, FC_FILE, (FcChar8 *) SDATA (filename));
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
273 FcPatternAddInteger (pat, FC_INDEX, XINT (index));
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
274
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
275
90442
d6abf2344438 (xftfont_open): Make the font name fontconfig's
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
276 BLOCK_INPUT;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
277 match = XftFontMatch (display, FRAME_X_SCREEN_NUMBER (f), pat, &result);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
278 FcPatternDestroy (pat);
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
279 xftfont = XftFontOpenPattern (display, match);
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
280 ft_face = XftLockFace (xftfont);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
281 UNBLOCK_INPUT;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
282
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
283 if (! xftfont)
100427
e0aa0e328261 (xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.
Chong Yidong <cyd@stupidchicken.com>
parents: 100301
diff changeset
284 {
e0aa0e328261 (xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.
Chong Yidong <cyd@stupidchicken.com>
parents: 100301
diff changeset
285 XftPatternDestroy (match);
e0aa0e328261 (xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.
Chong Yidong <cyd@stupidchicken.com>
parents: 100301
diff changeset
286 return Qnil;
e0aa0e328261 (xftfont_open): Free Xft font pattern if XftFontOpenPattern fails.
Chong Yidong <cyd@stupidchicken.com>
parents: 100301
diff changeset
287 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
288 /* We should not destroy PAT here because it is kept in XFTFONT and
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
289 destroyed automatically when XFTFONT is closed. */
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
290 font_object = font_make_object (VECSIZE (struct xftfont_info), entity, size);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
291 ASET (font_object, FONT_TYPE_INDEX, Qxft);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
292 len = font_unparse_xlfd (entity, size, name, 256);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
293 if (len > 0)
100551
42e9e426d886 (xftfont_open): Genarate a multibyte string if give names are utf-8.
Kenichi Handa <handa@m17n.org>
parents: 100427
diff changeset
294 ASET (font_object, FONT_NAME_INDEX, make_string (name, len));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
295 len = font_unparse_fcname (entity, size, name, 256);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
296 if (len > 0)
100551
42e9e426d886 (xftfont_open): Genarate a multibyte string if give names are utf-8.
Kenichi Handa <handa@m17n.org>
parents: 100427
diff changeset
297 ASET (font_object, FONT_FULLNAME_INDEX, make_string (name, len));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
298 else
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
299 ASET (font_object, FONT_FULLNAME_INDEX,
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
300 AREF (font_object, FONT_NAME_INDEX));
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
301 ASET (font_object, FONT_FILE_INDEX, filename);
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
302 ASET (font_object, FONT_FORMAT_INDEX,
96431
abddf0a4cec0 (xftfont_open): Don't call FcConfigSubstitute and
Kenichi Handa <handa@m17n.org>
parents: 96146
diff changeset
303 ftfont_font_format (xftfont->pattern, filename));
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
304 font = XFONT_OBJECT (font_object);
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
305 font->pixel_size = pixel_size;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
306 font->driver = &xftfont_driver;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
307 font->encoding_charset = font->repertory_charset = -1;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
308
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
309 xftfont_info = (struct xftfont_info *) font;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
310 xftfont_info->display = display;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
311 xftfont_info->screen = FRAME_X_SCREEN_NUMBER (f);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
312 xftfont_info->xftfont = xftfont;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
313 font->pixel_size = size;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
314 font->driver = &xftfont_driver;
95102
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
315 if (INTEGERP (AREF (entity, FONT_SPACING_INDEX)))
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
316 spacing = XINT (AREF (entity, FONT_SPACING_INDEX));
a3868b9c34f4 (xftfont_open): Ajusted for the change of extra info
Kenichi Handa <handa@m17n.org>
parents: 94963
diff changeset
317 else
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
318 spacing = FC_PROPORTIONAL;
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
319 if (! ascii_printable[0])
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
320 {
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
321 int i;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
322 for (i = 0; i < 95; i++)
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
323 ascii_printable[i] = ' ' + i;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
324 }
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
325 BLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
326 if (spacing != FC_PROPORTIONAL)
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
327 {
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
328 font->min_width = font->average_width = font->space_width
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
329 = xftfont->max_advance_width;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
330 XftTextExtents8 (display, xftfont, ascii_printable + 1, 94, &extents);
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
331 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
332 else
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
333 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
334 XftTextExtents8 (display, xftfont, ascii_printable, 1, &extents);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
335 font->space_width = extents.xOff;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
336 if (font->space_width <= 0)
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
337 /* dirty workaround */
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
338 font->space_width = pixel_size;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
339 XftTextExtents8 (display, xftfont, ascii_printable + 1, 94, &extents);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
340 font->average_width = (font->space_width + extents.xOff) / 95;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
341 }
90442
d6abf2344438 (xftfont_open): Make the font name fontconfig's
Kenichi Handa <handa@m17n.org>
parents: 90427
diff changeset
342 UNBLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
343
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
344 font->ascent = xftfont->ascent;
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
345 font->descent = xftfont->descent;
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
346 if (pixel_size >= 5)
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
347 {
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
348 /* The above condition is a dirty workaround because
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
349 XftTextExtents8 behaves strangely for some fonts
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
350 (e.g. "Dejavu Sans Mono") when pixel_size is less than 5. */
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
351 if (font->ascent < extents.y)
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
352 font->ascent = extents.y;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
353 if (font->descent < extents.height - extents.y)
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
354 font->descent = extents.height - extents.y;
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
355 }
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
356 font->height = font->ascent + font->descent;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
357
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
358 if (XINT (AREF (entity, FONT_SIZE_INDEX)) == 0)
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
359 {
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
360 int upEM = ft_face->units_per_EM;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
361
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
362 font->underline_position = -ft_face->underline_position * size / upEM;
102861
0ea82e792866 (xftfont_open): Fix setting font->underline_thickness.
Kenichi Handa <handa@m17n.org>
parents: 101943
diff changeset
363 font->underline_thickness = ft_face->underline_thickness * size / upEM;
95293
089ad7a58f94 (xftfont_open): Delete unused variable. If
Kenichi Handa <handa@m17n.org>
parents: 95102
diff changeset
364 if (font->underline_thickness > 2)
089ad7a58f94 (xftfont_open): Delete unused variable. If
Kenichi Handa <handa@m17n.org>
parents: 95102
diff changeset
365 font->underline_position -= font->underline_thickness / 2;
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
366 }
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
367 else
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
368 {
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
369 font->underline_position = -1;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
370 font->underline_thickness = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
371 }
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
372 #ifdef HAVE_LIBOTF
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
373 xftfont_info->maybe_otf = ft_face->face_flags & FT_FACE_FLAG_SFNT;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
374 xftfont_info->otf = NULL;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
375 #endif /* HAVE_LIBOTF */
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
376 xftfont_info->ft_size = ft_face->size;
90959
3f83c9d3f96c (xftfont_open): If one of font's ASCII glyph has
Kenichi Handa <handa@m17n.org>
parents: 90714
diff changeset
377
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378 /* Unfortunately Xft doesn't provide a way to get minimum char
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 width. So, we use space_width instead. */
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
380 font->min_width = font->space_width;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
382 font->baseline_offset = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
383 font->relative_compose = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
384 font->default_ascent = 0;
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
385 font->vertical_centering = 0;
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
386 #ifdef FT_BDF_H
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
387 if (! (ft_face->face_flags & FT_FACE_FLAG_SFNT))
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
388 {
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
389 BDF_PropertyRec rec;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
390
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
391 if (FT_Get_BDF_Property (ft_face, "_MULE_BASELINE_OFFSET", &rec) == 0
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
392 && rec.type == BDF_PROPERTY_TYPE_INTEGER)
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
393 font->baseline_offset = rec.u.integer;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
394 if (FT_Get_BDF_Property (ft_face, "_MULE_RELATIVE_COMPOSE", &rec) == 0
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
395 && rec.type == BDF_PROPERTY_TYPE_INTEGER)
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
396 font->relative_compose = rec.u.integer;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
397 if (FT_Get_BDF_Property (ft_face, "_MULE_DEFAULT_ASCENT", &rec) == 0
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
398 && rec.type == BDF_PROPERTY_TYPE_INTEGER)
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
399 font->default_ascent = rec.u.integer;
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
400 }
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
401 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
403 return font_object;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
405
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
406 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407 xftfont_close (f, font)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
409 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
410 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
411 struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412
91143
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
413 #ifdef HAVE_LIBOTF
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
414 if (xftfont_info->otf)
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
415 OTF_close (xftfont_info->otf);
06de618f78e7 Include "ftfont.h".
Kenichi Handa <handa@m17n.org>
parents: 91110
diff changeset
416 #endif
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
417 BLOCK_INPUT;
96562
ea11c7e02573 (struct xftfont_info): New member ft_size. Make the
Kenichi Handa <handa@m17n.org>
parents: 96431
diff changeset
418 XftUnlockFace (xftfont_info->xftfont);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 XftFontClose (xftfont_info->display, xftfont_info->xftfont);
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
420 UNBLOCK_INPUT;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
423 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
424 xftfont_prepare_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
425 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
426 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
427 {
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
428 struct xftface_info *xftface_info;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
429
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
430 #if 0
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
431 /* This doesn't work if face->ascii_face doesn't use an Xft font. */
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
432 if (face != face->ascii_face)
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
433 {
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
434 face->extra = face->ascii_face->extra;
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
435 return 0;
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
436 }
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
437 #endif
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
438
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
439 xftface_info = malloc (sizeof (struct xftface_info));
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
440 if (! xftface_info)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
441 return -1;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
442 xftfont_get_colors (f, face, face->gc, NULL,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
443 &xftface_info->xft_fg, &xftface_info->xft_bg);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
444 face->extra = xftface_info;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
445 return 0;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
446 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
447
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
448 static void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449 xftfont_done_face (f, face)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
450 FRAME_PTR f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
451 struct face *face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
452 {
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
453 struct xftface_info *xftface_info;
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
454
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
455 #if 0
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
456 /* This doesn't work if face->ascii_face doesn't use an Xft font. */
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
457 if (face != face->ascii_face
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
458 || ! face->extra)
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
459 return;
90499
32b8f672da38 (xftfont_prepare_face): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 90489
diff changeset
460 #endif
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
461
90489
78a820ef12db (xftfont_prepare_face): Make non-ascii face share
Kenichi Handa <handa@m17n.org>
parents: 90473
diff changeset
462 xftface_info = (struct xftface_info *) face->extra;
90527
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
463 if (xftface_info)
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
464 {
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
465 free (xftface_info);
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
466 face->extra = NULL;
90527
63b888896eba * xftfont.c (xftfont_done_face): Call XftDrawDestroy only if xftface_info
Jan Djärv <jan.h.d@swipnet.se>
parents: 90511
diff changeset
467 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
468 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
469
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
470 static int
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
471 xftfont_has_char (font, c)
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
472 Lisp_Object font;
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
473 int c;
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
474 {
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
475 struct xftfont_info *xftfont_info;
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
476
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
477 if (FONT_ENTITY_P (font))
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
478 return ftfont_driver.has_char (font, c);
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
479
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
480 xftfont_info = (struct xftfont_info *) XFONT_OBJECT (font);
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
481 return (XftCharExists (xftfont_info->display, xftfont_info->xftfont,
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
482 (FcChar32) c) == FcTrue);
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
483 }
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
484
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 static unsigned
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486 xftfont_encode_char (font, c)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
487 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
488 int c;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
489 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
490 struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
491 unsigned code = XftCharIndex (xftfont_info->display, xftfont_info->xftfont,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
492 (FcChar32) c);
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
493
91269
421d7c7d296a (xftfont_encode_char): Use the macro FONT_INVALID_CODE.
Kenichi Handa <handa@m17n.org>
parents: 91243
diff changeset
494 return (code ? code : FONT_INVALID_CODE);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
495 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
496
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
497 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
498 xftfont_text_extents (font, code, nglyphs, metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
499 struct font *font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
500 unsigned *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501 int nglyphs;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
502 struct font_metrics *metrics;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
503 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
504 struct xftfont_info *xftfont_info = (struct xftfont_info *) font;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505 XGlyphInfo extents;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507 BLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
508 XftGlyphExtents (xftfont_info->display, xftfont_info->xftfont, code, nglyphs,
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
509 &extents);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
510 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
511 if (metrics)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
512 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
513 metrics->lbearing = - extents.x;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
514 metrics->rbearing = - extents.x + extents.width;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 metrics->width = extents.xOff;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 metrics->ascent = extents.y;
90616
68d59ef20174 (xftfont_text_extents): Fix calculation of descent
Kenichi Handa <handa@m17n.org>
parents: 90589
diff changeset
517 metrics->descent = extents.height - extents.y;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 return extents.xOff;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
522 static XftDraw *
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
523 xftfont_get_xft_draw (f)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
524 FRAME_PTR f;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
525 {
101943
97c9e9322753 Remove spurious semicolons.
Juanma Barranquero <lekktu@gmail.com>
parents: 101640
diff changeset
526 XftDraw *xft_draw = font_get_frame_data (f, &xftfont_driver);
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
527
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
528 if (! xft_draw)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
529 {
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
530 BLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
531 xft_draw= XftDrawCreate (FRAME_X_DISPLAY (f),
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
532 FRAME_X_WINDOW (f),
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
533 FRAME_X_VISUAL (f),
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
534 FRAME_X_COLORMAP (f));
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
535 UNBLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
536 if (! xft_draw)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
537 abort ();
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
538 font_put_frame_data (f, &xftfont_driver, xft_draw);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
539 }
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
540 return xft_draw;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
541 }
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
542
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
543 static int
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
544 xftfont_draw (s, from, to, x, y, with_background)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
545 struct glyph_string *s;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
546 int from, to, x, y, with_background;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548 FRAME_PTR f = s->f;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 struct face *face = s->face;
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
550 struct xftfont_info *xftfont_info = (struct xftfont_info *) s->font;
91011
7239c19e55e9 (xftfont_draw): If s->font_info != s->face->font_info,
Kenichi Handa <handa@m17n.org>
parents: 90959
diff changeset
551 struct xftface_info *xftface_info = NULL;
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
552 XftDraw *xft_draw = xftfont_get_xft_draw (f);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553 FT_UInt *code;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 XftColor fg, bg;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 int len = to - from;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 int i;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
558 if (s->font == face->font)
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
559 xftface_info = (struct xftface_info *) face->extra;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
560 xftfont_get_colors (f, face, s->gc, xftface_info,
90426
e9ed7d437c21 (xftfont_default_fid): Set fid_known to 1.
Kenichi Handa <handa@m17n.org>
parents: 90400
diff changeset
561 &fg, with_background ? &bg : NULL);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
562 BLOCK_INPUT;
91027
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
563 if (s->num_clips > 0)
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
564 XftDrawSetClipRectangles (xft_draw, 0, 0, s->clip, s->num_clips);
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
565 else
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
566 XftDrawSetClip (xft_draw, NULL);
04b81a720da9 (xftfont_draw): Adjusted for the change of struct
Kenichi Handa <handa@m17n.org>
parents: 91011
diff changeset
567
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
568 if (with_background)
94941
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
569 XftDrawRect (xft_draw, &bg,
8cbdb26068b4 (xftfont_list): Adjusted for the change of `list'
Kenichi Handa <handa@m17n.org>
parents: 92184
diff changeset
570 x, y - face->font->ascent, s->width, face->font->height);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
571 code = alloca (sizeof (FT_UInt) * len);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
572 for (i = 0; i < len; i++)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
573 code[i] = ((XCHAR2B_BYTE1 (s->char2b + from + i) << 8)
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
574 | XCHAR2B_BYTE2 (s->char2b + from + i));
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
575
92184
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
576 if (s->padding_p)
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
577 for (i = 0; i < len; i++)
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
578 XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
579 x + i, y, code + i, 1);
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
580 else
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
581 XftDrawGlyphs (xft_draw, &fg, xftfont_info->xftfont,
6218afb021ac (xftfont_draw): Pay attention to s->padding_p.
Kenichi Handa <handa@m17n.org>
parents: 91907
diff changeset
582 x, y, code, len);
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
583 UNBLOCK_INPUT;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
584
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
585 return len;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
586 }
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
587
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
588 static int
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
589 xftfont_end_for_frame (f)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
590 FRAME_PTR f;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
591 {
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
592 XftDraw *xft_draw = font_get_frame_data (f, &xftfont_driver);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
593
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
594 if (xft_draw)
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
595 {
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
596 BLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
597 XftDrawDestroy (xft_draw);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
598 UNBLOCK_INPUT;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
599 font_put_frame_data (f, &xftfont_driver, NULL);
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
600 }
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
601 return 0;
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
602 }
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
603
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
604 void
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
605 syms_of_xftfont ()
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
606 {
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
607 DEFSYM (Qxft, "xft");
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
608 DEFSYM (QChinting, ":hinting");
100301
5c8b389c391a (syms_of_xftfont): Fix typo.
Chong Yidong <cyd@stupidchicken.com>
parents: 96562
diff changeset
609 DEFSYM (QCautohint, ":autohint");
96075
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
610 DEFSYM (QChintstyle, ":hintstyle");
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
611 DEFSYM (QCrgba, ":rgba");
3376493a3ad4 (QChinting , QCautohint, QChintstyle, QCrgba)
Kenichi Handa <handa@m17n.org>
parents: 95293
diff changeset
612 DEFSYM (QCembolden, ":embolden");
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
613
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
614 xftfont_driver = ftfont_driver;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
615 xftfont_driver.type = Qxft;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
616 xftfont_driver.get_cache = xfont_driver.get_cache;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
617 xftfont_driver.list = xftfont_list;
90559
fb5d3ac2d786 (xftfont_match): New function.
Kenichi Handa <handa@m17n.org>
parents: 90527
diff changeset
618 xftfont_driver.match = xftfont_match;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
619 xftfont_driver.open = xftfont_open;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
620 xftfont_driver.close = xftfont_close;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
621 xftfont_driver.prepare_face = xftfont_prepare_face;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
622 xftfont_driver.done_face = xftfont_done_face;
101640
6a674ba1901f (xftfont_has_char): New function.
Kenichi Handa <handa@m17n.org>
parents: 101555
diff changeset
623 xftfont_driver.has_char = xftfont_has_char;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
624 xftfont_driver.encode_char = xftfont_encode_char;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
625 xftfont_driver.text_extents = xftfont_text_extents;
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
626 xftfont_driver.draw = xftfont_draw;
91110
82a42637237c (struct xftface_info): Delete the member xft_draw.
Kenichi Handa <handa@m17n.org>
parents: 91027
diff changeset
627 xftfont_driver.end_for_frame = xftfont_end_for_frame;
90400
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
628
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
629 register_font_driver (&xftfont_driver, NULL);
80fff33f74f5 New file.
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
630 }
90427
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90426
diff changeset
631
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90426
diff changeset
632 /* arch-tag: 64ec61bf-7c8e-4fe6-b953-c6a85d5e1605
ddb25860d044 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 90426
diff changeset
633 (do not change this comment) */