bettter eww-auto-rename-buffer

1 files changed, 6 insertions, 1 deletions

diff --git a/eww.org b/eww.org
index bb96913..56203bc 100644
--- a/eww.org
+++ b/eww.org
@@ -131,12 +131,17 @@
                (eww-download-directory jao-sink-dir)
                (eww-header-line-format " %u")
                (eww-form-checkbox-selected-symbol "☒")
-               (eww-auto-rename-buffer 'jao-eww-buffer-title)
                (eww-buffer-name-length 180))
 
       :config
       (with-eval-after-load "org" (require 'ol-eww nil t))
 
+      (defun jao-eww-buffer-name ()
+        (when-let ((s (or (plist-get eww-data :title)
+                          (plist-get eww-data :url))))
+          (when (not (string-blank-p s)) (format "%s" s))))
+      (setq eww-auto-rename-buffer #'jao-eww-buffer-name)
+
       :bind (:map eww-mode-map (("b" . eww-back-url)
                                 ("B" . eww-forward-url)
                                 ("d" . jao-download)