normalize to display using swtich-to-buffer and recenter

Signed-off-by: Psionik K <73710933+psionic-k@users.noreply.github.com>

Author: psionic-k

lisp/erk.el

@@ -385,7 +385,8 @@ what to do with it (yet).  Returns `(def . name)' form."
         (after ")))"))
     (insert before)
     (save-excursion
-      (insert after))))
+      (insert after))
+    (recenter)))
 
 (defun erk--make-test-symbol (symbol)
   "Convert defun SYMBOL into test symbol."
@@ -417,8 +418,9 @@ corresponding `defun' are supported."
                            (progn (erk-reload-project-tests)
                                   (when (ert-test-boundp test-name) test-name)))))
             (if test
-                (progn (ert-find-test-other-window test)
-                       (forward-sexp))
+                (progn (find-function-do-it test 'ert--test 'switch-to-buffer)
+                       (forward-sexp)
+                       (recenter))
               (let ((test-buffer (erk-jump-features)))
                 (when (y-or-n-p (format  "%s not found.  Create? "
                                          test-name))
@@ -431,7 +433,8 @@ corresponding `defun' are supported."
             (if def
                 (progn
                   (find-function-do-it def nil 'switch-to-buffer)
-                  (forward-sexp))
+                  (forward-sexp)
+                  (recenter))
               (progn (erk-jump-features)
                      (user-error "Definition not found: %s" def-name)))))
       (_

test/erk-test.el

@@ -112,6 +112,17 @@
      (erk-jump-features)
      (string-match-p "lisp" default-directory))))
 
+(ert-deftest erk-jump-defs-test ()
+  (should
+   (save-window-excursion
+     (find-file (concat (erk--project-elisp-dir)
+                        "/erk.el"))
+     (save-excursion
+       (goto-char (point-min))
+       (search-forward "(defun erk-jump-defs")
+       (erk-jump-defs)
+       (string-match-p "erk-test.el" (buffer-file-name (current-buffer)))))))
+
 (ert-deftest erk--project-elisp-dir-test ()
   (should (erk--project-elisp-dir)))