yascroll: Fix stunted scrollbar on transparent emacs. Now it's smooth
This commit is contained in:
parent
e8e9538c7c
commit
dc287661e9
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user