mirror of
https://github.com/doomemacs/doomemacs
synced 2025-08-01 12:17:25 -05:00
318e630037
Adds optional scroll interpolation/animation in #8335 via the good-scroll package. Command support is light right now, but I plan to expand on it later, and I welcome PRs to do so in the meantime. Ref: #8335
34 lines
1.2 KiB
EmacsLisp
34 lines
1.2 KiB
EmacsLisp
;;; ui/smooth-scroll/config.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! ultra-scroll
|
|
:when (fboundp 'pixel-scroll-precision-mode)
|
|
:hook (doom-first-input . ultra-scroll-mode)
|
|
:hook (doom-first-file . ultra-scroll-mode)
|
|
:init
|
|
(setq scroll-conservatively 101
|
|
scroll-margin 0)
|
|
: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))
|
|
|
|
|
|
(use-package good-scroll
|
|
:when (modulep! +interpolate)
|
|
:hook (doom-first-input . good-scroll-mode)
|
|
:config
|
|
(defun good-scroll--convert-line-to-step (line)
|
|
(cond ((integerp line) (* line (line-pixel-height)))
|
|
((or (null line) (memq '- line))
|
|
(- (good-scroll--window-usable-height)
|
|
(* 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-down (&optional arg)
|
|
:override #'scroll-down
|
|
(good-scroll-move (- (good-scroll--convert-line-to-step arg)))))
|