From 64087b0f9620c0273d5258430f4c1f73b783f49f Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 20 May 2021 02:49:18 +0100 Subject: jao-minibuffer: eww title in mode line --- lib/eos/jao-minibuffer.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'lib/eos') diff --git a/lib/eos/jao-minibuffer.el b/lib/eos/jao-minibuffer.el index 52f3fcc..bd52b30 100644 --- a/lib/eos/jao-minibuffer.el +++ b/lib/eos/jao-minibuffer.el @@ -102,7 +102,8 @@ (defconst jao-minibuffer--circe '(circe-chat-target (:eval (format " [%d]" (length (circe-channel-nicks)))))) -(defvar w3m-current-title nil) +(defvar-local w3m-current-title nil) +(defvar-local eww-data nil) (defvar jao-minibuffer--mode-line-format `("%[" @@ -110,6 +111,7 @@ 'gnus-article-mode 'gnus-summary-mode) mode-line-buffer-identification) + ((not (null eww-data)) (plist-get eww-data :title)) (w3m-current-title) (t "%b"))) "%] %*%+ " @@ -140,6 +142,8 @@ (defun jao-minibuffer-add-mode-line (order) (setq jao-minibuffer--original-modeline mode-line-format) (setq-default mode-line-format '(" ")) + (dolist (b (buffer-list)) + (with-current-buffer b (setq-local mode-line-format '(" ")))) (set-face-attribute 'mode-line nil :box nil :height 1 :background jao-minibuffer-active-buffer-line-color) (set-face-attribute 'mode-line-inactive nil :box nil :height 1 @@ -159,7 +163,8 @@ ;;;###autoload (defun jao-minibuffer-refresh (&rest _ignore) (interactive) - (when jao-minibuffer-enabled-p + (when (and jao-minibuffer-enabled-p + (not (bound-and-true-p current-minibuffer-command))) (let* ((jao-minibuffer-enabled-p nil) (msg (jao-minibuffer--format-info jao-minibuffer-msg-info)) (msg (jao-minibuffer--format-msg (or msg "")))) -- cgit v1.2.3