Preserve cursor+window position, rather than recenter

After n/N or */# searches with evil.

core/autoload/ui.el

@@ -28,9 +28,19 @@ are open."
 
 ;;;###autoload
 (defun doom-recenter-a (&rest _)
-  "Generic advisor for recentering window (typically :after other functions)."
+  "Generic advice for recentering window (typically :after other functions)."
   (recenter))
 
+;;;###autoload
+(defun doom-preserve-window-position-a (orig-fn &rest args)
+  "Generic advice for preserving cursor position on screen after scrolling."
+  (let ((row (cdr (posn-col-row (posn-at-point)))))
+    (prog1 (apply orig-fn args)
+      (save-excursion
+        (let ((target-row (- (line-number-at-pos) row)))
+          (unless (< target-row 0)
+            (evil-scroll-line-to-top target-row)))))))
+
 ;;;###autoload
 (defun doom-shut-up-a (orig-fn &rest args)
   "Generic advisor for silencing noisy functions.

modules/editor/evil/config.el

@@ -174,7 +174,7 @@ directives. By default, this only recognizes C directives.")
                 evil-ex-search-previous
                 evil-ex-search-forward
                 evil-ex-search-backward))
-    (advice-add fn :after #'doom-recenter-a))
+    (advice-add fn :around #'doom-preserve-window-position-a))
 
   ;; --- custom interactive codes -----------
   ;; These arg types will highlight matches in the current buffer