branch: externals/vertico
commit c3b788b6bea10e3493ebc05a96bbde294824cff6
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
vertico-flat-format: Add :spacer (Fix #571)
---
CHANGELOG.org | 4 ++++
extensions/vertico-flat.el | 5 +++--
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/CHANGELOG.org b/CHANGELOG.org
index 028cdb5d8e..e76c465db4 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,10 @@
#+author: Daniel Mendler
#+language: en
+* Development
+
+- =vertico-flat-format=: Customizable =:spacer= string.
+
* Version 2.0 (2025-03-11)
- ~vertico-directory-tidy~: Cleanup shadowed path more aggressively.
diff --git a/extensions/vertico-flat.el b/extensions/vertico-flat.el
index 717f34a8f3..a3c95a19ec 100644
--- a/extensions/vertico-flat.el
+++ b/extensions/vertico-flat.el
@@ -56,7 +56,8 @@
3 4 (face minibuffer-prompt))
:separator #(" | " 0 3 (face minibuffer-prompt))
:ellipsis #("…" 0 1 (face minibuffer-prompt))
- :no-match "[No match]")
+ :no-match "[No match]"
+ :spacer #(" " 0 1 (cursor t)))
"Formatting strings."
:type 'plist
:group 'vertico)
@@ -91,7 +92,7 @@
(move-overlay vertico--candidates-ov (point-max) (point-max))
(overlay-put
vertico--candidates-ov 'after-string
- (concat #(" " 0 1 (cursor t))
+ (concat (plist-get vertico-flat-format :spacer)
(cond
((and (not candidates) (plist-get vertico-flat-format :no-match)))
((and (= vertico--total 1) (= vertico--index 0)
