From 65c884db6c2ec90a4a2c3995b27a515f3ff20a56 Mon Sep 17 00:00:00 2001
From: Vedang Manerikar <ved.manerikar@gmail.com>
Date: Sun, 29 Dec 2024 20:59:32 +0530
Subject: [PATCH] Add noccur-dired for multi-occur in dired buffers
---
unravel-emacs.org | 36 ++++++++++++++++++++++++++++++--
unravel-modules/unravel-dired.el | 13 ++++++++++++
2 files changed, 47 insertions(+), 2 deletions(-)
diff --git a/unravel-emacs.org b/unravel-emacs.org
index b120798..5d96639 100644
--- a/unravel-emacs.org
+++ b/unravel-emacs.org
@@ -86,7 +86,7 @@
- [[#the-unravel-completionel-settings-for-dynamic-text-expansion-hippie][The =unravel-completion.el= settings for dynamic text expansion (~hippie~)]]
- [[#the-unravel-completionel-for-in-buffer-completion-popup-corfu-and-cape][The =unravel-completion.el= for in-buffer completion popup (~corfu~ and ~cape~)]]
- [[#the-unravel-completionel-settings-for-filtering-previewing-candidates-consult][The =unravel-completion.el= settings for filtering, previewing candidates (~consult~)]]
- - [[#the-unravel-completionel-section-for-performaing-actions-in-context-embark][The =unravel-completion.el= section for performaing actions in context (~embark~)]]
+ - [[#the-unravel-completionel-section-for-performing-actions-in-context-embark][The =unravel-completion.el= section for performing actions in context (~embark~)]]
- [[#the-unravel-completionel-section-to-configure-completion-annotations-marginalia][The =unravel-completion.el= section to configure completion annotations (~marginalia~)]]
- [[#the-unravel-completionel-section-for-vertical-minibuffer-layout-vertico][The =unravel-completion.el= section for vertical minibuffer layout (~vertico~)]]
- [[#finally-we-provide-the-unravel-completionel-module][Finally, we provide the ~unravel-completion.el~ module]]
@@ -106,6 +106,7 @@
- [[#the-unravel-diredel-switches-for-how-files-are-listed-ls][The =unravel-dired.el= switches for how files are listed (~ls~)]]
- [[#the-unravel-diredel-setting-for-dual-pane-dired][The =unravel-dired.el= setting for dual-pane Dired]]
- [[#the-unravel-diredel-miscellaneous-tweaks][The =unravel-dired.el= miscellaneous tweaks]]
+ - [[#the-unravel-diredel-section-for-using-multi-occur-noccur][The =unravel-dired.el= section for using multi-occur (~noccur~)]]
- [[#the-unravel-diredel-section-about-various-conveniences][The =unravel-dired.el= section about various conveniences]]
- [[#the-unravel-diredel-section-about-subdirectory-contents-dired-subtree][The =unravel-dired.el= section about subdirectory contents (~dired-subtree~)]]
- [[#the-unravel-diredel-section-about-writable-dired-wdired][The =unravel-dired.el= section about writable Dired (~wdired~)]]
@@ -2318,7 +2319,7 @@ Also check: [[#h:e0f9c30e-3a98-4479-b709-7008277749e4][The =unravel-search.el= m
(add-to-list 'consult-mode-histories '(vc-git-log-edit-mode . log-edit-comment-ring)))
#+end_src
-** The =unravel-completion.el= section for performaing actions in context (~embark~)
+** The =unravel-completion.el= section for performing actions in context (~embark~)
:PROPERTIES:
:CUSTOM_ID: h:61863da4-8739-42ae-a30f-6e9d686e1995
:END:
@@ -3083,6 +3084,37 @@ I disable the repetition of the =j= key as I do use ~repeat-mode~
(define-key dired-jump-map (kbd "j") nil))
#+end_src
+** The =unravel-dired.el= section for using multi-occur (~noccur~)
+:PROPERTIES:
+:CUSTOM_ID: h:6EA8DE69-4FA3-48CE-BAF7-066680675AD7
+:CREATED: [2024-12-29 Sun 20:51]
+:END:
+
+~multi-occur~ is brilliant. But most of the times, I do not have all
+the buffers I want to run open. The fastest way to search a small
+subset of my Denote notes is to narrow down what I want in a ~dired~
+buffer using ~denote-sort~, and then use ~noccur-dired~ on it. This
+tiny function is super-handy, and it's taken from the ~noccur~ package
+(because that's all I need from that package)
+
+(see: [[#h:e86a66dc-7ef9-4f09-ad7e-946de2034e8d][The =unravel-study.el= section for notes and file-naming (~denote~)]])
+
+#+begin_src emacs-lisp :tangle "unravel-modules/unravel-dired.el"
+ ;;; Multi-occur in project and dired!
+ (use-package dired
+ :ensure nil
+ :bind
+ ( :map dired-mode-map
+ ("M-s a m" . noccur-dired))
+ :config
+ (defun noccur-dired (regexp &optional nlines)
+ "Perform `multi-occur' with REGEXP in all dired marked files.
+ When called with a prefix argument NLINES, display NLINES lines before and after."
+ (interactive (occur-read-primary-args))
+ (multi-occur (mapcar #'find-file (dired-get-marked-files)) regexp nlines)))
+#+end_src
+
+
** The =unravel-dired.el= section about various conveniences
:PROPERTIES:
:CUSTOM_ID: h:6758bf16-e47e-452e-b39d-9d67c2b9aa4b
diff --git a/unravel-modules/unravel-dired.el b/unravel-modules/unravel-dired.el
index 9451fe4..49c6c13 100644
--- a/unravel-modules/unravel-dired.el
+++ b/unravel-modules/unravel-dired.el
@@ -39,6 +39,19 @@
;; problem as j calls `dired-goto-file', which I often use.
(define-key dired-jump-map (kbd "j") nil))
+;;; Multi-occur in project and dired!
+(use-package dired
+ :ensure nil
+ :bind
+ ( :map dired-mode-map
+ ("M-s a m" . noccur-dired))
+ :config
+ (defun noccur-dired (regexp &optional nlines)
+ "Perform `multi-occur' with REGEXP in all dired marked files.
+When called with a prefix argument NLINES, display NLINES lines before and after."
+ (interactive (occur-read-primary-args))
+ (multi-occur (mapcar #'find-file (dired-get-marked-files)) regexp nlines)))
+
(use-package dired-aux
:ensure nil
:after dired