From 240973f98e87431a5678188f653224013b9501a8 Mon Sep 17 00:00:00 2001
From: Grégoire Duchêne <gduchene@awhk.org>
Date: Sat, 15 Jan 2022 13:48:37 +0000
Subject: emacs: Add my/swiper and bind it to C-c s

If the region is active, my/swiper will call swiper with the contents of
the region as initial input. Also, When invoked with a prefix argument,
swiper-all is called instead.
---
 emacs/init.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'emacs/init.el')

diff --git a/emacs/init.el b/emacs/init.el
index 554d7c1..30140ce 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -89,8 +89,7 @@
 (counsel-mode 1)
 (diminish 'counsel-mode)
 
-(global-set-key (kbd "C-c s") #'swiper)
-(global-set-key (kbd "C-c x") #'swiper-all)
+(global-set-key (kbd "C-c s") #'my/swiper)
 
 (dolist (fn '(isearch-forward isearch-backward))
   (advice-add fn :after #'my/isearch-region))
-- 
cgit v1.2.3-70-g09d2