branch: externals/marginalia
commit 206518b97c92468dc022a41007d455b36139a9b6
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
add marginalia-align-offset
Introduce customizable variable to fix the issue described in #42.
cc @terlar
---
marginalia.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/marginalia.el b/marginalia.el
index 3d8fb5b..a2635ac 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -49,6 +49,15 @@ 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)
+;; See https://github.com/minad/marginalia/issues/42 for the discussion
+;; regarding the alignment.
+(defcustom marginalia-align-offset 0
+ "Additional offset at the right margin used by `marginalia--align'.
+
+This value should be set to 1 or a larger value if the annotations
+wrap at the right margin."
+ :type 'integer)
+
(defcustom marginalia-margin-min 8
"Minimum whitespace margin at the right side."
:type 'integer)
@@ -267,9 +276,7 @@ determine it."
(propertize
" "
'display
- ;; See https://github.com/minad/marginalia/issues/42 for the
discussion
- ;; regarding the alignment expression.
- `(space :align-to (- right ,(if (eq right-fringe-width 0) 1 0)
,(length str))))
+ `(space :align-to (- right ,marginalia-align-offset ,(length
str))))
str)))
(cl-defmacro marginalia--field (field &key truncate format face width)
