[nongnu] elpa/evil-goggles 87722a5b46 210/225: Add hint for `D`

[ELPA Syncer]

branch: elpa/evil-goggles
commit 87722a5b467714531dc3e2177d76beb326dfcf21
Author: Evgeni Kolev <evgenysw@gmail.com>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    Add hint for `D`
---
 evil-goggles.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/evil-goggles.el b/evil-goggles.el
index 8741cc2e20..cd5b09a64c 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -369,6 +369,16 @@ which take BEG and END as their second and third 
arguments."
     evil-goggles-enable-delete "If non-nil, enable delete support"
     evil-goggles-delete-face "Face for delete action")
 
+(defun evil-goggles--delete-line-advice (beg end &rest _)
+  "Advice for `evil-delete-line'.
+
+BEG and END are the argumenets to the original functions."
+  (let ((beg (or beg (point)))
+        (end (or end (line-end-position))))
+    (when (and (called-interactively-p 'interactive)
+               (evil-goggles--show-p beg end))
+      (evil-goggles--show-blocking-hint beg end))))
+
 ;;; yank
 
 (evil-goggles--define-switch-and-face
@@ -516,6 +526,7 @@ Argument YANK-HANDLER is the yank hanler."
 
 (defvar evil-goggles--commands
   '((evil-delete                :face evil-goggles-delete-face                
:switch evil-goggles-enable-delete                :advice 
evil-goggles--generic-blocking-advice)
+    (evil-delete-line           :face evil-goggles-delete-face                
:switch evil-goggles-enable-delete                :advice 
evil-goggles--delete-line-advice)
     (evil-yank                  :face evil-goggles-yank-face                  
:switch evil-goggles-enable-yank                  :advice 
evil-goggles--generic-async-advice)
     (evil-change                :face evil-goggles-change-face                
:switch evil-goggles-enable-change                :advice 
evil-goggles--generic-blocking-advice)
     (evil-change-line           :face evil-goggles-change-face                
:switch evil-goggles-enable-change                :advice 
evil-goggles--generic-blocking-advice)