about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/evil-commentary-20170413.1451/evil-commentary.el
diff options
context:
space:
mode:
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.el121
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