[nongnu] elpa/evil-goggles 6d2ce52faa 200/225: Add hint for `m`

[ELPA Syncer]

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

    Add hint for `m`
---
 evil-goggles.el | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/evil-goggles.el b/evil-goggles.el
index efb1b2de6c..79f98f95b2 100644
--- a/evil-goggles.el
+++ b/evil-goggles.el
@@ -425,6 +425,19 @@ OFF-BY-DEFAULT if non-nil will set the switch to `nil'"
     evil-goggles-enable-replace-with-register "If non-nil, enable replace with 
register support"
     evil-goggles-replace-with-register-face "Face for replace with register 
action")
 
+;;; set mark
+
+(evil-goggles--define-switch-and-face
+    evil-goggles-enable-set-marker "If non-nil, enable replace with register 
support"
+    evil-goggles-set-marker-face "Face for replace with register action")
+
+(defun evil-goggles--set-marker-advice (char &rest _)
+  (when (and (called-interactively-p 'interactive)
+             (<= ?a char ?z))
+    (let ((beg (line-beginning-position))
+          (end (1+ (line-end-position))))
+      (evil-goggles--show-async-hint beg end))))
+
 ;;; assosiation list with faces
 
 (defvar evil-goggles--commands
@@ -442,7 +455,8 @@ OFF-BY-DEFAULT if non-nil will set the switch to `nil'"
     (evil-surround-region       :face evil-goggles-surround-face              
:switch evil-goggles-enable-surround              :advice 
evil-goggles--generic-async-advice)
     (evil-commentary            :face evil-goggles-commentary-face            
:switch evil-goggles-enable-commentary            :advice 
evil-goggles--generic-async-advice)
     (evilnc-comment-operator    :face evil-goggles-nerd-commenter-face        
:switch evil-goggles-enable-nerd-commenter        :advice 
evil-goggles--generic-async-advice)
-    (evil-replace-with-register :face evil-goggles-replace-with-register-face 
:switch evil-goggles-enable-replace-with-register :advice 
evil-goggles--generic-async-advice-1)))
+    (evil-replace-with-register :face evil-goggles-replace-with-register-face 
:switch evil-goggles-enable-replace-with-register :advice 
evil-goggles--generic-async-advice-1)
+    (evil-set-marker            :face evil-goggles-set-marker-face            
:switch evil-goggles-enable-set-marker            :advice 
evil-goggles--set-marker-advice)))
 
 ;;; minor mode defined below ;;;