diff options
Diffstat (limited to '.config/emacs/modules/mm-search.el')
| -rw-r--r-- | .config/emacs/modules/mm-search.el | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/.config/emacs/modules/mm-search.el b/.config/emacs/modules/mm-search.el deleted file mode 100644 index c89b9d0..0000000 --- a/.config/emacs/modules/mm-search.el +++ /dev/null @@ -1,57 +0,0 @@ -;;; mm-search.el --- Emacs text searching -*- lexical-binding: t; -*- - -;;; Classic Emacs text search - -(use-package isearch - :demand t - :bind ( :map isearch-mode-map - ("M-/" . isearch-complete) - :map minibuffer-local-isearch-map - ("M-/" . isearch-complete-edit)) - :custom - (search-whitespace-regexp ".*?") - (isearch-lax-whitespace t) - (isearch-regexp-lax-whitespace nil) - (isearch-lazy-count t) - (lazy-highlight-initial-delay 0) - (lazy-count-prefix-format "(%s/%s) ") - (isearch-repeat-on-direction-change t)) - -(defun mm--project-find-wrapper (command regexp) - (let (csf) - (cond ((string-suffix-p "/i" regexp) - (setq regexp (string-remove-suffix "/i" regexp) - csf t)) - ((string-suffix-p "/I" regexp) - (setq regexp (string-remove-suffix "/I" regexp) - csf nil)) - (:else - (setq csf case-fold-search))) - (let ((case-fold-search csf)) - (funcall-interactively command regexp)))) - -(defun mm-project-find-regexp (regexp) - "Find all matches for REGEXP in the current project’s roots. -This is a thin wrapper around `project-find-regexp' that supports the -`/i' and `/I' suffixes to enable and disable case-sensitive matching -respectively." - (interactive (list (project--read-regexp))) - (mm--project-find-wrapper #'project-find-regexp regexp)) - -(defun mm-project-or-external-find-regexp (regexp) - "Find all matches for REGEXP in the project roots or external roots. -This is a thin wrapper around `project-or-external-find-regexp' that -supports the `/i' and `/I' suffixes to enable and disable case-sensitive -matching respectively." - (interactive (list (project--read-regexp))) - (mm--project-find-wrapper #'project-or-external-find-regexp regexp)) - - -;;; Grab Integration - -(use-package grab - :commands (grab git-grab project-grab project-git-grab) - :custom - (grab-default-pattern '("x/^.*?$/ g// h//" . 12))) - -(provide 'mm-search) |