Subject: Add xmagnify, a tiny screen magnifier for X11

From: Andrew Miloradovsky <[email-masked]>
Date: Tue, 5 Feb 2019 00:20:54 +0000

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`.

From e986df8668c011b0a84827fab44ce674a0dd695a Mon Sep 17 00:00:00 2001
From: Andrew Miloradovsky <[email-masked]>
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(+)

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+))))
-- 
2.19.2