From ef160dea332af4b4fe5e2717b962936c67e5fe9e Mon Sep 17 00:00:00 2001 From: Matthew Kosarek Date: Tue, 7 Jun 2022 06:33:16 -0400 Subject: Word wrap mode and indent mode in org --- .../evil-visual-mark-mode-autoloads.el | 43 +++++ .../evil-visual-mark-mode-pkg.el | 2 + .../evil-visual-mark-mode.el | 206 +++++++++++++++++++++ .../evil-visual-mark-mode.elc | Bin 0 -> 7235 bytes 4 files changed, 251 insertions(+) create mode 100644 elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-autoloads.el create mode 100644 elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-pkg.el create mode 100644 elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.el create mode 100644 elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.elc (limited to 'elpa/evil-visual-mark-mode-20190116.1557') 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 new file mode 100644 index 0000000..de450aa --- /dev/null +++ b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-autoloads.el @@ -0,0 +1,43 @@ +;;; 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 new file mode 100644 index 0000000..cf8b722 --- /dev/null +++ b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode-pkg.el @@ -0,0 +1,2 @@ +;;; 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 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 +;; Maintainer: Roman Gonzalez +;; 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 +;; . + +;;; 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 new file mode 100644 index 0000000..8d98368 Binary files /dev/null and b/elpa/evil-visual-mark-mode-20190116.1557/evil-visual-mark-mode.elc differ -- cgit v1.2.1