jao-minibuffer: minor mode for info in frame title instead of minibuffermain

2 files changed, 12 insertions, 1 deletions

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