Re: emacs21 et les fontes pour l'UTF-8

[Vincent Bernat <bernat@luffy.cx>]

OoO  En ce  début d'après-midi  nuageux du  vendredi 11  mai  2007, vers
14:00, Frédéric BOITEUX <fboiteux@calistel.com> disait:

>   Sur une Debian Etch, bureau Gnome, j'essaie depuis quelque temps
> d'obtenir autre chose que des petits carrés pour les caractères non
> latins-0 de fichiers UTF-8 édités dans emacs, mais sans succès !

> Emacs n'utilise pas la police « Monospace » définie par défaut dans les
> préférences du bureau (au fait, c'est quelle fonte, « Monospace », en
> langage X11, genre -misc-fixed-*-etc ?), et je n'arrive pas à lui faire
> utiliser une autre (j'ai tenté de jouer avec les « fontsets » mais sans
> succès).

Personnellement, pour  avoir des fontes correctes  dans Emacs, j'utilise
ceci :

  (when (if (fboundp window-system)
	    (eq 'x (window-system frame))
	  (eq 'x window-system))
    ;; Les fontes : on utilise la fonte 6x13 qui a l'air assez complète et
    ;; dispo sur pas mal de systèmes. Il faudra peut-être définir d'autres
    ;; fontes pour d'autres charset.
    (condition-case nil
	(progn
	  (create-fontset-from-fontset-spec
	   "-misc-fixed-medium-r-semicondensed--13-*-*-*-*-*-fontset-custom")
	  ;; Pour le gras, c'est presque pareil, sauf que l'on prend du pas gras
	  ;; pour U-2500 et compagnie (parce que c'est pas présent dans la fonte)
	  (create-fontset-from-fontset-spec
	   "-misc-fixed-bold-r-semicondensed--13-*-*-*-*-*-fontset-bold,
  mule-unicode-2500-33ff:-misc-fixed-medium-r-semicondensed--13-*-*-*-*-*-iso10646-1"
	   'bold)
	  ;; Lucida Sans
	  (create-fontset-from-fontset-spec
	   "-b&h-lucida-medium-r-*-*-10-*-*-*-p-*-fontset-lucidasans"))
      (error nil))

    ;; On applique déjà ce frameset à cette frame
    (set-frame-font "fontset-custom")

    ;; En attendant de trouver mieux...
    ;; Toutes les fontes grasses utilisent le fontset-bold...
    (dolist (face-name (color-theme-get-faces))
      (if (face-bold-p face-name)
	  (set-face-font face-name "fontset-bold")))
    
    ;; On définit le fontset par défaut (y'a pas des masses de choix)
    (setq default-frame-alist
	  (cons
	   '(font . "fontset-custom")
	   default-frame-alist))
    
    ;; On indique que les fontes de la modeline utilisent verdana
    (set-face-font 'modeline "fontset-lucidasans")
    (set-face-font 'modeline-inactive "fontset-lucidasans")
    (set-face-font 'modeline-buffer-id "fontset-lucidasans")
    (set-face-font 'modeline-mousable-minor-mode "fontset-lucidasans")
    (set-face-font 'modeline-mousable "fontset-lucidasans")))

-- 
BOFH excuse #224:
Jan  9 16:41:27 huber su: 'su root' succeeded for .... on /dev/pts/1