[elpa] master 9407b21 021/348: swiper.el (swiper-action-recenter): New defcustom

[Oleh Krehel]

branch: master
commit 9407b21b428e65c19b28c16748c8ff777ba89841
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    swiper.el (swiper-action-recenter): New defcustom
    
    * swiper.el (swiper--action): Recenter accordingly.
    
    Re #116
---
 swiper.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/swiper.el b/swiper.el
index ef1381b..50aac67 100644
--- a/swiper.el
+++ b/swiper.el
@@ -580,6 +580,10 @@ WND, when specified is the window."
                     (overlay-put overlay 'priority i)))
                 (cl-incf i)))))))))
 
+(defcustom swiper-action-recenter nil
+  "When non-nil, recenter after exiting `swiper'."
+  :type 'boolean)
+
 (defun swiper--action (x)
   "Goto line X."
   (let ((ln (1- (read (or (get-text-property 0 'display x)
@@ -599,6 +603,8 @@ WND, when specified is the window."
                  ln)
         (re-search-forward re (line-end-position) t)
         (swiper--ensure-visible)
+        (when swiper-action-recenter
+          (recenter))
         (when (/= (point) swiper--opoint)
           (unless (and transient-mark-mode mark-active)
             (when (eq ivy-exit 'done)