Secondary filtering with occur

Secondary filtering with occur

[Archmux]

Dear Emacs Help,

I need to filter the results of `find-name-dired' programmatically.

I am attempting it with this command-prototype:

"""""

(with-current-buffer (find-name-dired "~/Musica/" "*.flac")
   (occur "Hunter")
)

"""""

It returns:

"""""

(wrong-type-argument stringp (":%s"))

set-buffer((":%s"))

...

"""""


1. How do I troubleshoot/discover the issue causing, `set-buffer((":%s"))' ?


2.  What function do I need to use instead of `with-current-buffer'?


Thank you,

Arch Mux

Fwd: Secondary filtering with occur

[Archmux]

Dear Emacs Help,

I need to filter the results of `find-name-dired' programmatically.

I am attempting it with this command-prototype:

"""""

(with-current-buffer (find-name-dired "~/Musica/" "*.flac")
   (occur "Hunter")
)

"""""

It returns:

"""""

(wrong-type-argument stringp (":%s"))

set-buffer((":%s"))

...

"""""


1. How do I troubleshoot/discover the issue causing, `set-buffer((":%s"))' ?


2.  What function do I need to use instead of `with-current-buffer'?


Thank you,

Arch Mux

Re: Secondary filtering with occur

[Stephen Berman]

On Wed, 13 Jul 2022 12:51:31 -0500 Archmux <archmux@stemux.com> wrote:

> Dear Emacs Help,
>
> I need to filter the results of `find-name-dired' programmatically.
>
> I am attempting it with this command-prototype:
>
> """""
>
> (with-current-buffer (find-name-dired "~/Musica/" "*.flac")
>   (occur "Hunter")
> )
>
> """""
>
> It returns:
>
> """""
>
> (wrong-type-argument stringp (":%s"))
>
> set-buffer((":%s"))
>
> ...
>
> """""
>
>
> 1. How do I troubleshoot/discover the issue causing, `set-buffer((":%s"))' ?

One way is to look at the source of `find-name-dired' and you'll see it
contains no "(:%s)" but it calls `find-dired', which also contains no
"(:%s)" but it calls `find-dired-with-command', which indeed ends with
`(setq mode-line-process '(":%s"))', which means `(":%s")' is the return
value, and that's causing the error.

> 2.  What function do I need to use instead of `with-current-buffer'?

Using `with-current-buffer' is not the problem, rather, you need to
specify the buffer containing the output of `find-name-dired', which is
*Find*.  But there also seems to be some race condition in calling
`occur' immediately after `find-name-dired'; the following works for me:

(progn
  (find-name-dired "~/Musica/" "*.flac")
  (sit-for 0.05)
  (with-current-buffer "*Find*"
    (occur "Hunter")))

But e.g. (sit-for 0.01) shows incomplete results and with (sit-for 0)
or without `sit-for' the *Occur* buffer is empty.

Steve Berman

Re: Secondary filtering with occur

[tomas]

[-- Attachment #1: Type: text/plain, Size: 1215 bytes --]

On Fri, Jul 15, 2022 at 12:32:30AM +0200, Stephen Berman wrote:
> On Wed, 13 Jul 2022 12:51:31 -0500 Archmux <archmux@stemux.com> wrote:
> 
> > Dear Emacs Help,
> >
> > I need to filter the results of `find-name-dired' programmatically.
> >
> > I am attempting it with this command-prototype:
> >
> > """""
> >
> > (with-current-buffer (find-name-dired "~/Musica/" "*.flac")
> >   (occur "Hunter")
> > )
> >
> > """""
> >
> > It returns:
> >
> > """""
> >
> > (wrong-type-argument stringp (":%s"))
> >
> > set-buffer((":%s"))
> >
> > ...
> >
> > """""
> >
> >
> > 1. How do I troubleshoot/discover the issue causing, `set-buffer((":%s"))' ?
> 
> One way is to look at the source of `find-name-dired' and you'll see it
> contains no "(:%s)" but it calls `find-dired', which also contains no
> "(:%s)" but it calls `find-dired-with-command', which indeed ends with
> `(setq mode-line-process '(":%s"))', which means `(":%s")' is the return
> value, and that's causing the error.

Another useful tool for such things is setting up debug on error, by
doing "M-x toggle-debug-on-error". This will lead you to the spot in
the source where the error was caught.

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

Re: Secondary filtering with occur

[Michael Heerdegen]

Archmux <archmux@stemux.com> writes:

> Dear Emacs Help,
>
> I need to filter the results of `find-name-dired' programmatically.

May I ask how your use case looks like?  Can you maybe just use
`find-dired' instead of `find-name-dired'?

Michael.

Re: Secondary filtering with occur

[Arch Mux]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> Archmux <archmux@stemux.com> writes:
>
>> Dear Emacs Help,
>>
>> I need to filter the results of `find-name-dired' programmatically.
>
> May I ask how your use case looks like?  Can you maybe just use
> `find-dired' instead of `find-name-dired'?
>
> Michael.

My apologies for the belated response. I have been intensively configuring GNU
Emacs incorrectly.

Thanks to your statement about `find-dired', I realized my usage of
`find-name-dired' is unnecessary because it redundantly filters by name using `occur'.

I need to locate a package file, for Exherbo Linux, with the extension
of '.exheres-0' or '.exlib' within the directory
'~/Internet/Git/Exherbo/Remote/'.

The current implementation with `find-dired':

""""""
(defun archmux/exherbo-cd ()
  "Find exheres."
  (interactive
   (let* (
	  (exherbo_directory	"~/Internet/Git/Exherbo/Remote/")
	  (exheres_user_input	(read-from-minibuffer "Exheres to locate: "))
	  (find-pattern		(concat "-name " exheres_user_input "*"))
	  (find-ls-option       '("-type f -ls" . ""))
	  )
     (find-dired exherbo_directory find-pattern)
     )
   )
  )
""""""

Thank you,
Archmux