branch: externals/marginalia
commit c1296dbd5d3c4de2dd6dff3d793804205d38e999
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
introduce marginalia-margin-min
---
marginalia.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index c0fa896..575a199 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -49,6 +49,10 @@ This value is adjusted in the `minibuffer-setup-hook'
depending on the `window-w
"Use wider separator for window widths larger than this value."
:type 'integer)
+(defcustom marginalia-margin-min 8
+ "Minimum whitespace margin at the right side."
+ :type 'integer)
+
(defcustom marginalia-margin-threshold 160
"Use whitespace margin for window widths larger than this value."
:type 'integer)
@@ -618,8 +622,8 @@ PROP is the property which is looked up."
Remember `this-command' for annotation."
(let ((w (window-width)))
(setq-local marginalia-truncate-width (min (/ w 2)
marginalia-truncate-width))
- (setq-local marginalia--separator (if (> w marginalia-separator-threshold)
" " " "))
- (setq-local marginalia--margin (when (> w marginalia-margin-threshold)
+ (setq-local marginalia--separator (if (>= w
marginalia-separator-threshold) " " " "))
+ (setq-local marginalia--margin (when (>= w (+ marginalia-margin-min
marginalia-margin-threshold))
(make-string (- w
marginalia-margin-threshold) 32)))
(setq-local marginalia--this-command this-command)))
