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

[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

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

[Ludovic Courtès]

[-- Attachment #1: Type: text/plain, Size: 193 bytes --]

Pierre Neidhardt <ambrevar@gmail.com> skribis:

> * gnu/packages/linux.scm (ntfs-3g)[arguments]: Add #:phases.

Makes a lot of sense.  Applied with the change below, thanks!

Ludo’.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 660 bytes --]

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index f2a9ef0f6..40b4ee09c 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -3443,7 +3443,7 @@ from userspace.")
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (sbin (string-append out "/sbin")))
-               (symlink (string-append sbin "/mount.ntfs-3g")
+               (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")