[bug#34325] Add xmagnify, a tiny screen magnifier for X11

Message ID 8ebcda0b-9ce1-6c2a-e9d6-5c19f9109e90@interpretmath.pw
State Accepted
Headers show
Series [bug#34325] Add xmagnify, a tiny screen magnifier for X11 | expand

Checks

Context Check Description
cbaines/applying patch fail Apply failed

Commit Message

Andrew Miloradovsky Feb. 5, 2019, 12:20 a.m. UTC
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256

Sorry, I wasn't able to thoroughly test it or lint, because I couldn't
make Guix install it from the checked out tree, but it works on my machine.

Neither the instructions from here worked for that

- - https://www.gnu.org/software/guix/manual/en/html_node/Contributing.html

Nor from here

- -
https://www.gnu.org/software/guix/blog/2018/a-packaging-tutorial-for-guix/

Could only install it via `guix package -f ~/path/to/file.scm -i
package-name`.
-----BEGIN PGP SIGNATURE-----

iQIzBAEBCAAdFiEEkYid79R7hu2s1S0QNVwlkcVwbIsFAlxY1rAACgkQNVwlkcVw
bItzOw//fAYH+Wux2vt7prJtlKlAlc4OifTV4vrnzKZBtKYx1DzlCANTPriJc23L
KIAoCAs772WlVjuwFrRTZyr+QF34JeOptmBDxSpzmysKWAKsbI2BqlOlEHDcECva
0EMIRAAne3YdcHV3FsVvZQiw5z3cKu1H7UD+Bn6nDbtrgWnb9kmzVAeRPC+AAwdJ
7NtC5i5zwmPRJGqsLmDjol2/bqF1lIK0GGUWB7BfetzSUbfVsKCO4IiBj8FZrIu8
PiLzBI4T91ubIFQNUTxiYy4vMmNKGwibg4pW6iJHfgMK/He+HETxyiRKml5rOSiW
WNQH2nTPBt5r4AmfUILMrrpoFOdjihieHM6g2bwcsXceSaJCi2mrrp8qL9EikuJ7
nFulRYIjBc8QRhc5o+ZJF8ehafX8uGdKywtPvu12ioiy8OoSVPQm8FFdATYTSdZ4
WUiRHTPCV0yQ/q0sxQ30R5eqKZRc5Rf0wFqdIC/HOl+GKV7jDHsvyz1NA4AJHwjj
Jk9WhE15c05+8QoevADXTJXxICLr3xE7brbqxVhKws5O2aMJzjGJSkcrMeWD8Hmz
c/hkzC4q08oFj/2HEfqPA/W6eC/v2hAPz+OOb/vtLVYjIspB6DesZtuiceHstPit
7pPHodBKMy8X4CQBSX1Wz9DehEW3psQI/oZukQ8flznIsMhgii0=
=LGAC
-----END PGP SIGNATURE-----
From e986df8668c011b0a84827fab44ce674a0dd695a Mon Sep 17 00:00:00 2001
From: Andrew Miloradovsky <andrew@interpretmath.pw>
Date: Mon, 4 Feb 2019 23:28:23 +0000
Subject: [PATCH] gnu: Add xmagnify

Tiny screen magnifier for X11

* gnu/packages/accessibility.scm (xmagnify): New variable.
---
 gnu/packages/accessibility.scm | 37 ++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

Patch

diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index d399f98f0..63a01d5f2 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -122,3 +122,40 @@  available to help to click.")
 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
+  (let ((commit "56da280173e9d0bd7b3769e07ba485cb4db35869")
+	(revision "0.1.0"))
+    (package
+     (name "xmagnify")
+     (version "0.1.0")
+     (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://gitlab.com/amiloradovsky/magnify.git")
+                    (commit commit)))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+		"1ngnp5f5zl3v35vhbdyjpymy6mwrs0476fm5nd7dzkba7n841jdh"))))
+     (inputs `(("libX11" ,libx11)
+               ("xproto" ,xproto)))
+     (build-system gnu-build-system)
+     (arguments
+      `(#:tests? #f
+	#:make-flags '("CC=gcc")
+	#:phases
+	(modify-phases %standard-phases
+		       (replace 'configure
+				(lambda _
+				  (substitute* '("Makefile") (("/usr") (assoc-ref %outputs "out")))
+				  #t)))))
+     (home-page "https://gitlab.com/amiloradovsky/magnify")
+     (synopsis "Tiny screen magnifier for X11")
+     (description
+      "Magnifies a screen region by an integer positive factor and
+draws the result on a window.  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.")
+     (license license:gpl2+))))