(address . guix-patches@gnu.org)
3cef1d9bbcfa33eb69881262c5db956cd42c682b.1705403845.git.cdo@mutix.org
* gnu/packages/evhz.scm (evhz): New file and variable.
Change-Id: I9708ec7bd72d2fc2f42350321f045068a5135ee2
---
gnu/packages/evhz.scm | 85 +++++++++++++++++++++++++++++++++++++++++++
1 file changed, 85 insertions(+)
create mode 100644 gnu/packages/evhz.scm
Toggle diff (95 lines)
diff --git a/gnu/packages/evhz.scm b/gnu/packages/evhz.scm
new file mode 100644
index 0000000000..7c59c645d9
--- /dev/null
+++ b/gnu/packages/evhz.scm
@@ -0,0 +1,85 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2024 Christina O'Donnell <cdo@mutix.org>
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix 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.
+;;;
+;;; GNU Guix 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 evhz)
+ #:use-module (guix gexp)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix packages)
+ #:use-module (guix git-download)
+ #:use-module (guix build-system trivial)
+ #:use-module (guix utils)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages base)
+ #:use-module (gnu packages commencement)
+ #:use-module (gnu packages gcc)
+ #:use-module (gnu packages glib)
+ #:use-module (gnu packages linux))
+
+(define-public evhz
+ (let ((commit "35b7526e0655522bbdf92f6384f4e9dff74f38a0")
+ (revision "1"))
+ (package
+ (name "evhz")
+ (version (git-version "0.0.0" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://git.sr.ht/~iank/evhz")
+ (commit commit)))
+ (sha256
+ (base32 "1m2m60sh12jzc8f38g7g67b3avx2vg8ff0lai891jmjqvxw04bcl"))))
+ (build-system trivial-build-system)
+ (arguments
+ `(#:modules ((guix build utils))
+ #:builder (begin
+ (use-modules (guix build utils))
+ (let ((source (assoc-ref %build-inputs "source"))
+ (glibc (assoc-ref %build-inputs "glibc"))
+ (gcc (assoc-ref %build-inputs "gcc"))
+ (binutils (assoc-ref %build-inputs "binutils"))
+ (linux-libre-headers (assoc-ref %build-inputs
+ "linux-libre-headers"))
+ (output (assoc-ref %outputs "out")))
+ (setenv "PATH"
+ (string-join (list (string-append gcc "/bin")
+ (string-append binutils
+ "/bin")
+ (getenv "PATH")) ":"))
+ (setenv "LIBRARY_PATH"
+ (string-join (list (string-append glibc "/lib"))
+ ":"))
+ (mkdir-p (string-append output "/bin"))
+ (invoke (string-append gcc "/bin/gcc")
+ "-o"
+ (string-append output "/bin/evhz")
+ "-I"
+ (string-append linux-libre-headers "/include")
+ (string-append source "/evhz.c")) #t))))
+ (native-inputs (list binutils gcc gcc-toolchain glibc
+ linux-libre-headers))
+ (home-page "https://git.sr.ht/~iank/evhz")
+ ;; TRANSLATORS: "evdev" should not be translated.
+ (synopsis "Show mouse polling rate using evdev")
+ (description
+ "A simple diagnostic utility to show mouse polling rate under evdev, a Linux
+event interface. If you have invested in a high resolution mouse, adjusting the USB
+polling rate is a common trick to utilize the added precision it brings. The polling
+rate (or report rate) determines how often the mouse sends information to your
+computer.")
+ (license license:apsl2))))
base-commit: 162d6a2fdd6af13272967c77347a54934ecb45e6
--
2.41.0