From 931f7954c4e989ea74747045319d050e6947d8ab Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Thu, 7 Nov 2024 22:01:02 +0100 Subject: emacs: Add mm-search.el --- .config/emacs/init.el | 5 +++++ .config/emacs/modules/mm-search.el | 20 ++++++++++++++++++++ 2 files changed, 25 insertions(+) create mode 100644 .config/emacs/modules/mm-search.el (limited to '.config') 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 -- cgit v1.2.3