From 2fd2b0fc3486cb7250af89f952b80f1ec0fdcd0f Mon Sep 17 00:00:00 2001 From: Kentaro Ohkouchi Date: Thu, 26 Oct 2023 01:34:04 +0900 Subject: [PATCH 1/2] Fix pixel-scroll-precision --- .emacs.d/init.el | 32 ++++++++++++-------------------- 1 file changed, 12 insertions(+), 20 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 09a74c9..59d074a 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -123,31 +123,23 @@ (global-set-key (kbd "C-x ") 'find-file) (global-set-key (kbd "C-x ") 'eval-last-sexp) -;; https://www.reddit.com/r/emacs/comments/wx7ytn/comment/ilue3ka/ +;; https://www.reddit.com/r/emacs/comments/13accue/emacs_29_pixelscrollprecisionmode_seems_to_break/ (if (fboundp 'pixel-scroll-precision-mode) (progn - (pixel-scroll-mode 1) - (pixel-scroll-precision-mode 1) - (setq pixel-scroll-precision-use-momentum t) (setq scroll-step 1) - (setq pixel-scroll-precision-large-scroll-height 40.0) + (setq-default scroll-conservatively 10000) + (setq-default scroll-margin 5) + + (setq pixel-scroll-precision-use-momentum t) + (setq pixel-scroll-precision-interpolate-mice t) + (setq pixel-scroll-precision-large-scroll-height 10.0) (setq pixel-scroll-precision-interpolation-factor 1.0) + (setq pixel-scroll-precision-interpolate-page t) + (setq pixel-scroll-precision-interpolation-total-time 0.25) + (pixel-scroll-precision-mode t) - (defun smooth-scroll-half-page-down () - "Smooth scroll down" - (interactive) - (let ((half-height (/ (window-height) 2))) - (pixel-scroll-precision-interpolate (* 8 (- half-height))))) - - (defun smooth-scroll-half-page-up () - "Smooth scroll down" - (interactive) - (let ((half-height (/ (window-height) 2))) - (pixel-scroll-precision-interpolate (* 8 half-height)))) - - ;; scroll-up-command - (global-set-key (kbd "C-v") #'smooth-scroll-half-page-down) - (global-set-key (kbd "M-v") #'smooth-scroll-half-page-up))) + (global-set-key (kbd "C-v") 'pixel-scroll-interpolate-down) + (global-set-key (kbd "M-v") 'pixel-scroll-interpolate-up))) (setq dired-bind-jump nil) (setq dired-dwim-target t) From dd7487f4fa60e0440219ba741d469c2e02f80108 Mon Sep 17 00:00:00 2001 From: Kentaro Ohkouchi Date: Thu, 26 Oct 2023 16:16:58 +0900 Subject: [PATCH 2/2] Fix pixel-scroll-interpolate-up/down --- .emacs.d/init.el | 32 ++++++++++++++++++++++++++------ 1 file changed, 26 insertions(+), 6 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 59d074a..3e4a2bb 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -138,8 +138,28 @@ (setq pixel-scroll-precision-interpolation-total-time 0.25) (pixel-scroll-precision-mode t) - (global-set-key (kbd "C-v") 'pixel-scroll-interpolate-down) - (global-set-key (kbd "M-v") 'pixel-scroll-interpolate-up))) + (defun +pixel-scroll-interpolate-down () + "Interpolate a scroll downwards by one page." + (interactive) + (if pixel-scroll-precision-interpolate-page + (pixel-scroll-precision-interpolate (- (/ (window-text-height nil t) 2)) + ;; Don't use an + ;; interpolation factor, + ;; since we want exactly 1 + ;; page to be scrolled. + nil 1) + (cua-scroll-up))) + + (defun +pixel-scroll-interpolate-up () + "Interpolate a scroll upwards by one page." + (interactive) + (if pixel-scroll-precision-interpolate-page + (pixel-scroll-precision-interpolate (/ (window-text-height nil t) 2) + nil 1) + (cua-scroll-down))) + + (global-set-key (kbd "C-v") '+pixel-scroll-interpolate-down) + (global-set-key (kbd "M-v") '+pixel-scroll-interpolate-up))) (setq dired-bind-jump nil) (setq dired-dwim-target t) @@ -568,10 +588,10 @@ (defvar mkpasswd-command "head -c 10 < /dev/random | uuencode -m - | tail -n 2 |head -n 1 | head -c10") (autoload 'mkpasswd "mkpasswd" nil t) -(el-get-bundle emacs-id-manager - :type github - :autoloads "id-manager" - :pkgname "nanasess/emacs-id-manager") +;; (el-get-bundle emacs-id-manager +;; :type github +;; :autoloads "id-manager" +;; :pkgname "nanasess/emacs-id-manager") (el-get-bundle nginx-mode) (el-get-bundle po-mode)