about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-autoloads.el70
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-pkg.el2
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.el436
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.elcbin20800 -> 0 bytes
4 files changed, 0 insertions, 508 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-autoloads.el b/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-autoloads.el
deleted file mode 100644
index cf0f6320a769..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-autoloads.el
+++ /dev/null
@@ -1,70 +0,0 @@
-;;; evil-surround-autoloads.el --- automatically extracted autoloads
-;;
-;;; Code:
-(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path))))
-
-;;;### (autoloads nil "evil-surround" "evil-surround.el" (23450 31874
-;;;;;;  136990 282000))
-;;; Generated autoloads from evil-surround.el
-
-(autoload 'evil-surround-delete "evil-surround" "\
-Delete the surrounding delimiters represented by CHAR.
-Alternatively, the text to delete can be represented with
-the overlays OUTER and INNER, where OUTER includes the delimiters
-and INNER excludes them. The intersection (i.e., difference)
-between these overlays is what is deleted.
-
-\(fn CHAR &optional OUTER INNER)" t nil)
-
-(autoload 'evil-surround-change "evil-surround" "\
-Change the surrounding delimiters represented by CHAR.
-Alternatively, the text to delete can be represented with the
-overlays OUTER and INNER, which are passed to `evil-surround-delete'.
-
-\(fn CHAR &optional OUTER INNER)" t nil)
-
-(autoload 'evil-surround-mode "evil-surround" "\
-Buffer-local minor mode to emulate surround.vim.
-
-\(fn &optional ARG)" t nil)
-
-(autoload 'turn-on-evil-surround-mode "evil-surround" "\
-Enable evil-surround-mode in the current buffer.
-
-\(fn)" nil nil)
-
-(autoload 'turn-off-evil-surround-mode "evil-surround" "\
-Disable evil-surround-mode in the current buffer.
-
-\(fn)" nil nil)
-
-(defvar global-evil-surround-mode nil "\
-Non-nil if Global Evil-Surround mode is enabled.
-See the `global-evil-surround-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `global-evil-surround-mode'.")
-
-(custom-autoload 'global-evil-surround-mode "evil-surround" nil)
-
-(autoload 'global-evil-surround-mode "evil-surround" "\
-Toggle Evil-Surround mode in all buffers.
-With prefix ARG, enable Global Evil-Surround mode if ARG is positive;
-otherwise, disable it.  If called from Lisp, enable the mode if
-ARG is omitted or nil.
-
-Evil-Surround mode is enabled in all buffers where
-`turn-on-evil-surround-mode' would do it.
-See `evil-surround-mode' for more information on Evil-Surround mode.
-
-\(fn &optional ARG)" t nil)
-
-;;;***
-
-;; Local Variables:
-;; version-control: never
-;; no-byte-compile: t
-;; no-update-autoloads: t
-;; End:
-;;; evil-surround-autoloads.el ends here
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-pkg.el b/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-pkg.el
deleted file mode 100644
index a5ad59074783..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround-pkg.el
+++ /dev/null
@@ -1,2 +0,0 @@
-;;; -*- no-byte-compile: t -*-
-(define-package "evil-surround" "20180102.1401" "emulate surround.vim from Vim" '((evil "1.2.12")) :commit "2af81ab3ac64e4b0515a157a672d8cb89f0172b9" :keywords '("emulation" "vi" "evil") :authors '(("Tim Harper <timcharper at gmail dot com>") ("Vegard Øye <vegard_oye at hotmail dot com>")) :maintainer '("Tim Harper <timcharper at gmail dot com>"))
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.el b/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.el
deleted file mode 100644
index 1945b1428780..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.el
+++ /dev/null
@@ -1,436 +0,0 @@
-;;; evil-surround.el --- emulate surround.vim from Vim
-
-;; Copyright (C) 2010 - 2017 Tim Harper
-
-;; Licensed under the same terms as Emacs (GPLv3)
-
-;;
-;; Author: Tim Harper <timcharper at gmail dot com>
-;;      Vegard Øye <vegard_oye at hotmail dot com>
-;; Current Maintainer: ninrod (github.com/ninrod)
-;; Created: July 23 2011
-;; Version: 0.1
-;; Package-Version: 20180102.1401
-;; Package-Requires: ((evil "1.2.12"))
-;; Mailing list: <implementations-list at lists.ourproject.org>
-;;      Subscribe: http://tinyurl.com/implementations-list
-;;      Newsgroup: nntp://news.gmane.org/gmane.emacs.vim-emulation
-;;      Archives: http://dir.gmane.org/gmane.emacs.vim-emulation
-;; Keywords: emulation, vi, evil
-;;
-;; This file is not part of GNU Emacs.
-
-;;; Commentary:
-
-;; This package emulates surround.vim by Tim Pope.
-;; The functionality is wrapped into a minor mode. To enable
-;; it globally, add the following lines to ~/.emacs:
-;;
-;;     (require 'evil-surround)
-;;     (global-evil-surround-mode 1)
-;;
-;; Alternatively, you can enable evil-surround-mode along a major mode
-;; by adding `turn-on-evil-surround-mode' to the mode hook.
-;;
-;; This package uses Evil as its vi layer. It is available from:
-;;
-;;     https://github.com/emacs-evil/evil
-
-;;; Code:
-
-(require 'evil)
-
-(defgroup evil-surround nil
-  "surround.vim for Emacs"
-  :prefix "evil-surround-"
-  :group 'evil)
-
-;; make surround's `ysw' work like `cw', not `ce'
-(when (boundp 'evil-change-commands)
-  (add-to-list 'evil-change-commands 'evil-surround-region))
-
-(defcustom evil-surround-pairs-alist
-  '((?\( . ("( " . " )"))
-    (?\[ . ("[ " . " ]"))
-    (?\{ . ("{ " . " }"))
-
-    (?\) . ("(" . ")"))
-    (?\] . ("[" . "]"))
-    (?\} . ("{" . "}"))
-
-    (?# . ("#{" . "}"))
-    (?b . ("(" . ")"))
-    (?B . ("{" . "}"))
-    (?> . ("<" . ">"))
-    (?t . evil-surround-read-tag)
-    (?< . evil-surround-read-tag)
-    (?f . evil-surround-function))
-  "Association list of surround items.
-Each item is of the form (TRIGGER . (LEFT . RIGHT)), all strings.
-Alternatively, a function can be put in place of (LEFT . RIGHT).
-This only affects inserting pairs, not deleting or changing them."
-  :group 'evil-surround
-  :type '(alist
-          :key-type (character :tag "Key")
-          :value-type (choice
-                       (cons (string :tag "Opening") (string :tag "Closing"))
-                       (function :tag "Function"))))
-(make-variable-buffer-local 'evil-surround-pairs-alist)
-
-(defcustom evil-surround-lisp-modes '(
-				      cider-repl-mode
-				      clojure-mode
-				      clojurec-mode
-				      clojurescript-mode
-				      clojurex-mode
-				      common-lisp-mode
-				      emacs-lisp-mode
-				      eshell-mode
-				      geiser-repl-mode
-				      inf-clojure-mode
-				      inferior-emacs-lisp-mode
-				      inferior-lisp-mode
-				      inferior-scheme-mode
-				      lisp-interaction-mode
-				      lisp-mode
-				      monroe-mode
-				      racket-mode
-				      racket-repl-mode
-				      scheme-interaction-mode
-				      scheme-mode
-				      slime-repl-mode
-				      stumpwm-mode
-				      )
-  "List of Lisp-related modes."
-  :type '(repeat symbol)
-  :group 'evil-surround)
-
-(defcustom evil-surround-operator-alist
-  '((evil-change . change)
-    (evil-delete . delete))
-  "Association list of operators to their fundamental operation.
-Each item is of the form (OPERATOR . OPERATION)."
-  :group 'evil-surround
-  :type '(repeat (cons (symbol :tag "Operator")
-                       (symbol :tag "Operation"))))
-
-(defvar evil-surround-read-tag-map
-  (let ((map (copy-keymap minibuffer-local-map)))
-    (define-key map ">" 'exit-minibuffer)
-    map)
-  "Keymap used by `evil-surround-read-tag'.")
-
-(defvar evil-surround-record-repeat nil
-  "Flag to indicate we're manually recording repeat info.")
-
-(defun evil-surround-read-from-minibuffer (&rest args)
-  (when evil-surround-record-repeat
-    (evil-repeat-keystrokes 'post))
-  (let ((res (apply #'read-from-minibuffer args)))
-    (when evil-surround-record-repeat
-      (evil-repeat-record res))
-    res))
-
-(defun evil-surround-function ()
-  "Read a functionname from the minibuffer and wrap selection in function call"
-  (let ((fname (evil-surround-read-from-minibuffer "" "")))
-    (cons (format (if (member major-mode evil-surround-lisp-modes)
-		      "(%s " "%s(")
-		  (or fname "")) ")")))
-
-(defun evil-surround-read-tag ()
-  "Read a XML tag from the minibuffer."
-  (let* ((input (evil-surround-read-from-minibuffer "<" "" evil-surround-read-tag-map))
-         (match (string-match "\\([0-9a-z-]+\\)\\(.*?\\)[>]*$" input))
-         (tag  (match-string 1 input))
-         (rest (match-string 2 input)))
-    (cons (format "<%s%s>" (or tag "") (or rest ""))
-          (format "</%s>" (or tag "")))))
-
-(defun evil-surround-valid-char-p (char)
-  "Returns whether CHAR is a valid surround char or not."
-  (not (memq char '(?\C-\[ ?\C-?))))
-
-(defun evil-surround-pair (char)
-  "Return the evil-surround pair of char.
-This is a cons cell (LEFT . RIGHT), both strings."
-  (let ((pair (assoc-default char evil-surround-pairs-alist)))
-    (cond
-     ((functionp pair)
-      (funcall pair))
-
-     ((consp pair)
-      pair)
-
-     (t
-      (cons (format "%c" char) (format "%c" char))))))
-
-(defun evil-surround-outer-overlay (char)
-  "Return outer overlay for the delimited range represented by CHAR.
-This overlay includes the delimiters.
-See also `evil-surround-inner-overlay'."
-  (let ((outer (lookup-key evil-outer-text-objects-map (string char))))
-    (when (functionp outer)
-      (setq outer (funcall outer))
-      (when (evil-range-p outer)
-        (evil-surround-trim-whitespace-from-range outer "[[:space:]]")
-        (setq outer (make-overlay (evil-range-beginning outer)
-                                  (evil-range-end outer)
-                                  nil nil t))))))
-
-(defun evil-surround-trim-whitespace-from-range (range &optional regexp)
-  "Given an evil-range, trim whitespace around range by shrinking the range such that it neither begins nor ends with whitespace. Does not modify the buffer."
-  (let ((regexp (or regexp "[ \f\t\n\r\v]")))
-    (save-excursion
-      (save-match-data
-        (goto-char (evil-range-beginning range))
-        (while (looking-at regexp) (forward-char))
-        (evil-set-range-beginning range (point))
-        (goto-char (evil-range-end range))
-        (while (looking-back regexp nil) (backward-char))
-        (evil-set-range-end range (point))))))
-
-(defun evil-surround-inner-overlay (char)
-  "Return inner overlay for the delimited range represented by CHAR.
-This overlay excludes the delimiters.
-See also `evil-surround-outer-overlay'."
-  (let ((inner (lookup-key evil-inner-text-objects-map (string char))))
-    (when (functionp inner)
-      (setq inner (funcall inner))
-      (when (evil-range-p inner)
-        (when (eq (char-syntax char) ?\()
-          (evil-surround-trim-whitespace-from-range inner "[[:space:]]"))
-        (setq inner (make-overlay (evil-range-beginning inner)
-                                  (evil-range-end inner)
-                                  nil nil t))))))
-
-(evil-define-motion evil-surround-line (count)
-  "Move COUNT - 1 lines down but return exclusive character motion."
-  :type exclusive
-  (let ((beg (line-beginning-position)))
-    (evil-line count)
-    (end-of-line)
-    (let ((range (evil-range beg (point) 'exclusive)))
-      (evil-expand-range range)
-      range)))
-
-;;;###autoload
-(defun evil-surround-delete (char &optional outer inner)
-  "Delete the surrounding delimiters represented by CHAR.
-Alternatively, the text to delete can be represented with
-the overlays OUTER and INNER, where OUTER includes the delimiters
-and INNER excludes them. The intersection (i.e., difference)
-between these overlays is what is deleted."
-  (interactive "c")
-  (cond
-   ((and outer inner)
-    (delete-region (overlay-start outer) (overlay-start inner))
-    (delete-region (overlay-end inner) (overlay-end outer))
-    (goto-char (overlay-start outer)))
-   (t
-    ;; no overlays specified: create them on the basis of CHAR
-    ;; and delete after use
-    (let* ((outer (evil-surround-outer-overlay char))
-           (inner (evil-surround-inner-overlay char)))
-      (unwind-protect
-          (when (and outer inner)
-            (evil-surround-delete char outer inner))
-        (when outer (delete-overlay outer))
-        (when inner (delete-overlay inner)))))))
-
-;;;###autoload
-(defun evil-surround-change (char &optional outer inner)
-  "Change the surrounding delimiters represented by CHAR.
-Alternatively, the text to delete can be represented with the
-overlays OUTER and INNER, which are passed to `evil-surround-delete'."
-  (interactive "c")
-  (cond
-   ((and outer inner)
-    (evil-surround-delete char outer inner)
-    (let ((key (read-char)))
-      (evil-surround-region (overlay-start outer)
-                            (overlay-end outer)
-                            nil (if (evil-surround-valid-char-p key) key char))))
-   (t
-    (let* ((outer (evil-surround-outer-overlay char))
-           (inner (evil-surround-inner-overlay char)))
-      (unwind-protect
-          (when (and outer inner)
-            (evil-surround-change char outer inner))
-        (when outer (delete-overlay outer))
-        (when inner (delete-overlay inner)))))))
-
-(defun evil-surround-interactive-setup ()
-  (setq evil-inhibit-operator t)
-     (list (assoc-default evil-this-operator
-                          evil-surround-operator-alist)))
-
-(defun evil-surround-setup-surround-line-operators ()
-  (define-key evil-operator-shortcut-map "s" 'evil-surround-line)
-  (define-key evil-operator-shortcut-map "S" 'evil-surround-line))
-
-(defun evil-surround-column-at (pos)
-  (save-excursion (goto-char pos) (current-column)))
-
-(defun evil-surround-block (beg end char)
-  "Surrounds a block selection with a character, as if `evil-surround-region'
-were called on each segment in each line. This skips lines where EOL < BEG's
-column."
-  (let ((beg-col (evil-surround-column-at beg))
-        (end-col (evil-surround-column-at end)))
-    (evil-apply-on-block
-     (lambda (ibeg iend)
-       (unless (< (evil-surround-column-at ibeg) (min beg-col end-col))
-         (evil-surround-region ibeg iend t char)))
-     beg end nil)))
-
-(defun evil-surround-call-with-repeat (callback)
-  "Record keystrokes to repeat surround-region operator and it's motion.
-This is necessary because `evil-yank' operator is not repeatable (:repeat nil)"
-  (evil-repeat-start)
-  (evil-repeat-record "y")
-  (evil-repeat-record (this-command-keys))
-
-  ;; set `this-command-keys' to the command that will be executed
-  ;; interactively; as a result, `evil-this-operator' will be
-  ;; correctly set to, for example, `evil-surround-region' instead of
-  ;; `evil-yank' when surround has been invoked by `ys'
-  (setq this-command callback)
-  (let ((evil-surround-record-repeat t))
-    (call-interactively callback))
-  (evil-repeat-keystrokes 'post)
-  (evil-repeat-stop))
-
-;; Dispatcher function in Operator-Pending state.
-;; "cs" calls `evil-surround-change', "ds" calls `evil-surround-delete',
-;; and "ys" calls `evil-surround-region'.
-(evil-define-command evil-surround-edit (operation)
-  "Edit the surrounding delimiters represented by CHAR.
-If OPERATION is `change', call `evil-surround-change'.
-if OPERATION is `delete', call `evil-surround-delete'.
-Otherwise call `evil-surround-region'."
-  (interactive (evil-surround-interactive-setup))
-  (cond
-   ((eq operation 'change)
-    (call-interactively 'evil-surround-change))
-   ((eq operation 'delete)
-    (call-interactively 'evil-surround-delete))
-   (t
-    (evil-surround-setup-surround-line-operators)
-    (evil-surround-call-with-repeat 'evil-surround-region))))
-
-(evil-define-command evil-Surround-edit (operation)
-  "Like evil-surround-edit, but for surrounding with additional new-lines.
-
-It does nothing for change / delete."
-  (interactive (evil-surround-interactive-setup))
-  (cond
-   ((eq operation 'change) nil)
-   ((eq operation 'delete) nil)
-   (t
-    (evil-surround-setup-surround-line-operators)
-    (evil-surround-call-with-repeat 'evil-Surround-region))))
-
-(evil-define-operator evil-surround-region (beg end type char &optional force-new-line)
-  "Surround BEG and END with CHAR.
-
-When force-new-line is true, and region type is not line, the
-following: (vertical bars indicate region start/end points)
-
-   do |:thing|
-
-Becomes this:
-
-   do {
-     :thing
-   }"
-
-  (interactive "<R>c")
-  (when (evil-surround-valid-char-p char)
-    (let* ((overlay (make-overlay beg end nil nil t))
-           (pair (or (and (boundp 'pair) pair) (evil-surround-pair char)))
-           (open (car pair))
-           (close (cdr pair))
-           (beg-pos (overlay-start overlay)))
-      (unwind-protect
-          (progn
-            (goto-char beg-pos)
-            (cond ((eq type 'block)
-                   (evil-surround-block beg end char))
-
-                  ((eq type 'line)
-                   (setq force-new-line
-                         (or force-new-line
-                             ;; Force newline if not invoked from an operator, e.g. visual line mode with VS)
-                             (evil-visual-state-p)
-                             ;; Or on multi-line operator surrounds (like 'ysj]')
-                             (/= (line-number-at-pos) (line-number-at-pos (1- end)))))
-
-                   (back-to-indentation)
-                   (setq beg-pos (point))
-                   (insert open)
-                   (when force-new-line (newline-and-indent))
-                   (goto-char (overlay-end overlay))
-                   (if force-new-line
-                       (when (eobp)
-                         (newline-and-indent))
-                     (backward-char)
-                     (evil-last-non-blank)
-                     (forward-char))
-                   (insert close)
-                   (when (or force-new-line
-                             (/= (line-number-at-pos) (line-number-at-pos beg-pos)))
-                     (indent-region beg-pos (point))
-                     (newline-and-indent)))
-
-                  (force-new-line
-                   (insert open)
-                   (newline-and-indent)
-                   (let ((pt (point)))
-                     (goto-char (overlay-end overlay))
-                     (newline-and-indent)
-                     (insert close)
-                     (indent-region pt (point))))
-
-                  (t
-                   (insert open)
-                   (goto-char (overlay-end overlay))
-                   (insert close)))
-            (goto-char beg-pos))
-        (delete-overlay overlay)))))
-
-(evil-define-operator evil-Surround-region (beg end type char)
-  "Call surround-region, toggling force-new-line"
-  (interactive "<R>c")
-  (evil-surround-region beg end type char t))
-
-;;;###autoload
-(define-minor-mode evil-surround-mode
-  "Buffer-local minor mode to emulate surround.vim."
-  :keymap (make-sparse-keymap)
-  (evil-normalize-keymaps))
-
-;;;###autoload
-(defun turn-on-evil-surround-mode ()
-  "Enable evil-surround-mode in the current buffer."
-  (evil-surround-mode 1))
-
-;;;###autoload
-(defun turn-off-evil-surround-mode ()
-  "Disable evil-surround-mode in the current buffer."
-  (evil-surround-mode -1))
-
-;;;###autoload
-(define-globalized-minor-mode global-evil-surround-mode
-  evil-surround-mode turn-on-evil-surround-mode
-  "Global minor mode to emulate surround.vim.")
-
-(evil-define-key 'operator evil-surround-mode-map "s" 'evil-surround-edit)
-(evil-define-key 'operator evil-surround-mode-map "S" 'evil-Surround-edit)
-
-(evil-define-key 'visual evil-surround-mode-map "S" 'evil-surround-region)
-(evil-define-key 'visual evil-surround-mode-map "gS" 'evil-Surround-region)
-
-(provide 'evil-surround)
-
-;;; evil-surround.el ends here
diff --git a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.elc b/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.elc
deleted file mode 100644
index 115058c9c34b..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/evil-surround-20180102.1401/evil-surround.elc
+++ /dev/null
Binary files differ