eriedaberrie/.emacs.d
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Switch to ultra-scroll

Browse source
This commit is contained in:
eriedaberrie 2025-01-17 17:20:10 +00:00
parent e6d2fe10e4
commit 4b1fee1a1f
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
init.el
View file

@ -938,6 +938,15 @@ This function is called by `org-babel-execute-src-block'."
(org-msg-convert-citation t) (org-msg-convert-citation t)
(org-msg-greeting-fmt "\nHi%s,\n\n")) (org-msg-greeting-fmt "\nHi%s,\n\n"))
(use-package ultra-scroll
:demand t
:custom
(scroll-conservatively 101)
(scroll-margin 0)
:config
(setcar mouse-wheel-scroll-amount 3)
(ultra-scroll-mode))
(use-package emacs-everywhere (use-package emacs-everywhere
:custom :custom
(emacs-everywhere-app-info-function (emacs-everywhere-app-info-function
@ -1009,16 +1018,7 @@ This function is called by `org-babel-execute-src-block'."
:config :config
(scroll-bar-mode 0)) (scroll-bar-mode 0))
(setq pixel-scroll-precision-large-scroll-height 40
fast-but-imprecise-scrolling t)
(pixel-scroll-precision-mode)
(setcar mouse-wheel-scroll-amount 3)
(setq server-client-instructions nil (setq server-client-instructions nil
scroll-step 1
scroll-margin 8
scroll-conservatively 9999
python-indent-guess-indent-offset nil python-indent-guess-indent-offset nil
read-file-name-completion-ignore-case t read-file-name-completion-ignore-case t
read-buffer-completion-ignore-case t read-buffer-completion-ignore-case t
@ -1106,7 +1106,7 @@ This function is called by `org-babel-execute-src-block'."
(require 'battery) (require 'battery)
(defun my-bat-check () (defun my-bat-check ()
"Check if battery status has changed. "Check if battery status has changed.
Used to toggle `goggles-pulse', `pixel-scroll-precision-mode', and `nyan-mode'." Used to toggle `goggles-pulse' and `nyan-mode'."
(let ((ac-status (not (string= (let ((ac-status (not (string=
(cdr (assq ?B (funcall battery-status-function))) (cdr (assq ?B (funcall battery-status-function)))
"discharging")))) "discharging"))))
@ -1119,8 +1119,7 @@ Used to toggle `goggles-pulse', `pixel-scroll-precision-mode', and `nyan-mode'."
(nyan-start-animation) (nyan-start-animation)
(nyan-stop-animation))) (nyan-stop-animation)))
(setq nyan-animate-nyancat ac-status (setq nyan-animate-nyancat ac-status
nyan-wavy-trail ac-status) nyan-wavy-trail ac-status))))
(pixel-scroll-precision-mode (if ac-status 1 0)))))
(when battery-status-function (when battery-status-function
(run-with-timer 0 30 #'my-bat-check)) (run-with-timer 0 30 #'my-bat-check))