mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
MitchMarq42 2022-10-11 16:20:08 -08:00
parent e8e9538c7c
commit dc287661e9
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/mitch-packages.el
View File

@ -408,9 +408,24 @@ targets."
:custom-face :custom-face
(yascroll:thumb-text-area (yascroll:thumb-text-area
((t (:inherit airline-emacs-outer)))) ((t (:inherit airline-emacs-outer))))
(yascroll:thumb-fringe :config
((t (:inherit airline-emacs-outer)))) (defun yascroll:make-thumb-overlay-fringe (left-or-right)
:config (global-yascroll-bar-mode 1)) "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 ;; parentheses settingses
(use-package paredit (use-package paredit