branch: elpa/subed
commit 3bab6b7696a8ad71517a74aea481cb450c4bbc3b
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@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.
