diff --git a/evil-collection.el b/evil-collection.el index 078cafbd..5a95496b 100644 --- a/evil-collection.el +++ b/evil-collection.el @@ -328,6 +328,7 @@ See `evil-collection-init' and `evil-collection--modes-with-delayed-setup'." trashed tuareg typescript-mode + ultra-scroll vc-annotate vc-dir vc-git diff --git a/modes/ultra-scroll/evil-collection-ultra-scroll.el b/modes/ultra-scroll/evil-collection-ultra-scroll.el new file mode 100644 index 00000000..fcc4aec9 --- /dev/null +++ b/modes/ultra-scroll/evil-collection-ultra-scroll.el @@ -0,0 +1,58 @@ +;;; evil-collection-ultra-scroll.el --- Evil integration for ultra-scroll -*- lexical-binding: t -*- + +;; Copyright (C) 2025 Steven Allen + +;; Author: Steven Allen +;; Maintainer: James Nguyen +;; Pierre Neidhardt +;; URL: https://github.com/emacs-evil/evil-collection +;; Version: 0.0.1 +;; Package-Requires: ((emacs "27.1")) +;; Keywords: evil, ultra-scroll, 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 . + +;;; Commentary: +;; Evil integration for ultra-scroll. + +;;; Code: + +(require 'evil-collection) +(require 'ultra-scroll nil t) + +(defvar evil-collection-ultra-scroll-hide-cursor-states + '(evil-motion-state-cursor evil-normal-state-cursor) + "States in which to hide the cursor when scrolling.") + +(defun evil-collection-ultra-scroll--hide-cursor () + "A special Evil cursor type that simply hides the cursor." + (setq cursor-type nil)) + +(defun evil-collection-ultra-scroll--set-cursor-visible (arg) + "Make the cursor invisible when called with ARG < 1, or visible otherwise." + (when (bound-and-true-p evil-local-mode) + (if (and (numberp arg) (< arg 1)) + (dolist (var evil-collection-ultra-scroll-hide-cursor-states) + (make-local-variable var) + (set var #'evil-collection-ultra-scroll--hide-cursor)) + (mapc #'kill-local-variable evil-collection-ultra-scroll-hide-cursor-states) + (evil-refresh-cursor)))) + +(defun evil-collection-ultra-scroll-setup () + "Set up `evil' integration for `ultra-scroll'." + (add-hook 'ultra-scroll-hide-functions #'evil-collection-ultra-scroll--set-cursor-visible)) + +(provide 'evil-collection-ultra-scroll) + +;;; evil-collection-ultra-scroll.el ends here