diff --git a/gnu/packages/hardware.scm b/gnu/packages/hardware.scm index 707a47fb4b..ff21c9c724 100644 --- a/gnu/packages/hardware.scm +++ b/gnu/packages/hardware.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2020 Brice Waegeneire ;;; Copyright © 2021 Evgeny Pisemsky ;;; Copyright © 2021 Léo Le Bouter +;;; Copyright © 2021 Denis Carikli ;;; ;;; This file is part of GNU Guix. ;;; @@ -38,11 +39,14 @@ #: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 @@ #: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 @@ through the Display Data Channel Command Interface (@dfn{DDC/CI}) protocol.") 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"))