emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/evil-goggles 580b219de6 192/225: Add `S` hint


From: ELPA Syncer
Subject: [nongnu] elpa/evil-goggles 580b219de6 192/225: Add `S` hint
Date: Wed, 12 Jan 2022 08:59:07 -0500 (EST)

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

    Add `S` hint
---
 evil-goggles.el | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index 904cec0824..468cf32d3d 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -377,10 +377,11 @@ OFF-BY-DEFAULT if non-nil will set the switch to `nil'"
 ;;; assosiation list with faces
 
 (defvar evil-goggles--faces
-  '((evil-delete :face evil-goggles-delete-face)
-    (evil-yank   :face evil-goggles-yank-face)
-    (evil-indent :face evil-goggles-indent-face)
-    (evil-change :face evil-goggles-change-face)))
+  '((evil-delete            :face evil-goggles-delete-face)
+    (evil-yank              :face evil-goggles-yank-face)
+    (evil-indent            :face evil-goggles-indent-face)
+    (evil-change-whole-line :face evil-goggles-change-face)
+    (evil-change            :face evil-goggles-change-face)))
 
 ;;; minor mode defined below ;;;
 
@@ -399,19 +400,17 @@ OFF-BY-DEFAULT if non-nil will set the switch to `nil'"
   (if evil-goggles-mode
       (progn
         (add-hook 'pre-command-hook #'evil-goggles--vanish)
-        (when evil-goggles-enable-delete
-          (advice-add 'evil-delete :before 
'evil-goggles--generic-blocking-advice))
-        (when evil-goggles-enable-yank
-          (advice-add 'evil-yank :before 
'evil-goggles--generic-blocking-advice))
-        (when evil-goggles-enable-change
-          (advice-add 'evil-change :before 
'evil-goggles--generic-blocking-advice))
-        (when evil-goggles-enable-indent
-          (advice-add 'evil-indent :before 
'evil-goggles--generic-async-advice)))
-    (remove-hook 'pre-command-hook #'evil-goggles--vanish)
-    (advice-remove 'evil-delete 'evil-goggles--generic-blocking-advice)
-    (advice-remove 'evil-yak    'evil-goggles--generic-blocking-advice)
-    (advice-remove 'evil-change 'evil-goggles--generic-blocking-advice)
-    (advice-remove 'evil-indent 'evil-goggles--generic-async-advice)))
+        (when evil-goggles-enable-delete (advice-add 'evil-delete            
:before 'evil-goggles--generic-blocking-advice))
+        (when evil-goggles-enable-yank   (advice-add 'evil-yank              
:before 'evil-goggles--generic-blocking-advice))
+        (when evil-goggles-enable-change (advice-add 'evil-change            
:before 'evil-goggles--generic-blocking-advice))
+        (when evil-goggles-enable-change (advice-add 'evil-change-whole-line 
:before 'evil-goggles--generic-blocking-advice))
+        (when evil-goggles-enable-indent (advice-add 'evil-indent            
:before 'evil-goggles--generic-async-advice)))
+    (remove-hook   'pre-command-hook      #'evil-goggles--vanish)
+    (advice-remove 'evil-delete            
'evil-goggles--generic-blocking-advice)
+    (advice-remove 'evil-yak               
'evil-goggles--generic-blocking-advice)
+    (advice-remove 'evil-change            
'evil-goggles--generic-blocking-advice)
+    (advice-remove 'evil-change-whole-line 
'evil-goggles--generic-blocking-advice)
+    (advice-remove 'evil-indent            
'evil-goggles--generic-async-advice)))
 
 (provide 'evil-goggles)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]