From 240973f98e87431a5678188f653224013b9501a8 Mon Sep 17 00:00:00 2001 From: Grégoire Duchêne 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/functions.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'emacs/functions.el') diff --git a/emacs/functions.el b/emacs/functions.el index fc8431f..b322af6 100644 --- a/emacs/functions.el +++ b/emacs/functions.el @@ -19,6 +19,17 @@ is active." (isearch-yank-string (buffer-substring-no-properties (region-beginning) (region-end))))) +(defun my/swiper (&optional swiper-all) + "Call ‘swiper’ (‘swiper-all’ when prefixed) with the contents +of the region if it is active." + (interactive "P") + (if (use-region-p) + (let ((initial-input (buffer-substring-no-properties + (region-beginning) (region-end)))) + (deactivate-mark) + (if swiper-all (swiper-all initial-input) (swiper initial-input))) + (if swiper-all (swiper-all) (swiper)))) + ;; Theme Functions -- cgit v1.2.3-70-g09d2