jao-minibuffer: configurable fixed frame width (for exwm)

1 files changed, 5 insertions, 4 deletions

diff --git a/sys/jao-minibuffer.el b/sys/jao-minibuffer.el
index ed31af9..4d3104c 100644
--- a/sys/jao-minibuffer.el
+++ b/sys/jao-minibuffer.el
@@ -29,6 +29,7 @@
 (defvar jao-minibuffer-align-right-p t)
 (defvar jao-minibuffer-right-margin (if window-system 0 1))
 (defvar jao-minibuffer-maximized-frames-p nil)
+(defvar jao-minibuffer-frame-width nil)
 (defvar jao-minibuffer-notification-timeout 5)
 (defvar jao-minibuffer-enabled-p t)
 
@@ -44,12 +45,12 @@
     (buffer-substring (point-min) (point-max))))
 
 (defun jao-minibuffer--width ()
-  (if jao-minibuffer-maximized-frames-p
-      (frame-width)
-    (window-width (minibuffer-window))))
+  (cond ((numberp jao-minibuffer-frame-width) jao-minibuffer-frame-width)
+        (jao-minibuffer-maximized-frames-p (frame-width))
+        (t (min (frame-width) (window-width (minibuffer-window))))))
 
 (defun jao-minibuffer--format-info ()
-  (mapconcat 'identity
+  (mapconcat 'string-trim
              (seq-filter (lambda (s) (not (string-blank-p s)))
                          (mapcar 'format-mode-line
                                  (if jao-minibuffer-align-right-p