diff options
| author | jao <jao@gnu.org> | 2021-03-27 15:29:05 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-03-27 15:29:05 +0000 |
| commit | 0781eac694e6f836e5d5539d3a74a8cc8ee90338 (patch) | |
| tree | 29f41a4a14d21667bdfd2f9bee2a56ecb1d44c0f /init.org | |
| parent | a6de555d6abec35a5e00c6e133c5178107cb7394 (diff) | |
| download | elibs-0781eac694e6f836e5d5539d3a74a8cc8ee90338.tar.gz elibs-0781eac694e6f836e5d5539d3a74a8cc8ee90338.tar.bz2 | |
more eww (a discovery: org-eww-copy-for-org-mode)
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) |