[elpa] externals/mpdired c1e0eff8a4 062/133: tweak buffer names

[ELPA Syncer]

branch: externals/mpdired
commit c1e0eff8a44b604eeca9f201fab2a46ded8ee388
Author: Manuel Giraud <manuel@ledu-giraud.fr>
Commit: Manuel Giraud <manuel@ledu-giraud.fr>

    tweak buffer names
    
    Do not show default MPD port and use the inode prefixed by a slash for
    Unix socket.
---
 mpdired.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/mpdired.el b/mpdired.el
index 6bd286deb3..867b0ace99 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -195,8 +195,12 @@
 
 (defun mpdired--hostname (host service localp)
   (if localp
-      (format "%s" host)
-    (format "%s:%s" host service)))
+      (let ((inode (file-attribute-inode-number
+                   (file-attributes service))))
+       (format "/%d" inode))
+    (if (= 6600 service)
+       host
+      (format "%s:%s" host service))))
 
 (defun mpdired--comm-name (host service localp)
   (format "*mpdired-%s*" (mpdired--hostname host service localp)))