diff options
Diffstat (limited to 'elpa/evil-visual-mark-mode-20190116.1557')
4 files changed, 0 insertions, 251 deletions
diff --git a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-autoloads.el b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-autoloads.el deleted file mode 100644 index de450aa..0000000 --- a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-autoloads.el +++ /dev/null @@ -1,43 +0,0 @@ -;;; evil-visual-mark-mode-autoloads.el --- automatically extracted autoloads -;; -;;; Code: - -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) - - -;;;### (autoloads nil "evil-visual-mark-mode" "evil-visual-mark-mode.el" -;;;;;; (0 0 0 0)) -;;; Generated autoloads from evil-visual-mark-mode.el - -(defvar evil-visual-mark-mode nil "\ -Non-nil if Evil-Visual-Mark mode is enabled. -See the `evil-visual-mark-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 `evil-visual-mark-mode'.") - -(custom-autoload 'evil-visual-mark-mode "evil-visual-mark-mode" nil) - -(autoload 'evil-visual-mark-mode "evil-visual-mark-mode" "\ -Makes evil marks visible and easy to remember. - -If called interactively, enable Evil-Visual-Mark mode if ARG is -positive, and disable it if ARG is zero or negative. If called -from Lisp, also enable the mode if ARG is omitted or nil, and -toggle it if ARG is `toggle'; disable the mode otherwise. - -\(fn &optional ARG)" t nil) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "evil-visual-mark-mode" '("evil-"))) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; coding: utf-8 -;; End: -;;; evil-visual-mark-mode-autoloads.el ends here diff --git a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-pkg.el b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-pkg.el deleted file mode 100644 index cf8b722..0000000 --- a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; Generated package description from evil-visual-mark-mode.el -*- no-byte-compile: t -*- -(define-package "evil-visual-mark-mode" "20190116.1557" "Display evil marks on buffer" '((evil "1.0.9") (dash "2.10")) :commit "ac5997971972a9251f140b5542d82790ca4a43b4" :authors '(("Roman Gonzalez" . "romanandreg@gmail.com")) :maintainer '("Roman Gonzalez" . "romanandreg@gmail.com") :keywords '("evil")) diff --git a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el deleted file mode 100644 index cdc630c..0000000 --- a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el +++ /dev/null @@ -1,206 +0,0 @@ -;;; evil-visual-mark-mode.el --- Display evil marks on buffer - -;; Copyright (C) 2015 Roman Gonzalez. - -;; Author: Roman Gonzalez <romanandreg@gmail.com> -;; Maintainer: Roman Gonzalez <romanandreg@gmail.com> -;; Version: 0.0.3 -;; Package-Version: 20190116.1557 -;; Package-Commit: ac5997971972a9251f140b5542d82790ca4a43b4 -;; Package-Requires: ((evil "1.0.9") (dash "2.10")) -;; Keywords: evil - -;; This file is not part of GNU Emacs. - -;; This program 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. This program 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: - -;; evil-visual-mark-mode displays all the evil marks you have -;; registered on a buffer. The purpose of this extension is to enhance -;; the marks in a buffer, normally when you set a mark on a position -;; is because you figured you are going to come back later, also you -;; would like to track all your important functions without having to -;; follow each marker. - -;;; Code: - - -(require 'evil) -(require 'dash) - - -(defgroup evil-visual-mark-mode nil - "Display evil marks on buffer." - :prefix "evil-visual-mark-mode" - :group 'evil) - -(defcustom evil-visual-mark-exclude-marks '("^" "[" "]") - "Marks which should not be displayed on buffer." - :type '(repeat string) - :group 'evil-visual-mark-mode) - - -(defvar evil-visual-mark-overlay-alist '() - "List of evil visual mark overlays.") - -(defface evil-visual-mark-face - '((t (:foreground "white" - :background "#8b008b" - :underline t))) - "Face for evil visual marks" - :group 'evil-visual-mark) - -(defun evil-visual-mark-make-overlay (marker) - "Create an overlay for the given MARKER. - -This marker will normally come from the advised evil-set-marker -function." - (make-overlay marker marker)) - -(defun evil-visual-mark-overlay-put (char overlay) - "Puts marker CHAR in created OVERLAY." - (unless (member (format "%c" char) evil-visual-mark-exclude-marks) - (overlay-put overlay - 'before-string - (propertize (format "`%c" char) - 'face - 'evil-visual-mark-face))) - overlay) - -(defun evil-visual-mark-populate-overlay-alist () - "Populate the `evil-visual-mark-overlay-alist'. - -This function is called when enabling the evil-visual-marker-mode." - (evil-visual-mark-cleanup) - (setq evil-visual-mark-overlay-alist - (->> evil-markers-alist - (-filter (lambda (it) (markerp (cdr it)))) - (-map - (lambda (it) - (let* ((letter (car it)) - (buffer (evil-marker-get-buffer letter)) - (marker (cdr it)) - (new-item (list nil nil)) - (new-overlay (evil-visual-mark-make-overlay marker))) - - (setf (car new-item) (cons letter buffer)) - (setf (cdr new-item) new-overlay) - - - new-item)))))) - - -(defun evil-visual-mark-hide () - "Hide all evil markers. - -This function is called on `evil-normal-state-exit-hook.'" - (--each evil-visual-mark-overlay-alist - (overlay-put (cdr it) - 'before-string - ""))) - -(defun evil-visual-mark-show () - "Show all evil markers. - -This function is called on `evil-normal-state-entry-hook'." - (--each evil-visual-mark-overlay-alist - (evil-visual-mark-overlay-put (car (car it)) (cdr it)))) - -(defun evil-visual-mark-render () - "Render for the first time the evil mark list. - -This function is called on the initialization of -`evil-visual-mark-mode'" - (evil-visual-mark-populate-overlay-alist) - (when (evil-normal-state-p) - (--each evil-visual-mark-overlay-alist - (evil-visual-mark-overlay-put (car (car it)) - (cdr it))))) - -(defun evil-visual-mark-cleanup () - "Remove all overlays that were created by this mode. - -This function is called when disabling `evil-visual-mark-mode'" - (-each evil-visual-mark-overlay-alist - (lambda (it) (delete-overlay (cdr it)))) - (setq evil-visual-mark-overlay-alist '())) - -(defun evil-global-marker-char? (char) - (and (>= char ?A) (<= char ?Z))) - -(defun evil-marker-get-buffer (char) - (if (evil-global-marker-char? char) - 'global - (current-buffer))) - -(defun evil-marker-get-item (char) - (let* ((buffer (evil-marker-get-buffer char))) - (assoc (cons char buffer) evil-visual-mark-overlay-alist))) - -(defun evil-visual-mark-update-mark (char marker) - "Update overlay value for CHAR. - -This function gets called from advising `evil-set-marker', the MARKER is -the result of calling that function." - (when (and marker - (markerp marker)) - - (let* ((new-overlay (evil-visual-mark-make-overlay marker)) - (buffer (evil-marker-get-buffer char)) - (old-item (evil-marker-get-item char)) - (old-overlay (and old-item (cdr old-item)))) - - ;; update overlay state for given char - (if old-item - (setf (cdr old-item) new-overlay) - (let ((new-item (list nil nil))) - (setf (car new-item) (cons char buffer)) - (setf (cdr new-item) new-overlay) - (add-to-list 'evil-visual-mark-overlay-alist - new-item))) - - ;; delete old overlay from view - (when old-overlay - (delete-overlay old-overlay)) - - ;; add new overlay to view - (evil-visual-mark-overlay-put char new-overlay)))) - -(defadvice evil-set-marker (around compile) - "Listens when an evil marker is being created/updated. - -This updates the overlays that show the evil marks on buffer." - (let ((char (ad-get-arg 0)) - (marker ad-do-it)) - (evil-visual-mark-update-mark char marker))) - -;;;###autoload -(define-minor-mode evil-visual-mark-mode - "Makes evil marks visible and easy to remember." - :global t - (if evil-visual-mark-mode - (progn - (ad-activate 'evil-set-marker) - (add-hook 'evil-normal-state-exit-hook 'evil-visual-mark-hide) - (add-hook 'evil-normal-state-entry-hook 'evil-visual-mark-show) - (evil-visual-mark-render)) - (progn - (ad-deactivate 'evil-set-marker) - (remove-hook 'evil-normal-state-exit-hook 'evil-visual-mark-hide) - (remove-hook 'evil-normal-state-entry-hook 'evil-visual-mark-show) - (evil-visual-mark-cleanup)))) - - -(provide 'evil-visual-mark-mode) - -;;; evil-visual-mark-mode.el ends here diff --git a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.elc b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.elc Binary files differdeleted file mode 100644 index 8d98368..0000000 --- a/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.elc +++ /dev/null |