diff options
-rw-r--r-- | init.el | 5 | ||||
-rw-r--r-- | lisp/+embark.el | 28 |
2 files changed, 32 insertions, 1 deletions
diff --git a/init.el b/init.el index 5fab995..bac9a54 100644 --- a/init.el +++ b/init.el | |||
@@ -913,13 +913,16 @@ See also `crux-reopen-as-root-mode'." | |||
913 | (setup (:straight elpher)) | 913 | (setup (:straight elpher)) |
914 | 914 | ||
915 | (setup (:straight embark) | 915 | (setup (:straight embark) |
916 | (:also-load +embark) | ||
916 | (:option prefix-help-command 'embark-prefix-help-command | 917 | (:option prefix-help-command 'embark-prefix-help-command |
917 | embark-keymap-prompter-key ";") | 918 | embark-keymap-prompter-key ";") |
918 | (:+key "C-." #'embark-act | 919 | (:+key "C-." #'embark-act |
919 | "M-." #'embark-dwim | 920 | "M-." #'embark-dwim |
920 | "<f1> B" #'embark-bindings) | 921 | "<f1> B" #'embark-bindings) |
921 | (:with-map minibuffer-local-map | 922 | (:with-map minibuffer-local-map |
922 | (:bind "C-." #'embark-act))) | 923 | (:bind "C-." #'embark-act)) |
924 | (:with-map embark-file-map | ||
925 | (:bind "l" #'vlf))) | ||
923 | 926 | ||
924 | (setup (:straight embark-consult) | 927 | (setup (:straight embark-consult) |
925 | (:load-after consult embark) | 928 | (:load-after consult embark) |
diff --git a/lisp/+embark.el b/lisp/+embark.el new file mode 100644 index 0000000..3900492 --- /dev/null +++ b/lisp/+embark.el | |||
@@ -0,0 +1,28 @@ | |||
1 | ;;; +embark.el -*- lexical-binding: t; -*- | ||
2 | |||
3 | ;;; Commentary: | ||
4 | |||
5 | ;; https://github.com/oantolin/embark/wiki/Additional-Actions | ||
6 | |||
7 | ;;; Code: | ||
8 | |||
9 | (require 'embark) | ||
10 | (require 'marginalia) | ||
11 | |||
12 | (embark-define-keymap embark-straight-map | ||
13 | ("u" straight-visit-package-website) | ||
14 | ("r" straight-get-recipe) | ||
15 | ("i" straight-use-package) | ||
16 | ("c" straight-check-package) | ||
17 | ("F" straight-pull-package) | ||
18 | ("f" straight-fetch-package) | ||
19 | ("p" straight-push-package) | ||
20 | ("n" straight-normalize-package) | ||
21 | ("m" straight-merge-package)) | ||
22 | |||
23 | (add-to-list 'embark-keymap-alist '(straight . embark-straight-map)) | ||
24 | |||
25 | (add-to-list 'marginalia-prompt-categories '("recipe\\|package" . straight)) | ||
26 | |||
27 | (provide '+embark) | ||
28 | ;;; +embark.el ends here | ||