me/guix
Archived
1
0
Fork 0
Code Activity

gnu: mouseloupe: Update the package style.

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

Change-Id: I9af4433b2effbcbd9c0178ea3f02d81e202f4c05
This commit is contained in:
Efraim Flashner 2024-05-06 18:21:12 +03:00
parent 2d5b779b45
commit 3053c40995
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 20 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/accessibility.scm
View file

@ -359,16 +359,18 @@ CONFIG_SPEAKUP_SOFT=m
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/" name "/" name "/v" version (uri (string-append "mirror://sourceforge/" name "/" name "/v" version
"/" name "-v" version ".tar.gz")) "/" name "-v" version ".tar.gz"))
(sha256 (base32 "0cvdkfakw7cix07j0c4iy10fkbqn6n8l1gr5dd3iy4f2d9bkza43")) (sha256
(base32 "0cvdkfakw7cix07j0c4iy10fkbqn6n8l1gr5dd3iy4f2d9bkza43"))
(snippet (snippet
#~(begin (use-modules (guix build utils)) #~(begin (use-modules (guix build utils))
(substitute* "Makefile" (substitute* "Makefile"
(("-D__i386__") "")))))) (("-D__i386__") ""))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; there are no tests (list
#:tests? #f ; there are no tests
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-before 'build 'strtof (add-before 'build 'strtof
(lambda _ (lambda _
@ -376,15 +378,15 @@ CONFIG_SPEAKUP_SOFT=m
(("\\bstrtof\\b") "mouseloupe_strtof")))) (("\\bstrtof\\b") "mouseloupe_strtof"))))
(replace 'install (replace 'install
(lambda _ (lambda _
(define out (assoc-ref %outputs "out")) (install-file "mouseloupe" (string-append #$output "/bin"))
(install-file "mouseloupe" (string-append out "/bin")) (install-file "mouseloupe.1.gz"
(install-file "mouseloupe.1.gz" (string-append out "/share/man/man1"))))))) (string-append #$output "/share/man/man1")))))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs
(list libx11 libxext libxcomposite libxdamage libxrender)) (list libx11 libxext libxcomposite libxdamage libxrender))
(synopsis "Screen magnifier tool for people with low vision") (synopsis "Screen magnifier tool for people with low vision")
(description "MouseLoupe is a kind of magnifying glass combined with the mouse pointer (description "MouseLoupe is a kind of magnifying glass combined with the
which allows an easy and pleasant web navigation.") mouse pointer which allows an easy and pleasant web navigation.")
(home-page "https://sourceforge.net/projects/mouseloupe/") (home-page "https://sourceforge.net/projects/mouseloupe/")
(license license:gpl2+))) (license license:gpl2+)))