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