diff options
Diffstat (limited to 'custom/jao-custom-completion.el')
| -rw-r--r-- | custom/jao-custom-completion.el | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/custom/jao-custom-completion.el b/custom/jao-custom-completion.el index c36dd85..c8966e1 100644 --- a/custom/jao-custom-completion.el +++ b/custom/jao-custom-completion.el @@ -262,17 +262,15 @@ (cons 'url lnk) (cons 'org-link (match-string-no-properties 0))))))) -;; (embark-define-keymap jao-embark-targets-org-link-map -;; "Actions for org links" -;; ((kbd "RET") org-open-link-from-string)) - (defun jao-embark-targets--gl-org-link () (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 -;; "Actions for exteranl org links" -;; ((kbd "RET") org-open-at-point-global)) +(defvar jao-embark-targets-gl-org-link-map + (define-keymap "RET" #'org-open-at-point-global)) + +(defvar jao-embark-targets-org-link-map + (define-keymap "RET" #'org-open-link-from-string)) (add-to-list 'embark-target-finders #'jao-embark-targets--gl-org-link) (add-to-list 'embark-keymap-alist @@ -342,11 +340,9 @@ (interactive "sURL: ") (jao-embark-targets--play-video "vlc" url)) -;; (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-vlc) -;; ("RET" jao-embark-targets-mpv)) +(defvar jao-embark-targets-video-url-map + (define-keymap "v" #'jao-embark-targets-mpv "RET" #'jao-embark-targets-mpv) + "Actions on URLs pointing to remote video streams.") (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)) |