Re: Waiting for 'compile' to finish

[Tomas Hlavaty <tom@logand.com>]

On Thu 09 Jan 2025 at 22:38, Marco Antoniotti <marcoxa@gmail.com> wrote:
> Thanks... and how exactly do I do that?
> On Thu, Jan 9, 2025 at 10:36 PM Tomas Hlavaty <tom@logand.com> wrote:
>> On Thu 09 Jan 2025 at 21:00, Marco Antoniotti <marcoxa@gmail.com> wrote:
>> > I meant "programmatically", as in: checking if the process/thread is
>> alive
>> > or not.
>> poll it in idle timer

for timer see (describe-function 'run-with-idle-timer)
the nice thing about polling is that it works universally
without having to know implementation details
and without having a hook for the right event
thus if you don't know and cannot dig deeper => poll

but I found even better solution in my .emacs using
set-process-sentinel, something like this:

  (set-process-sentinel
   (get-buffer-process (get-buffer eepitch-buffer-name))
   (lambda (_process event)
     (when (equal "finished\n" event)
       (run-with-idle-timer 1 nil after))))

so you can watch the process without polling and call your callback when
you need.

this is what I do to pull emails:

(defun background-repl (code command exit after)
  (eepitch code)
  (eepitch-kill)
  (eepitch code)
  (set-process-sentinel
   (get-buffer-process (get-buffer eepitch-buffer-name))
   (lambda (_process event)
     (when (equal "finished\n" event)
       (run-with-idle-timer 1 nil after))))
  (mapc 'eepitch-line (ensure-list command))
  (mapc 'eepitch-line (ensure-list exit)))

usage:

  (background-repl
   '(shell "**nm")
   "notmuch new"
   "exit"
   (lambda () (notmuch-search "tag:inbox")))