[PATCH] gnu: Add progress.

[PATCH] gnu: Add progress.

[Roel Janssen]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: 0001-gnu-Add-progress.patch --]
[-- Type: text/x-patch, Size: 2001 bytes --]

From 1e85ce47b24e40ba17f01cec433d6e445597f81d Mon Sep 17 00:00:00 2001
From: Roel Janssen <roel@gnu.org>
Date: Sat, 2 Apr 2016 21:43:44 +0200
Subject: [PATCH] gnu: Add progress.

* gnu/packages/admin.scm (progress): New variable.
---
 gnu/packages/admin.scm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 9636ee9..406aa0e 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -100,6 +100,35 @@ usual file attributes can be checked for inconsistencies.")
     (home-page "http://aide.sourceforge.net/")
     (license license:gpl2+)))
 
+(define-public progress
+  (package
+    (name "progress")
+    (version "0.13")
+    (source (origin
+      (method url-fetch)
+      (uri (string-append "https://github.com/Xfennec/"
+                          name "/archive/v" version ".tar.gz"))
+      (sha256
+       (base32 "133iar4vq5vlklydb4cyazjy6slmpbndrws474mg738bd8avc30n"))
+      (file-name (string-append name "-" version ".tar.gz"))))
+    (build-system gnu-build-system)
+    (inputs
+     `(("ncurses" ,ncurses)))
+    (arguments
+     `(#:tests? #f ; There is no test suite.
+       #:make-flags (list "CC=gcc" "LDFLAGS+=-lncurses"
+                          (string-append "PREFIX=" (assoc-ref %outputs "out")))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)))) ; There's no configure phase.
+    (home-page "https://github.com/Xfennec/progress")
+    (synopsis "Program to view the progress of the coreutils commands")
+    (description "A program that looks for coreutils basic commands (cp, mv,
+dd, tar, gzip/gunzip, cat, etc.) currently running on your system and displays
+the percentage of copied data.  It can also show estimated time and throughput,
+and provides a \"top-like\" mode (monitoring).")
+    (license license:gpl3+)))
+
 (define-public dmd
   ;; Deprecated.  Kept around "just in case."
   (let ((base-version "0.2")
-- 
2.5.5


[-- Attachment #2: Type: text/plain, Size: 119 bytes --]

Dear Guix,

Here's a patch for a small program to view the progress of coreutils
programs.

Kind regards,
Roel Janssen

Re: [PATCH] gnu: Add progress.

[Efraim Flashner]

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

On Sat, Apr 02, 2016 at 09:48:04PM +0200, Roel Janssen wrote:
> From 1e85ce47b24e40ba17f01cec433d6e445597f81d Mon Sep 17 00:00:00 2001
> From: Roel Janssen <roel@gnu.org>
> Date: Sat, 2 Apr 2016 21:43:44 +0200
> Subject: [PATCH] gnu: Add progress.
> 
> * gnu/packages/admin.scm (progress): New variable.
> ---
>  gnu/packages/admin.scm | 29 +++++++++++++++++++++++++++++
>  1 file changed, 29 insertions(+)
> 
> diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
> index 9636ee9..406aa0e 100644
> --- a/gnu/packages/admin.scm
> +++ b/gnu/packages/admin.scm
> @@ -100,6 +100,35 @@ usual file attributes can be checked for inconsistencies.")
>      (home-page "http://aide.sourceforge.net/")
>      (license license:gpl2+)))
>  
> +(define-public progress
> +  (package
> +    (name "progress")
> +    (version "0.13")
> +    (source (origin
> +      (method url-fetch)
> +      (uri (string-append "https://github.com/Xfennec/"
> +                          name "/archive/v" version ".tar.gz"))
> +      (sha256
> +       (base32 "133iar4vq5vlklydb4cyazjy6slmpbndrws474mg738bd8avc30n"))
> +      (file-name (string-append name "-" version ".tar.gz"))))
> +    (build-system gnu-build-system)
> +    (inputs
> +     `(("ncurses" ,ncurses)))
> +    (arguments
> +     `(#:tests? #f ; There is no test suite.
> +       #:make-flags (list "CC=gcc" "LDFLAGS+=-lncurses"
> +                          (string-append "PREFIX=" (assoc-ref %outputs "out")))
> +       #:phases
> +       (modify-phases %standard-phases
> +         (delete 'configure)))) ; There's no configure phase.
> +    (home-page "https://github.com/Xfennec/progress")
> +    (synopsis "Program to view the progress of the coreutils commands")
> +    (description "A program that looks for coreutils basic commands (cp, mv,
> +dd, tar, gzip/gunzip, cat, etc.) currently running on your system and displays
> +the percentage of copied data.  It can also show estimated time and throughput,
> +and provides a \"top-like\" mode (monitoring).")
> +    (license license:gpl3+)))
> +
>  (define-public dmd
>    ;; Deprecated.  Kept around "just in case."
>    (let ((base-version "0.2")
> -- 
> 2.5.5
> 

> Dear Guix,
> 
> Here's a patch for a small program to view the progress of coreutils
> programs.
> 
> Kind regards,
> Roel Janssen

Looks good to me. And it was fun watching large archives get unpacked.

Pushed in 4971d5d0728bcdb79eacf070d6f3b8efb9018924

-- 
Efraim Flashner   <efraim@flashner.co.il>   אפרים פלשנר
GPG key = A28B F40C 3E55 1372 662D  14F7 41AA E7DC CA3D 8351
Confidentiality cannot be guaranteed on emails sent or received unencrypted

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 819 bytes --]