Switch to ultra-scroll
This commit is contained in:
parent
e6d2fe10e4
commit
4b1fee1a1f
23
init.el
23
init.el
|
@ -938,6 +938,15 @@ This function is called by `org-babel-execute-src-block'."
|
|||
(org-msg-convert-citation t)
|
||||
(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
|
||||
:custom
|
||||
(emacs-everywhere-app-info-function
|
||||
|
@ -1009,16 +1018,7 @@ This function is called by `org-babel-execute-src-block'."
|
|||
:config
|
||||
(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
|
||||
scroll-step 1
|
||||
scroll-margin 8
|
||||
scroll-conservatively 9999
|
||||
python-indent-guess-indent-offset nil
|
||||
read-file-name-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)
|
||||
(defun my-bat-check ()
|
||||
"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=
|
||||
(cdr (assq ?B (funcall battery-status-function)))
|
||||
"discharging"))))
|
||||
|
@ -1119,8 +1119,7 @@ Used to toggle `goggles-pulse', `pixel-scroll-precision-mode', and `nyan-mode'."
|
|||
(nyan-start-animation)
|
||||
(nyan-stop-animation)))
|
||||
(setq nyan-animate-nyancat ac-status
|
||||
nyan-wavy-trail ac-status)
|
||||
(pixel-scroll-precision-mode (if ac-status 1 0)))))
|
||||
nyan-wavy-trail ac-status))))
|
||||
|
||||
(when battery-status-function
|
||||
(run-with-timer 0 30 #'my-bat-check))
|
||||
|
|
Loading…
Reference in a new issue