diff options
Diffstat (limited to 'elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el')
| -rw-r--r-- | elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el | 206 |
1 files changed, 206 insertions, 0 deletions
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 new file mode 100644 index 0000000..cdc630c --- /dev/null +++ b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el @@ -0,0 +1,206 @@ +;;; 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 |