branch: externals/company
commit 93b0284e5a6be8506d194aab00fb613be0f364fd
Author: Dmitry Gutov <dgu...@yandex.ru>
Commit: Dmitry Gutov <dgu...@yandex.ru>
company--render-icons-margin: Center the icon when margin is > 2
Requested in https://github.com/company-mode/company-mode/discussions/1361.
---
company.el | 19 +++++++++++++++----
1 file changed, 15 insertions(+), 4 deletions(-)
diff --git a/company.el b/company.el
index 79d2619246..af056ebbe5 100644
--- a/company.el
+++ b/company.el
@@ -1633,10 +1633,21 @@ end of the match."
:background (unless (eq bkg 'unspecified)
bkg)))
(spacer-px-width (- (* company-icon-margin dfw) icon-size)))
- (concat
- (propertize " " 'display spec)
- (propertize (company-space-string (1- company-icon-margin))
- 'display `(space . (:width (,spacer-px-width))))))
+ (cond
+ ((<= company-icon-margin 2)
+ (concat
+ (propertize " " 'display spec)
+ (propertize (company-space-string (1- company-icon-margin))
+ 'display `(space . (:width (,spacer-px-width))))))
+ (t
+ (let* ((spacer-left (/ spacer-px-width 2))
+ (spacer-right (- spacer-px-width spacer-left)))
+ (concat
+ (propertize (company-space-string 1)
+ 'display `(space . (:width (,spacer-left))))
+ (propertize " " 'display spec)
+ (propertize (company-space-string (- company-icon-margin 2))
+ 'display `(space . (:width (,spacer-right)))))))))
nil))
(defun company-vscode-dark-icons-margin (candidate selected)
