summaryrefslogtreecommitdiffhomepage
path: root/misc/jao-minibuffer.el
diff options
context:
space:
mode:
Diffstat (limited to 'misc/jao-minibuffer.el')
-rw-r--r--misc/jao-minibuffer.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/misc/jao-minibuffer.el b/misc/jao-minibuffer.el
index 9f28390..e55e5a2 100644
--- a/misc/jao-minibuffer.el
+++ b/misc/jao-minibuffer.el
@@ -28,7 +28,7 @@
(defvar jao-minibuffer-align-right-p t)
(defvar jao-minibuffer-right-margin 2)
-;; (setq jao-minibuffer-align-right-p t)
+(defconst jao-minibuffer--name " *Minibuf-0*")
(defun jao-minibuffer--trim (s w)
(if (<= (length s) w)
@@ -39,7 +39,8 @@
(let ((msg (format-mode-line jao-minibuffer-info)))
(when (not (string-empty-p msg))
(if jao-minibuffer-align-right-p
- (let ((w (- (frame-width) (or w 0) jao-minibuffer-right-margin)))
+ (let* ((mw (window-width (minibuffer-window)))
+ (w (- mw (or w 0) jao-minibuffer-right-margin)))
(if (> w 0) (jao-minibuffer--trim msg w) ""))
(concat " ยท " msg)))))
@@ -56,7 +57,7 @@
;;;###autoload
(defun jao-minibuffer-refresh ()
(interactive "")
- (with-current-buffer " *Minibuf-0*"
+ (with-current-buffer jao-minibuffer--name
(erase-buffer)
(insert (jao-minibuffer--aligned))))