From 1843941d9eabbcf33dddbc41ddbe60c4001fb865 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 11 Nov 2023 23:08:58 +0000 Subject: embark link: simpler detection of org links --- custom/jao-custom-completion.el | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el index 0151de5..235161c 100644 --- a/custom/jao-custom-completion.el +++ b/custom/jao-custom-completion.el @@ -257,11 +257,8 @@ (defun jao-embark-targets--org-link () (when (derived-mode-p 'org-mode) - (when (org-in-regexp org-link-bracket-re) - (let ((lnk (match-string-no-properties 1))) - (if (string-match-p "https?://.+" (or lnk "")) - (cons 'url lnk) - (cons 'org-link (match-string-no-properties 0))))))) + (let ((lnk (org-element-property :raw-link (org-element-context)))) + (and lnk (cons 'org-link lnk))))) (defun jao-embark-targets--gl-org-link () (when (org-in-regexp org-link-bracket-re) -- cgit v1.2.3