From f72ff38ff03b3eaecff2b68f8536890305417c10 Mon Sep 17 00:00:00 2001
From: Protesilaos <info@protesilaos.com>
Date: Fri, 1 May 2026 19:25:36 +0300
Subject: [PATCH] emacs: define prot-search-collect command

---
 .../prot-emacs-modules/prot-emacs-search.el   |  1 +
 emacs/.emacs.d/prot-emacs.org                 | 33 +++++++++++++++++++
 emacs/.emacs.d/prot-lisp/prot-search.el       | 25 ++++++++++++++
 3 files changed, 59 insertions(+)

diff --git a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-search.el b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-search.el
index f24fb46d..3f18d594 100644
--- a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-search.el
+++ b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-search.el
@@ -43,6 +43,7 @@
    "M-s M-t" #'prot-search-grep-todo-keywords ; With C-u it runs `prot-search-git-grep-todo-keywords'
    "M-s M-T" #'prot-search-git-grep-todo-keywords
    "M-s s" #'prot-search-outline
+   "M-s O" #'prot-search-collect
    "M-s M-o" #'prot-search-occur-outline
    "M-s M-u" #'prot-search-occur-browse-url)
  (prot-emacs-keybind isearch-mode-map
diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org
index 6c2fa340..b18dc724 100644
--- a/emacs/.emacs.d/prot-emacs.org
+++ b/emacs/.emacs.d/prot-emacs.org
@@ -5516,6 +5516,13 @@ where windows/buffers are displayed ([[#h:50f8b1e4-b14e-453f-a37e-1c0e495ab80f][
   down the search and need the preview, at which point I call the
   Consult command on =M-s M-s= ([[#h:22e97b4c-d88d-4deb-9ab3-f80631f9ff1d][The =prot-emacs-completion.el= settings for ~consult~]]).
 
+- Type =M-s O= (not to be conflated with =M-s o= which calls ~occur~)
+  to invoke the command ~prot-search-collect~. It prompts for a
+  regular expression and then collects all its matches in a separate
+  buffer. The regular expression is matches as a substring, which then
+  captures the entire word. For a search for =act= will collect =act=,
+  =enact=, =interact=...
+
 - Type =M-s M-o= (~prot-search-occur-outline~) to produce an outline
   of the given buffer. What constitutes an outline is defined in the
   user option ~prot-search-outline-regexp-alist~. I only configure it
@@ -5558,6 +5565,7 @@ by visiting individual files or by using a grep buffer as an index.
    "M-s M-t" #'prot-search-grep-todo-keywords ; With C-u it runs `prot-search-git-grep-todo-keywords'
    "M-s M-T" #'prot-search-git-grep-todo-keywords
    "M-s s" #'prot-search-outline
+   "M-s O" #'prot-search-collect
    "M-s M-o" #'prot-search-occur-outline
    "M-s M-u" #'prot-search-occur-browse-url)
  (prot-emacs-keybind isearch-mode-map
@@ -16605,6 +16613,31 @@ boundaries, else start from point to the end of the buffer."
 ;;   (isearch-forward-symbol-at-point)
 ;;   (isearch-query-replace-regexp))
 
+(defvar prot-search-collect-history nil
+  "Minibuffer history for `prot-search-collect'.")
+
+;;;###autoload
+(defun prot-search-collect (regexp)
+  "Return matches for REGEXP as a substring in the current buffer.
+Put the results in a *prot-search-collect* buffer."
+  (interactive
+   (list
+    (format "\\<\\w*%s\\w*\\>" (read-string "Collect REGEXP: " nil 'prot-search-collect-history))))
+  (save-excursion
+    (goto-char (point-min))
+    (let ((matches nil))
+      (while (re-search-forward regexp nil t)
+        (push (match-string 0) matches))
+      (when matches
+        (setq matches (nreverse matches))
+        (let ((buffer (get-buffer-create "*prot-search-collect*")))
+          (with-current-buffer buffer
+            (erase-buffer)
+            (dolist (match matches)
+              (insert match)
+              (insert "\n")))
+          (display-buffer buffer))))))
+
 (autoload 'goto-address-mode "goto-addr")
 
 ;;;###autoload
diff --git a/emacs/.emacs.d/prot-lisp/prot-search.el b/emacs/.emacs.d/prot-lisp/prot-search.el
index 2349f840..0c5972cd 100644
--- a/emacs/.emacs.d/prot-lisp/prot-search.el
+++ b/emacs/.emacs.d/prot-lisp/prot-search.el
@@ -190,6 +190,31 @@ boundaries, else start from point to the end of the buffer."
 ;;   (isearch-forward-symbol-at-point)
 ;;   (isearch-query-replace-regexp))
 
+(defvar prot-search-collect-history nil
+  "Minibuffer history for `prot-search-collect'.")
+
+;;;###autoload
+(defun prot-search-collect (regexp)
+  "Return matches for REGEXP as a substring in the current buffer.
+Put the results in a *prot-search-collect* buffer."
+  (interactive
+   (list
+    (format "\\<\\w*%s\\w*\\>" (read-string "Collect REGEXP: " nil 'prot-search-collect-history))))
+  (save-excursion
+    (goto-char (point-min))
+    (let ((matches nil))
+      (while (re-search-forward regexp nil t)
+        (push (match-string 0) matches))
+      (when matches
+        (setq matches (nreverse matches))
+        (let ((buffer (get-buffer-create "*prot-search-collect*")))
+          (with-current-buffer buffer
+            (erase-buffer)
+            (dolist (match matches)
+              (insert match)
+              (insert "\n")))
+          (display-buffer buffer))))))
+
 (autoload 'goto-address-mode "goto-addr")
 
 ;;;###autoload