about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-01-06 23:21:59 -0600
committerCase Duckworth2022-01-06 23:21:59 -0600
commitf0f031fafef6fabc84cff4a427ba08c1f48291d0 (patch)
tree15251fc591613a3260aba42f90abf5ac8948d29e
parentLots of other changes (diff)
downloademacs-f0f031fafef6fabc84cff4a427ba08c1f48291d0.tar.gz
emacs-f0f031fafef6fabc84cff4a427ba08c1f48291d0.zip
Begin customizing embark
-rw-r--r--init.el5
-rw-r--r--lisp/+embark.el28
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