[nongnu] elpa/hyperdrive 6aac47ee6d 3/7: Add: (-embark-hyperdrive-map) Embark minibuffer integration

[ELPA Syncer]

branch: elpa/hyperdrive
commit 6aac47ee6d9b96e0e8d5508580a0f9e859678fe7
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Add: (-embark-hyperdrive-map) Embark minibuffer integration
---
 hyperdrive.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/hyperdrive.el b/hyperdrive.el
index 7977700489..1c613df169 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1268,6 +1268,18 @@ Intended for relative (i.e. non-full) URLs."
             (rx-to-string `(or ,ffap-url-regexp (seq bos "hyper://")))
           (rx bos "hyper://"))))
 
+;;;;; Embark integration
+
+(with-eval-after-load 'embark
+  (defvar-keymap hyperdrive-embark-hyperdrive-map
+    :doc "Keymap for Embark actions on hyperdrives."
+    :parent embark-general-map
+    "h" #'hyperdrive-menu-hyperdrive
+    "p" #'hyperdrive-set-petname
+    "n" #'hyperdrive-set-nickname)
+
+  (add-to-list 'embark-keymap-alist '(hyperdrive . 
hyperdrive-embark-hyperdrive-map)))
+
 ;;;; Footer
 
 (provide 'hyperdrive)