summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfpi2022-05-01 17:17:39 +0200
committerfpi2022-05-01 17:20:40 +0200
commit4cd8da4dc94d5429356893f8a747f72fc9e8b847 (patch)
tree269283b328ab3a6bf7403f4c342510831015a2f7
parentMinor fixes (diff)
Make fpi/scale-default-face repeatable
Diffstat (limited to '')
-rw-r--r--emacs-init.org7
1 files changed, 6 insertions, 1 deletions
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")