1 /* Functions for handle font changes dynamically.
2 Copyright (C) 2009, 2010
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs 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.
12 GNU Emacs 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.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
25 #include "xsettings.h"
28 #include "blockinput.h"
29 #include "termhooks.h"
32 #include <X11/Xproto.h>
35 #include <gconf/gconf-client.h>
38 #include <X11/Xft/Xft.h>
41 static char *current_mono_font
;
42 static char *current_font
;
43 static struct x_display_info
*first_dpyinfo
;
44 static Lisp_Object Qfont_name
, Qfont_render
;
45 static int use_system_font
;
46 static Lisp_Object Vxft_settings
;
50 static GConfClient
*gconf_client
;
55 store_font_changed_event (arg
, display_name
)
57 Lisp_Object display_name
;
59 struct input_event event
;
61 event
.kind
= CONFIG_CHANGED_EVENT
;
62 event
.frame_or_window
= display_name
;
64 kbd_buffer_store_event (&event
);
69 #define SYSTEM_MONO_FONT "/desktop/gnome/interface/monospace_font_name"
70 #define SYSTEM_FONT "/desktop/gnome/interface/font_name"
71 #define XSETTINGS_FONT_NAME "Gtk/FontName"
73 /* Callback called when something changed in GConf that we care about,
74 that is SYSTEM_MONO_FONT. */
77 something_changedCB (client
, cnxn_id
, entry
, user_data
)
83 GConfValue
*v
= gconf_entry_get_value (entry
);
86 if (v
->type
== GCONF_VALUE_STRING
)
88 const char *value
= gconf_value_get_string (v
);
90 if (current_mono_font
!= NULL
&& strcmp (value
, current_mono_font
) == 0)
91 return; /* No change. */
93 xfree (current_mono_font
);
94 current_mono_font
= xstrdup (value
);
98 if (first_dpyinfo
!= NULL
)
100 /* Check if display still open */
101 struct x_display_info
*dpyinfo
;
103 for (dpyinfo
= x_display_list
; !found
&& dpyinfo
; dpyinfo
= dpyinfo
->next
)
104 found
= dpyinfo
== first_dpyinfo
;
106 if (found
&& use_system_font
)
107 store_font_changed_event (Qfont_name
,
108 XCAR (first_dpyinfo
->name_list_element
));
111 #endif /* HAVE_GCONF */
115 /* Older fontconfig versions don't have FC_LCD_*. */
117 #define FC_LCD_NONE 0
119 #ifndef FC_LCD_DEFAULT
120 #define FC_LCD_DEFAULT 1
122 #ifndef FC_LCD_FILTER
123 #define FC_LCD_FILTER "lcdfilter"
126 /* Find the window that contains the XSETTINGS property values. */
129 get_prop_window (dpyinfo
)
130 struct x_display_info
*dpyinfo
;
132 Display
*dpy
= dpyinfo
->display
;
135 dpyinfo
->xsettings_window
= XGetSelectionOwner (dpy
,
136 dpyinfo
->Xatom_xsettings_sel
);
137 if (dpyinfo
->xsettings_window
!= None
)
138 /* Select events so we can detect if window is deleted or if settings
140 XSelectInput (dpy
, dpyinfo
->xsettings_window
,
141 PropertyChangeMask
|StructureNotifyMask
);
150 SEEN_LCDFILTER
= 0x08,
151 SEEN_HINTSTYLE
= 0x10,
157 int rgba
, lcdfilter
, hintstyle
;
163 #define SWAP32(nr) (((nr) << 24) | (((nr) << 8) & 0xff0000) \
164 | (((nr) >> 8) & 0xff00) | ((nr) >> 24))
165 #define SWAP16(nr) (((nr) << 8) | ((nr) >> 8))
166 #define PAD(nr) (((nr) + 3) & ~3)
168 /* Parse xsettings and extract those that deal with Xft.
169 See http://freedesktop.org/wiki/Specifications/XSettingsRegistry
170 and http://standards.freedesktop.org/xsettings-spec/xsettings-spec-0.5.html.
172 Layout of prop. First is a header:
175 ------------------------------------
181 Then N_SETTINGS records, with header:
184 ------------------------------------
185 1 SETTING_TYPE type (0 = integer, 1 = string, 2 RGB color).
187 2 CARD16 n == name-length
189 p unused, p=pad_to_even_4(n)
190 4 CARD32 last-change-serial
192 and then the value, For string:
195 ------------------------------------
196 4 CARD32 n = value-length
198 p unused, p=pad_to_even_4(n)
203 ------------------------------------
209 ------------------------------------
215 Returns non-zero if some Xft settings was seen, zero otherwise.
219 parse_xft_settings (prop
, bytes
, settings
)
222 struct xsettings
*settings
;
224 Lisp_Object byteorder
= Fbyteorder ();
225 int my_bo
= XFASTINT (byteorder
) == 'B' ? MSBFirst
: LSBFirst
;
226 int that_bo
= prop
[0];
228 int bytes_parsed
= 0;
229 int settings_seen
= 0;
232 /* First 4 bytes is a serial number, skip that. */
234 if (bytes
< 12) return BadLength
;
235 memcpy (&n_settings
, prop
+8, 4);
236 if (my_bo
!= that_bo
) n_settings
= SWAP32 (n_settings
);
239 memset (settings
, 0, sizeof (*settings
));
241 while (bytes_parsed
+4 < bytes
&& settings_seen
< 7
244 int type
= prop
[bytes_parsed
++];
246 CARD32 vlen
, ival
= 0;
247 char name
[128]; /* The names we are looking for are not this long. */
248 char sval
[128]; /* The values we are looking for are not this long. */
254 ++bytes_parsed
; /* Padding */
256 memcpy (&nlen
, prop
+bytes_parsed
, 2);
258 if (my_bo
!= that_bo
) nlen
= SWAP16 (nlen
);
259 if (bytes_parsed
+nlen
> bytes
) return BadLength
;
260 to_cpy
= nlen
> 127 ? 127 : nlen
;
261 memcpy (name
, prop
+bytes_parsed
, to_cpy
);
264 bytes_parsed
+= nlen
;
265 bytes_parsed
= PAD (bytes_parsed
);
267 bytes_parsed
+= 4; /* Skip serial for this value */
268 if (bytes_parsed
> bytes
) return BadLength
;
270 want_this
= (nlen
> 6 && strncmp (name
, "Xft/", 4) == 0)
271 || (strcmp (XSETTINGS_FONT_NAME
, name
) == 0);
275 case 0: /* Integer */
276 if (bytes_parsed
+4 > bytes
) return BadLength
;
279 memcpy (&ival
, prop
+bytes_parsed
, 4);
280 if (my_bo
!= that_bo
) ival
= SWAP32 (ival
);
286 if (bytes_parsed
+4 > bytes
) return BadLength
;
287 memcpy (&vlen
, prop
+bytes_parsed
, 4);
289 if (my_bo
!= that_bo
) vlen
= SWAP32 (vlen
);
292 to_cpy
= vlen
> 127 ? 127 : vlen
;
293 memcpy (sval
, prop
+bytes_parsed
, to_cpy
);
296 bytes_parsed
+= vlen
;
297 bytes_parsed
= PAD (bytes_parsed
);
300 case 2: /* RGB value */
301 /* No need to parse this */
302 if (bytes_parsed
+8 > bytes
) return BadLength
;
303 bytes_parsed
+= 8; /* 4 values (r, b, g, alpha), 2 bytes each. */
306 default: /* Parse Error */
313 if (strcmp (name
, "Xft/Antialias") == 0)
315 settings
->seen
|= SEEN_AA
;
316 settings
->aa
= ival
!= 0;
318 else if (strcmp (name
, "Xft/Hinting") == 0)
320 settings
->seen
|= SEEN_HINTING
;
321 settings
->hinting
= ival
!= 0;
323 else if (strcmp (name
, "Xft/HintStyle") == 0)
325 settings
->seen
|= SEEN_HINTSTYLE
;
326 if (strcmp (sval
, "hintnone") == 0)
327 settings
->hintstyle
= FC_HINT_NONE
;
328 else if (strcmp (sval
, "hintslight") == 0)
329 settings
->hintstyle
= FC_HINT_SLIGHT
;
330 else if (strcmp (sval
, "hintmedium") == 0)
331 settings
->hintstyle
= FC_HINT_MEDIUM
;
332 else if (strcmp (sval
, "hintfull") == 0)
333 settings
->hintstyle
= FC_HINT_FULL
;
335 settings
->seen
&= ~SEEN_HINTSTYLE
;
337 else if (strcmp (name
, "Xft/RGBA") == 0)
339 settings
->seen
|= SEEN_RGBA
;
340 if (strcmp (sval
, "none") == 0)
341 settings
->rgba
= FC_RGBA_NONE
;
342 else if (strcmp (sval
, "rgb") == 0)
343 settings
->rgba
= FC_RGBA_RGB
;
344 else if (strcmp (sval
, "bgr") == 0)
345 settings
->rgba
= FC_RGBA_BGR
;
346 else if (strcmp (sval
, "vrgb") == 0)
347 settings
->rgba
= FC_RGBA_VRGB
;
348 else if (strcmp (sval
, "vbgr") == 0)
349 settings
->rgba
= FC_RGBA_VBGR
;
351 settings
->seen
&= ~SEEN_RGBA
;
353 else if (strcmp (name
, "Xft/DPI") == 0)
355 settings
->seen
|= SEEN_DPI
;
356 settings
->dpi
= (double)ival
/1024.0;
358 else if (strcmp (name
, "Xft/lcdfilter") == 0)
360 settings
->seen
|= SEEN_LCDFILTER
;
361 if (strcmp (sval
, "none") == 0)
362 settings
->lcdfilter
= FC_LCD_NONE
;
363 else if (strcmp (sval
, "lcddefault") == 0)
364 settings
->lcdfilter
= FC_LCD_DEFAULT
;
366 settings
->seen
&= ~SEEN_LCDFILTER
;
368 else if (strcmp (name
, XSETTINGS_FONT_NAME
) == 0)
371 current_font
= xstrdup (sval
);
376 return settings_seen
;
380 read_xft_settings (dpyinfo
, settings
)
381 struct x_display_info
*dpyinfo
;
382 struct xsettings
*settings
;
387 unsigned long nitems
, bytes_after
;
388 unsigned char *prop
= NULL
;
389 Display
*dpy
= dpyinfo
->display
;
392 x_catch_errors (dpy
);
393 rc
= XGetWindowProperty (dpy
,
394 dpyinfo
->xsettings_window
,
395 dpyinfo
->Xatom_xsettings_prop
,
396 0, LONG_MAX
, False
, AnyPropertyType
,
397 &act_type
, &act_form
, &nitems
, &bytes_after
,
400 if (rc
== Success
&& prop
!= NULL
&& act_form
== 8 && nitems
> 0
401 && act_type
== dpyinfo
->Xatom_xsettings_prop
)
402 rc
= parse_xft_settings (prop
, nitems
, settings
);
413 apply_xft_settings (dpyinfo
, send_event_p
)
414 struct x_display_info
*dpyinfo
;
418 struct xsettings settings
, oldsettings
;
422 if (!read_xft_settings (dpyinfo
, &settings
))
425 memset (&oldsettings
, 0, sizeof (oldsettings
));
427 pat
= FcPatternCreate ();
428 XftDefaultSubstitute (dpyinfo
->display
,
429 XScreenNumberOfScreen (dpyinfo
->screen
),
431 FcPatternGetBool (pat
, FC_ANTIALIAS
, 0, &oldsettings
.aa
);
432 FcPatternGetBool (pat
, FC_HINTING
, 0, &oldsettings
.hinting
);
433 FcPatternGetInteger (pat
, FC_HINT_STYLE
, 0, &oldsettings
.hintstyle
);
434 FcPatternGetInteger (pat
, FC_LCD_FILTER
, 0, &oldsettings
.lcdfilter
);
435 FcPatternGetInteger (pat
, FC_RGBA
, 0, &oldsettings
.rgba
);
436 FcPatternGetDouble (pat
, FC_DPI
, 0, &oldsettings
.dpi
);
438 if ((settings
.seen
& SEEN_AA
) != 0 && oldsettings
.aa
!= settings
.aa
)
440 FcPatternDel (pat
, FC_ANTIALIAS
);
441 FcPatternAddBool (pat
, FC_ANTIALIAS
, settings
.aa
);
443 oldsettings
.aa
= settings
.aa
;
445 sprintf (buf
, "Antialias: %d", oldsettings
.aa
);
447 if ((settings
.seen
& SEEN_HINTING
) != 0
448 && oldsettings
.hinting
!= settings
.hinting
)
450 FcPatternDel (pat
, FC_HINTING
);
451 FcPatternAddBool (pat
, FC_HINTING
, settings
.hinting
);
453 oldsettings
.hinting
= settings
.hinting
;
455 if (strlen (buf
) > 0) strcat (buf
, ", ");
456 sprintf (buf
+strlen (buf
), "Hinting: %d", oldsettings
.hinting
);
457 if ((settings
.seen
& SEEN_RGBA
) != 0 && oldsettings
.rgba
!= settings
.rgba
)
459 FcPatternDel (pat
, FC_RGBA
);
460 FcPatternAddInteger (pat
, FC_RGBA
, settings
.rgba
);
461 oldsettings
.rgba
= settings
.rgba
;
464 if (strlen (buf
) > 0) strcat (buf
, ", ");
465 sprintf (buf
+strlen (buf
), "RGBA: %d", oldsettings
.rgba
);
467 /* Older fontconfig versions don't have FC_LCD_FILTER. */
468 if ((settings
.seen
& SEEN_LCDFILTER
) != 0
469 && oldsettings
.lcdfilter
!= settings
.lcdfilter
)
471 FcPatternDel (pat
, FC_LCD_FILTER
);
472 FcPatternAddInteger (pat
, FC_LCD_FILTER
, settings
.lcdfilter
);
474 oldsettings
.lcdfilter
= settings
.lcdfilter
;
476 if (strlen (buf
) > 0) strcat (buf
, ", ");
477 sprintf (buf
+strlen (buf
), "LCDFilter: %d", oldsettings
.lcdfilter
);
479 if ((settings
.seen
& SEEN_HINTSTYLE
) != 0
480 && oldsettings
.hintstyle
!= settings
.hintstyle
)
482 FcPatternDel (pat
, FC_HINT_STYLE
);
483 FcPatternAddInteger (pat
, FC_HINT_STYLE
, settings
.hintstyle
);
485 oldsettings
.hintstyle
= settings
.hintstyle
;
487 if (strlen (buf
) > 0) strcat (buf
, ", ");
488 sprintf (buf
+strlen (buf
), "Hintstyle: %d", oldsettings
.hintstyle
);
490 if ((settings
.seen
& SEEN_DPI
) != 0 && oldsettings
.dpi
!= settings
.dpi
493 Lisp_Object frame
, tail
;
495 FcPatternDel (pat
, FC_DPI
);
496 FcPatternAddDouble (pat
, FC_DPI
, settings
.dpi
);
498 oldsettings
.dpi
= settings
.dpi
;
500 /* Change the DPI on this display and all frames on the display. */
501 dpyinfo
->resy
= dpyinfo
->resx
= settings
.dpi
;
502 FOR_EACH_FRAME (tail
, frame
)
503 if (FRAME_X_P (XFRAME (frame
))
504 && FRAME_X_DISPLAY_INFO (XFRAME (frame
)) == dpyinfo
)
505 XFRAME (frame
)->resy
= XFRAME (frame
)->resx
= settings
.dpi
;
508 if (strlen (buf
) > 0) strcat (buf
, ", ");
509 sprintf (buf
+strlen (buf
), "DPI: %lf", oldsettings
.dpi
);
513 XftDefaultSet (dpyinfo
->display
, pat
);
515 store_font_changed_event (Qfont_render
,
516 XCAR (dpyinfo
->name_list_element
));
517 Vxft_settings
= make_string (buf
, strlen (buf
));
520 FcPatternDestroy (pat
);
523 #endif /* HAVE_XFT */
526 xft_settings_event (dpyinfo
, event
)
527 struct x_display_info
*dpyinfo
;
531 int check_window_p
= 0;
536 if (dpyinfo
->xsettings_window
== event
->xany
.window
)
541 if (event
->xclient
.message_type
== dpyinfo
->Xatom_xsettings_mgr
542 && event
->xclient
.data
.l
[1] == dpyinfo
->Xatom_xsettings_sel
543 && event
->xclient
.window
== dpyinfo
->root_window
)
548 if (event
->xproperty
.window
== dpyinfo
->xsettings_window
549 && event
->xproperty
.state
== PropertyNewValue
550 && event
->xproperty
.atom
== dpyinfo
->Xatom_xsettings_prop
)
552 apply_xft_settings (dpyinfo
, True
);
559 dpyinfo
->xsettings_window
= None
;
560 get_prop_window (dpyinfo
);
561 if (dpyinfo
->xsettings_window
!= None
)
562 apply_xft_settings (dpyinfo
, True
);
564 #endif /* HAVE_XFT */
571 #if defined (HAVE_GCONF) && defined (HAVE_XFT)
576 gconf_client
= gconf_client_get_default ();
577 s
= gconf_client_get_string (gconf_client
, SYSTEM_MONO_FONT
, NULL
);
580 current_mono_font
= xstrdup (s
);
583 s
= gconf_client_get_string (gconf_client
, SYSTEM_FONT
, NULL
);
586 current_font
= xstrdup (s
);
589 gconf_client_set_error_handling (gconf_client
, GCONF_CLIENT_HANDLE_NONE
);
590 gconf_client_add_dir (gconf_client
,
592 GCONF_CLIENT_PRELOAD_ONELEVEL
,
594 gconf_client_notify_add (gconf_client
,
598 #endif /* HAVE_GCONF && HAVE_XFT */
602 init_xfd_settings (dpyinfo
)
603 struct x_display_info
*dpyinfo
;
607 Display
*dpy
= dpyinfo
->display
;
611 sprintf (sel
, "_XSETTINGS_S%d", XScreenNumberOfScreen (dpyinfo
->screen
));
612 dpyinfo
->Xatom_xsettings_sel
= XInternAtom (dpy
, sel
, False
);
613 dpyinfo
->Xatom_xsettings_prop
= XInternAtom (dpy
,
614 "_XSETTINGS_SETTINGS",
616 dpyinfo
->Xatom_xsettings_mgr
= XInternAtom (dpy
, "MANAGER", False
);
618 /* Select events so we can detect client messages sent when selection
620 XSelectInput (dpy
, dpyinfo
->root_window
, StructureNotifyMask
);
622 get_prop_window (dpyinfo
);
623 if (dpyinfo
->xsettings_window
!= None
)
624 apply_xft_settings (dpyinfo
, False
);
628 #else /* ! HAVE_XFT */
630 dpyinfo
->Xatom_xsettings_sel
= None
;
631 dpyinfo
->Xatom_xsettings_prop
= None
;
632 dpyinfo
->Xatom_xsettings_mgr
= None
;
633 dpyinfo
->xsettings_window
= None
;
635 #endif /* ! HAVE_XFT */
639 xsettings_initialize (dpyinfo
)
640 struct x_display_info
*dpyinfo
;
642 if (first_dpyinfo
== NULL
) first_dpyinfo
= dpyinfo
;
644 init_xfd_settings (dpyinfo
);
648 xsettings_get_system_font ()
650 return current_mono_font
;
654 xsettings_get_system_normal_font ()
659 DEFUN ("font-get-system-normal-font", Ffont_get_system_normal_font
,
660 Sfont_get_system_normal_font
,
662 doc
: /* Get the system default font. */)
665 return current_font
&& use_system_font
666 ? make_string (current_font
, strlen (current_font
))
670 DEFUN ("font-get-system-font", Ffont_get_system_font
, Sfont_get_system_font
,
672 doc
: /* Get the system default monospaced font. */)
675 return current_mono_font
&& use_system_font
676 ? make_string (current_mono_font
, strlen (current_mono_font
))
683 current_mono_font
= NULL
;
685 first_dpyinfo
= NULL
;
690 Qfont_name
= intern_c_string ("font-name");
691 staticpro (&Qfont_name
);
692 Qfont_render
= intern_c_string ("font-render");
693 staticpro (&Qfont_render
);
694 defsubr (&Sfont_get_system_font
);
695 defsubr (&Sfont_get_system_normal_font
);
697 DEFVAR_BOOL ("font-use-system-font", &use_system_font
,
698 doc
: /* *Non-nil means to use the system defined font. */);
701 DEFVAR_LISP ("xft-settings", &Vxft_settings
,
702 doc
: /* Font settings applied to Xft. */);
703 Vxft_settings
= make_string ("", 0);
706 Fprovide (intern_c_string ("font-render-setting"), Qnil
);
708 Fprovide (intern_c_string ("system-font-setting"), Qnil
);
713 /* arch-tag: 541716ed-2e6b-42e1-8212-3197e01ea61d
714 (do not change this comment) */