Push to jump list by default for unscoped motions, closes #29

Author: PythonNut

README.md

@@ -93,6 +93,10 @@ If `expr` is non-`nil`, the motion will be executed in all visible windows simul
 
 When specified, `(goto-char (funcall callable))` is run before the motion is executed. For example, use this to jump to the BOL of each line as in easymotion with `:initial-position #'point-at-bol`. Unlike in `:pre-hook`, `callable` is run once per window when `:all-windows` is specified.
 
+* `:push-jump expr` 
+
+When `expr` is non-`nil`, the motion will push to the `evil` jump list before jumping. This defaults to `t` when the motion is un`:scope`ed.
+
 * `:collect-postprocess callable`
 
 When specified, `callable` is called on the collected list of points (which is of the form `((point window)...)`). Otherwise, the default function, which sorts the points in order of increasing distance from `(point)`, is used.

evil-easymotion.el

@@ -178,6 +178,7 @@
                                  scope
                                  all-windows
                                  initial-point
+                                 push-jump
                                  collect-postprocess)
   "Automatically define an evil easymotion for `func', naming it `name'"
   `(,(if all-windows
@@ -189,6 +190,8 @@
       (evil-without-repeat
         ,(evilem--compute-inclusivity funcs)
         (cl-letf* ,bind
+          ,(when (or push-jump (not scope))
+             '(evil--jumps-push))
           ,(when pre-hook `(funcall ,(if (functionp pre-hook)
                                          pre-hook
                                        `(lambda () ,pre-hook))))
@@ -238,6 +241,7 @@
                             scope
                             all-windows
                             initial-point
+                            push-jump
                             collect-postprocess)
   `(evilem-make-motion
     ,(or (evilem--unquote name)
@@ -249,6 +253,7 @@
     :scope ,scope
     :all-windows ,all-windows
     :initial-point ,initial-point
+    :push-jump ,push-jump
     :collect-postprocess ,collect-postprocess))
 
 (cl-defmacro evilem-create-plain (motions
@@ -283,6 +288,7 @@
                             scope
                             all-windows
                             initial-point
+                            push-jump
                             collect-postprocess)
   "Automatically create and bind an evil motion"
   `(define-key ,(if all-windows
@@ -297,6 +303,7 @@
                     :scope ,scope
                     :all-windows ,all-windows
                     :initial-point ,initial-point
+                    :push-jump ,push-jump
                     :collect-postprocess ,collect-postprocess)))
 
 ;;;###autoload