exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove redundant zoom hydra

Browse Source 
It's already available with `text-scale-adjust`, so let's use this.
This commit is contained in:
Daniel Borchmann 2025-06-15 17:33:41 +02:00
parent b3830b6868
commit cef425b1f8
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
2 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
init.el
View File

@ -476,7 +476,6 @@ split horizontally again, but this extra work should not matter much."
db/dired-jump-to-bottom db/dired-jump-to-bottom
db/dired-get-size db/dired-get-size
hydra-toggle/body hydra-toggle/body
hydra-zoom/body
hydra-rectangle/body hydra-rectangle/body
hydra-feature-shortcuts/body) hydra-feature-shortcuts/body)
:autoload (turn-on-flycheck-when-file :autoload (turn-on-flycheck-when-file
@ -3114,7 +3113,7 @@ eventuelly be set to nil, however)."
(bind-key "<f1>" #'db/run-or-hide-eshell) (bind-key "<f1>" #'db/run-or-hide-eshell)
(bind-key "<f2>" #'hydra-feature-shortcuts/body) (bind-key "<f2>" #'hydra-feature-shortcuts/body)
(bind-key "<f5>" #'project-find-regexp) (bind-key "<f5>" #'project-find-regexp)
(bind-key "<f6>" #'hydra-zoom/body) (bind-key "<f6>" #'text-scale-adjust)
(bind-key "<f7>" #'dictcc) (bind-key "<f7>" #'dictcc)
(bind-key "<f9>" #'hydra-org-linking/body) (bind-key "<f9>" #'hydra-org-linking/body)
(bind-key "<f10>" #'magit-status) (bind-key "<f10>" #'magit-status)

10
site-lisp/db-utils.el
View File

@ -687,16 +687,6 @@ quite sure whether something like this exists already?"
("q" toggle-debug-on-quit "debug-on-quit") ("q" toggle-debug-on-quit "debug-on-quit")
("r" read-only-mode "read-only")) ("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) (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1)
:color pink :color pink
:post (deactivate-mark)) :post (deactivate-mark))