branch: elpa/minibar
commit 2bf88ae60a2c97990a68c22a4574f7f580c1af2b
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@disroot.org>
While updating, don't exit on input, that doesn't work on Emacs 28
---
minibar.el | 68 ++++++++++++++++++++++++++++++--------------------------------
1 file changed, 33 insertions(+), 35 deletions(-)
diff --git a/minibar.el b/minibar.el
index 9c1be83056..26cf9d354b 100644
--- a/minibar.el
+++ b/minibar.el
@@ -91,43 +91,41 @@ string to display, or nil in case there is to show."
(mapconcat #'identity (delete nil (mapcar #'funcall modules))
minibar-module-separator))
-;;;###autoload
(defun minibar--update ()
"Update Minibar."
- (while-no-input
- (with-temp-buffer
- (let ((bar "")
- (width (frame-width (window-frame (minibuffer-window))))
- (left (minibar--render-group
- minibar-group-left))
- (middle (minibar--render-group
- minibar-group-middle))
- (right (minibar--render-group
- minibar-group-right)))
-
- ;; HACK: Emacs doesn't show the last character on terminal, so
- ;; decrease the width by one in that case.
- (unless (display-graphic-p)
- (setq width (1- width)))
- (unless (zerop (length left))
- (setq bar (concat left minibar-group-separator)))
- (unless (zerop (length middle))
- (setq bar (concat bar (make-list
- (max 0 (- (/ (- width (length middle)) 2)
- (length bar)))
- ? )
- middle minibar-group-separator)))
- (unless (zerop (length right))
- (setq bar (concat bar (make-list
- (max 0 (- width (length right)
- (length bar)))
- ? )
- right)))
- (let ((text (format (format "%%-%i.%is" width width) bar)))
- (add-face-text-property 0 width 'minibar-face t text)
- (with-current-buffer (get-buffer-create " *Minibuf-0*")
- (erase-buffer)
- (insert text)))))))
+ (with-temp-buffer
+ (let ((bar "")
+ (width (frame-width (window-frame (minibuffer-window))))
+ (left (minibar--render-group
+ minibar-group-left))
+ (middle (minibar--render-group
+ minibar-group-middle))
+ (right (minibar--render-group
+ minibar-group-right)))
+
+ ;; HACK: Emacs doesn't show the last character on terminal, so
+ ;; decrease the width by one in that case.
+ (unless (display-graphic-p)
+ (setq width (1- width)))
+ (unless (zerop (length left))
+ (setq bar (concat left minibar-group-separator)))
+ (unless (zerop (length middle))
+ (setq bar (concat bar (make-list
+ (max 0 (- (/ (- width (length middle)) 2)
+ (length bar)))
+ ? )
+ middle minibar-group-separator)))
+ (unless (zerop (length right))
+ (setq bar (concat bar (make-list
+ (max 0 (- width (length right)
+ (length bar)))
+ ? )
+ right)))
+ (let ((text (format (format "%%-%i.%is" width width) bar)))
+ (add-face-text-property 0 width 'minibar-face t text)
+ (with-current-buffer (get-buffer-create " *Minibuf-0*")
+ (erase-buffer)
+ (insert text))))))
;;;###autoload
(define-minor-mode minibar-mode
