diff options
Diffstat (limited to '.config/emacs/lisp/evil-collection/modes/scroll-lock')
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/scroll-lock/README.org | 24 | ||||
| -rw-r--r-- | .config/emacs/lisp/evil-collection/modes/scroll-lock/evil-collection-scroll-lock.el | 87 |
2 files changed, 0 insertions, 111 deletions
diff --git a/.config/emacs/lisp/evil-collection/modes/scroll-lock/README.org b/.config/emacs/lisp/evil-collection/modes/scroll-lock/README.org deleted file mode 100644 index 4b80844..0000000 --- a/.config/emacs/lisp/evil-collection/modes/scroll-lock/README.org +++ /dev/null @@ -1,24 +0,0 @@ -* scroll-lock - - Evil bindings for [[https://www.gnu.org/software/emacs/manual/html_node/emacs/Scrolling.html][scroll-lock-mode]]. - -** Key bindings - - Standard evil motions are remapped to scroll-lock equivalents so the - cursor stays fixed while the buffer scrolls. - - | Command | Remaps from | - |--------------------------------------------------+---------------------------| - | =evil-collection-scroll-lock-next-line= | =evil-next-line= | - | =evil-collection-scroll-lock-previous-line= | =evil-previous-line= | - | =evil-collection-scroll-lock-forward-paragraph= | =evil-forward-paragraph= | - | =evil-collection-scroll-lock-backward-paragraph= | =evil-backward-paragraph= | - -** New commands - - | Command | | - |--------------------------------------------------+------------------------------------| - | =evil-collection-scroll-lock-next-line= | line-wise scroll down, point fixed | - | =evil-collection-scroll-lock-previous-line= | line-wise scroll up, point fixed | - | =evil-collection-scroll-lock-forward-paragraph= | paragraph scroll down (=:jump t=) | - | =evil-collection-scroll-lock-backward-paragraph= | paragraph scroll up (=:jump t=) | diff --git a/.config/emacs/lisp/evil-collection/modes/scroll-lock/evil-collection-scroll-lock.el b/.config/emacs/lisp/evil-collection/modes/scroll-lock/evil-collection-scroll-lock.el deleted file mode 100644 index ae81b10..0000000 --- a/.config/emacs/lisp/evil-collection/modes/scroll-lock/evil-collection-scroll-lock.el +++ /dev/null @@ -1,87 +0,0 @@ -;;; evil-collection-scroll-lock.el --- Bindings for `scroll-lock' -*- lexical-binding: t -*- - -;; Copyright (C) 2021 James Nguyen - -;; Author: James Nguyen <james@jojojames.com> -;; Maintainer: James Nguyen <james@jojojames.com> -;; URL: https://github.com/emacs-evil/evil-collection -;; Version: 0.0.1 -;; Package-Requires: ((emacs "26.3")) -;; Keywords: evil, elisp, lisp - -;; 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 `scroll-lock'. - -;;; Code: -(require 'scroll-lock) -(require 'evil-collection) - -(declare-function scroll-lock-next-line "scroll-lock") -(declare-function scroll-lock-previous-line "scroll-lock") -(declare-function scroll-lock-forward-paragraph "scroll-lock") -(declare-function scroll-lock-backward-paragraph "scroll-lock") - -(defconst evil-collection-scroll-lock-maps '(scroll-lock-mode-map)) - -(evil-define-motion evil-collection-scroll-lock-next-line (count) - "Scroll down COUNT lines keeping point fixed." - :type line - (let (line-move-visual) - (scroll-lock-next-line (or count 1)))) - -(evil-define-motion evil-collection-scroll-lock-previous-line (count) - "Scroll up COUNT lines keeping point fixed." - :type line - (let (line-move-visual) - (scroll-lock-previous-line (or count 1)))) - -(evil-define-motion evil-collection-scroll-lock-forward-paragraph (count) - "Scroll down COUNT paragraphs keeping point fixed." - :jump t - :type exclusive - (evil-signal-at-bob-or-eob count) - (scroll-lock-forward-paragraph count) - (unless (eobp) (forward-line))) - -(evil-define-motion evil-collection-scroll-lock-backward-paragraph (count) - "Scroll up COUNT paragraphs keeping point fixed." - :jump t - :type exclusive - (evil-signal-at-bob-or-eob (- (or count 1))) - (unless (eobp) (forward-line)) - (scroll-lock-backward-paragraph count) - (unless (bobp) (forward-line -1))) - -;;;###autoload -(defun evil-collection-scroll-lock-setup () - "Set up `evil' bindings for `scroll-lock'." - (evil-collection-define-key 'normal 'scroll-lock-mode-map - [remap evil-next-line] 'evil-collection-scroll-lock-next-line - [remap evil-previous-line] 'evil-collection-scroll-lock-previous-line - [remap evil-forward-paragraph] - 'evil-collection-scroll-lock-forward-paragraph - [remap evil-backward-paragraph] - 'evil-collection-scroll-lock-backward-paragraph) - - (evil-add-command-properties - #'evil-collection-scroll-lock-forward-paragraph :jump t) - (evil-add-command-properties - #'evil-collection-scroll-lock-backward-paragraph :jump t) - - (add-hook 'scroll-lock-mode-hook 'evil-normalize-keymaps)) - -(provide 'evil-collection-scroll-lock) -;;; evil-collection-scroll-lock.el ends here |