diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-02-13 12:18:10 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-02-13 12:18:10 +0100 |
| commit | 5baad51b6c2b4a3f1eaddc9245fe761d62c5b2b9 (patch) | |
| tree | 94b3eff18c20e2b3bea6edccb1df5ea5c7e05215 | |
| parent | 1575e42dd5aa9a10932e6f2ecd063968210c258b (diff) | |
Swap index and icon (Fix #298)swap-icon-index
| -rw-r--r-- | extensions/corfu-indexed.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el index e68770f..f44aec7 100644 --- a/extensions/corfu-indexed.el +++ b/extensions/corfu-indexed.el @@ -80,17 +80,15 @@ (fmt (concat space (propertize (format "%%%ds" width) 'face 'corfu-indexed) - space)) - (align - (propertize (make-string width ?\s) - 'display - `(space :align-to (+ left ,(1+ width)))))) + space))) (cl-loop for cand in cands for index from corfu-indexed-start do (setf (cadr cand) (concat + (cadr cand) (propertize " " 'display (format fmt index)) - align - (cadr cand)))) + (propertize (make-string width ? ) + 'display + `(space :align-to (+ left ,(+ 1 (length (cadr cand)) width))))))) (cons t cands))) (provide 'corfu-indexed) |