[nongnu] elpa/subed 7a1d6f4320 2/3: Change MPV socket name to use a buffer name hash

[ELPA Syncer]

branch: elpa/subed
commit 7a1d6f43205f01e2794e428a928f96b98a1772b5
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Change MPV socket name to use a buffer name hash
    
    * subed/subed-mpv.el (subed-mpv--socket): Experiment with using a hash
    of just the buffer name. If this is still causing "service name too
    long" issues, please check that subed-mpv-socket-dir is not too long.
    On Mac OS X, I think the directory plus the socket name can be at most
    104 characters.
---
 subed/subed-mpv.el | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/subed/subed-mpv.el b/subed/subed-mpv.el
index 3575d7c0ca..fd4b159ac1 100644
--- a/subed/subed-mpv.el
+++ b/subed/subed-mpv.el
@@ -78,11 +78,10 @@ See also `subed-mpv-socket-dir'."
         (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"
-                  (let ((filename (file-name-sans-extension 
(subed--buffer-file-name))))
-                    (substring (substring filename 0 (min (length filename) 
20))))
-                  (buffer-hash))))
+  (expand-file-name
+   (format "subed:%s"
+           (md5 (subed--buffer-file-name)))
+   subed-mpv-socket-dir))
 
 (defun subed-mpv--server-start (&rest args)
   "Run mpv in JSON IPC mode.