Skip to content

Commit 89e3dee

Browse files
eaf-open-url-at-point support org-mode link.
1 parent 43446d3 commit 89e3dee

File tree

1 file changed

+8
-1
lines changed

1 file changed

+8
-1
lines changed

eaf-browser.el

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -749,7 +749,14 @@ Otherwise send key 'esc' to browser."
749749
(defun eaf-open-url-at-point ()
750750
"Open URL at current point by EAF browser."
751751
(interactive)
752-
(eaf-open-browser (browse-url-url-at-point)))
752+
(eaf-open-browser (eaf-pick-url-under-cursor)))
753+
754+
(defun eaf-pick-url-under-cursor ()
755+
(if (eq major-mode 'org-mode)
756+
(let ((object (org-element-context)))
757+
(when (eq (car object) 'link)
758+
(org-element-property :raw-link object)))
759+
(browse-url-url-at-point)))
753760

754761
(defun eaf-toggle-proxy()
755762
"Toggle proxy to none or default proxy."

0 commit comments

Comments
 (0)