yascroll: Fix stunted scrollbar on transparent emacs. Now it's smooth

This commit is contained in:
MitchMarq42 2022-10-11 16:20:08 -08:00
parent e8e9538c7c
commit dc287661e9

View File

@ -408,9 +408,24 @@ targets."
:custom-face
(yascroll:thumb-text-area
((t (:inherit airline-emacs-outer))))
(yascroll:thumb-fringe
((t (:inherit airline-emacs-outer))))
:config (global-yascroll-bar-mode 1))
:config
(defun yascroll:make-thumb-overlay-fringe (left-or-right)
"Make thumb overlay on the LEFT-OR-RIGHT fringe."
(let* ((pos (point))
;; If `pos' is at the beginning of line, overlay of the
;; fringe will be on the previous visual line.
(pos (if (= (line-end-position) pos) pos (1+ pos)))
;; below originally said `filled-rectangle' instead of `empty-line'.
;; Changed to fix transparency.
(display-string `(,left-or-right empty-line yascroll:thumb-fringe))
(after-string (propertize "." 'display display-string))
(overlay (make-overlay pos pos)))
(overlay-put overlay 'after-string after-string)
(overlay-put overlay 'fringe-helper t)
(overlay-put overlay 'window (selected-window))
(overlay-put overlay 'priority yascroll:priority)
overlay))
(global-yascroll-bar-mode 1))
;; parentheses settingses
(use-package paredit