emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/vertico b8a408c5ae: vertico-buffer: Simplify mode line


From: ELPA Syncer
Subject: [elpa] externals/vertico b8a408c5ae: vertico-buffer: Simplify mode line
Date: Thu, 28 Dec 2023 06:58:43 -0500 (EST)

branch: externals/vertico
commit b8a408c5ae150bc117cd940f6a7f814dab6b15aa
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-buffer: Simplify mode line
---
 extensions/vertico-buffer.el | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/extensions/vertico-buffer.el b/extensions/vertico-buffer.el
index d66d318a15..aafc12c9b2 100644
--- a/extensions/vertico-buffer.el
+++ b/extensions/vertico-buffer.el
@@ -146,15 +146,11 @@
                      face-remapping-alist (copy-tree `((mode-line-inactive 
mode-line)
                                                        ,@face-remapping-alist))
                      mode-line-format
-                     (list (format " %s "
-                                   (propertize
+                     (list (format  #(" %s%s " 1 3 (face mode-line-buffer-id))
+                                    (replace-regexp-in-string ":? *\\'" ""
+                                                              
(minibuffer-prompt))
                                     (let ((depth (recursion-depth)))
-                                      (format (if (< depth 2) "*%s*" "*%s 
[%s]*")
-                                              (replace-regexp-in-string
-                                               ":? *\\'" ""
-                                               (minibuffer-prompt))
-                                              depth))
-                                    'face 'mode-line-buffer-id)))
+                                      (if (< depth 2) "" (format " [%s]" 
depth)))))
                      vertico-count (- (/ (window-pixel-height win)
                                          (default-line-height)) 2))))
     (set-window-parameter win 'no-other-window t)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]