diff options
| author | jao <jao@gnu.org> | 2025-09-21 21:27:00 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2025-09-21 21:27:00 +0100 |
| commit | 3e78e4be20183ad690e85ba7052b9495dfa649f2 (patch) | |
| tree | b7998af3ad8fde337147f2af646a48e04d3de50a /lib/eos/jao-minibuffer.el | |
| parent | 6ad38bd07671c171d2434f1fd5f5581604816906 (diff) | |
| download | elibs-3e78e4be20183ad690e85ba7052b9495dfa649f2.tar.gz elibs-3e78e4be20183ad690e85ba7052b9495dfa649f2.tar.bz2 | |
jao-minibuffer: minor mode for info in mode line instead of minibuffer
Diffstat (limited to 'lib/eos/jao-minibuffer.el')
| -rw-r--r-- | lib/eos/jao-minibuffer.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el index 6cd5b24..b12ed71 100644 --- a/lib/eos/jao-minibuffer.el +++ b/lib/eos/jao-minibuffer.el @@ -92,10 +92,11 @@ (or (and (string= jao-minibuffer--name (or (buffer-name) "")) msg) jao-minibuffer-inhibit (let* ((info (and jao-minibuffer-msg-info - (jao-minibuffer--format-info jao-minibuffer-msg-info))) + (jao-minibuffer--format-info + jao-minibuffer-msg-info))) (info (or (and info msg (propertize info 'face 'jao-themes-dimm)) info)) - (sep (if msg " - " "")) + (sep (if (string-empty-p info) "" " - ")) (pref (when info (let ((len (+ (string-width info) (string-width sep)))) (format (format "\n%%%ds" len) "")))) @@ -164,5 +165,13 @@ (not jao-minibuffer-adaptive-alignment)) (jao-minibuffer-refresh)) +(define-minor-mode jao-minibuffer-mode-line-mode + "Show info in mode line instead of minibuffer" + :global t :lighter "" :group 'jao + (let ((e '(" " (:eval jao-minibuffer-info)))) + (if jao-minibuffer-mode-line-mode + (add-to-list 'global-mode-string e) + (setq global-mode-string (delete e global-mode-string))))) + (provide 'jao-minibuffer) ;;; jao-minibuffer.el ends here |