minor mode

README.org

@@ -14,7 +14,12 @@ With ~use-package~ + [[https://github.com/radian-software/straight.el][Straight]
               :host gitlab
               :repo "msyds/evil-leap")
    :config
-   ;; Bind `evil-leap-forward' and `evil-leap-backward' here.
+   ;; Optionally rebind `evil-leap-forward' and `evil-leap-backward' from their
+   ;; defaults ('s'/'S').
+   ;;
+   ;;   (evil-define-key* '(motion normal) evil-leap-mode-map
+   ;;      "s" #'evil-leap-forward
+   ;;      "S" #'evil-leap-backward)
    ) 
 #+end_src
 

evil-leap.el

@@ -446,10 +446,23 @@ Keyword arguments
   (interactive "<c>")
   (evil-leap-directional count t))
 
-;; (general-define-key
+
-;;  :states '(motion normal)
+
-;;  "s" #'evil-leap-forward
+(defvar evil-leap-mode-map
-;;  "S" #'evil-leap-backward)
+  (let ((m (make-sparse-keymap)))
+    (evil-define-key* '(motion normal) m
+      "s" #'evil-leap-forward
+      "S" #'evil-leap-backward)
+    m))
+
+(define-minor-mode evil-leap-mode
+  "Enables `evil-leap' in the current buffer.  This mode exists solely for the
+associated keymap."
+  :keymap 'evil-leap-mode-map)
+
+(define-globalized-minor-mode evil-leap-global-mode
+  evil-leap-mode
+  (lambda () (evil-leap-mode 1)))