minor mode

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
-;;  "S" #'evil-leap-backward)
+
+
+(defvar evil-leap-mode-map
+  (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)))