diff options
Diffstat (limited to '.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter.el')
| -rw-r--r-- | .emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter.el | 706 |
1 files changed, 706 insertions, 0 deletions
diff --git a/.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter.el b/.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter.el new file mode 100644 index 0000000..51f7568 --- /dev/null +++ b/.emacs.d/elpa/evil-nerd-commenter-20171206.441/evil-nerd-commenter.el @@ -0,0 +1,706 @@ +;;; evil-nerd-commenter.el --- Comment/uncomment lines efficiently. Like Nerd Commenter in Vim + +;; Copyright (C) 2013-2017, Chen Bin + +;; Author: Chen Bin <chenbin.sh@gmail.com> +;; URL: http://github.com/redguardtoo/evil-nerd-commenter +;; Version: 3.1.3 +;; Keywords: commenter vim line evil +;; +;; This file is not part of GNU Emacs. + +;;; Credits: + +;; - Lally Oppenheimer added the support for text-object in Evil +;; - Tom Willemse provided the fix to make Emacs 24.4 work + +;;; License: + +;; This file is part of evil-nerd-commenter +;; +;; evil-nerd-commenter is free software: you can redistribute it and/or +;; modify it under the terms of the GNU General Public License as published +;; by the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. +;; +;; evil-nerd-commenter is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; +;; This program emulates nerd-commenter.vim by Marty Grenfell. +;; +;; It helps you comment/uncomment multiple lines without selecting them. +;; +;; `M-x evilnc-default-hotkeys` assigns hotkey `M-;` to +;; `evilnc-comment-or-uncomment-lines' +;; +;; `M-x evilnc-comment-or-uncomment-lines` comment or uncomment lines. +;; +;; `M-x evilnc-quick-comment-or-uncomment-to-the-line` will comment/uncomment +;; from current line to specified line. +;; The last digit(s) of line number is parameter of the command. +;; +;; For example, `C-u 9 evilnc-quick-comment-or-uncomment-to-the-line` comments +;; code from current line to line 99 if you current line is 91. +;; +;; Though this program could be used *independently*, though I highly recommend +;; using it with Evil (https://bitbucket.org/lyro/evil/) +;; +;; Evil makes you take advantage of power of Vi to comment lines. +;; For example, you can press key `99,ci` to comment out 99 lines. +;; +;; Setup: +;; +;; If comma is your leader key, as most Vim users do, setup is one liner, +;; (evilnc-default-hotkeys) +;; +;; If you use evil-leader and its default leader key, +;; insert below setup into your ~/.emacs instead, +;; +;; (global-set-key (kbd "M-;") 'evilnc-comment-or-uncomment-lines) +;; +;; (require 'evil-leader) +;; (global-evil-leader-mode) +;; (evil-leader/set-key +;; "ci" 'evilnc-comment-or-uncomment-lines +;; "cl" 'evilnc-quick-comment-or-uncomment-to-the-line +;; "ll" 'evilnc-quick-comment-or-uncomment-to-the-line +;; ;; Or use `evilnc-comment-and-kill-ring-save' instead +;; "cc" 'evilnc-copy-and-comment-lines +;; "cp" 'evilnc-comment-or-uncomment-paragraphs +;; "cr" 'comment-or-uncomment-region +;; "cv" 'evilnc-toggle-invert-comment-line-by-line +;; "." 'evilnc-copy-and-comment-operator +;; "\\" 'evilnc-comment-operator) +;; +;; You can setup `evilnc-original-above-comment-when-copy-and-comment' +;; to decide which style to use when `evilnc-copy-and-comment-lines' +;; or `evilnc-copy-and-comment-operator', +;; - Place the commented out text above original text +;; - Or place the original text above commented out text +;; +;; We defined comment text object "c" which can have multi-lines. +;; Press "vac" to select outer object (comment with limiters). +;; Press "vic" to select inner object (comment without limiter). +;; +;; You can assign other key instead of "c" to the text object by +;; customizing `evilnc-comment-text-object'. + +;; For certain major modes, you need manual setup to override its original +;; keybindings, +;; +;; (defun matlab-mode-hook-config () +;; (local-set-key (kbd "M-;") 'evilnc-comment-or-uncomment-lines)) +;; (add-hook 'matlab-mode-hook 'matlab-mode-hook-config) +;; +;; See https://github.com/redguardtoo/evil-nerd-commenter for detail. +;; +;;; Code: + +(require 'evil-nerd-commenter-sdk) + +(autoload 'count-lines "simple") + +(defvar evilnc-original-above-comment-when-copy-and-comment nil + "Keep the original text above the commented copy, when using either: +`evilnc-copy-and-comment-lines' or `evilnc-copy-and-comment-operator'.") + +(defvar evilnc-invert-comment-line-by-line nil + "If t then invert region comment status line by line. +Please note it has NOT effect on evil text object!") + +(defvar evilnc-comment-both-snippet-html nil + "Comment both embedded snippet and HTML tag if they are mixed in one line. +`web-mode' required.") + +(defvar evilnc-comment-text-object "c" + "The comment object. +`vic` to select inner object. +`vac` to select outer object.") + +(defun evilnc--count-lines (beg end) + "Assume BEG is less than END." + (let* ((rlt (count-lines beg end))) + (save-excursion + (goto-char beg) + (if (> beg (line-beginning-position)) + (setq rlt (1+ rlt)))) + rlt)) + +(defun evilnc--goto-line (line-num) + "Shamelessly copied from `goto-line'. Goto line with LINE-NUM." + (save-restriction + (widen) + (goto-char (point-min)) + (if (eq selective-display t) + (re-search-forward "[\n\C-m]" nil 'end (1- line-num)) + (forward-line (1- line-num))))) + +(defun evilnc--fix-buggy-major-modes () + "Fix major modes whose comment regex is buggy. +See http://lists.gnu.org/archive/html/bug-gnu-emacs/2013-03/msg00891.html." + (cond + ((eq major-mode 'autoconf-mode) + ;; since comment-use-syntax is nil in autoconf.el, the comment-start-skip need + ;; make sure its first parenthesized expression match the string exactly before + ;; the "dnl", check the comment-start-skip in lisp-mode for sample. + ;; See code in (defun comment-search-forward) from emacs 24.2: + ;; (if (not comment-use-syntax) + ;; (if (re-search-forward comment-start-skip limit noerror) + ;; (or (match-end 1) (match-beginning 0))) + ;; (do-something)) + ;; My regex makes sure (match-end 1) return the position of comment starter + (if (and (boundp 'comment-use-syntax) (not comment-use-syntax)) + ;; Maybe autoconf.el will (setq comment-use-syntax t) in the future? + (setq comment-start-skip "^\\(\\s*\\)\\(dnl\\|#\\) +")) + ) + ((eq major-mode 'haml-mode) + (setq comment-use-syntax nil) + (setq comment-start "-# ") + (setq comment-start-skip "-##*[ \t]*")))) + +(defun evilnc--operation-on-lines-or-region (fn &optional num) + "Apply FN on NUM lines or selected region." + (cond + ;; NO region is selected + ((not (region-active-p)) + (let* ((b (line-beginning-position)) e) + (save-excursion + (forward-line (- num 1)) + (setq e (line-end-position))) + (funcall fn b e))) + + ;; Select region inside ONE line + ((and (<= (line-beginning-position) (region-beginning)) + (<= (region-end) (line-end-position))) + (cond + ;; Well, looks current comment syntax is NOT fit for comment out a region. + ;; So we also need hack the comment-start and comment-end + ((and (string= "" comment-end) + (member major-mode '(java-mode + javascript-mode + js-mode + js2-mode + js3-mode + rjsx-mode + c++-mode + objc-mode))) + (let* ((comment-start-old comment-start) + (comment-end-old comment-end) + (comment-start-skip-old comment-start-skip) + (comment-end-skip-old comment-end-skip)) + + ;; use C comment syntax temporarily + (setq comment-start "/* ") + (setq comment-end " */") + (setq comment-start-skip "\\(//+\\|/\\*+\\)\\s *") + (setq comment-end-skip "[ ]*\\(\\s>\\|\\*+/\\)") + + (funcall fn (region-beginning) (region-end)) + + ;; Restore the original comment syntax + (setq comment-start comment-start-old) + (setq comment-end comment-end-old) + (setq comment-start-skip comment-start-skip-old) + (setq comment-end-skip comment-end-skip-old))) + ;; just comment out the region + (t (funcall fn (region-beginning) (region-end))))) + + ;; Select more than one line + (t + ;; selected region spans MORE than one line + (save-excursion + (let* ((b (region-beginning)) + (e (region-end))) + ;; Another work around for evil-visual-line bug: + ;; In evil-mode, if we use hotkey V or `M-x evil-visual-line` to select line, + ;; the (line-beginning-position) of the line which is after the last selected + ;; line is always (region-end)! Don't know why. + (if (and (> e b) + (save-excursion (goto-char e) (= e (line-beginning-position))) + (boundp 'evil-state) (eq evil-state 'visual)) + (setq e (1- e))) + + (goto-char b) + (setq b (line-beginning-position)) + (goto-char e) + (setq e (line-end-position)) + (funcall fn b e)))))) + +(defun evilnc--get-one-paragraph-region () + "Select a paragraph which has NO empty line." + (let* (b e) + (save-excursion + (if (setq b (re-search-backward "^[ \t]*$" nil t)) + (progn + (forward-line) + (setq b (line-beginning-position))) + (setq b 1))) + (save-excursion + (if (setq e (re-search-forward "^[ \t]*$" nil t)) + (progn + (forward-line -1) + (setq e (line-end-position))) + (setq e (point-max)))) + (list b e))) + +(defun evilnc--invert-comment (beg end) + "Scan the region from BEG to END line by line, invert its comment status." + (let* (done b e) + (save-excursion + (goto-char end) + (while (not done) + (setq b (line-beginning-position)) + (setq e (line-end-position)) + (funcall (if (comment-only-p b e) + 'uncomment-region 'comment-region) + b e) + + (forward-line -1) + (if (or (= (line-beginning-position) b) + (< (line-end-position) beg)) + (setq done t)))))) + +(defvar org-src-lang-modes) +(declare-function org-show-subtree "org") +(declare-function outline-up-heading "outline") + +(defun evilnc--working-on-region (beg end fn) + "Region from BEG to END is applied with operation FN. +Code snippets embedded in Org-mode is identified and right `major-mode' is used." + (let* (pos + info + lang + lang-f + old-flag) + (when (and (eq major-mode 'org-mode) + (fboundp 'org-edit-src-find-region-and-lang)) + (setq info (org-edit-src-find-region-and-lang))) + + (when info + (setq lang (or (cdr (assoc (nth 2 info) org-src-lang-modes)) + (nth 2 info))) + (setq lang (if (symbolp lang) (symbol-name lang) lang)) + (setq lang-f (intern (concat lang "-mode")))) + + ;; turn on 3rd party language's major-mode temporarily + (if lang-f (funcall lang-f)) + + (if evilnc-invert-comment-line-by-line + (evilnc--invert-comment beg end) + (setq pos (point)) + (funcall fn beg end) + (goto-char pos)) + + ;; turn off 3rd party language's major-mode temporarily and clean the shit + (when lang-f + ;; avoid org file automatically collapsed + (setq pos (point)) + (org-mode) + ;; just goto the root element + (condition-case nil + (outline-up-heading 1) + (error + (message "in the beginning ..."))) + ;; expand current node because by default (org-mode) will collapse all nodes + (org-show-subtree) + (goto-char pos)))) + +(declare-function web-mode-comment-or-uncomment "ext:web-mode") +(defvar web-mode-engine) + +(defun evilnc--warn-on-web-mode (is-comment) + "Check certain part of html code IS-COMMENT." + (let* ((comment-operation (concat "web-mode-" + (if is-comment "comment-" "uncomment-") + web-mode-engine + "-block"))) + (unless (intern-soft comment-operation) + (message "defun %s NOT implemented in web-mode! Fix it or report to its maintainer." + comment-operation)) + is-comment)) + +(defun evilnc--web-mode-is-region-comment (beg end) + "Is region between BEG and END is comment in web mode?" + (let* ((rlt (and (save-excursion + (goto-char beg) + (goto-char (line-end-position)) + (re-search-backward "^\\|[^[:space:]]") + (evilnc-web-mode-is-comment)) + (evilnc-web-mode-is-comment (/ (+ beg end) 2)) + (save-excursion + (goto-char end) + (back-to-indentation) + (evilnc-web-mode-is-comment))))) + rlt)) + +(defun evilnc--web-mode-do-current-line () + "In `web-mode', have to select whole line to comment." + (let* (first-char-is-snippet e) + + (save-excursion + (goto-char (line-beginning-position)) + (skip-chars-forward "[:space:]" (line-end-position)) + (setq first-char-is-snippet (get-text-property (point) 'block-side))) + + ;; comment the snippet block at first + (when (and evilnc-comment-both-snippet-html (not first-char-is-snippet)) + (save-excursion + (let* (fired) + (goto-char (line-beginning-position)) + ;; please note (line-beginning-position) is changing in (while) + (while (< (point) (line-end-position)) + (forward-char) + (if (get-text-property (point) 'block-side) + (when (not fired) + (save-excursion + (push-mark (1+ (point)) t t) + (goto-char (point)) + (web-mode-comment-or-uncomment)) + (setq fired t)) + (setq fired nil)))))) + + ;; comment the html line + ;; To comment one line ONLY, you need select a line at first, + ;; in order to work around web-mode "feature". + (push-mark (setq e (line-end-position)) t t) + (goto-char (line-beginning-position)) + (skip-chars-forward "[:space:]" e) + (evilnc--warn-on-web-mode (evilnc--web-mode-is-region-comment (point) e)) + (web-mode-comment-or-uncomment))) + +(defun evilnc--web-mode-comment-or-uncomment (beg end) + "Comment/uncomment line by line from BEG to END. +DO-COMMENT decides we comment or uncomment." + ;; end will change when you comment line by line + (let* (line-cnt tmp) + ;; make sure beg <= end + (when (> beg end) + (setq tmp beg) + (setq beg end) + (setq end tmp)) + + ;; start (un)comment + (save-excursion + (setq line-cnt (evilnc--count-lines beg end)) + (goto-char beg) + (while (> line-cnt 0) + (evilnc--web-mode-do-current-line) + (forward-line) + (setq line-cnt (1- line-cnt)))))) + +(defun evilnc--comment-or-uncomment-region (beg end) + "Comment or uncommment region from BEG to END." + (cond + ((eq major-mode 'web-mode) + ;; elixir is not supported in web-mode for now + (unless (fboundp 'web-mode-comment-elixir-block) + (defalias 'web-mode-comment-elixir-block 'web-mode-comment-erb-block) + (defalias 'web-mode-uncomment-elixir-block 'web-mode-uncomment-erb-block)) + (evilnc--web-mode-comment-or-uncomment beg end)) + (t + (evilnc--working-on-region beg end 'comment-or-uncomment-region)))) + +(defun evilnc--current-line-num () + "Get current line number." + (save-restriction + (widen) + (save-excursion + (beginning-of-line) + (1+ (count-lines 1 (point)))))) + +(defun evilnc--find-dst-line-num (UNITS) + "Find closet line whose line number ends with digit UNITS. +Given UNITS as 5, line 5, line 15, and line 25 are good candidates. +If UNITS is 16, line 16, line 116, and line 216 are good candidates." + (let* ((cur-line-num (evilnc--current-line-num)) + dst-line-num + (r 1) + (l (length (number-to-string UNITS)))) + (while (> l 0) + (setq r (* r 10)) + (setq l (- l 1))) + (if (>= (mod cur-line-num r) UNITS) + (setq UNITS (+ UNITS r))) + (setq dst-line-num (+ cur-line-num (- UNITS (mod cur-line-num r)))))) + +;; ==== below this line are public commands + +;;;###autoload +(defun evilnc-comment-or-uncomment-paragraphs (&optional num) + "Comment or uncomment NUM paragraph(s). +A paragraph is a continuation non-empty lines. +Paragraphs are separated by empty lines." + (interactive "p") + (let* ((i 0) + rlt + (b (point-max)) + (e 0)) + (catch 'break + (while (< i num) + (setq i (1+ i)) + (setq rlt (evilnc--get-one-paragraph-region)) + (setq b (if (< (nth 0 rlt) b) (nth 0 rlt) b)) + (setq e (if (> (nth 1 rlt) e) (nth 1 rlt) e)) + + ;; prepare for the next paragraph + (if (and rlt (< i num)) + (progn + ;; e should be the end of last non-empty line + (goto-char e) + + ;; move to an empty line + (forward-line) + + ;; move to next non-empty line + (re-search-forward "^[ \t]*[^ \t]" nil t) + + (if (<= (line-beginning-position) e) + (throw 'break i))) + (throw 'break i)))) + + (when (<= b e) + (save-excursion + (evilnc--fix-buggy-major-modes) + (evilnc--comment-or-uncomment-region b e))))) + +;;;###autoload +(defun evilnc-comment-or-uncomment-to-the-line (&optional LINENUM) + "Comment or uncomment from current line to LINENUM line." + (interactive "nLine: ") + (if (not (region-active-p)) + (let* ((b (line-beginning-position)) + (e (line-end-position))) + (save-excursion + (evilnc--goto-line LINENUM) + (if (< (line-beginning-position) b) + (setq b (line-beginning-position))) + (if (> (line-end-position) e) + (setq e (line-end-position))) + (evilnc--fix-buggy-major-modes) + (evilnc--comment-or-uncomment-region b e) + )))) + +;;;###autoload +(defun evilnc-quick-comment-or-uncomment-to-the-line (&optional units) + "Comment/uncomment to line number by last digit(s) whose value is UNITS. +For exmaple, you can use either \ +\\<M-53>\\[evilnc-quick-comment-or-uncomment-to-the-line] \ +or \\<M-3>\\[evilnc-quick-comment-or-uncomment-to-the-line] \ +to comment to the line 6453" + (interactive "p") + (let* ((dst-line-num (evilnc--find-dst-line-num units))) + (evilnc-comment-or-uncomment-to-the-line dst-line-num) + (evilnc--goto-line (+ 1 dst-line-num)))) + +;;;###autoload +(defun evilnc-toggle-invert-comment-line-by-line () + "Please note this command may NOT work on complex evil text objects." + (interactive) + (if evilnc-invert-comment-line-by-line + (setq evilnc-invert-comment-line-by-line nil) + (setq evilnc-invert-comment-line-by-line t)) + (message (if evilnc-invert-comment-line-by-line + "Each line's comment status will be inverted" + "Each line's comment status will NOT be inverted"))) + +;;;###autoload +(defun evilnc-toggle-comment-empty-lines () + "Toggle the flag which decide wether empty line will be commented." + (interactive) + (if comment-empty-lines + (setq comment-empty-lines nil) + (setq comment-empty-lines t)) + (message (if comment-empty-lines + "Empty line(s) will be commented" + "Empty line(s) will NOT be commented"))) + +;;;###autoload +(defun evilnc-comment-or-uncomment-lines (&optional num) + "Comment or uncomment NUM lines. NUM could be negative. + +Case 1: If no region selected, comment/uncomment on current line. +If NUM>1, comment/uncomment extra N-1 lines from next line. + +Case 2: Selected region is expanded to make it contain whole lines. +Then we comment/uncomment the expanded region. NUM is ignored. + +Case 3: If a region inside of ONE line is selected, +we comment/uncomment that region. +CORRECT comment syntax will be used for C++/Java/Javascript." + (interactive "p") + ;; donot move the cursor + ;; support negative number + (cond + ((and (= 1 num) (string-match "^[ \t]*$" (buffer-substring-no-properties (line-beginning-position) (line-end-position)))) + ;; comment on current empty line + (comment-dwim nil)) + (t + (save-excursion + (when (< num 0) + (forward-line (1+ num)) + (setq num (- 0 num))) + (evilnc--operation-on-lines-or-region '(lambda (b e) + (evilnc--fix-buggy-major-modes) + (evilnc--comment-or-uncomment-region b e)) + num))))) + +;;;###autoload +(defun evilnc-copy-and-comment-lines (&optional num) + "Copy&paste NUM lines and comment out original lines. +NUM could be negative. + +Case 1: If no region selected, operate on current line. +if NUM>1, comment/uncomment extra N-1 lines from next line + +Case 2: Selected region is expanded to make it contain whole lines. +Then we operate the expanded region. NUM is ignored." + (interactive "p") + ;; support negative number + (when (< num 0) + (forward-line (1+ num)) + (setq num (- 0 num))) + + (let* ((original-column (current-column))) + (evilnc--operation-on-lines-or-region + '(lambda (beg end) + (evilnc--fix-buggy-major-modes) + (let* ((str (buffer-substring-no-properties beg end))) + (cond + (evilnc-original-above-comment-when-copy-and-comment + (let* ((p (point))) + (comment-region beg end) + (goto-char beg) + (insert-before-markers (concat str "\n")) + (goto-char p))) + (t + (goto-char end) + (newline 1) + (insert-before-markers str) + (comment-region beg end))))) + num) + ;; Go to original column after evilnc-copy-and-comment-lines + ;; @see https://github.com/redguardtoo/evil-nerd-commenter/issues/79 + ;; Thanks for Kevin Brubeck (AKA unhammer) for idea/implementation + (move-to-column original-column))) + +;;;###autoload +(defun evilnc-comment-and-kill-ring-save (&optional num) + "Comment lines save origin lines into `kill-ring'. +NUM could be negative. + +Case 1: If no region selected, operate on current line. +;; if NUM>1, comment/uncomment extra N-1 lines from next line + +Case 2: Selected region is expanded to make it contain whole lines. +Then we operate the expanded region. NUM is ignored." + (interactive "p") + ;; support negative number + (when (< num 0) + (forward-line (1+ num)) + (setq num (- 0 num))) + + (evilnc--operation-on-lines-or-region + '(lambda (beg end) + (evilnc--fix-buggy-major-modes) + (kill-new (buffer-substring-no-properties beg end)) + (comment-region beg end)) + num)) + +;; {{ for non-evil user only +;;;###autoload +(defun evilnc-copy-to-line (&optional LINENUM) + "Copy from current line to LINENUM line. For non-evil user only." + (interactive "nCopy to line: ") + (if (not (region-active-p)) + (let* ((b (line-beginning-position)) + (e (line-end-position))) + (save-excursion + (evilnc--goto-line LINENUM) + (if (< (line-beginning-position) b) + (setq b (line-beginning-position))) + (if (> (line-end-position) e) + (setq e (line-end-position))) + (kill-new (buffer-substring-no-properties b e)))))) + +;;;###autoload +(defun evilnc-kill-to-line (&optional linenum) + "Kill from the current line to the LINENUM line. For non-evil user only." + (interactive "NKill to line: ") + (if (not (region-active-p)) + (let* ((b (line-beginning-position)) + (e (line-end-position))) + (save-excursion + (evilnc--goto-line linenum) + (if (< (line-beginning-position) b) + (setq b (line-beginning-position))) + (if (> (line-end-position) e) + (setq e (line-end-position))) + ;; +1 because we need remove the CR + (setq e (+ 1 e)) + (if (> e (point-max)) (setq e (point-max))) + (kill-region b e))))) +;; }} + +;;;###autoload +(defun evilnc-version () + "The version number." + (interactive) + (message "3.1.3")) + +(defvar evil-normal-state-map) +(defvar evil-visual-state-map) +(defvar evil-inner-text-objects-map) +(defvar evil-outer-text-objects-map) +;;;###autoload +(defun evilnc-default-hotkeys (&optional no-evil-keybindings) + "Setup the key bindings of evil-nerd-comment. +If NO-EVIL-KEYBINDINGS is t, we don't define keybindings in EVIL." + (interactive) + ;; Install hotkeys for Emacs mode + (global-set-key (kbd "M-;") 'evilnc-comment-or-uncomment-lines) + (global-set-key (kbd "C-c l") 'evilnc-quick-comment-or-uncomment-to-the-line) + (global-set-key (kbd "C-c c") 'evilnc-copy-and-comment-lines) + (global-set-key (kbd "C-c p") 'evilnc-comment-or-uncomment-paragraphs) + + ;; Install key bindings for evil + (unless no-evil-keybindings + (eval-after-load 'evil + '(progn + (define-key evil-normal-state-map ",ci" 'evilnc-comment-or-uncomment-lines) + (define-key evil-visual-state-map ",ci" 'evilnc-comment-or-uncomment-lines) + (define-key evil-normal-state-map ",cl" 'evilnc-quick-comment-or-uncomment-to-the-line) + (define-key evil-normal-state-map ",ll" 'evilnc-quick-comment-or-uncomment-to-the-line) + (define-key evil-normal-state-map ",cc" 'evilnc-copy-and-comment-lines) + (define-key evil-visual-state-map ",cc" 'evilnc-copy-and-comment-lines) + (define-key evil-normal-state-map ",cp" 'evilnc-comment-or-uncomment-paragraphs) + (define-key evil-normal-state-map ",cr" 'comment-or-uncomment-region) + (define-key evil-normal-state-map ",cv" 'evilnc-toggle-invert-comment-line-by-line))) + + ;; Install operator for evil text objects + (eval-after-load 'evil-nerd-commenter-operator + '(progn + ;; operator to comment at text objects + (define-key evil-normal-state-map ",." 'evilnc-copy-and-comment-operator) + (define-key evil-visual-state-map ",." 'evilnc-copy-and-comment-operator) + (define-key evil-normal-state-map ",," 'evilnc-comment-operator) + (define-key evil-visual-state-map ",," 'evilnc-comment-operator) + + ;; comment itself is text object + (define-key evil-inner-text-objects-map evilnc-comment-text-object 'evilnc-inner-comment) + (define-key evil-outer-text-objects-map evilnc-comment-text-object 'evilnc-outer-commenter))))) + +;; Attempt to define the operator on first load. +;; Will only work if evil has been loaded +(eval-after-load 'evil + '(require 'evil-nerd-commenter-operator)) + +(provide 'evil-nerd-commenter) +;;; evil-nerd-commenter.el ends here |