From cef425b1f8de087447c3edc7efef184822562533 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 15 Jun 2025 17:33:41 +0200 Subject: [PATCH] Remove redundant zoom hydra It's already available with `text-scale-adjust`, so let's use this. --- init.el | 3 +-- site-lisp/db-utils.el | 10 ---------- 2 files changed, 1 insertion(+), 12 deletions(-) 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..87e4db6 100644 --- a/site-lisp/db-utils.el +++ b/site-lisp/db-utils.el @@ -687,16 +687,6 @@ 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")) - (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1) :color pink :post (deactivate-mark))