civodul pushed a commit to branch master
in repository guix.
commit 914205214cd906044411e6438be69c700e355b0d
Author: Pierre Neidhardt <ambre...@gmail.com>
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 <l...@gnu.org>
---
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
