From 58b13b80f03ceedd0d809155b4935466940375eb Mon Sep 17 00:00:00 2001
From: fpi
Date: Fri, 12 Jun 2020 15:01:10 +0200
Subject: Add function to scale height of default face

---
 emacs-init.org | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

(limited to 'emacs-init.org')

diff --git a/emacs-init.org b/emacs-init.org
index 9b8802d..4fa0ecd 100644
--- a/emacs-init.org
+++ b/emacs-init.org
@@ -830,6 +830,24 @@ Finally load the theme.
 #+begin_src emacs-lisp
 (load-theme 'spacemacs-light t)
 #+end_src
+*** Scaling the height of the =default= face.
+When switching between monitors with different resolution, scaling the
+=default= face can be used to in-/decreases the size of text and UI elements
+(modeline, …) to a more readable size.
+#+begin_src emacs-lisp
+(defun fpi/scale-default-face (&optional arg)
+  "Increase height of face default."
+  (interactive "P")
+  (let* ((height (face-attribute 'default :height))
+        (scale (if arg -10 10))
+        (new (+ height scale)))
+    (set-face-attribute 'default nil :height new)
+    (message "Default height: %s" new)))
+#+end_src
+#+begin_src emacs-lisp :tangle no :noweb-ref fpi-bindings
+(define-key 'fpi-map (kbd "+") 'fpi/scale-default-face)
+(define-key 'fpi-map (kbd "-") (lambda () (interactive) (fpi/scale-default-face t)))
+#+end_src
 ** User info
 Set ~user-full-name~ and ~user-mail-address~. These are set in
 [[file:emacs-private.el.gpg::1][emacs-private.el.gpg]].
@@ -930,7 +948,7 @@ This was inspired from [[http://endlessparentheses.com/the-toggle-map-and-wizard
 (define-key fpi/toggle-map "W" #'whitespace-toggle-options)
 #+END_SRC
 *** fpi-map
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :noweb yes
 (define-prefix-command 'fpi-map)
 (unbind-key (kbd "C-z"))
 (global-set-key (kbd "C-z") 'fpi-map)
@@ -946,6 +964,8 @@ This was inspired from [[http://endlessparentheses.com/the-toggle-map-and-wizard
 (define-key fpi-map (kbd "t") fpi/toggle-map)
 (define-key fpi-map (kbd "n") 'sauron-toggle-hide-show)
 (define-key fpi-map (kbd "j") (lambda () (interactive) (find-file org-journal-file)))
+
+<<fpi-bindings>>
 #+END_SRC
 ** Base commands (simple.el)
 #+begin_src emacs-lisp
-- 
cgit v1.2.3