awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(smooth-scroll): good-scroll & ultra-scroll interop

Browse Source 
Makes these two packages coexist better and more efficiently.

Ref: 5f04b56229
This commit is contained in:
Henrik Lissner
2025-04-03 19:32:50 -04:00
parent 668a4a36d5
commit e91a5edd31
1 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
modules/ui/smooth-scroll/config.el
View File

@ -10,13 +10,23 @@
:config
(add-hook 'ultra-scroll-hide-functions #'hl-todo-mode)
(add-hook 'ultra-scroll-hide-functions #'diff-hl-flydiff-mode)
(add-hook 'ultra-scroll-hide-functions #'jit-lock-mode))
(add-hook 'ultra-scroll-hide-functions #'jit-lock-mode)
(add-hook 'ultra-scroll-hide-functions #'good-scroll-mode))
(use-package good-scroll
:when (modulep! +interpolate)
:hook (doom-first-input . good-scroll-mode)
:config
;; HACK: We're using good-scroll only for interpolation; ultra-scroll is
;; responsible for smoothing input scrolling (e.g. the mouse wheel), so do
;; this to ensure good-scroll keeps its hands off mouse wheels/trackpads.
(add-hook! 'good-scroll-mode-hook
(defun +smooth-scroll-coexist-with-ultra-scroll-h ()
(if good-scroll-mode
(setq mwheel-scroll-up-function #'scroll-up
mwheel-scroll-down-function #'scroll-down))))
(defun good-scroll--convert-line-to-step (line)
(cond ((integerp line) (* line (line-pixel-height)))
((or (null line) (memq '- line))
@ -24,10 +34,14 @@
(* next-screen-context-lines (line-pixel-height))))
((line-pixel-height))))
(defadvice! good-scroll--scroll-up (&optional arg)
:override #'scroll-up
(good-scroll-move (good-scroll--convert-line-to-step arg)))
(defadvice! good-scroll--scroll-up (fn &optional arg)
:around #'scroll-up
(if good-scroll-mode
(good-scroll-move (good-scroll--convert-line-to-step arg))
(funcall fn arg)))
(defadvice! good-scroll--scroll-down (&optional arg)
:override #'scroll-down
(good-scroll-move (- (good-scroll--convert-line-to-step arg)))))
(defadvice! good-scroll--scroll-down (fn &optional arg)
:around #'scroll-down
(if good-scroll-mode
(good-scroll-move (- (good-scroll--convert-line-to-step arg)))
(funcall fn arg))))