2010-01-19 26 views
12

Bloc de notas ++ Permítame aumentar el tamaño de fuente cuando mantenga presionada la tecla Ctrl y gire el botón de desplazamiento del medio del mouse para reenviar.Tamaño de fuente de Emacs con la tecla Ctrl y el desplazamiento del mouse

De la misma manera, cuando sostengo Ctrl y gire el botón de desplazamiento del medio del mouse hacia atrás, el tamaño del fondo se reduce.

¿Cómo puedo obtener lo mismo con Emacs?

+0

Usted tiene sus respuestas a continuación, pero es lo que realmente hace esto a menudo? –

+3

Sí, a menudo maximizo la fuente cuando explico el código a mi equipo. Incluso fue útil en el proyector en el momento de la presentación –

+0

ver también: http://stackoverflow.com/questions/294664/how-to-set-the-font-size-in-emacs –

Respuesta

4

código para AlexCombas' answer:

 
(defun font-big() 
(interactive) 
(set-face-attribute 'default nil :height 
    (+ (face-attribute 'default :height) 10))) 

(defun font-small() 
(interactive) 
(set-face-attribute 'default nil :height 
    (- (face-attribute 'default :height) 10))) 

(global-set-key (kbd "<C-wheel-down>") 'font-small) 
(global-set-key (kbd "<C-wheel-up>") 'font-big) 

Editar: para un uso mínimo y máximo

+0

esto funciona. De todos modos, donde puedo limitar el tamaño de fuente a 72 máximo y 8 mínimo? –

+0

'' y '' no funcionó para mí. He usado '' y '', que funciona bien. (Estoy en ArchLinux, si es importante) – modulitos

1

Teóricamente puedo darte la respuesta a esto, pero alguien más hábil que yo tendrá que escribir el ceceo. Estoy ocupado con un cajero automático para resolverlo por mí mismo.

Si nadie responde mañana, iré a los libros y lo resolveré.

Lo que hay que hacer: Escribir una función (font-grande) que hace esto:

  1. font-default-size = font-default-size + 1`

  2. Entonces reevaluar todos los búferes abiertos.

a continuación, enlazar la función a una tecla (define-clave del mapa [C-rueda-up] 'font-grande)

luego hacer lo mismo para el (tipo de letra pequeña).

Espero tener al menos parciales créditos para la idea :)

+0

gracias por la idea :-).Buscando al experto en lisp para escribir una función –

18

con emacs23 puede agregar siguientes líneas a su .emacs.el:

(global-set-key (kbd "<C-mouse-4>") 'text-scale-decrease) 
(global-set-key (kbd "<C-mouse-5>") 'text-scale-increase) 
+0

Utilizo emacs 23.1.5 en Windows. pero no pude hacerlo funcionar –

+2

¿Funciona la escala de la fuente si presiona C-x C- = o C-x C--? –

+3

+1 No estoy seguro de qué son el mouse-4 y el mouse-5, pero esto funciona perfectamente para mí, ¡así que gracias! (global-set-key (kbd "") 'text-scale-decrease) (global-set-key (kbd "")' text-scale-increase) – harpo

1

Prueba esto:

(global-set-key (kbd "<C-mouse-4>") (lambda() (interactive) (text-scale-decrease 1))) 
(global-set-key (kbd "<C-mouse-5>") (lambda() (interactive) (text-scale-increase 1))) 
1

Zoom Frame es lo que desea. Hago exactamente lo que describes todo el tiempo. Después de cargar zoom-frm.el, añadir algunas fijaciones son como ellos:

 
    (global-set-key [S-mouse-1] 'zoom-in) 
    (global-set-key [C-S-mouse-1] 'zoom-out) 
    (global-set-key (vector (list 'control mouse-wheel-down-event)) 'zoom-in) 
    (global-set-key (vector (list 'control mouse-wheel-up-event)) 'zoom-out) 

Ver también: http://www.emacswiki.org/emacs/SetFonts#ChangingFontSize

+0

rock. Yo jugaría con estos ajustes. Hice el * zoom * con la sugerencia de otros. Este viene con emacs podría reducir la configuración de mis emacs. –

Cuestiones relacionadas