Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

ajuster la taille de la police

6 réponses
Avatar
Mihamina Rakotomandimby
Bonjour,

Je souhaite ajuster la taille de la police de caractère de mon Emacs
23.0.60.1. La taille par défaut me semble un peu petite.

Pour ce faire, ceci dans mon .emacs:

(global-font-lock-mode 1)
(setq font-lock-maximum-decoration t)
(setq line-number-mode t)
(setq column-number-mode t)
(transient-mark-mode t)
(setq default-frame-alist
'((font . "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")
))
(setq-default indent-tabs-mode nil)
;; Il y a une longue suite mais qui n'importe pas
;; dans ce contexte.

Est-ce une bonne façon de faire, ou y a-t-il mieux?
Merci de vos conseils.

--
Huile Essentielle de Camphre http://www.huile-camphre.fr
Infogerance http://www.infogerance.us
(Serveurs, Postes de travail, Développement logiciel)

6 réponses

Avatar
Ph. Ivaldi
Bonjour,

Le 31 juillet 2008, Mihamina Rakotomandimby écrivit :

Je souhaite ajuster la taille de la police de caractère de mon Emacs
23.0.60.1. La taille par défaut me semble un peu petite.
Pour ce faire, ceci dans mon .emacs:
(global-font-lock-mode 1)
(setq font-lock-maximum-decoration t)
(setq line-number-mode t)
(setq column-number-mode t)
(transient-mark-mode t)
(setq default-frame-alist
'((font . "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")
))
(setq-default indent-tabs-mode nil)
;; Il y a une longue suite mais qui n'importe pas
;; dans ce contexte.
Est-ce une bonne façon de faire,



Sous Emacs23 je ne sais pas mais avec la 22 ça ne change pas la fonte.

ou y a-t-il mieux?



je procéderai ainsi:
8<------8<------8<------8<------8<------8<------8<------8<------8<------
(setq mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")

(defvar mr-font )
(when (x-list-fonts mr-font) ;; Vérification d'existence.
(set-default-font mr-font))
8<------8<------8<------8<------8<------8<------8<------8<------8<------

Merci de vos conseils.



Avec plaisir,
--
Philippe Ivaldi.
http://piprim.tuxfamily.org/
Avatar
Ph. Ivaldi
Le 01 août 2008, Ph. Ivaldi écrivit :

je procéderai ainsi:
8<------8<------8<------8<------8<------8<------8<------8<------8<------
(setq mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")

(defvar mr-font )
...
8<------8<------8<------8<------8<------8<------8<------8<------8<------



Il fallait lire:
(defvar mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")
bien sûr.
--
Philippe Ivaldi.
http://piprim.tuxfamily.org/
Avatar
Vincent Belaïche
Ph. Ivaldi a écrit :
Le 01 août 2008, Ph. Ivaldi écrivit :

je procéderai ainsi:
8<------8<------8<------8<------8<------8<------8<------8<------8<------
(setq mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")

(defvar mr-font )
...
8<------8<------8<------8<------8<------8<------8<------8<------8<------



Il fallait lire:
(defvar mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")
bien sûr.



Juste pour info, dans mon fichier d'init j'ai un truc du genre :

8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----
(setq initial-frame-alist
'((font . "-*-Lucida Console-*-*-*-*-*-140-*-*-*-*-iso8859-1"
)))
8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----

(En fait c'est plus compliqué car je fixe d'autres paramètres du cadre
initial).

C'est juste pour dire que si tu veux juste agir sur la taille, sans
avoir à tester l'existence de la police tu pourrais mettre

8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----
(setq initial-frame-alist '(
(font . "-*-*-medium-r-*-*-*-140-*-*-*-*-*-*")
)))
8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----


Comme la docstring de x-list-fonts dit que :

8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----
Fonts Emacs can't use may or may not be excluded
even if they match PATTERN and FACE.
8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----8<-----

Je me demande si en général c'est une bonne idée de préciser le nom de
la fonte si tu n'as besoin que de préciser la taille. Par contre il vaut
peut-être mieux préciser les paramètres WEIGHT et SLANT.

A+,
Vincent.
Avatar
Olivier
Ph. Ivaldi a écrit :
Le 01 août 2008, Ph. Ivaldi écrivit :

je procéderai ainsi:
8<------8<------8<------8<------8<------8<------8<------8<------8<------
(setq mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")

(defvar mr-font )
...
8<------8<------8<------8<------8<------8<------8<------8<------8<------





Juste par curiosité, héhé, pourquoi un defvar après un setq ??
(je crois savoir pourquoi tu as rajouté le setq, parce qu'à
mon avis tu l'as ajouté ensuite, mais faut voir :-))
Amitiés,
Olivier
Avatar
Ph. Ivaldi
Le 05 août 2008, Olivier écrivit :

Juste par curiosité, héhé, pourquoi un defvar après un setq ??



Parce que c'est une erreur.
Le setq+defvar est à remplacer par
(defvar mr-font "-*-courier-medium-r-*-*-14-*-*-*-*-*-*-*")

(je crois savoir pourquoi tu as rajouté le setq, parce qu'à
mon avis tu l'as ajouté ensuite, mais faut voir :-))



Oui, pour faire des tests de fontes.
--
Philippe Ivaldi.
http://piprim.tuxfamily.org/
Avatar
Olivier
Ph. Ivaldi a écrit :
[...]
Tu capitules trop vite, c'est pas marrant !
Bon, c'était du bon code quand même :-p
Amitiés,
Olivier