From 880208537a1ac366f2259fc23c41c7d697b807b6 Mon Sep 17 00:00:00 2001 From: tfheen Date: Tue, 10 Jun 2008 00:04:36 +0000 Subject: [PATCH] Add support for resizing frame git-svn-id: file:///svn/tfheen/trunk/dotfiles@1255 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- emacs | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) diff --git a/emacs b/emacs index 59f977e..7e2a03a 100644 --- a/emacs +++ b/emacs @@ -354,3 +354,32 @@ (setq gnus-home-directory "~/.emacs.d/gnus" gnus-init-file "~/.gnus" message-directory (concat gnus-home-directory "/Mail"))) + + +(cw/for-host "luxevop" + ;; Firefox-like zooming of fonts. + (setq tfheen-base-font "Bitstream Vera Sans Mono" + tfheen-base-size 12 + tfheen-current-size tfheen-base-size) + + (defun font-zoom-increase-font-size () + (interactive) + (setq tfheen-current-size (+ tfheen-current-size 2)) + (let ((font-name (format "%s-%d" tfheen-base-font tfheen-current-size))) + (set-frame-font font-name))) + + (defun font-zoom-decrease-font-size () + (interactive) + (setq tfheen-current-size (- tfheen-current-size 2)) + (let ((font-name (format "%s-%d" tfheen-base-font tfheen-current-size))) + (set-frame-font font-name))) + + (defun font-zoom-reset-font-size () + (interactive) + (let ((font-name (format "%s-%d" tfheen-base-font tfheen-base-size))) + (set-frame-font font-name))) + + (define-key global-map (read-kbd-macro "C--") 'font-zoom-decrease-font-size) + (define-key global-map (read-kbd-macro "C-+") 'font-zoom-increase-font-size) + (define-key global-map (read-kbd-macro "C-=") 'font-zoom-reset-font-size) + (font-zoom-reset-font-size)) -- 2.39.5