diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary.el')
-rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary.el | 121 |
1 files changed, 0 insertions, 121 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary.el b/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary.el deleted file mode 100644 index 702d320b3f65..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary.el +++ /dev/null @@ -1,121 +0,0 @@ -;;; evil-commentary.el --- Comment stuff out. A port of vim-commentary. - -;; Copyright (C) 2014 Quang Linh LE - -;; Author: Quang Linh LE <linktohack@gmail.com> -;; URL: http://github.com/linktohack/evil-commentary -;; Version: 2.1.1 -;; Keywords: evil comment commentary evil-commentary -;; Package-Requires: ((evil "1.0.0")) - -;; This file is not part of GNU Emacs. - -;;; License: - -;; This file is part of evil-commentary -;; -;; evil-commentary 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-commentary 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 evil-commentary initially developed by Tim Pope -;; (tpope) It help you comment line with `counts` and `motions`. - -;;; Example: -;; -;; `gcc` to comment/uncomment a line -;; `5gcc` to comment/uncomment 5 lines -;; `gc$` to comment/uncomment from current position -;; `gcap` to comment/uncomment current paragraph - - -;;; Code: - -(require 'evil) -(require 'evil-commentary-integration) - -(defgroup evil-commentary nil - "Comment stuff out" - :group 'evil - :prefix "evil-commentary-") - -(defcustom evil-commentary-comment-function-for-mode-alist - '((org-mode . evil-commentary/org-comment-or-uncomment-region) - (f90-mode . f90-comment-region) - (web-mode . web-mode-comment-or-uncomment-region)) - "Mode-specific comment function. - -By default, `evil-commentary' use `comment-or-uncomment' -function. By specify an alist of modes here, the comment function -provided by major mode will be use instead. - -A comment functions has to accept BEG, END as its required -parameter." - :group 'evil-commentary - :type '(alist :key-type symbol :value-type function)) - -(evil-define-operator evil-commentary (beg end type) - "Comment or uncomment region that {motion} moves over." - :move-point nil - (interactive "<R>") - (let ((comment-function - (cdr (assoc major-mode - evil-commentary-comment-function-for-mode-alist)))) - (if comment-function (funcall comment-function beg end) - (comment-or-uncomment-region beg end)))) - -(evil-define-operator evil-commentary-line (beg end type) - "Comment or uncomment [count] lines." - :motion evil-line - :move-point nil - (interactive "<R>") - (when (evil-visual-state-p) - (unless (memq type '(line block)) - (let ((range (evil-expand beg end 'line))) - (setq beg (evil-range-beginning range) - end (evil-range-end range) - type (evil-type range)))) - (evil-exit-visual-state)) - (evil-commentary beg end type)) - -(evil-define-operator evil-commentary-yank (beg end type register yank-handler) - "Saves the characters in motion into the kill-ring." - :move-point nil - :repeat nil - (interactive "<R><x><y>") - (evil-yank beg end type register yank-handler) - (evil-commentary beg end)) - -(evil-define-operator evil-commentary-yank-line (beg end type register) - "Saves whole lines into the kill-ring." - :motion evil-line - :move-point nil - (interactive "<R><x>") - (evil-yank-line beg end type register) - (evil-commentary-line beg end)) - -;;;###autoload -(define-minor-mode evil-commentary-mode - "Commentary mode." - :lighter " s-/" - :global t - :keymap (let ((map (make-sparse-keymap))) - (evil-define-key 'normal map "gc" 'evil-commentary) - (evil-define-key 'normal map "gy" 'evil-commentary-yank) - (define-key map (kbd "s-/") 'evil-commentary-line) - map)) - -(provide 'evil-commentary) - -;;; evil-commentary.el ends here |