From 6d3ec24bf7ab3b363ba9062e3792c670f4977fa4 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 9 Nov 2021 02:16:12 +0000 Subject: org: fix for jao-insert-eww-link --- org.org | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'org.org') 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 -- cgit v1.2.3