[elpa] externals/embark eb552ca182 1/4: Add bindings for VC file actions

[ELPA Syncer]

branch: externals/embark
commit eb552ca182affd78d452ad46ac8b6fcb8ce99761
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: Omar Antolín Camarena <omar.antolin@gmail.com>

    Add bindings for VC file actions
    
    Here "VC file actions" means VC commands that prompt for a file name
    to act on rather than acting on the current buffer.
---
 embark.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index f5157c6b5c..12e242583b 100644
--- a/embark.el
+++ b/embark.el
@@ -3840,6 +3840,15 @@ and leaves the point to the left of it."
   ("s" 'embark-sort-map)
   (">" 'embark-encode-map))
 
+(embark-define-keymap embark-vc-file-map
+  "Keymap for Embark VC file actions."
+  :parent nil
+  ("d" vc-delete-file)
+  ("r" vc-rename-file)
+  ("i" vc-ignore-file))
+
+(fset 'embark-vc-file-map embark-vc-file-map)
+
 (embark-define-keymap embark-file-map
   "Keymap for Embark file actions."
   ("RET" find-file)
@@ -3862,7 +3871,8 @@ and leaves the point to the left of it."
   ("W" embark-save-relative-path)
   ("l" load-file)
   ("b" byte-compile-file)
-  ("R" byte-recompile-directory))
+  ("R" byte-recompile-directory)
+  ("v" 'embark-vc-file-map))
 
 (embark-define-keymap embark-kill-ring-map
   "Keymap for `kill-ring' commands."
@@ -4097,7 +4107,8 @@ and leaves the point to the left of it."
   ("b" switch-to-buffer)
   ("4b" switch-to-buffer-other-window)
   ("l" locate)
-  ("L" find-library))
+  ("L" find-library)
+  ("v" vc-dir))
 
 (embark-define-keymap embark-become-shell-command-map
   "Embark become keymap for shell commands."