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

Fix oversized company-box scrollbars

Browse source
This commit is contained in:
Henrik Lissner 2020-11-16 19:19:18 -05:00
parent b61096578a
commit 44a6c9b2c8
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -122,6 +122,11 @@
(ElispFeature . ,(all-the-icons-material "stars" :face 'all-the-icons-orange))
(ElispFace . ,(all-the-icons-material "format_paint" :face 'all-the-icons-pink)))))
;; HACK Fix oversized scrollbar in some odd cases
;; REVIEW `resize-mode' is deprecated and may stop working in the future.
;; TODO PR me upstream?
(setq x-gtk-resize-child-frames 'resize-mode)
;; Disable tab-bar in company-box child frames
;; TODO PR me upstream!
(add-to-list 'company-box-frame-parameters '(tab-bar-lines . 0))
@ -138,13 +143,6 @@
((featurep sym) 'ElispFeature)
((facep sym) 'ElispFace)))))
(defadvice! +company-remove-scrollbar-a (orig-fn &rest args)
"This disables the company-box scrollbar, because:
https://github.com/sebastiencs/company-box/issues/44"
:around #'company-box--update-scrollbar
(letf! ((#'display-buffer-in-side-window #'ignore))
(apply orig-fn args)))
;; `company-box' performs insufficient frame-live-p checks. Any command that
;; "cleans up the session" will break company-box.
;; TODO Fix this upstream.