Subject: [bug#34325] A better patch

From: Andrew Miloradovsky <[email-masked]>
Date: Tue, 5 Feb 2019 06:13:16 +0000

OK. Managed to build `pre-inst-env` and run `guix lint`, fixed couple
minor issues.

From 2267b26f8d38fb40e58d62e3e6fcdaff01001384 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 | 39 ++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index d399f98f0..44711cdc3 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -122,3 +122,42 @@ 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