From 97b08a6dcf48b1b607b6d4b0a9f0a064c8796b5f Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 18 Nov 2020 23:40:28 +0000 Subject: minibuffer improvements --- misc/jao-minibuffer.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'misc/jao-minibuffer.el') diff --git a/misc/jao-minibuffer.el b/misc/jao-minibuffer.el index 746a925..132566a 100644 --- a/misc/jao-minibuffer.el +++ b/misc/jao-minibuffer.el @@ -27,7 +27,7 @@ (defvar jao-minibuffer-info ()) (defvar jao-minibuffer-notification nil) (defvar jao-minibuffer-align-right-p t) -(defvar jao-minibuffer-right-margin 2) +(defvar jao-minibuffer-right-margin (if window-system 0 1)) (defvar jao-minibuffer-maximized-frames-p t) (defconst jao-minibuffer--name " *Minibuf-0*") @@ -42,10 +42,11 @@ (buffer-substring (point-min) (point-max)))) (defun jao-minibuffer--aligned (&optional w currentp) - (let ((msg (string-trim (if currentp - (jao-minibuffer--current) - (format-mode-line (or jao-minibuffer-notification - jao-minibuffer-info)))))) + (let* ((msg (if currentp + (jao-minibuffer--current) + (format-mode-line (or jao-minibuffer-notification + jao-minibuffer-info)))) + (msg (propertize (string-trim msg) :minibuffer-message t))) (when (not (string-empty-p msg)) (if jao-minibuffer-align-right-p (let* ((mw (if jao-minibuffer-maximized-frames-p @@ -57,7 +58,7 @@ (concat " ยท " msg))))) (defun jao-minibuffer--set-message (msg) - (let ((msg (replace-regexp-in-string "\n" " " msg))) + (let ((msg (string-trim (replace-regexp-in-string "\n" " " msg)))) (concat msg (jao-minibuffer--aligned (length msg) t)))) ;;;###autoload @@ -84,6 +85,7 @@ (setq set-message-function #'jao-minibuffer--set-message) (setq clear-message-function #'jao-minibuffer-refresh) +(setq resize-mini-windows nil) (provide 'jao-minibuffer) ;;; jao-minibuffer.el ends here -- cgit v1.2.3