Begin customizing embark

init.el

@@ -913,13 +913,16 @@ See also `crux-reopen-as-root-mode'."
 (setup (:straight elpher))
 
 (setup (:straight embark)
+  (:also-load +embark)
   (:option prefix-help-command 'embark-prefix-help-command
            embark-keymap-prompter-key ";")
   (:+key "C-." #'embark-act
          "M-." #'embark-dwim
          "<f1> B" #'embark-bindings)
   (:with-map minibuffer-local-map
-    (:bind "C-." #'embark-act)))
+    (:bind "C-." #'embark-act))
+  (:with-map embark-file-map
+    (:bind "l" #'vlf)))
 
 (setup (:straight embark-consult)
   (:load-after consult embark)

lisp/+embark.el

@@ -0,0 +1,28 @@
+;;; +embark.el -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; https://github.com/oantolin/embark/wiki/Additional-Actions
+
+;;; Code:
+
+(require 'embark)
+(require 'marginalia)
+
+(embark-define-keymap embark-straight-map
+  ("u" straight-visit-package-website)
+  ("r" straight-get-recipe)
+  ("i" straight-use-package)
+  ("c" straight-check-package)
+  ("F" straight-pull-package)
+  ("f" straight-fetch-package)
+  ("p" straight-push-package)
+  ("n" straight-normalize-package)
+  ("m" straight-merge-package))
+
+(add-to-list 'embark-keymap-alist '(straight . embark-straight-map))
+
+(add-to-list 'marginalia-prompt-categories '("recipe\\|package" . straight))
+
+(provide '+embark)
+;;; +embark.el ends here