Add change-font-height-global command

1 files changed, 17 insertions, 0 deletions

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