diff options
| author | jao <jao@gnu.org> | 2021-02-09 23:37:06 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-02-09 23:37:06 +0000 |
| commit | fbd1bdbf613bc4e7cd2dbdbf6e819f3606c0b987 (patch) | |
| tree | 85ed5ea6ea6cbddfc80115e9db45cdc5dabfea94 /consult.org | |
| parent | fb2f12004d87ed16ea0de5827d5337499bb3f664 (diff) | |
| download | elibs-fbd1bdbf613bc4e7cd2dbdbf6e819f3606c0b987.tar.gz elibs-fbd1bdbf613bc4e7cd2dbdbf6e819f3606c0b987.tar.bz2 | |
embark: direct binding for default action
Diffstat (limited to 'consult.org')
| -rw-r--r-- | consult.org | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/consult.org b/consult.org index a9193fd..34e015f 100644 --- a/consult.org +++ b/consult.org @@ -131,9 +131,16 @@ (use-package embark :ensure t :custom ((embark-quit-after-action nil)) + :config (defun embark-default-action () + (interactive) + (pcase-let ((`(,type . ,target) (embark--target))) + (embark--act (embark--default-action type) target))) + :bind (("C-;" . embark-act) + ("C-'" . embark-default-action) (:map minibuffer-local-map - (("C-," . embark-become) + (("C-'" . embark-default-action) + ("C-," . embark-become) ("C-o" . embark-export))))) (use-package embark-consult @@ -242,14 +249,14 @@ #+end_src *** video url targets #+begin_src emacs-lisp - (defvar jao-embark-targets-video-url-rx + (defvar jao-embark-targets-video-sites + '("youtu.be" "youtube.com" "blip.tv" "vimeo.com" "infoq.com")) + + (defun jao-embark--video-url-rx (&optional sites) (format "^https?://\\(?:www\\.\\)?%s/.+" - (regexp-opt '("youtu.be" - "youtube.com" - "blip.tv" - "vimeo.com" - "infoq.com") - t)) + (regexp-opt (or sites jao-embark-targets-video-sites) t))) + + (defvar jao-embark-targets-video-url-rx (jao-embark--video-url-rx) "A regular expression matching URLs that point to video streams") (defun jao-embark-targets--refine-url (url) @@ -275,8 +282,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-vlc) - ("m" jao-embark-targets-mpv)) + ("RET" jao-embark-targets-mpv) + ("v" jao-embark-targets-vlc)) (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)) |