10/17: gnu: Add xfs_repair-static.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 2a9db30eec016e3d2198290df1f4e9add044c193
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Wed Sep 22 22:53:24 2021 +0200

    gnu: Add xfs_repair-static.
    
    * gnu/packages/linux.scm (xfs_repair/static): New public variable.
---
 gnu/packages/linux.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 08a3995..63141da 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -7756,6 +7756,32 @@ file systems.")
                  (package-inputs xfsprogs))))
     (synopsis "Statically linked XFS file system tools")))
 
+(define-public xfs_repair/static
+  (package
+    (name "xfs_repair-static")
+    (version (package-version xfsprogs/static))
+    (source #f)
+    (build-system trivial-build-system)
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (let* ((xfsprogs (assoc-ref %build-inputs "xfsprogs"))
+                (out      (assoc-ref %outputs "out"))
+                (sbin     (string-append out "/sbin")))
+           (install-file (string-append xfsprogs "/sbin/xfs_repair") sbin)
+           (with-directory-excursion sbin
+             (remove-store-references "xfs_repair"))))))
+    (inputs
+     `(("xfsprogs" ,xfsprogs/static)))
+    (home-page (package-home-page xfsprogs/static))
+    (synopsis "Statically linked @command{xfs_repair} from xfsprogs")
+    (description
+     "This package provides a statically linked @command{xfs_repair} taken
+from the xfsprogs package.  It is meant to be used in initrds.")
+    (license (package-license xfsprogs/static))))
+
 (define-public genext2fs
   (package
     (name "genext2fs")