On Tue, Aug 16 2022, j...@gnu.org wrote:
> Hook run when the tree insertion process finishes its job.
>
> --
>
> Right now, it can be used for silly things like removing or changing
> the the "End of search." hardcoded message in the tree buffer. But
> also for more sophisticated things like folding all threads in add-ons
> like my outline mode for tree buffers (to be submitted).
2 things:
- is the name matching to the functionality enough
- IIRC if "hook" function takes args it should not be named as *-hook (?)
(but *-functions)
Tomi
>
> Signed-off-by: jao
> ---
> emacs/notmuch-tree.el | 9 -
> 1 file changed, 8 insertions(+), 1 deletion(-)
>
> diff --git a/emacs/notmuch-tree.el b/emacs/notmuch-tree.el
> index f63ac9a5..265f7c1f 100644
> --- a/emacs/notmuch-tree.el
> +++ b/emacs/notmuch-tree.el
> @@ -1084,6 +1084,12 @@ Complete list of currently available key bindings:
>(setq buffer-read-only t)
>(setq truncate-lines t))
>
> +(defvar notmuch-tree-process-hook nil
> + "Hook executed when the process inserting a tree of results finishes.
> +
> +Functions in this hook are called with one argument, the process
> +object, with the tree results buffer as the current buffer.")
> +
> (defun notmuch-tree-process-sentinel (proc _msg)
>"Add a message to let user know when \"notmuch tree\" exits."
>(let ((buffer (process-buffer proc))
> @@ -1102,7 +1108,8 @@ Complete list of currently available key bindings:
> (insert "End of search results.")
> (unless (= exit-status 0)
> (insert (format " (process returned %d)" exit-status)))
> - (insert "\n")
> + (insert "\n"
> + (run-hook-with-args 'notmuch-tree-process-hook proc))
>
> (defun notmuch-tree-process-filter (proc string)
>"Process and filter the output of \"notmuch show\" for tree view."
> --
> 2.37.2
>
> ___
> notmuch mailing list -- notmuch@notmuchmail.org
> To unsubscribe send an email to notmuch-le...@notmuchmail.org
___
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org