[nongnu] elpa/evil-goggles a4958cf377 012/225: Add evil-commentary and evil-replace-with-register

[ELPA Syncer]

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

    Add evil-commentary and evil-replace-with-register
---
 evil-goggles.el | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index f343b40c11..d1f7ccb1b9 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -97,11 +97,21 @@
         (evil-goggles--generic-advice beg end orig-fun args 
(evil-goggles--face 'evil-join))
       (apply orig-fun args))))
 
-(defun evil-goggles--evil-surround-region (orig-fun &rest args)
+(defun evil-goggles--evil-surround-region-advice (orig-fun &rest args)
   (let ((beg (nth 0 args))
         (end (nth 1 args)))
     (evil-goggles--generic-advice beg end orig-fun args (evil-goggles--face 
'evil-surround))))
 
+(defun evil-goggles--evil-commentary-advice (orig-fun &rest args)
+  (let ((beg (nth 0 args))
+        (end (nth 1 args)))
+    (evil-goggles--generic-advice beg end orig-fun args (evil-goggles--face 
'evil-commentary))))
+
+(defun evil-goggles--evil-replace-with-register-advice (orig-fun &rest args)
+  (let ((beg (nth 1 args))
+        (end (nth 2 args)))
+    (evil-goggles--generic-advice beg end orig-fun args (evil-goggles--face 
'evil-replace-with-register))))
+
 (define-minor-mode evil-goggles-mode
   "evil-goggles global minor mode."
   :lighter " (⌐■-■)"
@@ -142,6 +152,9 @@
 (evil-goggles--advice-add 'evil-join            
'evil-goggles--evil-join-advice)
 (evil-goggles--advice-add 'evil-join-whitespace 
'evil-goggles--evil-join-advice)
 (evil-goggles--advice-add 'evil-surround-region 
'evil-goggles--evil-surround-region)
+(evil-goggles--advice-add 'evil-surround-region          
'evil-goggles--evil-surround-region-advice)
+(evil-goggles--advice-add 'evil-commentary               
'evil-goggles--evil-commentary-advice)
+(evil-goggles--advice-add 'evil-replace-with-register    
'evil-goggles--evil-replace-with-register-advice)
 
 (provide 'evil-goggles)