diff options
| author | Grégoire Duchêne <gduchene@awhk.org> | 2022-01-15 13:47:27 +0000 |
|---|---|---|
| committer | Grégoire Duchêne <gduchene@awhk.org> | 2022-01-15 13:47:27 +0000 |
| commit | 890c31f329c9f17641a6f4068aa3ae7116b60db6 (patch) | |
| tree | 7c4ee24caf2662bd1e70cee8247aedded1edc69f /emacs | |
| parent | 248356d1dc46710e182354f9fc18af3dbc5676d1 (diff) | |
emacs: Add my/isearch-region advice to isearch
If the region is active, my/isearch-region will add its contents to the
search string.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/functions.el | 11 | ||||
| -rw-r--r-- | emacs/init.el | 5 |
2 files changed, 15 insertions, 1 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 () diff --git a/emacs/init.el b/emacs/init.el index 36b3d32..554d7c1 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -81,7 +81,7 @@ (global-set-key (kbd "C-x C-b") #'ibuffer) -;; Ivy +;; Search and Completion Management (ivy-mode 1) (diminish 'ivy-mode) @@ -92,6 +92,9 @@ (global-set-key (kbd "C-c s") #'swiper) (global-set-key (kbd "C-c x") #'swiper-all) +(dolist (fn '(isearch-forward isearch-backward)) + (advice-add fn :after #'my/isearch-region)) + ;; Theme Management |