2010-01-19 21 views
12

notepad ++ Consentire di aumentare la dimensione del carattere quando tengo premuto il tasto Ctrl e ruotare il pulsante di scorrimento centrale del mouse in avanti.Ridimensionamento carattere Emacs con tasto Ctrl e scorrimento del mouse

Allo stesso modo, quando tengo Ctrl e ruoto il pulsante di scorrimento centrale del mouse indietro, la dimensione ridotta si riduce.

Come posso ottenere lo stesso con Emacs?

+0

Hai le tue risposte qui sotto, ma non si ha realmente fatto questo che spesso? –

+3

Sì, spesso massimizzo il font quando spiego il codice alla mia squadra. Anche è stato utile in proiettore al momento della presentazione –

+0

vedi anche: http://stackoverflow.com/questions/294664/how-to-set-the-font-size-in-emacs –

risposta

4

codice per 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) 

Modifica: per un minimo e un massimo utilizzare

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

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

funziona comunque, ma posso limitare la dimensione del font a 72 massimo e 8 minimo? –

+0

'' e '' non ha funzionato per me.Ho usato '' e '', che funziona bene. (Sono su ArchLinux, se è importante) – modulitos

1

Teoricamente posso darti la risposta a questo, ma qualcuno più abile di me dovrà scrivere la lisc. Sono solo un po 'occupato per capirlo da solo.

Se nessuno risponde entro domani, scriverò i libri e capirò.

Cosa deve essere fatto: Scrivere una funzione (font-grande) che fa proprio questo:

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

  2. Poi rivalutare tutti i buffer aperti.

quindi associare la funzione di una chiave (mappa definire tasti [C-ruota-up] 'font-grande)

poi fare lo stesso per (font-piccolo).

Spero di avere almeno parziali crediti per l'idea :)

+0

grazie per l'idea :-).cerco un esperto di Lisp per scrivere una funzione –

18

con emacs23 è possibile aggiungere le seguenti linee al vostro .emacs.el:

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

Io uso emacs 23.1.5 su Windows. ma non riuscivo a farlo funzionare –

+2

Il ridimensionamento dei caratteri funziona se si preme C-x C- = o C-x C--? –

+3

+1 Non sono sicuro di cosa siano il mouse 4 e il mouse 5, ma questo funziona perfettamente per me, quindi grazie! (global-set-key (kbd "") 'text-scale-decline) (global-set-key (kbd "")' text-scale-increase) – harpo

1

Prova questa:

(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 è quello che volete. Faccio esattamente quello che descrivi tutto il tempo. Dopo aver caricato zoom-frm.el, aggiungere alcuni attacchi come questi:

 
    (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) 

Vedi anche: http://www.emacswiki.org/emacs/SetFonts#ChangingFontSize

+0

tu rock: giocherei attorno a queste impostazioni, ho fatto lo * zoom * con altri suggerimenti.Questo viene fornito con emacs potrebbe ridurre la mia configurazione di emacs. –

Problemi correlati