Zoom
Source : Alex Schroeder: Diary
Is there a library that will allow me to zoom the Emacs frame? Here’s what I have at the moment:;; zoom (defconst default-font-size (face-attribute 'default :height) "Default font size.") (defconst current-font-size (face-attribute 'default :height) "Current font size.")
(global-set-key (kbd "M-+") (lambda () (interactive) (setq current-font-size (truncate (* 1.2 current-font-size))) (set-face-attribute 'default nil :height current-font-size)))
(global-set-key (kbd "M--") (lambda () (interactive) (setq current-font-size (truncate (* 0.8 current-font-size))) (set-face-attribute 'default nil :height current-font-size)))
(global-set-key (kbd "M-0") (lambda () (interactive) (setq current-font-size default-font-size) (set-face-attribute 'default nil :height current-font-size)))I found that using (set-face-attribute 'default nil :height 1.1) resultet in an error on my Emacs from CVS. I’m building a new one as I type to try and verify this still bombs. Unfortunately Emacs will reduce the frame size as the frame starts to exceed your screen size, and forget about the old value, so that the frame will end up much smaller if you do a sequence of zoom ins followed by a sequence of zoom outs [..]
le 13.03.09 à 11:50
dans Mind
-
Article précédent - Commenter - Article suivant -