diff options
| author | jao <jao@gnu.org> | 2021-10-16 21:51:15 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-16 21:51:15 +0100 |
| commit | 190473bf7cda9a1c5e4ed44c5a32c9c6fddf4098 (patch) | |
| tree | 29018fd3b87a118a912f97032094db03aeba3dfa | |
| parent | 0147827174ef6402d43c561238810ec1a2bd97b0 (diff) | |
| download | elibs-190473bf7cda9a1c5e4ed44c5a32c9c6fddf4098.tar.gz elibs-190473bf7cda9a1c5e4ed44c5a32c9c6fddf4098.tar.bz2 | |
tweaks to embark targets
| -rw-r--r-- | completion.org | 8 |
1 files changed, 4 insertions, 4 deletions
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)) |