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

[Denis 'GNUtoo' Carikli]

  * gnu/packages/h-node.scm: New file.
  * gnu/local.mk (GNU_SYSTEM_MODULES): Ditto.

Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
---
 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 <GNUtoo@cyberdimension.org>
+;;;
+;;; 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")
+   (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.")
+   (home-page "https://savannah.nongnu.org/projects/h-client/";)
+   (license license:gpl3)))
-- 
2.32.0