From 16bb27f281298afcf7f7c2fb9200adf5d79c9e6c Mon Sep 17 00:00:00 2001 From: Andrew Miloradovsky Date: Mon, 4 Feb 2019 23:28:23 +0000 Subject: [PATCH] gnu: Add xmagnify. * gnu/packages/accessibility.scm (xmagnify): New variable. Signed-off-by: Ricardo Wurmus --- gnu/packages/accessibility.scm | 35 ++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm index d399f98f09..25c44fa2c0 100644 --- a/gnu/packages/accessibility.scm +++ b/gnu/packages/accessibility.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2017 Nils Gillmann ;;; Copyright © 2017 Stefan Reichör ;;; Copyright © 2018 Tobias Geerinckx-Rice +;;; Copyright © 2019 Andrew Miloradovsky ;;; ;;; This file is part of GNU Guix. ;;; @@ -122,3 +123,37 @@ (define-public footswitch It works for both single pedal devices and three pedal devices. All supported devices have vendorId:productId = 0c45:7403 or 0c45:7404.") (license license:expat)))) + +(define-public xmagnify + (package + (name "xmagnify") + (version "0.1.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/amiloradovsky/magnify.git") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1ngnp5f5zl3v35vhbdyjpymy6mwrs0476fm5nd7dzkba7n841jdh")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ; none included + #:make-flags + (list "CC=gcc" + (string-append "prefix=" (assoc-ref %outputs "out"))) + #:phases + (modify-phases %standard-phases + (delete 'configure)))) + (inputs + `(("libX11" ,libx11))) + (home-page "https://gitlab.com/amiloradovsky/magnify") + (synopsis "Tiny screen magnifier for X11") + (description + "This program magnifies a screen region by an integer positive factor and +draws the result on a window. It is useful as an accessibility tool, which +works with every X Window System based GUI (depends only on libX11); or as an +assistant for graphic designers, who need to select individual pixels.") + ;; Licensed either under Expat or GPLv2+. + (license (list license:expat license:gpl2+))))