diff options
| -rw-r--r-- | org.org | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -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 |