Add `M-D` binding to delete elements for `helm-show-kill-ring`

1 files changed, 18 insertions, 6 deletions

diff --git a/helm-ring.el b/helm-ring.el
index 5f806bdc..dbd8731b 100644
--- a/helm-ring.el
+++ b/helm-ring.el
@@ -49,10 +49,7 @@ If nil or zero (disabled), don't truncate candidate, show all."
 
 (defcustom helm-kill-ring-actions
   '(("Yank" . helm-kill-ring-action)
-    ("Delete" . (lambda (_candidate)
-                  (cl-loop for cand in (helm-marked-candidates)
-                           do (setq kill-ring
-                                    (delete cand kill-ring))))))
+    ("Delete" . helm-kill-ring-action-delete))
   "List of actions for kill ring source."
   :group 'helm-ring
   :type '(alist :key-type string :value-type function))
@@ -64,8 +61,9 @@ If nil or zero (disabled), don't truncate candidate, show all."
 (defvar helm-kill-ring-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map helm-map)
-    (define-key map (kbd "M-y") 'helm-next-line)
-    (define-key map (kbd "M-u") 'helm-previous-line)
+    (define-key map (kbd "M-y") #'helm-next-line)
+    (define-key map (kbd "M-u") #'helm-previous-line)
+    (define-key map (kbd "M-D") #'helm-kill-ring-delete)
     map)
   "Keymap for `helm-show-kill-ring'.")
 
@@ -143,6 +141,20 @@ replace with STR as yanked string."
                        (set-marker (mark-marker) (point) helm-current-buffer))))))
     (kill-new str)))
 
+(defun helm-kill-ring-action-delete (_candidate)
+  "Delete marked candidates from `kill-ring'."
+  (cl-loop for c in (helm-marked-candidates)
+           do (setq kill-ring
+                    (delete c kill-ring))))
+
+(defun helm-kill-ring-delete ()
+  "Delete marked candidates from `kill-ring'.
+
+This is a command for `helm-kill-ring-map'."
+  (interactive)
+  (with-helm-alive-p
+    (helm-exit-and-execute-action 'helm-kill-ring-action-delete)))
+
 
 ;;;; <Mark ring>
 ;; DO NOT use these sources with other sources use