From 3053c40995675c4b7a0c92c001e98de432326766 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Mon, 6 May 2024 18:21:12 +0300
Subject: gnu: mouseloupe: Update the package style.

* gnu/packages/accessibility.scm (mouseloupe)[arguments]: Switch to
g-expressions.

Change-Id: I9af4433b2effbcbd9c0178ea3f02d81e202f4c05
---
 gnu/packages/accessibility.scm | 38 ++++++++++++++++++++------------------
 1 file changed, 20 insertions(+), 18 deletions(-)

(limited to 'gnu')

diff --git a/gnu/packages/accessibility.scm b/gnu/packages/accessibility.scm
index 50efc48ffe..cf5a568a77 100644
--- a/gnu/packages/accessibility.scm
+++ b/gnu/packages/accessibility.scm
@@ -359,32 +359,34 @@ CONFIG_SPEAKUP_SOFT=m
         (method url-fetch)
         (uri (string-append "mirror://sourceforge/" name "/" name "/v" version
                             "/" name "-v" version ".tar.gz"))
-        (sha256 (base32 "0cvdkfakw7cix07j0c4iy10fkbqn6n8l1gr5dd3iy4f2d9bkza43"))
+        (sha256
+         (base32 "0cvdkfakw7cix07j0c4iy10fkbqn6n8l1gr5dd3iy4f2d9bkza43"))
         (snippet
          #~(begin (use-modules (guix build utils))
                   (substitute* "Makefile"
                     (("-D__i386__") ""))))))
     (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")))))))
+     (list
+       #: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 _
+               (install-file "mouseloupe" (string-append #$output "/bin"))
+               (install-file "mouseloupe.1.gz"
+                             (string-append #$output "/share/man/man1")))))))
     (native-inputs
-      (list pkg-config))
+     (list pkg-config))
     (inputs
-      (list libx11 libxext libxcomposite libxdamage libxrender))
+     (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.")
+    (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+)))
-- 
cgit v1.2.3