familiar isearch key bindings while helm is active

diff --git a/swiper.el b/swiper.el
index ade90681e04c58a73921ff14cbfbae1f0961b714..32430695b2348c2bd149ecfb07e95ad6db47a49e 100644 (file)
--- a/swiper.el
+++ b/swiper.el
@@ -96,6 +96,13 @@
         (zerop (forward-line 1)))
       (nreverse candidates))))
 
+(defvar swiper--keymap
+  (let ((map (copy-keymap helm-map)))
+    (define-key map (kbd "C-s") 'helm-next-line)
+    (define-key map (kbd "C-r") 'helm-previous-line)
+    map)
+  "Allows you to go to next and previous hit isearch-style")
+
 ;;;###autoload
 (defun swiper ()
   "Interactive `occur' using `helm'."
@@ -127,6 +134,7 @@
                  (filtered-candidate-transformer
                   helm-fuzzy-highlight-matches)
                  (action . swiper--action))
+               :keymap swiper--keymap
                :preselect
                (format "^%d " swiper--anchor)
                :buffer "*swiper*"))