gnu: Add h-client.

* gnu/packages/hardware.scm (h-client): New variable.

Signed-off-by: Leo Prikler <leo.prikler@student.tugraz.at>

gnu/packages/hardware.scm

@@ -4,6 +4,7 @@
 ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
 ;;; Copyright © 2021 Evgeny Pisemsky <evgeny@pisemsky.com>
 ;;; Copyright © 2021 Léo Le Bouter <lle-bout@zaclys.net>
+;;; Copyright © 2021 Denis Carikli <GNUtoo@cyberdimension.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -38,11 +39,14 @@ (define-module (gnu packages hardware)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages openldap)
+  #:use-module (gnu packages pciutils)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages polkit)
   #:use-module (gnu packages protobuf)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages python-web)
+  #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages web)
@@ -51,8 +55,10 @@ (define-module (gnu packages hardware)
   #:use-module (gnu packages xorg)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
+  #: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 (guix utils))
@@ -169,6 +175,46 @@ (define-public edid-decode
 human-readable format and checks if it conforms to the standards.")
       (license license:expat))))
 
+(define-public h-client
+  (let ((version "0.0a0")
+        (revision 138))
+    (package
+      (name "h-client")
+      (version (string-append version "-" (number->string revision)))
+      (source
+       (origin
+         (method svn-fetch)
+         (uri
+          (svn-reference
+           (url "https://svn.savannah.nongnu.org/svn/h-client/trunk/h-client")
+           (revision revision)))
+         (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 h-node 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
+whether the hardware works with a fully free operating system or not.")
+      (home-page "https://savannah.nongnu.org/projects/h-client/")
+      (license license:gpl3+))))
+
 (define-public i7z
   (let ((revision "0")
         (commit "1a41ff13db747e962456ddbb5ccb2b7fc43ca0cb"))