emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Totally disable company-box scrollbar

Browse source 
Since the problem persists despite the earlier window-width fix.

Fixes sebastiencs/company-box#44
This commit is contained in:
Henrik Lissner 2020-01-13 01:43:42 -05:00
parent e7de8118ce
commit 6f273ffc25
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/completion/company/config.el
View file

@ -116,16 +116,11 @@
((facep sym) 'ElispFace))))) ((facep sym) 'ElispFace)))))
(defadvice! +company-remove-scrollbar-a (orig-fn &rest args) (defadvice! +company-remove-scrollbar-a (orig-fn &rest args)
"This restrains the scrollbar to a width of ~32px. See "This disables the company-box scrollbar, because:
https://github.com/sebastiencs/company-box/issues/44" https://github.com/sebastiencs/company-box/issues/44"
:around #'company-box--update-scrollbar :around #'company-box--update-scrollbar
(cl-letf* ((old-display-buffer-in-side-window (cl-letf (((symbol-function #'display-buffer-in-side-window)
(symbol-function #'display-buffer-in-side-window)) (symbol-function #'ignore)))
((symbol-function #'display-buffer-in-side-window)
(lambda (buffer alist)
(setf (alist-get 'window-width alist) 0.1)
(funcall old-display-buffer-in-side-window
buffer alist))))
(apply orig-fn args)))) (apply orig-fn args))))