dired and multi-occur

dired and multi-occur

[Dirk80]

Hi,

I would like to search a string through multiple files. I like multi-occur a
lot. It would be great if it is possible to combine dired and multi-occur. I
want that multi-occur is applied to all marked files.

Let's say the name of the interactive function to do this is
"my-dired-multi-occur". If the user invokes this function via M-x
my-dired-multi-occur the user shall be asked for a search string. All marked
files shall be searched via dired. If the file does not contain the
search-string it shall be closed again.

I tried to write a function doing this. But I'm an elisp newbie and don't
get it.

(defun my-dired-multi-occur (string)
  "Search string in files marked in dired."
  (interactive "MSearch-String:")
  (require 'dired)
  (multi-occur (mapc 'find-file (dired-get-marked-files)) string))

I get the following result, when I'm invoking this function when I have
opened dired and marked three files: M-x my-dired-multi-occur
Search-String: init

Searched 0 buffers (3 killed); no matches for `init'

---
My problem seems to be that multi-occur is not getting a list of buffers.
The other problem I have: How can I close all files which do not contain the
search-string.

Thank you very much for your help in advance.

Dirk
-- 
View this message in context: http://old.nabble.com/dired-and-multi-occur-tp26635922p26635922.html
Sent from the Emacs - Help mailing list archive at Nabble.com.

Re: dired and multi-occur

[Andreas Politz]

Dirk80 <dirk@dirkundsari.de> writes:

> Hi,
>
> I would like to search a string through multiple files. I like multi-occur a
> lot. It would be great if it is possible to combine dired and multi-occur. I
> want that multi-occur is applied to all marked files.
>
> Let's say the name of the interactive function to do this is
> "my-dired-multi-occur". If the user invokes this function via M-x
> my-dired-multi-occur the user shall be asked for a search string. All marked
> files shall be searched via dired. If the file does not contain the
> search-string it shall be closed again.
>
> I tried to write a function doing this. But I'm an elisp newbie and don't
> get it.
>
> (defun my-dired-multi-occur (string)
>   "Search string in files marked in dired."
>   (interactive "MSearch-String:")
>   (require 'dired)
>   (multi-occur (mapc 'find-file (dired-get-marked-files)) string))

You need to use `mapcar'.

>
> I get the following result, when I'm invoking this function when I have
> opened dired and marked three files: M-x my-dired-multi-occur
> Search-String: init
>
> Searched 0 buffers (3 killed); no matches for `init'
>
> ---
> My problem seems to be that multi-occur is not getting a list of buffers.
> The other problem I have: How can I close all files which do not contain the
> search-string.
>

You can examine the occur buffer afterwards with `occur-next',
`occur-mode-find-occurrence', `marker-buffer' and `buffer-file-name'.


> Thank you very much for your help in advance.
>
> Dirk

-ap

Re: dired and multi-occur

[Kevin Rodgers]

Dirk80 wrote:
> I would like to search a string through multiple files. I like multi-occur a
> lot. It would be great if it is possible to combine dired and multi-occur. I
> want that multi-occur is applied to all marked files.

Why not:

,----[ C-h k A ]
| A runs the command dired-do-search
|   which is an interactive autoloaded Lisp function in `dired-aux'.
| It is bound to A, <menu-bar> <operate> <search>.
| (dired-do-search regexp)
|
| Search through all marked files for a match for regexp.
| Stops when a match is found.
| To continue searching for next match, use command M-,.
`----

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: dired and multi-occur

[Thierry Volpiatto]

Kevin Rodgers <kevin.d.rodgers@gmail.com> writes:

> Dirk80 wrote:
>> I would like to search a string through multiple files. I like multi-occur a
>> lot. It would be great if it is possible to combine dired and multi-occur. I
>> want that multi-occur is applied to all marked files.
>
> Why not:
>
> ,----[ C-h k A ]
> | A runs the command dired-do-search
> |   which is an interactive autoloaded Lisp function in `dired-aux'.
> | It is bound to A, <menu-bar> <operate> <search>.
> | (dired-do-search regexp)
> |
> | Search through all marked files for a match for regexp.
> | Stops when a match is found.
> | To continue searching for next match, use command M-,.
> `----

Also, traverselisp.el does all that and anything-traverse.el does that
incrementally. See:
http://mercurial.intuxication.org/hg/traverselisp

-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France

Re: dired and multi-occur

[Michael Heerdegen]

color-moccur.el has a `dired-do-moccur' command.

Re: dired and multi-occur

[Dirk80]

Andreas Politz wrote:
> 
> You need to use `mapcar'.
> 

Hi,

thank you very much. `mapcar' is the solution. 

Here the code:
(defun my-dired-multi-occur (string)
  "Search string in files marked by dired."
  (interactive "MList lines matching regexp: ")
  (require 'dired)
  (multi-occur (mapcar 'find-file (dired-get-marked-files)) string))

And thank you for the other answers. 
`dired-do-moccur' is also working fine.

Greetings,
Dirk
-- 
View this message in context: http://old.nabble.com/dired-and-multi-occur-tp26635922p26707171.html
Sent from the Emacs - Help mailing list archive at Nabble.com.