more eww (a discovery: org-eww-copy-for-org-mode)

1 files changed, 9 insertions, 3 deletions

diff --git a/org.org b/org.org
index ef26654..30a00f7 100644
--- a/org.org
+++ b/org.org
@@ -228,13 +228,19 @@
   #+begin_src emacs-lisp
     (require 'org-gnus nil t)
     (require 'ol-gnus nil t)
-    (require 'ol-w3m nil t)
     (require 'ol-eshell nil t)
     (require 'ol-bbdb nil t)
     (require 'ol-docview nil t)
     (require 'ol-info nil t)
-
     (setq org-link-abbrev-alist '(("jao.io" "https://jao.io/")))
+
+    (defun jao-insert-eww-link ()
+      "Look for last eww buffer and insert an org link to it."
+      (interactive)
+      (when-let (b (car (last (jao-eww-session--list-buffers))))
+        (let ((lnk (with-current-buffer b
+                     (format "[[%s][%s]]" (eww-current-url) (jao-eww--title)))))
+          (insert lnk))))
   #+end_src
 * jao-org
   #+begin_src emacs-lisp
@@ -263,7 +269,7 @@
       (define-key org-mode-map "\C-cv" 'jao-org-copy-link-at-point)
       (define-key org-mode-map [(control ?c) tab] 'org-force-cycle-archived)
       (define-key org-mode-map [(f7)] 'org-archive-to-archive-sibling)
-      (define-key org-mode-map "\C-cW" 'jao-insert-w3m-link)
+      (define-key org-mode-map "\C-cW" 'jao-insert-eww-link)
       (define-key org-mode-map "\C-c'" 'org-edit-src-code)
       (define-key org-mode-map "\C-co" 'outline-hide-other)
       (global-set-key "\C-cr" 'org-capture)