branch: externals/company
commit df218ec1f181a9600ccdb245fb55b10bee2e5e3f
Author: Dmitry Gutov <dgu...@yandex.ru>
Commit: Dmitry Gutov <dgu...@yandex.ru>
New user option: company-icon-margin
Requested in
https://www.reddit.com/r/emacs/comments/p1lcgv/companymode_posframe_icons/.
---
NEWS.md | 1 +
company.el | 11 ++++++++---
2 files changed, 9 insertions(+), 3 deletions(-)
diff --git a/NEWS.md b/NEWS.md
index 21d9ec2..d6e294ef 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
## Next
+* New user option `company-icon-margin`.
* `company-show-numbers` has been renamed to `company-show-quick-access`
([#1115](https://github.com/company-mode/company-mode/pull/1115)).
New user options `company-quick-access-keys` and
diff --git a/company.el b/company.el
index d35698f..1fffe96 100644
--- a/company.el
+++ b/company.el
@@ -1551,6 +1551,10 @@ end of the match."
(const auto-scale)
(integer :value 16))))
+(defcustom company-icon-margin 2
+ "Width of the margin that shows the icons, in characters."
+ :type 'integer)
+
(defun company--render-icons-margin (icon-mapping root-dir candidate selected)
(if-let ((ws (window-system))
(candidate candidate)
@@ -1575,7 +1579,7 @@ end of the match."
(if (> dfh (* 2 base-size))
(* 2 base-size)
base-size)
- (* 2 dfw))))))
+ (* company-icon-margin dfw))))))
(spec (list 'image
:file (expand-file-name icon-file root-dir)
:type 'svg
@@ -1584,10 +1588,11 @@ end of the match."
:ascent 'center
:background (unless (eq bkg 'unspecified)
bkg)))
- (spacer-px-width (- (* 2 dfw) icon-size)))
+ (spacer-px-width (- (* company-icon-margin dfw) icon-size)))
(concat
(propertize " " 'display spec)
- (propertize " " 'display `(space . (:width (,spacer-px-width))))))
+ (propertize (company-space-string (1- company-icon-margin))
+ 'display `(space . (:width (,spacer-px-width))))))
nil))
(defun company-vscode-dark-icons-margin (candidate selected)
