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

Allow to reset current text scaling directly 

This is easier then adjusting the text scale manually until it reaches
zero.

The additional indentation fixes are bonus ;)
This commit is contained in:
Daniel - 2024-01-04 08:28:14 +01:00
parent 1f0f00ad2c
commit dc841d4790
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
site-lisp/db-hydras.el
View File

@ -21,17 +21,18 @@
;; zooming with single keystrokes (from oremacs) ;; zooming with single keystrokes (from oremacs)
(defhydra hydra-zoom (:color red (defhydra hydra-zoom (:color red
:body-pre (require 'face-remap)) :body-pre (require 'face-remap))
;; the following newline is important, as otherwise the format string is not ;; 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/ ;; interpreted correctly; cf. https://oremacs.com/2015/02/23/hydra-0.11.0/
" "
Zoom (%`text-scale-mode-amount): " Zoom (%`text-scale-mode-amount): "
("g" text-scale-increase "increase") ("g" text-scale-increase "increase")
("l" text-scale-decrease "decrease")) ("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))
" "
^_k_^ _d_elete _s_tring ^_k_^ _d_elete _s_tring
_h_ _l_ _o_k _y_ank _h_ _l_ _o_k _y_ank
@ -48,7 +49,7 @@ _h_ _l_ _o_k _y_ank
("r" (if (region-active-p) ("r" (if (region-active-p)
(deactivate-mark) (deactivate-mark)
(rectangle-mark-mode 1)) (rectangle-mark-mode 1))
nil) nil)
("y" yank-rectangle nil) ("y" yank-rectangle nil)
("u" undo nil) ("u" undo nil)
("s" string-rectangle nil) ("s" string-rectangle nil)