emacs: Add my/isearch-region advice to isearch

If the region is active, my/isearch-region will add its contents to the
search string.

1 files changed, 11 insertions, 0 deletions

diff --git a/emacs/functions.el b/emacs/functions.el
index e81639a..fc8431f 100644
--- a/emacs/functions.el
+++ b/emacs/functions.el
@@ -9,6 +9,17 @@
   (expand-file-name name (concat (xdg-data-home) "/emacs")))
 
 
+;; Search Helpers
+
+(defun my/isearch-region (&rest _args)
+  "Pull the contents of the region into the search string if it
+is active."
+  (when (use-region-p)
+    (deactivate-mark)
+    (isearch-yank-string (buffer-substring-no-properties
+                          (region-beginning) (region-end)))))
+
+
 ;; Theme Functions
 
 (defun my/macos-dark-p ()