[nongnu] elpa/subed 3bab6b7 196/389: Use subed-mpv-socket-dir for subed-mpv--socket

[ELPA Syncer]

branch: elpa/subed
commit 3bab6b7696a8ad71517a74aea481cb450c4bbc3b
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Use subed-mpv-socket-dir for subed-mpv--socket
    
    Also, create the directory if it doesn't exist.
---
 subed/subed-mpv.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 40f145f..0e0b064 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -64,10 +64,16 @@
 
 (defun subed-mpv--socket ()
   "Path to mpv's RPC socket for a particular buffer.
-See also `subed-mpv-socket-base'."
-  (format "/tmp/subed-mpv-socket:%s-%s"
-          (file-name-base (or (buffer-file-name) "unnamed"))
-          (buffer-hash)))
+See also `subed-mpv-socket-dir'."
+  (unless (file-exists-p subed-mpv-socket-dir)
+    (condition-case err
+        (make-directory subed-mpv-socket-dir :create-parents)
+      (file-error
+       (error "%s" (mapconcat #'identity (cdr err) ": ")))))
+  (concat (file-name-as-directory subed-mpv-socket-dir)
+          (format "%s:%s"
+                  (file-name-base (or (buffer-file-name) "unnamed"))
+                  (buffer-hash))))
 
 (defun subed-mpv--server-start (&rest args)
   "Run mpv in JSON IPC mode.