org: fix for jao-insert-eww-link

1 files changed, 12 insertions, 2 deletions

diff --git a/org.org b/org.org
index 34d68e4..1b4a8b9 100644
--- a/org.org
+++ b/org.org
@@ -233,9 +233,11 @@
     (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))))
+      (when-let (b (car (jao-eww-session--list-buffers)))
         (let ((lnk (with-current-buffer b
-                     (format "[[%s][%s]]" (eww-current-url) (jao-eww--title)))))
+                     (format "[[%s][%s]]"
+                             (eww-current-url)
+                             (jao-eww-buffer-title)))))
           (insert lnk))))
 
     (use-package jao-org-links
@@ -277,10 +279,18 @@
       (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-cE" 'jao-insert-eww-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)
       (global-set-key "\C-c\C-l" 'org-store-link)
       ;; (global-set-key "\C-cL" 'org-insert-link-global)
       (global-set-key "\C-cO" 'org-open-at-point-global)
+
+      (jao-transient-major-mode+ org
+        ["Links"
+         ("le" "insert current eww link" jao-insert-eww-link)
+         ("lf" "insert link from clipboard" org-cliplink)
+         ("lc" "copy link at point" jao-org-copy-link-at-point)])
+
     #+end_src