diff options
| author | Jack Jamison <jackqjamison@gmail.com> | 2026-07-30 20:09:00 -0400 |
|---|---|---|
| committer | Jack Jamison <jackqjamison@gmail.com> | 2026-07-30 20:18:37 -0400 |
| commit | 8c4e09dff83847ac7f07bf1da7751e9328006c4d (patch) | |
| tree | a0e245567ce225f8bcb63b66e4d2373b5d033e4a /.config/emacs/lisp/evil-collection/modes/eval-sexp-fu | |
| parent | 1e33b30749bb1043ffc6ceb5a2fb0977446788b3 (diff) | |
actual final changes and get rid of junk in lisp dir
actually works fine
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/eval-sexp-fu')
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/eval-sexp-fu/README.org | 16 | ||||
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/eval-sexp-fu/evil-collection-eval-sexp-fu.el | 61 |
2 files changed, 0 insertions, 77 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/eval-sexp-fu/README.org b/.config/emacs/lisp/evil-collection/modes/eval-sexp-fu/README.org deleted file mode 100644 index 6563ec9..0000000 --- a/.config/emacs/lisp/evil-collection/modes/eval-sexp-fu/README.org +++ /dev/null @@ -1,16 +0,0 @@ -* eval-sexp-fu - - Evil compatibility for [[https://github.com/hchbaw/eval-sexp-fu.el][eval-sexp-fu]]. No key bindings. - - When =evil-move-beyond-eol= is nil, the setup advises - =ad-Advice-eval-last-sexp= so that =eval-last-sexp= treats the sexp under - point as ending at point (rather than one character earlier as evil's - normal-state cursor positioning would imply). This makes =C-x C-e= and - related commands work the way they do in evil's insert/emacs states. - -** New commands - - - =evil-collection-eval-sexp-fu-bounds-of-thing-at-point-sexp= - Advice - wrapper that fixes the sexp bounds in evil normal/motion state. - - =evil-collection-eval-sexp-fu-advise-bounds-of-thing-at-point= - Wraps - the advice around a single call to =eval-last-sexp=. diff --git a/.config/emacs/lisp/evil-collection/modes/eval-sexp-fu/evil-collection-eval-sexp-fu.el b/.config/emacs/lisp/evil-collection/modes/eval-sexp-fu/evil-collection-eval-sexp-fu.el deleted file mode 100644 index b6743cb..0000000 --- a/.config/emacs/lisp/evil-collection/modes/eval-sexp-fu/evil-collection-eval-sexp-fu.el +++ /dev/null @@ -1,61 +0,0 @@ -;;; evil-collection-eval-sexp-fu.el --- Bindings for `eval-sexp-fu' -*- lexical-binding: t -*- - -;; Copyright (C) 2017 James Nguyen - -;; Author: James Nguyen <james@jojojames.com> -;; Maintainer: James Nguyen <james@jojojames.com> -;; Pierre Neidhardt <mail@ambrevar.xyz> -;; URL: https://github.com/emacs-evil/evil-collection -;; Version: 0.0.1 -;; Package-Requires: ((emacs "26.3")) -;; Keywords: evil, eval-sexp-fu, tools - -;; 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: -;;; Bindings for `eval-sexp-fu'. - -;;; Code: -(require 'evil-collection) -(require 'eval-sexp-fu nil t) - -(defconst evil-collection-eval-sexp-fu-maps nil) - -(defun evil-collection-eval-sexp-fu-bounds-of-thing-at-point-sexp (command &rest args) - "In normal-state or motion-state, last sexp ends at point." - (if (and (eq (nth 0 args) 'sexp) - (and (not evil-move-beyond-eol) - (or (evil-normal-state-p) (evil-motion-state-p)))) - (save-excursion - (unless (or (eobp) (eolp)) (forward-char)) - (apply command args)) - (apply command args))) - -(defun evil-collection-eval-sexp-fu-advise-bounds-of-thing-at-point (command &rest args) - "Advise `bounds-of-thing-at-point' to handle `evil's `evil-move-beyond-eol'." - (advice-add 'bounds-of-thing-at-point - :around 'evil-collection-eval-sexp-fu-bounds-of-thing-at-point-sexp) - (apply command args) - (advice-remove 'bounds-of-thing-at-point - 'evil-collection-eval-sexp-fu-bounds-of-thing-at-point-sexp)) - -;;;###autoload -(defun evil-collection-eval-sexp-fu-setup () - "Set up `evil' with `eval-sexp-fu'." - (unless evil-move-beyond-eol - (advice-add 'ad-Advice-eval-last-sexp - :around 'evil-collection-eval-sexp-fu-advise-bounds-of-thing-at-point))) - -(provide 'evil-collection-eval-sexp-fu) -;;; evil-collection-eval-sexp-fu.el ends here |
