From 44a6c9b2c86c029e47bcc5c7af8b33b65b524baa Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 16 Nov 2020 19:19:18 -0500 Subject: [PATCH] Fix oversized company-box scrollbars --- modules/completion/company/config.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/modules/completion/company/config.el b/modules/completion/company/config.el index 7b09f8667..4d9ccf267 100644 --- a/modules/completion/company/config.el +++ b/modules/completion/company/config.el @@ -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.