[nongnu] elpa/evil-goggles ca75849806 065/225: Add support for evil-shift-left and evil-shift-right

[ELPA Syncer]

branch: elpa/evil-goggles
commit ca7584980660394988e2b0a53cd6a7598c95e3f7
Author: wouter bolsterlee <wouter@bolsterl.ee>
Commit: Evgeni Kolev <evgenysw@gmail.com>

    Add support for evil-shift-left and evil-shift-right
    
    Closes #5.
---
 evil-goggles-faces.el |  5 +++++
 evil-goggles.el       | 21 +++++++++++++++++++++
 2 files changed, 26 insertions(+)

diff --git a/evil-goggles-faces.el b/evil-goggles-faces.el
index 8c1eb8ad87..4798967c47 100644
--- a/evil-goggles-faces.el
+++ b/evil-goggles-faces.el
@@ -34,6 +34,11 @@
   "Face for paste action"
   :group 'evil-goggles-faces)
 
+(defface evil-goggles-shift-face
+  '((t (:inherit region)))
+  "Face for paste action"
+  :group 'evil-goggles-faces)
+
 ;; non-core
 
 (defface evil-goggles-surround-face
diff --git a/evil-goggles.el b/evil-goggles.el
index f14bf1a316..455ce1eded 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -243,6 +243,21 @@ The overlay region is derermined by evil's variable 
`evil-last-paste'"
            (beg-corrected (if is-beg-at-eol (1+ beg) beg) ))
       (evil-goggles--show beg-corrected end 'evil-goggles-paste-face))))
 
+;; shift left & right
+
+(defcustom evil-goggles-enable-shift t
+  "If non-nil, enable shift left/right support"
+  :type 'boolean
+  :group 'evil-goggles)
+
+(defun evil-goggles--evil-shift-advice (orig-fun beg end &optional count 
preserve-empty)
+  "Around-advice for function `evil-shift-left` and `evil-shift-right`.
+
+ORIG-FUN is the original function.
+BEG END &OPTIONAL COUNT PRESERVE-EMPTY are the arguments of the original 
function."
+  (evil-goggles--with-goggles beg end 'evil-goggles-shift-face
+    (evil-goggles--funcall-preserve-interactive orig-fun beg end count 
preserve-empty)))
+
 ;; ex global
 
 (defun evil-goggles--evil-ex-global-advice (orig-fun beg end pattern command 
&optional invert)
@@ -336,6 +351,10 @@ COUNT BEG &OPTIONAL END TYPE REGISTER are the arguments of 
the original function
       (advice-add 'evil-paste-after :around 
'evil-goggles--evil-paste-after-advice)
       (advice-add 'evil-paste-before :around 
'evil-goggles--evil-paste-before-advice))
 
+    (when evil-goggles-enable-shift
+      (advice-add 'evil-shift-left :around 'evil-goggles--evil-shift-advice)
+      (advice-add 'evil-shift-right :around 'evil-goggles--evil-shift-advice))
+
     ;; make sure :global and :v don't show the goggles overlay
     (advice-add 'evil-ex-global :around 'evil-goggles--evil-ex-global-advice)
 
@@ -358,6 +377,8 @@ COUNT BEG &OPTIONAL END TYPE REGISTER are the arguments of 
the original function
     (advice-remove 'evil-fill-and-move 
'evil-goggles--evil-fill-and-move-advice)
     (advice-remove 'evil-paste-after 'evil-goggles--evil-paste-after-advice)
     (advice-remove 'evil-paste-before 'evil-goggles--evil-paste-before-advice)
+    (advice-remove 'evil-shift-left 'evil-goggles--evil-shift-advice)
+    (advice-remove 'evil-shift-right 'evil-goggles--evil-shift-advice)
 
     (advice-remove 'evil-ex-global 'evil-goggles--evil-ex-global-advice)