01/14: gnu: Add ntfs-3g-static.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 64dfa42d813d582d6781e5c9a9a2dc96727ac311
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Mon Oct 11 20:21:05 2021 +0200

    gnu: Add ntfs-3g-static.
    
    * gnu/packages/linux.scm (ntfs-3g/static): New public variable.
---
 gnu/packages/linux.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index f40d954..457ca23 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -5947,6 +5947,26 @@ commonly found on Microsoft Windows.  It is implemented 
as a FUSE file system.
 The package provides additional NTFS tools.")
     (license license:gpl2+)))
 
+(define-public ntfs-3g/static
+  (static-package
+   (package
+     (inherit ntfs-3g)
+     (name "ntfs-3g-static")
+     (arguments
+      (substitute-keyword-arguments (package-arguments ntfs-3g)
+        ((#:configure-flags flags)
+         `(append ,flags
+                  (list "--enable-really-static"
+                        ;; The FUSE driver isn't currently used by our initrd.
+                        "--disable-ntfs-3g")))
+        ((#:phases phases)
+         `(modify-phases ,phases
+            (add-after 'unpack 'make-really-static-really-static
+              (lambda _
+                (substitute* "ntfsprogs/Makefile.in"
+                  ((" -static") " -all-static"))))
+            (delete 'install-link))))))))
+
 (define-public rdma-core
   (package
     (name "rdma-core")