feat(ui): enable pixel-scroll-precision-mode in GUI if available

core/siren-core-modules.el

@@ -44,6 +44,9 @@
 (require 'siren-uniquify)
 (require 'siren-which-key)
 
+;; UI
+(require 'siren-pixel-scroll)
+
 ;; Completion Systems and Interfaces
 (require 'siren-vertico)
 (require 'siren-orderless)

modules/ui/siren-pixel-scroll.el

@@ -0,0 +1,28 @@
+;;; siren-pixel-scroll.el --- jimeh's Emacs Siren: pixel-scroll.
+
+;;; Commentary:
+
+;; Enable and configure pixel-scroll-precision-mode on Emacs 29.x and later when
+;; running in a window system.
+
+;;; Code:
+
+(when (fboundp 'pixel-scroll-precision-mode)
+  (use-package pixel-scroll
+    :straight (:type built-in)
+    :if window-system
+
+    :custom
+    ;; Only affects keyboard-based scrolling when pixel scrolling is enabled.
+    (scroll-preserve-screen-position 'always)
+    (scroll-margin 0)
+    (pixel-scroll-precision-interpolate-page t)
+    (pixel-scroll-precision-large-scroll-height 40.0)
+    (pixel-scroll-precision-interpolation-factor 30)
+    (pixel-scroll-precision-use-momentum (not (eq system-type 'darwin)))
+
+    :config
+    (pixel-scroll-precision-mode +1)))
+
+(provide 'siren-pixel-scroll)
+;;; siren-pixel-scroll.el ends here