From 186e5674436d6379c70f57ed3543274d3381c2fb Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 27 Oct 2016 22:39:38 -0400 Subject: Add change-font-height-global command --- lisp/km-framewin.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'lisp') diff --git a/lisp/km-framewin.el b/lisp/km-framewin.el index a81f464..3d7bc83 100644 --- a/lisp/km-framewin.el +++ b/lisp/km-framewin.el @@ -61,5 +61,22 @@ Assumes that the window is only split into two." (split-window-vertically)) (switch-to-buffer nil))) +(defvar km/default-font-height nil) + +;;;###autoload +(defun km/change-font-height-global (height &optional this-frame) + (interactive + (let ((cur-height (face-attribute 'default :height))) + (unless km/default-font-height + (setq km/default-font-height (face-attribute 'default :height))) + (list (read-number (format "Current height is %s. New value: " cur-height) + (if (= cur-height km/default-font-height) + (round (* 1.15 cur-height)) + km/default-font-height)) + current-prefix-arg))) + (set-face-attribute 'default + (and this-frame (window-frame)) + :height height)) + (provide 'km-framewin) ;;; km-framewin.el ends here -- cgit v1.2.3