swiper.el (swiper-thing-at-point): Add

Fixes abo-abo#2027
astoff · Jan 1, 2021 · 68faade · 68faade
1 parent 78a06c0
commit 68faade
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/swiper.el b/swiper.el
@@ -503,6 +503,15 @@ When non-nil, INITIAL-INPUT is the initial search pattern."
   (interactive)
   (swiper--ivy (swiper--candidates) initial-input))
 
+;;;###autoload
+(defun swiper-thing-at-point ()
+  "`swiper' with `ivy-thing-at-point'."
+  (interactive)
+  (let ((thing (ivy-thing-at-point)))
+    (when (use-region-p)
+      (deactivate-mark))
+    (swiper thing)))
+
 (defvar swiper--current-window-start nil
   "Store `window-start' to restore it later.
 This prevents a \"jumping\" behavior which occurs when variables