missing eww bits

1 files changed, 6 insertions, 0 deletions

diff --git a/eww.org b/eww.org
index 3801215..676e4df 100644
--- a/eww.org
+++ b/eww.org
@@ -32,6 +32,12 @@
   #+end_src
 * Opening URLs
   #+begin_src emacs-lisp
+    (defun jao-eww-copy-link ()
+      (interactive)
+      (when-let (lnk (or (car (eww-links-at-point)) (eww-current-url)))
+        (message "%s" lnk)
+        (kill-new lnk)))
+
     (defun jao-eww-browse (arg)
         (interactive "P" eww-mode)
         (setq eww-prompt-history