diff options
Diffstat (limited to 'init.org')
-rw-r--r-- | init.org | 22 |
1 files changed, 15 insertions, 7 deletions
@@ -2315,16 +2315,22 @@ (shr-max-width 130) (shr-blocked-images ".*") (shr-max-image-proportion 0.9)) + :config - (defun prot-eww--rename-buffer () - (let ((name (if (eq "" (plist-get eww-data :title)) - (plist-get eww-data :url) - (plist-get eww-data :title)))) + (with-eval-after-load "org" (require 'ol-eww nil t)) + + (defun jao-eww--title () + (if (eq "" (plist-get eww-data :title)) + (plist-get eww-data :url) + (plist-get eww-data :title))) + + (defun jao-eww--rename-buffer () + (let ((name (jao-eww--title))) (rename-buffer (format "*%s # eww*" name) t))) - (add-hook 'eww-after-render-hook #'prot-eww--rename-buffer) - (advice-add 'eww-back-url :after #'prot-eww--rename-buffer) - (advice-add 'eww-forward-url :after #'prot-eww--rename-buffer) + (add-hook 'eww-after-render-hook #'jao-eww--rename-buffer) + (advice-add 'eww-back-url :after #'jao-eww--rename-buffer) + (advice-add 'eww-forward-url :after #'jao-eww--rename-buffer) (defun jao-eww--close () (interactive nil eww-mode) @@ -2353,7 +2359,9 @@ ("r" . eww-reload) ("S" . jao-eww-session-load) ("W" . jao-eww--close) + ("w" . org-eww-copy-for-org-mode) ("x" . jao-rss-subscribe) + ("y" . eww-copy-page-url) ("C-c C-w" . jao-eww--close)))) (defun jao-eww-browse-url (url &rest r) |