01/02: gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 914205214cd906044411e6438be69c700e355b0d
Author: Pierre Neidhardt <address@hidden>
Date:   Wed May 23 14:42:36 2018 +0200

    gnu: ntfs-3g: Link 'mount.ntfs' to 'mount.ntfs-3g'.
    
    * gnu/packages/linux.scm (ntfs-3g)[arguments]: Add #:phases.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 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 7ec6285..70e6129 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -3432,7 +3432,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 "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