From: Tyler Grinn <tylergrinn@gmail.com>
To: 57140@debbugs.gnu.org
Subject: bug#57140: New user option mouse-wheel-text-scale-buffer
Date: Thu, 11 Aug 2022 09:10:11 -0400 [thread overview]
Message-ID: <871qtnudsc.fsf@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 297 bytes --]
By default, mouse-wheel-(global-)text-scale increases or decreases the
text scale for every scroll event. I think it's a good idea to have an
option to buffer that (is that the right word?) so you can more easily
choose the text scale you want. I kept the default behavior intact.
Best,
Tyler
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: mouse-wheel-text-scale-buffer --]
[-- Type: text/x-patch, Size: 3630 bytes --]
From 062db51e9f7faa341f92feff392a2c0109aa23dc Mon Sep 17 00:00:00 2001
From: Tyler Grinn <tylergrinn@gmail.com>
Date: Wed, 10 Aug 2022 22:32:12 -0400
Subject: [PATCH] Add new user option mouse-wheel-text-scale-buffer
* lisp/mwheel.el (mouse-wheel-text-scale-buffer): New user option.
(mouse-wheel-text-scale): Use it.
(mouse-wheel-global-text-scale): Use it.
---
lisp/mwheel.el | 31 +++++++++++++++++++++++++++----
1 file changed, 27 insertions(+), 4 deletions(-)
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index ba5255fc07..816398e063 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -214,6 +214,14 @@ mouse-wheel-flip-direction
:type 'boolean
:version "26.1")
+(defcustom mouse-wheel-text-scale-buffer 0
+ "Buffer this many mouse scroll events before changing text scale.
+By default, every scroll event will trigger one text scale adjustment.
+Increase this number to hinder text scale adjustments while scrolling."
+ :group 'mouse
+ :type 'number
+ :version "29.1")
+
(defun mwheel-event-button (event)
(let ((x (event-basic-type event)))
;; Map mouse-wheel events to appropriate buttons
@@ -424,6 +432,9 @@ mwheel-scroll
(put 'mwheel-scroll 'scroll-command t)
+(defvar mouse-wheel-text-scale-counter 0
+ "Keeps track of how many mouse events since last text-scale.")
+
(defun mouse-wheel-text-scale (event)
"Adjust font size of the default face according to EVENT.
See also `text-scale-adjust'."
@@ -435,10 +446,16 @@ mouse-wheel-text-scale
(unwind-protect
(cond ((memq button (list mouse-wheel-down-event
mouse-wheel-down-alternate-event))
- (text-scale-increase 1))
+ (setq mouse-wheel-text-scale-counter (1- mouse-wheel-text-scale-counter))
+ (when (< mouse-wheel-text-scale-counter (- mouse-wheel-text-scale-buffer))
+ (setq mouse-wheel-text-scale-counter 0)
+ (text-scale-increase 1)))
((memq button (list mouse-wheel-up-event
mouse-wheel-up-alternate-event))
- (text-scale-decrease 1)))
+ (setq mouse-wheel-text-scale-counter (1+ mouse-wheel-text-scale-counter))
+ (when (> mouse-wheel-text-scale-counter mouse-wheel-text-scale-buffer)
+ (setq mouse-wheel-text-scale-counter 0)
+ (text-scale-decrease 1))))
(select-window selected-window))))
(declare-function global-text-scale-adjust "face-remap.el" (increment))
@@ -450,10 +467,16 @@ mouse-wheel-global-text-scale
(unwind-protect
(cond ((memq button (list mouse-wheel-down-event
mouse-wheel-down-alternate-event))
- (global-text-scale-adjust 1))
+ (setq mouse-wheel-text-scale-counter (1- mouse-wheel-text-scale-counter))
+ (when (<= mouse-wheel-text-scale-counter (- mouse-wheel-text-scale-buffer))
+ (setq mouse-wheel-text-scale-counter 0)
+ (global-text-scale-adjust 1)))
((memq button (list mouse-wheel-up-event
mouse-wheel-up-alternate-event))
- (global-text-scale-adjust -1))))))
+ (setq mouse-wheel-text-scale-counter (1+ mouse-wheel-text-scale-counter))
+ (when (>= mouse-wheel-text-scale-counter mouse-wheel-text-scale-buffer)
+ (setq mouse-wheel-text-scale-counter 0)
+ (global-text-scale-adjust -1)))))))
(defun mouse-wheel--add-binding (key fun)
"Bind mouse wheel button KEY to function FUN.
--
2.37.1
next reply other threads:[~2022-08-11 13:10 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-08-11 13:10 Tyler Grinn [this message]
2022-08-11 13:20 ` bug#57140: New user option mouse-wheel-text-scale-buffer Tyler Grinn
2022-08-11 13:28 ` Eli Zaretskii
2022-08-11 15:23 ` Tyler Grinn
2022-08-11 16:02 ` Eli Zaretskii
2022-08-11 17:00 ` Tyler Grinn
2022-08-11 17:16 ` Eli Zaretskii
2022-08-11 17:38 ` Tyler Grinn
2022-08-11 17:47 ` Eli Zaretskii
2022-08-11 19:24 ` Tyler Grinn
2022-08-12 5:36 ` Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=871qtnudsc.fsf@gmail.com \
--to=tylergrinn@gmail.com \
--cc=57140@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.