From f0f031fafef6fabc84cff4a427ba08c1f48291d0 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 6 Jan 2022 23:21:59 -0600
Subject: Begin customizing embark

---
 init.el         |  5 ++++-
 lisp/+embark.el | 28 ++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+), 1 deletion(-)
 create mode 100644 lisp/+embark.el

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'."
 (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)
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 @@
+;;; +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
-- 
cgit 1.4.1-21-gabe81