[nongnu] elpa/evil-nerd-commenter 3eadae264f 138/235: new evil-mode operator "evil-copy-and-comment-operator"

[ELPA Syncer]

branch: elpa/evil-nerd-commenter
commit 3eadae264f613c6f02a797aea2ef48078ca45045
Author: Dickby <felix.dick@web.de>
Commit: Felix Dick <felix.dick@web.de>

    new evil-mode operator "evil-copy-and-comment-operator"
---
 README.org                      |  2 ++
 evil-nerd-commenter-operator.el | 13 ++++++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 6fbfa884d8..b6ae13e100 100644
--- a/README.org
+++ b/README.org
@@ -197,6 +197,8 @@ Example 6: ",,w" comment to the beginning of the next word, 
",,e" to the end of
 
 Example 7: ",,it", comment the region inside html tags (all html major modes 
are supported , *including [[http://web-mode.org/][web-mode]]*)
 
+"evilnc-copy-and-comment-operator" is another evil-mode operator. Instead of 
commenting out the text in the operator-range, it inserts an copy of the text 
in the range and comments out that copy.
+
 * Tips
 ** Tip 1, Yank in evil-mode
 You can yank to line 99 using hotkey "y99G" or "y99gg". That's the feature 
from evil-mode.
diff --git a/evil-nerd-commenter-operator.el b/evil-nerd-commenter-operator.el
index 8052995f6f..d12a24c0f4 100644
--- a/evil-nerd-commenter-operator.el
+++ b/evil-nerd-commenter-operator.el
@@ -29,7 +29,7 @@
 ;;; Commentary:
 
 ;;
-;; Provides an operator for evil-mode.
+;; Provides operators for evil-mode.
 
 ;;; Code:
 
@@ -65,5 +65,16 @@
            (eq type 'line))
     (evil-first-non-blank)))
 
+(evil-define-operator evilnc-copy-and-comment-operator (beg end)
+  "Inserts an out commented copy of the text from BEG to END."
+  :move-point nil
+  (interactive "<r>")
+  (let ((p (point)))
+    (evil-yank-lines beg end nil 'lines)
+    (comment-region beg end)
+    (goto-char beg)
+    (evil-paste-before 1)
+    (goto-char p)))
+
 (provide 'evil-nerd-commenter-operator)
 ;;; evil-nerd-commenter-operator.el ends here