diff options
| author | jao <jao@gnu.org> | 2024-03-31 05:30:59 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-03-31 05:30:59 +0100 |
| commit | d431600144b54eac44a3f43289b64cf573ae0561 (patch) | |
| tree | 12857823289205a74c810d6eb4db0a6438394197 | |
| parent | efa7686817c301b5c5bf3d1c4684c0000a106fbb (diff) | |
| download | elibs-d431600144b54eac44a3f43289b64cf573ae0561.tar.gz elibs-d431600144b54eac44a3f43289b64cf573ae0561.tar.bz2 | |
jao-minibuffer: multi-line messages with message info
| -rw-r--r-- | lib/eos/jao-minibuffer.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el index 2286fc5..529ed5f 100644 --- a/lib/eos/jao-minibuffer.el +++ b/lib/eos/jao-minibuffer.el @@ -95,6 +95,10 @@ (info (or (and info msg (propertize info 'face 'jao-themes-dimm)) info)) (sep (if msg " - " "")) + (pref (when info + (let ((len (+ (length info) (length sep)))) + (format (format "\n%%%ds" len) "")))) + (msg (if pref (replace-regexp-in-string "\n" pref msg) msg)) (msg (if info (format "%s%s%s " info sep (or msg "")) msg))) (jao-minibuffer--format-msg (or msg "")))))) |