From 190473bf7cda9a1c5e4ed44c5a32c9c6fddf4098 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 16 Oct 2021 21:51:15 +0100 Subject: tweaks to embark targets --- completion.org | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'completion.org') diff --git a/completion.org b/completion.org index afb4ef6..8ce617f 100644 --- a/completion.org +++ b/completion.org @@ -332,7 +332,7 @@ (defun jao-embark-targets--org-link () (when (derived-mode-p 'org-mode) - (when (org-in-regexp org-link-any-re) + (when (org-in-regexp org-link-bracket-re) (let ((lnk (match-string-no-properties 2))) (if (string-match-p "https?://.+" (or lnk "")) (cons 'url lnk) @@ -343,7 +343,7 @@ ((kbd "RET") org-open-link-from-string)) (defun jao-embark-targets--gl-org-link () - (when (org-in-regexp org-link-any-re) + (when (org-in-regexp org-link-bracket-re) (cons 'gl-org-link (match-string-no-properties 0)))) (embark-define-keymap jao-embark-targets-gl-org-link-map @@ -423,8 +423,8 @@ (embark-define-keymap jao-embark-targets-video-url-map "Actions on URLs pointing to remote video streams." :parent embark-url-map - ("v" jao-embark-targets-mpv) - ("RET" jao-embark-targets-vlc)) + ("v" jao-embark-targets-vlc) + ("RET" jao-embark-targets-mpv)) (add-to-list 'embark-transformer-alist '(url . jao-embark-targets--refine-url)) (add-to-list 'embark-keymap-alist '(video-url . jao-embark-targets-video-url-map)) -- cgit v1.2.3