From bc0932256745e8b569e639c5222a812207a72bac Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Thu, 20 Aug 2015 03:22:54 -0700 Subject: [PATCH] imalison:set-font-height --- dotfiles/emacs.d/init.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/dotfiles/emacs.d/init.el b/dotfiles/emacs.d/init.el index 619b103c..4374dc4c 100644 --- a/dotfiles/emacs.d/init.el +++ b/dotfiles/emacs.d/init.el @@ -2074,6 +2074,11 @@ window is active in the perspective." (defun random-choice (choices) (nth (random (length choices)) choices)) +(defun imalison:set-font-height () + (interactive) + (let ((new-height (read-face-attribute 'default :height (selected-frame)))) + (set-face-attribute 'default nil :height new-height))) + (defun imalison:remove-fringe-and-hl-line-mode (&rest stuff) (interactive) (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))