Subject: [bug#50102] [PATCH] gnu: add h-client

From: Leo Prikler <[email-masked]>
Date: Mon, 30 Aug 2021 18:21:58 +0200

Applied with the following changes:

Am Mittwoch, den 18.08.2021, 03:13 +0200 schrieb Denis 'GNUtoo'
Carikli:
>   * gnu/packages/h-node.scm: New file.
>   * gnu/local.mk (GNU_SYSTEM_MODULES): Ditto.
Moved to hardware.scm instead.
> Signed-off-by: Denis 'GNUtoo' Carikli <[email-masked]>
> ---
>  gnu/local.mk            |  1 +
>  gnu/packages/h-node.scm | 71
> +++++++++++++++++++++++++++++++++++++++++
>  2 files changed, 72 insertions(+)
>  create mode 100644 gnu/packages/h-node.scm
> 
> diff --git a/gnu/local.mk b/gnu/local.mk
> index 6dda311743..8fd33c478b 100644
> --- a/gnu/local.mk
> +++ b/gnu/local.mk
> @@ -280,6 +280,7 @@ GNU_SYSTEM_MODULES =				
> \
>    %D%/packages/haskell-xyz.scm			\
>    %D%/packages/heads.scm			\
>    %D%/packages/hexedit.scm			\
> +  %D%/packages/h-node.scm			\
>    %D%/packages/hugs.scm				\
>    %D%/packages/hunspell.scm				\
>    %D%/packages/hurd.scm				\
> diff --git a/gnu/packages/h-node.scm b/gnu/packages/h-node.scm
> new file mode 100644
> index 0000000000..11ed0e5850
> --- /dev/null
> +++ b/gnu/packages/h-node.scm
> @@ -0,0 +1,71 @@
> +;;; Copyright © 2021 Denis Carikli <[email-masked]>
> +;;;
> +;;; This file is part of GNU Guix.
> +;;;
> +;;; This file is free software; you can redistribute it and/or
> modify it
> +;;; under the terms of the GNU General Public License as published
> by
> +;;; the Free Software Foundation; either version 3 of the License,
> or (at
> +;;; your option) any later version.
> +;;;
> +;;; This file is distributed in the hope that it will be useful, but
> +;;; WITHOUT ANY WARRANTY; without even the implied warranty of
> +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> +;;; GNU General Public License for more details.
> +;;;
> +;;; You should have received a copy of the GNU General Public
> License
> +;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>
> ;.
> +
> +(define-module (gnu packages h-node)
> +  #:use-module (guix build-system python)
> +  #:use-module (guix download)
> +  #:use-module (guix git-download)
> +  #:use-module (guix svn-download)
> +  #:use-module ((guix licenses) #:prefix license:)
> +  #:use-module (guix packages)
> +  #:use-module (gnu packages gtk)
> +  #:use-module (gnu packages linux)
> +  #:use-module (gnu packages pciutils)
> +  #:use-module (gnu packages python)
> +  #:use-module (gnu packages python-web)
> +  #:use-module (gnu packages python-xyz))
> +
> +(define-public h-client
> +  (package
> +   (name "h-client")
> +   (version "0.0a0.dev0")
Included revision instead of the generic ".dev0"
> +   (source
> +    (origin
> +     (method svn-fetch)
> +     (uri
> +      (svn-reference
> +       (url "
> https://svn.savannah.nongnu.org/svn/h-client/trunk/h-client")
> +       (revision 138)))
> +     (file-name (git-file-name name version))
> +     (sha256
> +      (base32
> "1pdd2qhyaa5vh7z4rkpwjlby1flkwhzmp8zlglalx5y5sv95l4kp"))))
> +   (build-system python-build-system)
> +   (arguments
> +    `(#:python ,python-2
> +      ;; Tests depends on /etc/os-release which does not exist in
> the
> +      ;; build container.
> +      #:tests? #f))
> +   (inputs
> +    `(("python2" ,python-2)
> +      ("python2-pycurl", python2-pycurl)
> +      ("python2-pygtk", python2-pygtk)
> +      ("pciutils", pciutils)
> +      ("usbutils", usbutils)))
> +   (synopsis "Graphical client for the https://www.h-node.org
> hardware database
> + project")
> +   (description
> +    "The h-node project (https://www.h-node.org) aims to build a
> database of
> + hardware that works with fully free operating systems.
> + h-client is a GTK+ graphical client that is able to retrieves
> information on
> + the hardware inside the computer it's running on, and on
> peripherals connected
> + to it, and help you submit that information to the h-node project
> along with
> + if the hardware isworking with fully free operating systems or not.
> + Note that h-node only accept information from FSF endorsed
> distributions and
> + Debian with only the main archive area enabled as the goal is
> + to know which hardware work with fully free operating systems.")
Shortened and fixed some typo.  I also dropped the gratuitous leading
spaces.
> +   (home-page "https://savannah.nongnu.org/projects/h-client/")
> +   (license license:gpl3)))
Corrected to gpl3+.

Thanks