@@ -34,3 +34,23 @@ (unless (is-server-running) (server-start)) + + +;; Changing font sizes +;; http://sachachua.com/wp/2006/09/15/emacs-changing-the-font-size-on-the-fly/ +(defun sacha/increase-font-size () + (interactive) + (set-face-attribute 'default + nil + :height + (ceiling (* 1.10 + (face-attribute 'default :height))))) +(defun sacha/decrease-font-size () + (interactive) + (set-face-attribute 'default + nil + :height + (floor (* 0.9 + (face-attribute 'default :height))))) +(global-set-key (kbd "C-C +") 'sacha/increase-font-size) +(global-set-key (kbd "C-C -") 'sacha/decrease-font-size) desktop.el e37b3d5b3d40e447d5c348ebc8a6080424ff469a Eric Davis edavis@littlestreamsoftware.com http://github.com/edavis10/emacs-starter-kit/commit/ea31f13a39d5636fb229ed3b0768622cba4dd14d ea31f13a39d5636fb229ed3b0768622cba4dd14d 2009-05-06T16:21:06-07:00 2009-05-06T16:21:06-07:00 Added some functions to change font sizes on the fly ad941f28039105ef5b21e9c755f22f025c0321c9 Eric Davis edavis@littlestreamsoftware.com