2010-01-19 8 views
12

notepad ++ erlauben Sie mir, die Schriftgröße zu erhöhen, wenn ich die halten Ctrl Schlüssel und drehen Sie die Maus mittleren Bildlaufschaltfläche, um weiterzuleiten.Emacs Schriftgröße mit Strg-Taste und Maus Bildlauf

In der gleichen Weise, wenn ich Ctrl halten und die mittlere Scroll-Taste der Maus nach hinten drehen, reduziert die Größe des Fonds.

Wie kann ich das gleiche mit Emacs bekommen?

+0

Sie haben Ihre Antworten unten, aber tun Sie dies wirklich oft das? –

+3

Ja, oft maximiere ich die Schrift, wenn ich meinem Team den Code erkläre. Auch war es in Projektor zur Zeit der Präsentation nützlich –

+0

siehe auch: http://StackOverflow.com/Questions/294664/How-to-set-the-font-size-in-emacs –

Antwort

4

Code für 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) 

Edit: für eine Minute und eine maximale Verwendung

 
(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

dies funktioniert sowieso, wo ich die Schriftgröße auf 72 maximal und 8 begrenzen kann Minimum? –

+0

'' und '' funktionierte nicht für mich. Ich benutzte '' und '', die gut funktioniert. (Ich bin auf ArchLinux, wenn es darauf ankommt) – modulitos

1

Theoretisch kann ich dir die Antwort darauf geben, aber jemand, der fähiger ist als ich, wird das Lispeln schreiben müssen Ich bin nur ein wenig zu beschäftigt, um es mir selbst auszudenken.

Wenn niemand bis morgen antwortet, werde ich die Bücher schlagen und es herausfinden.

Was getan werden muss: Schreiben Sie eine Funktion (font-big), der tut dies:

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

  2. Dann Überprüfe alle offenen Puffer neu.

binden dann die Funktion einer Taste (define-key map [C-Rad-up] ‚font-big)

dann das gleiche für (font-klein).

Ich hoffe, dass ich zumindest teilweise Kredite für die Idee :)

+0

danke für die Idee :-).Suche nach Lisp-Experte, um eine Funktion zu schreiben –

18

mit emacs23 Sie folgende Zeilen zu Ihrer .emacs.el hinzufügen:

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

Ich benutze Emacs 23.1.5 auf Windows. aber ich konnte es nicht arbeiten lassen –

+2

Funktioniert Font-Skalierung, wenn Sie drücken C-x C- = oder C-x C--? –

+3

+1 Nicht sicher, was die Maus-4 und Maus-5 sind, aber das funktioniert perfekt für mich, also danke! (global-set-key (kbd "") 'Text-Skala-Abnahme) (global-set-key (kbd "")' Text-Maßstab-Erhöhung) – harpo

1

Try this:

(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 ist das, was Sie wollen. Ich mache genau das, was du die ganze Zeit beschreibst. Nach zoom-frm.el Laden, fügen Sie einige Bindungen wie diese:

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

Siehe auch: http://www.emacswiki.org/emacs/SetFonts#ChangingFontSize

+0

Sie Rock. Ich würde um diese Einstellungen spielen. Ich machte den * Zoom * mit anderen Vorschlag. Dieser mit Emacs kommt konnte meine Emacs-Konfiguration reduzieren. –