1 /* Functions for handle font and other 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/>. */
26 #include "xsettings.h"
29 #include "blockinput.h"
30 #include "termhooks.h"
33 #include <X11/Xproto.h>
36 #include <gconf/gconf-client.h>
39 #include <X11/Xft/Xft.h>
42 static char *current_mono_font
;
43 static char *current_font
;
44 static struct x_display_info
*first_dpyinfo
;
45 static Lisp_Object Qmonospace_font_name
, Qfont_name
, Qfont_render
,
47 static int use_system_font
;
48 static Lisp_Object Vxft_settings
;
49 static Lisp_Object current_tool_bar_style
;
52 static GConfClient
*gconf_client
;
57 store_config_changed_event (Lisp_Object arg
, 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
);
67 #define XSETTINGS_FONT_NAME "Gtk/FontName"
68 #define XSETTINGS_TOOL_BAR_STYLE "Gtk/ToolbarStyle"
74 SEEN_LCDFILTER
= 0x08,
75 SEEN_HINTSTYLE
= 0x10,
84 int rgba
, lcdfilter
, hintstyle
;
96 #define SYSTEM_MONO_FONT "/desktop/gnome/interface/monospace_font_name"
97 #define SYSTEM_FONT "/desktop/gnome/interface/font_name"
99 /* Callback called when something changed in GConf that we care about,
100 that is SYSTEM_MONO_FONT. */
103 something_changedCB (GConfClient
*client
, guint cnxn_id
, GConfEntry
*entry
, gpointer user_data
)
105 GConfValue
*v
= gconf_entry_get_value (entry
);
108 if (v
->type
== GCONF_VALUE_STRING
)
110 const char *value
= gconf_value_get_string (v
);
112 if (current_mono_font
!= NULL
&& strcmp (value
, current_mono_font
) == 0)
113 return; /* No change. */
115 xfree (current_mono_font
);
116 current_mono_font
= xstrdup (value
);
120 if (first_dpyinfo
!= NULL
)
122 /* Check if display still open */
123 struct x_display_info
*dpyinfo
;
125 for (dpyinfo
= x_display_list
; !found
&& dpyinfo
; dpyinfo
= dpyinfo
->next
)
126 found
= dpyinfo
== first_dpyinfo
;
128 if (found
&& use_system_font
)
129 store_config_changed_event (Qmonospace_font_name
,
130 XCAR (first_dpyinfo
->name_list_element
));
133 #endif /* HAVE_GCONF */
137 /* Older fontconfig versions don't have FC_LCD_*. */
139 #define FC_LCD_NONE 0
141 #ifndef FC_LCD_DEFAULT
142 #define FC_LCD_DEFAULT 1
144 #ifndef FC_LCD_FILTER
145 #define FC_LCD_FILTER "lcdfilter"
148 #endif /* HAVE_XFT */
150 /* Find the window that contains the XSETTINGS property values. */
153 get_prop_window (struct x_display_info
*dpyinfo
)
155 Display
*dpy
= dpyinfo
->display
;
158 dpyinfo
->xsettings_window
= XGetSelectionOwner (dpy
,
159 dpyinfo
->Xatom_xsettings_sel
);
160 if (dpyinfo
->xsettings_window
!= None
)
161 /* Select events so we can detect if window is deleted or if settings
163 XSelectInput (dpy
, dpyinfo
->xsettings_window
,
164 PropertyChangeMask
|StructureNotifyMask
);
169 #define SWAP32(nr) (((nr) << 24) | (((nr) << 8) & 0xff0000) \
170 | (((nr) >> 8) & 0xff00) | ((nr) >> 24))
171 #define SWAP16(nr) (((nr) << 8) | ((nr) >> 8))
172 #define PAD(nr) (((nr) + 3) & ~3)
174 /* Parse xsettings and extract those that deal with Xft.
175 See http://freedesktop.org/wiki/Specifications/XSettingsRegistry
176 and http://standards.freedesktop.org/xsettings-spec/xsettings-spec-0.5.html.
178 Layout of prop. First is a header:
181 ------------------------------------
187 Then N_SETTINGS records, with header:
190 ------------------------------------
191 1 SETTING_TYPE type (0 = integer, 1 = string, 2 RGB color).
193 2 CARD16 n == name-length
195 p unused, p=pad_to_even_4(n)
196 4 CARD32 last-change-serial
198 and then the value, For string:
201 ------------------------------------
202 4 CARD32 n = value-length
204 p unused, p=pad_to_even_4(n)
209 ------------------------------------
215 ------------------------------------
221 Returns non-zero if some Xft settings was seen, zero otherwise.
225 parse_settings (unsigned char *prop
, long unsigned int bytes
, struct xsettings
*settings
)
227 Lisp_Object byteorder
= Fbyteorder ();
228 int my_bo
= XFASTINT (byteorder
) == 'B' ? MSBFirst
: LSBFirst
;
229 int that_bo
= prop
[0];
231 int bytes_parsed
= 0;
232 int settings_seen
= 0;
235 /* First 4 bytes is a serial number, skip that. */
237 if (bytes
< 12) return BadLength
;
238 memcpy (&n_settings
, prop
+8, 4);
239 if (my_bo
!= that_bo
) n_settings
= SWAP32 (n_settings
);
242 memset (settings
, 0, sizeof (*settings
));
244 while (bytes_parsed
+4 < bytes
&& settings_seen
< 7
247 int type
= prop
[bytes_parsed
++];
249 CARD32 vlen
, ival
= 0;
250 char name
[128]; /* The names we are looking for are not this long. */
251 char sval
[128]; /* The values we are looking for are not this long. */
257 ++bytes_parsed
; /* Padding */
259 memcpy (&nlen
, prop
+bytes_parsed
, 2);
261 if (my_bo
!= that_bo
) nlen
= SWAP16 (nlen
);
262 if (bytes_parsed
+nlen
> bytes
) return BadLength
;
263 to_cpy
= nlen
> 127 ? 127 : nlen
;
264 memcpy (name
, prop
+bytes_parsed
, to_cpy
);
267 bytes_parsed
+= nlen
;
268 bytes_parsed
= PAD (bytes_parsed
);
270 bytes_parsed
+= 4; /* Skip serial for this value */
271 if (bytes_parsed
> bytes
) return BadLength
;
275 (nlen
> 6 && strncmp (name
, "Xft/", 4) == 0)
278 (strcmp (XSETTINGS_FONT_NAME
, name
) == 0)
279 || (strcmp (XSETTINGS_TOOL_BAR_STYLE
, name
) == 0);
283 case 0: /* Integer */
284 if (bytes_parsed
+4 > bytes
) return BadLength
;
287 memcpy (&ival
, prop
+bytes_parsed
, 4);
288 if (my_bo
!= that_bo
) ival
= SWAP32 (ival
);
294 if (bytes_parsed
+4 > bytes
) return BadLength
;
295 memcpy (&vlen
, prop
+bytes_parsed
, 4);
297 if (my_bo
!= that_bo
) vlen
= SWAP32 (vlen
);
300 to_cpy
= vlen
> 127 ? 127 : vlen
;
301 memcpy (sval
, prop
+bytes_parsed
, to_cpy
);
304 bytes_parsed
+= vlen
;
305 bytes_parsed
= PAD (bytes_parsed
);
308 case 2: /* RGB value */
309 /* No need to parse this */
310 if (bytes_parsed
+8 > bytes
) return BadLength
;
311 bytes_parsed
+= 8; /* 4 values (r, b, g, alpha), 2 bytes each. */
314 default: /* Parse Error */
321 if (strcmp (name
, XSETTINGS_FONT_NAME
) == 0)
323 settings
->font
= xstrdup (sval
);
324 settings
->seen
|= SEEN_FONT
;
326 else if (strcmp (name
, XSETTINGS_TOOL_BAR_STYLE
) == 0)
328 settings
->tb_style
= xstrdup (sval
);
329 settings
->seen
|= SEEN_TB_STYLE
;
332 else if (strcmp (name
, "Xft/Antialias") == 0)
334 settings
->seen
|= SEEN_AA
;
335 settings
->aa
= ival
!= 0;
337 else if (strcmp (name
, "Xft/Hinting") == 0)
339 settings
->seen
|= SEEN_HINTING
;
340 settings
->hinting
= ival
!= 0;
342 else if (strcmp (name
, "Xft/HintStyle") == 0)
344 settings
->seen
|= SEEN_HINTSTYLE
;
345 if (strcmp (sval
, "hintnone") == 0)
346 settings
->hintstyle
= FC_HINT_NONE
;
347 else if (strcmp (sval
, "hintslight") == 0)
348 settings
->hintstyle
= FC_HINT_SLIGHT
;
349 else if (strcmp (sval
, "hintmedium") == 0)
350 settings
->hintstyle
= FC_HINT_MEDIUM
;
351 else if (strcmp (sval
, "hintfull") == 0)
352 settings
->hintstyle
= FC_HINT_FULL
;
354 settings
->seen
&= ~SEEN_HINTSTYLE
;
356 else if (strcmp (name
, "Xft/RGBA") == 0)
358 settings
->seen
|= SEEN_RGBA
;
359 if (strcmp (sval
, "none") == 0)
360 settings
->rgba
= FC_RGBA_NONE
;
361 else if (strcmp (sval
, "rgb") == 0)
362 settings
->rgba
= FC_RGBA_RGB
;
363 else if (strcmp (sval
, "bgr") == 0)
364 settings
->rgba
= FC_RGBA_BGR
;
365 else if (strcmp (sval
, "vrgb") == 0)
366 settings
->rgba
= FC_RGBA_VRGB
;
367 else if (strcmp (sval
, "vbgr") == 0)
368 settings
->rgba
= FC_RGBA_VBGR
;
370 settings
->seen
&= ~SEEN_RGBA
;
372 else if (strcmp (name
, "Xft/DPI") == 0)
374 settings
->seen
|= SEEN_DPI
;
375 settings
->dpi
= (double)ival
/1024.0;
377 else if (strcmp (name
, "Xft/lcdfilter") == 0)
379 settings
->seen
|= SEEN_LCDFILTER
;
380 if (strcmp (sval
, "none") == 0)
381 settings
->lcdfilter
= FC_LCD_NONE
;
382 else if (strcmp (sval
, "lcddefault") == 0)
383 settings
->lcdfilter
= FC_LCD_DEFAULT
;
385 settings
->seen
&= ~SEEN_LCDFILTER
;
387 #endif /* HAVE_XFT */
391 return settings_seen
;
395 read_settings (struct x_display_info
*dpyinfo
, struct xsettings
*settings
)
400 unsigned long nitems
, bytes_after
;
401 unsigned char *prop
= NULL
;
402 Display
*dpy
= dpyinfo
->display
;
405 x_catch_errors (dpy
);
406 rc
= XGetWindowProperty (dpy
,
407 dpyinfo
->xsettings_window
,
408 dpyinfo
->Xatom_xsettings_prop
,
409 0, LONG_MAX
, False
, AnyPropertyType
,
410 &act_type
, &act_form
, &nitems
, &bytes_after
,
413 if (rc
== Success
&& prop
!= NULL
&& act_form
== 8 && nitems
> 0
414 && act_type
== dpyinfo
->Xatom_xsettings_prop
)
415 rc
= parse_settings (prop
, nitems
, settings
);
426 apply_xft_settings (struct x_display_info
*dpyinfo
, int send_event_p
, struct xsettings
*settings
)
430 struct xsettings oldsettings
;
434 memset (&oldsettings
, 0, sizeof (oldsettings
));
436 pat
= FcPatternCreate ();
437 XftDefaultSubstitute (dpyinfo
->display
,
438 XScreenNumberOfScreen (dpyinfo
->screen
),
440 FcPatternGetBool (pat
, FC_ANTIALIAS
, 0, &oldsettings
.aa
);
441 FcPatternGetBool (pat
, FC_HINTING
, 0, &oldsettings
.hinting
);
442 FcPatternGetInteger (pat
, FC_HINT_STYLE
, 0, &oldsettings
.hintstyle
);
443 FcPatternGetInteger (pat
, FC_LCD_FILTER
, 0, &oldsettings
.lcdfilter
);
444 FcPatternGetInteger (pat
, FC_RGBA
, 0, &oldsettings
.rgba
);
445 FcPatternGetDouble (pat
, FC_DPI
, 0, &oldsettings
.dpi
);
447 if ((settings
->seen
& SEEN_AA
) != 0 && oldsettings
.aa
!= settings
->aa
)
449 FcPatternDel (pat
, FC_ANTIALIAS
);
450 FcPatternAddBool (pat
, FC_ANTIALIAS
, settings
->aa
);
452 oldsettings
.aa
= settings
->aa
;
454 sprintf (buf
, "Antialias: %d", oldsettings
.aa
);
456 if ((settings
->seen
& SEEN_HINTING
) != 0
457 && oldsettings
.hinting
!= settings
->hinting
)
459 FcPatternDel (pat
, FC_HINTING
);
460 FcPatternAddBool (pat
, FC_HINTING
, settings
->hinting
);
462 oldsettings
.hinting
= settings
->hinting
;
464 if (strlen (buf
) > 0) strcat (buf
, ", ");
465 sprintf (buf
+strlen (buf
), "Hinting: %d", oldsettings
.hinting
);
466 if ((settings
->seen
& SEEN_RGBA
) != 0 && oldsettings
.rgba
!= settings
->rgba
)
468 FcPatternDel (pat
, FC_RGBA
);
469 FcPatternAddInteger (pat
, FC_RGBA
, settings
->rgba
);
470 oldsettings
.rgba
= settings
->rgba
;
473 if (strlen (buf
) > 0) strcat (buf
, ", ");
474 sprintf (buf
+strlen (buf
), "RGBA: %d", oldsettings
.rgba
);
476 /* Older fontconfig versions don't have FC_LCD_FILTER. */
477 if ((settings
->seen
& SEEN_LCDFILTER
) != 0
478 && oldsettings
.lcdfilter
!= settings
->lcdfilter
)
480 FcPatternDel (pat
, FC_LCD_FILTER
);
481 FcPatternAddInteger (pat
, FC_LCD_FILTER
, settings
->lcdfilter
);
483 oldsettings
.lcdfilter
= settings
->lcdfilter
;
485 if (strlen (buf
) > 0) strcat (buf
, ", ");
486 sprintf (buf
+strlen (buf
), "LCDFilter: %d", oldsettings
.lcdfilter
);
488 if ((settings
->seen
& SEEN_HINTSTYLE
) != 0
489 && oldsettings
.hintstyle
!= settings
->hintstyle
)
491 FcPatternDel (pat
, FC_HINT_STYLE
);
492 FcPatternAddInteger (pat
, FC_HINT_STYLE
, settings
->hintstyle
);
494 oldsettings
.hintstyle
= settings
->hintstyle
;
496 if (strlen (buf
) > 0) strcat (buf
, ", ");
497 sprintf (buf
+strlen (buf
), "Hintstyle: %d", oldsettings
.hintstyle
);
499 if ((settings
->seen
& SEEN_DPI
) != 0 && oldsettings
.dpi
!= settings
->dpi
500 && settings
->dpi
> 0)
502 Lisp_Object frame
, tail
;
504 FcPatternDel (pat
, FC_DPI
);
505 FcPatternAddDouble (pat
, FC_DPI
, settings
->dpi
);
507 oldsettings
.dpi
= settings
->dpi
;
509 /* Change the DPI on this display and all frames on the display. */
510 dpyinfo
->resy
= dpyinfo
->resx
= settings
->dpi
;
511 FOR_EACH_FRAME (tail
, frame
)
512 if (FRAME_X_P (XFRAME (frame
))
513 && FRAME_X_DISPLAY_INFO (XFRAME (frame
)) == dpyinfo
)
514 XFRAME (frame
)->resy
= XFRAME (frame
)->resx
= settings
->dpi
;
517 if (strlen (buf
) > 0) strcat (buf
, ", ");
518 sprintf (buf
+strlen (buf
), "DPI: %lf", oldsettings
.dpi
);
522 XftDefaultSet (dpyinfo
->display
, pat
);
524 store_config_changed_event (Qfont_render
,
525 XCAR (dpyinfo
->name_list_element
));
526 Vxft_settings
= make_string (buf
, strlen (buf
));
529 FcPatternDestroy (pat
);
530 #endif /* HAVE_XFT */
534 read_and_apply_settings (struct x_display_info
*dpyinfo
, int send_event_p
)
536 struct xsettings settings
;
537 Lisp_Object dpyname
= XCAR (dpyinfo
->name_list_element
);
539 if (!read_settings (dpyinfo
, &settings
))
542 apply_xft_settings (dpyinfo
, True
, &settings
);
543 if (settings
.seen
& SEEN_TB_STYLE
)
545 Lisp_Object style
= Qnil
;
546 if (strcmp (settings
.tb_style
, "both") == 0)
548 else if (strcmp (settings
.tb_style
, "both-horiz") == 0)
550 else if (strcmp (settings
.tb_style
, "icons") == 0)
552 else if (strcmp (settings
.tb_style
, "text") == 0)
554 if (!NILP (style
) && !EQ (style
, current_tool_bar_style
))
556 current_tool_bar_style
= style
;
558 store_config_changed_event (Qtool_bar_style
, dpyname
);
560 free (settings
.tb_style
);
563 if (settings
.seen
& SEEN_FONT
)
565 if (!current_font
|| strcmp (current_font
, settings
.font
) != 0)
568 current_font
= settings
.font
;
570 store_config_changed_event (Qfont_name
, dpyname
);
573 free (settings
.font
);
578 xft_settings_event (struct x_display_info
*dpyinfo
, XEvent
*event
)
580 int check_window_p
= 0;
581 int apply_settings
= 0;
586 if (dpyinfo
->xsettings_window
== event
->xany
.window
)
591 if (event
->xclient
.message_type
== dpyinfo
->Xatom_xsettings_mgr
592 && event
->xclient
.data
.l
[1] == dpyinfo
->Xatom_xsettings_sel
593 && event
->xclient
.window
== dpyinfo
->root_window
)
598 if (event
->xproperty
.window
== dpyinfo
->xsettings_window
599 && event
->xproperty
.state
== PropertyNewValue
600 && event
->xproperty
.atom
== dpyinfo
->Xatom_xsettings_prop
)
608 dpyinfo
->xsettings_window
= None
;
609 get_prop_window (dpyinfo
);
610 if (dpyinfo
->xsettings_window
!= None
)
615 read_and_apply_settings (dpyinfo
, True
);
622 #if defined (HAVE_GCONF) && defined (HAVE_XFT)
627 gconf_client
= gconf_client_get_default ();
628 s
= gconf_client_get_string (gconf_client
, SYSTEM_MONO_FONT
, NULL
);
631 current_mono_font
= xstrdup (s
);
634 s
= gconf_client_get_string (gconf_client
, SYSTEM_FONT
, NULL
);
637 current_font
= xstrdup (s
);
640 gconf_client_set_error_handling (gconf_client
, GCONF_CLIENT_HANDLE_NONE
);
641 gconf_client_add_dir (gconf_client
,
643 GCONF_CLIENT_PRELOAD_ONELEVEL
,
645 gconf_client_notify_add (gconf_client
,
649 #endif /* HAVE_GCONF && HAVE_XFT */
653 init_xsettings (struct x_display_info
*dpyinfo
)
656 Display
*dpy
= dpyinfo
->display
;
660 sprintf (sel
, "_XSETTINGS_S%d", XScreenNumberOfScreen (dpyinfo
->screen
));
661 dpyinfo
->Xatom_xsettings_sel
= XInternAtom (dpy
, sel
, False
);
662 dpyinfo
->Xatom_xsettings_prop
= XInternAtom (dpy
,
663 "_XSETTINGS_SETTINGS",
665 dpyinfo
->Xatom_xsettings_mgr
= XInternAtom (dpy
, "MANAGER", False
);
667 /* Select events so we can detect client messages sent when selection
669 XSelectInput (dpy
, dpyinfo
->root_window
, StructureNotifyMask
);
671 get_prop_window (dpyinfo
);
672 if (dpyinfo
->xsettings_window
!= None
)
673 read_and_apply_settings (dpyinfo
, False
);
679 xsettings_initialize (struct x_display_info
*dpyinfo
)
681 if (first_dpyinfo
== NULL
) first_dpyinfo
= dpyinfo
;
683 init_xsettings (dpyinfo
);
687 xsettings_get_system_font (void)
689 return current_mono_font
;
693 xsettings_get_system_normal_font (void)
698 DEFUN ("font-get-system-normal-font", Ffont_get_system_normal_font
,
699 Sfont_get_system_normal_font
,
701 doc
: /* Get the system default application font. */)
705 ? make_string (current_font
, strlen (current_font
))
709 DEFUN ("font-get-system-font", Ffont_get_system_font
, Sfont_get_system_font
,
711 doc
: /* Get the system default fixed width font. */)
714 return current_mono_font
715 ? make_string (current_mono_font
, strlen (current_mono_font
))
719 DEFUN ("tool-bar-get-system-style", Ftool_bar_get_system_style
, Stool_bar_get_system_style
,
721 doc
: /* Get the system tool bar style.
722 If no system tool bar style is known, return `tool-bar-style' if set to a
723 known style. Otherwise return image. */)
726 if (EQ (Vtool_bar_style
, Qimage
)
727 || EQ (Vtool_bar_style
, Qtext
)
728 || EQ (Vtool_bar_style
, Qboth
)
729 || EQ (Vtool_bar_style
, Qboth_horiz
))
730 return Vtool_bar_style
;
731 if (!NILP (current_tool_bar_style
))
732 return current_tool_bar_style
;
737 syms_of_xsettings (void)
739 current_mono_font
= NULL
;
741 first_dpyinfo
= NULL
;
746 Qmonospace_font_name
= intern_c_string ("monospace-font-name");
747 staticpro (&Qmonospace_font_name
);
748 Qfont_name
= intern_c_string ("font-name");
749 staticpro (&Qfont_name
);
750 Qfont_render
= intern_c_string ("font-render");
751 staticpro (&Qfont_render
);
752 defsubr (&Sfont_get_system_font
);
753 defsubr (&Sfont_get_system_normal_font
);
755 DEFVAR_BOOL ("font-use-system-font", &use_system_font
,
756 doc
: /* *Non-nil means to apply the system defined font dynamically.
757 When this is non-nil and the system defined fixed width font changes, we
758 update frames dynamically.
759 If this variable is nil, Emacs ignores system font changes. */);
762 DEFVAR_LISP ("xft-settings", &Vxft_settings
,
763 doc
: /* Font settings applied to Xft. */);
764 Vxft_settings
= make_string ("", 0);
767 Fprovide (intern_c_string ("font-render-setting"), Qnil
);
769 Fprovide (intern_c_string ("system-font-setting"), Qnil
);
773 current_tool_bar_style
= Qnil
;
774 Qtool_bar_style
= intern_c_string ("tool-bar-style");
775 staticpro (&Qtool_bar_style
);
776 defsubr (&Stool_bar_get_system_style
);
778 Fprovide (intern_c_string ("dynamic-setting"), Qnil
);
781 /* arch-tag: 541716ed-2e6b-42e1-8212-3197e01ea61d
782 (do not change this comment) */