bug#31327: [PATCH] gnome: add workrave

[Ludovic Courtès]

Hi Jovany,

"Jovany Leandro G.C" <address@hidden> skribis:

> From 9cf33c43be147546a4e771d1790a919a467ba68f Mon Sep 17 00:00:00 2001
> From: "Jovany Leandro G.C" <address@hidden>
> Date: Tue, 1 May 2018 00:50:59 -0500
> Subject: [PATCH] gnome: Add workrave
>
> ---
>  gnu/packages/gnome.scm | 60 ++++++++++++++++++++++++++++++++++++++++++
>  1 file changed, 60 insertions(+)

I applied your patch with the changes below, mostly to placate ‘guix
lint’ and to follow our conventions:

  
https://git.savannah.gnu.org/cgit/guix.git/commit/?id=4e3fdeb7153c05239ea5bd38cd8f6389dfae5400

In a nutshell, I used the tag name instead of a commit ID for clarity,
and derived ‘version’ from that.  The #:modules and #:imported-modules
arguments were unnecessary so I removed them.  I also replaced ‘system*’
by ‘invoke’, which is the new way to invoking programs from Scheme.

Please let me know if I introduced mistakes in the process.

Thank you!

Ludo’.

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index d8e95ec27..b8beda365 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -29,6 +29,7 @@
 ;;; Copyright © 2017 Mohammed Sadiq <address@hidden>
 ;;; Copyright © 2017 Brendan Tildesley <address@hidden>
 ;;; Copyright © 2017, 2018 Rutger Helling <address@hidden>
+;;; Copyright © 2018 Jovany Leandro G.C <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -146,6 +147,7 @@
   #:use-module (gnu packages virtualization)
   #:use-module (gnu packages vpn)
   #:use-module (gnu packages xorg)
+  #:use-module (ice-9 match)
   #:use-module (srfi srfi-1))
 
 (define-public brasero
@@ -7205,10 +7207,13 @@ mp3, Ogg Vorbis and FLAC")
     (license license:gpl2+)))
 
 (define-public workrave
-  (let ((commit "2c43758853a862fd125fc1d53faee00a54274078"))
+  (let ((commit "v1_10_20"))
     (package
       (name "workrave")
-      (version "1.10.20")
+      (version (string-map (match-lambda
+                             (#\_ #\.)
+                             (chr chr))
+                           (string-drop commit 1)))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
@@ -7220,19 +7225,12 @@ mp3, Ogg Vorbis and FLAC")
                   "099a87zkrkmsgfz9isrfm89dh545x52891jh6qxmn19h6wwsi941"))))
       (build-system glib-or-gtk-build-system)
       (arguments
-       `(#:modules (
-                    (guix build gnu-build-system)
-                    (guix build python-build-system)
-                    (guix build glib-or-gtk-build-system)
-                    (guix build utils))
-         #:imported-modules (
-                             (guix build python-build-system)
-                             ,@%glib-or-gtk-build-system-modules)
-         #:phases
+       `(#:phases
          (modify-phases %standard-phases
            (add-after 'unpack 'autogen
              (lambda _
-               (zero? (system* "sh" "autogen.sh")))))))
+               (invoke "sh" "autogen.sh")
+               #t)))))
       (propagated-inputs `(("glib" ,glib)
                            ("gtk+" ,gtk+)
                            ("gdk-pixbuf" ,gdk-pixbuf)
@@ -7242,12 +7240,10 @@ mp3, Ogg Vorbis and FLAC")
                            ("libxtst" ,libxtst)
                            ("dconf" ,dconf)
                            ("libice" ,libice)))
-      (inputs `(
-                ("libsm", libsm)
+      (inputs `(("libsm", libsm)
                 ("python-cheetah" ,python2-cheetah)))
       (native-inputs `(("glib" ,glib "bin")
                        ("pkg-config" ,pkg-config)
-                       ("python-setuptools-scm" ,python2-setuptools)
                        ("gettext" ,gnu-gettext)
                        ("autoconf" ,autoconf)
                        ("autoconf-archive" , autoconf-archive)
@@ -7257,9 +7253,9 @@ mp3, Ogg Vorbis and FLAC")
                        ("libxscrnsaver" ,libxscrnsaver)
                        ("gobject-introspection" ,gobject-introspection)
                        ("python2" ,python-2)))
-      (synopsis "Tool to help Repetitive Strain Injury (RSI)")
+      (synopsis "Tool to help prevent repetitive strain injury (RSI)")
       (description "Workrave is a program that assists in the recovery and
- prevention of Repetitive Strain Injury (RSI).  The program frequently alerts
- you to take micro-pauses, rest breaks and restricts you to your daily limit")
+prevention of repetitive strain injury (RSI).  The program frequently alerts
+you to take micro-pauses, rest breaks and restricts you to your daily limit")
       (home-page "http://www.workrave.org";)
-      (license gpl3+))))
+      (license license:gpl3+))))