From aa66053af17e4dcb91284fe18f1264949da4f657 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 22 Sep 2025 01:51:30 +0100 Subject: jao-minibuffer: minor mode for info in frame title instead of minibuffer --- init.el | 2 +- lib/eos/jao-minibuffer.el | 11 +++++++++++ 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 3dbe91e..0d99145 100644 --- a/init.el +++ b/init.el @@ -518,7 +518,7 @@ (minibuffer-electric-default-mode 1) (jao-d-l - (jao-minibuffer-mode-line-mode) + (jao-minibuffer-frame-title-mode) (jao-minibuffer-mode)) ;;; Mode line diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el index b12ed71..05750ca 100644 --- a/lib/eos/jao-minibuffer.el +++ b/lib/eos/jao-minibuffer.el @@ -173,5 +173,16 @@ (add-to-list 'global-mode-string e) (setq global-mode-string (delete e global-mode-string))))) +(defvar jao-minibuffer--title-format nil) + +(define-minor-mode jao-minibuffer-frame-title-mode + "Show info in frame title instead of minibuffer" + :global t :lighter "" :group 'jao + (when (not jao-minibuffer--title-format) + (setq jao-minibuffer--title-format frame-title-format)) + (if jao-minibuffer-frame-title-mode + (setq frame-title-format '("emacs - " (:eval jao-minibuffer-info))) + (setq frame-title-format jao-minibuffer--title-format))) + (provide 'jao-minibuffer) ;;; jao-minibuffer.el ends here -- cgit v1.2.3