[bug#31569] [PATCH] gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.

[Pierre Neidhardt]

* gnu/packages/linux.scm (ntfs-3g)[arguments]: Add #:phases.
---
 gnu/packages/linux.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 0c58b90f1..1f9f45799 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -3439,7 +3439,19 @@ from userspace.")
                                "--with-fuse=external" ;use our own FUSE
                                "--enable-mount-helper"
                                "--enable-posix-acls"
-                               "--enable-xattr-mappings")))
+                               "--enable-xattr-mappings")
+       #:phases
+       (modify-phases %standard-phases
+         ;; If users install ntfs-3g, they probably want to make it the
+         ;; default driver as well, so we opt for sensible defaults and link
+         ;; mount.ntfs to mount.ntfs-3g.  (libmount tries to run mount.ntfs to
+         ;; mount NTFS filesystems.)
+         (add-after 'install 'install-link
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (sbin (string-append out "/sbin")))
+               (symlink (string-append sbin "/mount.ntfs-3g")
+                        (string-append sbin "/mount.ntfs"))))))))
     (home-page "https://www.tuxera.com/community/open-source-ntfs-3g/";)
     (synopsis "Read-write access to NTFS file systems")
     (description
-- 
2.17.0