From 4cd8da4dc94d5429356893f8a747f72fc9e8b847 Mon Sep 17 00:00:00 2001
From: fpi
Date: Sun, 1 May 2022 17:17:39 +0200
Subject: Make fpi/scale-default-face repeatable

---
 emacs-init.org | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/emacs-init.org b/emacs-init.org
index af0812f..4ca3c60 100644
--- a/emacs-init.org
+++ b/emacs-init.org
@@ -1683,7 +1683,12 @@ When switching between monitors with different resolution, scaling the
         (scale (if arg -10 10))
         (new (+ height scale)))
     (set-face-attribute 'default nil :height new)
-    (message "Default height: %s" new)))
+    (message "Default height: %s. Use +,- for further adjustment" new)
+    (set-transient-map
+     (let ((map (make-sparse-keymap)))
+       (define-key map (vector '(?-)) (lambda () (interactive) (fpi/scale-default-face t)))
+       (define-key map (vector '(?+)) (lambda () (interactive) (fpi/scale-default-face nil)))
+       map))))
 #+end_src
 #+begin_src emacs-lisp :tangle no :noweb-ref fpi-bindings
 (fpi/define-key fpi-map (kbd "+") #'fpi/scale-default-face "Zoom")
-- 
cgit v1.2.3