From: Tobias Geerinckx-Rice <tobias.geerinckx.r...@gmail.com>
* gnu/packages/linux.scm (btrfs-progs): New variable.
---
gnu/packages/linux.scm | 34 ++++++++++++++++++++++++++++++++++
1 file changed, 34 insertions(+)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index e7f7bcd..33cf534 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -7,6 +7,7 @@
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayi...@gmail.com>
;;; Copyright © 2015, 2016 Efraim Flashner <efr...@flashner.co.il>
;;; Copyright © 2016 Christopher Allan Webber <cweb...@dustycloud.org>
+;;; Copyright © 2016 Tobias Geerinckx-Rice <tobias.geerinckx.r...@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -2467,3 +2468,36 @@ write access to exFAT devices.")
applications running on the Linux console. It allows users to select items
and copy/paste text in the console and in xterm.")
(license license:gpl2+)))
+
+(define-public btrfs-progs
+ (package
+ (name "btrfs-progs")
+ (version "4.4")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "mirror://kernel.org/linux/kernel/people/kdave/"
+ "btrfs-progs/btrfs-progs-v" version ".tar.xz"))
+ (sha256
+ (base32
+ "0jssv1ys4nw2jf7mkp58c19yspaa8ybf48fxsrhhp0683mzpr73p"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:tests? #f)) ;no test suite
+ (inputs `(("e2fsprogs" ,e2fsprogs)
+ ("libblkid" ,util-linux)
+ ("libuuid" ,util-linux)
+ ("zlib" ,zlib)
+ ("lzo" ,lzo)))
+ (native-inputs `(("pkg-config" ,pkg-config)
+ ("asciidoc" ,asciidoc)
+ ("xmlto" ,xmlto)
+ ("libxml2" ,libxml2) ;for building documentation
+ ("docbook-xml" ,docbook-xml)
+ ("docbook-xsl" ,docbook-xsl)))
+ (home-page "https://btrfs.wiki.kernel.org/";)
+ (synopsis "Create and manage btrfs copy-on-write file systems")
+ (description "Btrfs is a copy-on-write (CoW) filesystem for Linux aimed at
+implementing advanced features while focusing on fault tolerance, repair and
+easy administration.")
+ (license license:gpl2+)))
--
2.6.3
