diff --git a/init.el b/init.el index 6c161a2..8657690 100644 --- a/init.el +++ b/init.el @@ -476,7 +476,6 @@ split horizontally again, but this extra work should not matter much." db/dired-jump-to-bottom db/dired-get-size hydra-toggle/body - hydra-zoom/body hydra-rectangle/body hydra-feature-shortcuts/body) :autoload (turn-on-flycheck-when-file @@ -3114,7 +3113,7 @@ eventuelly be set to nil, however)." (bind-key "" #'db/run-or-hide-eshell) (bind-key "" #'hydra-feature-shortcuts/body) (bind-key "" #'project-find-regexp) - (bind-key "" #'hydra-zoom/body) + (bind-key "" #'text-scale-adjust) (bind-key "" #'dictcc) (bind-key "" #'hydra-org-linking/body) (bind-key "" #'magit-status) diff --git a/site-lisp/db-utils.el b/site-lisp/db-utils.el index 1443080..58f3ffb 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -687,15 +687,12 @@ quite sure whether something like this exists already?" ("q" toggle-debug-on-quit "debug-on-quit") ("r" read-only-mode "read-only")) -(defhydra hydra-zoom (:color red - :body-pre (require 'face-remap)) - ;; the following newline is important, as otherwise the format string is not - ;; interpreted correctly; cf. https://oremacs.com/2015/02/23/hydra-0.11.0/ - " -Zoom (%`text-scale-mode-amount): " - ("g" text-scale-increase "increase") - ("l" text-scale-decrease "decrease") - ("0" (text-scale-adjust 0) "reset")) +(defvar-keymap zoom-toggle-map + :repeat t + :doc "Zoom" + "g" #'text-scale-increase + "l" #'text-scale-decrease + "0" #'text-scale-adjust) (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1) :color pink