emacs: Add mm-search.el

2 files changed, 25 insertions, 0 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index bc29838..6c72ae0 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -84,6 +84,10 @@ This function is meant to be used in conjuction with `read-string' and
   (declare (indent 0))
   nil)
 
+(defun mm-nil (&rest _)
+  "Return nil."
+  nil)
+
 (defmacro mm-with-suppressed-output (&rest body)
   "Execute BODY while suppressing output.
 Execute BODY as given with all output to the echo area or the *Messages*
@@ -328,6 +332,7 @@ the buffer without saving it."
 (require 'mm-modeline)                  ; Modeline
 (require 'mm-org)                       ; Org-Mode
 (require 'mm-projects)                  ; Project Management
+(require 'mm-search)                    ; Text Searching
 (require 'mm-spellcheck)                ; Spell Checking
 (require 'mm-tetris)                    ; Emacs Tetris
 (require 'mm-theme)                     ; Themeing
diff --git a/.config/emacs/modules/mm-search.el b/.config/emacs/modules/mm-search.el
new file mode 100644
index 0000000..9de1eed
--- /dev/null
+++ b/.config/emacs/modules/mm-search.el
@@ -0,0 +1,20 @@
+;;; 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))
+
+(provide 'mm-search)
\ No newline at end of file