[nongnu] elpa/mpv 03fe7a536a 24/50: add mpv-on-start-hook and mpv-on-exit-hook

[ELPA Syncer]

branch: elpa/mpv
commit 03fe7a536ab14a2a56b4d2c65e3d2cf0b70a7166
Author: Johann Klähn <kljohann@gmail.com>
Commit: Johann Klähn <kljohann@gmail.com>

    add mpv-on-start-hook and mpv-on-exit-hook
---
 mpv.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/mpv.el b/mpv.el
index 80e4df89c5..a37f5106f9 100644
--- a/mpv.el
+++ b/mpv.el
@@ -72,6 +72,13 @@ The hook will be called with the parsed JSON message as its 
only an
 argument.  See \"List of events\" in the mpv man page."
   :type 'hook)
 
+(defcustom on-start-hook nil
+  "Hook to run when a new mpv process is started.
+The hook will be called with the arguments passed to `mpv-start'.")
+
+(defcustom on-exit-hook nil
+  "Hook to run when the mpv process dies.")
+
 (defvar -process nil)
 (defvar -queue nil)
 
@@ -94,6 +101,11 @@ prepended to ARGS."
                  (concat "--input-unix-socket=" socket)
                  (append default-options args)))
     (set-process-query-on-exit-flag -process nil)
+    (set-process-sentinel
+     -process
+     (lambda (process _event)
+       (when (memq (process-status process) '(exit signal))
+         (run-hooks 'mpv-on-exit-hook))))
     (while (and (live-p) (not (file-exists-p socket)))
       (sleep-for 0.05))
     (setq -queue (tq-create
@@ -104,6 +116,7 @@ prepended to ARGS."
      (tq-process -queue)
      (lambda (_proc string)
        (-tq-filter -queue string)))
+    (run-hook-with-args 'mpv-on-start-hook args)
     t))
 
 (defun -enqueue (command fn &optional delay-command)