GNU bug report logs - #62874
[PATCH] gnu: Add mouseloupe.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 62874 in the body.
You can then email your comments to 62874 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Ivan Gankevich <igankevich <at> capybaramail.xyz>
To: guix-patches <at> gnu.org
Cc: Ivan Gankevich <igankevich <at> capybaramail.xyz>
Subject: [PATCH] gnu: Add mouseloupe.
Date: Sat, 15 Apr 2023 21:01:08 +0200

* gnu/packages/accessibility.scm (mouseloupe): New variable.
---
Hello.

I've added a magnifying tool for X11. This is an old package but still works.

Best regards,
Ivan

 gnu/packages/accessibility.scm | 36 ++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index 3613bd8c45..0b06a189ea 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -5,6 +5,7 @@
 ;;; Copyright © 2019 Andrew Miloradovsky <andrew <at> interpretmath.pw>
 ;;; Copyright © 2020 Efraim Flashner <efraim <at> flashner.co.il>
 ;;; Copyright © 2022 Hunter Jozwiak <hunter.t.joz <at> gmail.com>
+;;; Copyright © 2023 Ivan Gankevich <igankevich <at> capybaramail.xyz>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -350,3 +351,38 @@ (define-public espeakup
 CONFIG_SPEAKUP_SOFT=m
 @end itemize")
     (home-page "https://github.com/linux-speakup/espeakup")))
+
+(define-public mouseloupe
+  (package
+    (name "mouseloupe")
+    (version "0.6")
+    (source
+      (origin
+        (method url-fetch)
+        (uri (string-append "mirror://sourceforge/" name "/" name "/v" version
+                            "/" name "-v" version ".tar.gz"))
+        (sha256 (base32 "0cvdkfakw7cix07j0c4iy10fkbqn6n8l1gr5dd3iy4f2d9bkza43"))))
+    (build-system gnu-build-system)
+    (arguments
+      `(#:tests? #f ; there are no tests
+        #:phases
+        (modify-phases %standard-phases
+          (delete 'configure)
+          (add-before 'build 'strtof
+            (lambda _
+              (substitute* "mouseloupe.c"
+                (("\\bstrtof\\b") "mouseloupe_strtof"))))
+          (replace 'install
+            (lambda _
+              (define out (assoc-ref %outputs "out"))
+              (install-file "mouseloupe" (string-append out "/bin"))
+              (install-file "mouseloupe.1.gz" (string-append out "/share/man/man1")))))))
+    (native-inputs
+      (list pkg-config))
+    (inputs
+      (list libx11 libxext libxcomposite libxdamage libxrender))
+    (synopsis "Screen magnifier tool for people with low vision")
+    (description "MouseLoupe is a kind of magnifying glass combined with the mouse pointer
+which allows an easy and pleasant web navigation.")
+    (home-page "https://sourceforge.net/projects/mouseloupe/")
+    (license license:gpl2+)))
-- 
2.38.0

Message #10 received at 62874-done <at> debbugs.gnu.org (full text, mbox):

From: Ludovic Courtès <ludo <at> gnu.org>
To: Ivan Gankevich <igankevich <at> capybaramail.xyz>
Cc: 62874-done <at> debbugs.gnu.org
Subject: Re: bug#62874: [PATCH] gnu: Add mouseloupe.
Date: Thu, 25 May 2023 12:51:29 +0200

Hi,

Ivan Gankevich <igankevich <at> capybaramail.xyz> skribis:

> * gnu/packages/accessibility.scm (mouseloupe): New variable.
> ---
> Hello.
>
> I've added a magnifying tool for X11. This is an old package but still works.

Indeed.  :-)  Applied, thanks!

Ludo’.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.