amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: links: Use gexps.

Browse source 
* gnu/packages/web-browsers.scm (links)[arguments]: Rewrite using gexps.
This commit is contained in:
Efraim Flashner 2022-05-06 14:27:36 +03:00
parent d540c6792b
commit 22b794a4a7
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/web-browsers.scm
View file

@ -167,9 +167,10 @@ management, extensions such as advertisement blocker and colorful tabs.")
"1jy90k04kl7y3l8jzg5jx7fglyqzngng0964j7j67gjxy9vkanzh")))) "1jy90k04kl7y3l8jzg5jx7fglyqzngng0964j7j67gjxy9vkanzh"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags '("--enable-graphics") (list
#:configure-flags #~(list "--enable-graphics")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key outputs (configure-flags '()) #:allow-other-keys) (lambda* (#:key outputs (configure-flags '()) #:allow-other-keys)
;; The tarball uses a very old version of autoconf. It doesn't ;; The tarball uses a very old version of autoconf. It doesn't
@ -177,9 +178,9 @@ management, extensions such as advertisement blocker and colorful tabs.")
;; we need to invoke it with just what it understands. ;; we need to invoke it with just what it understands.
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
;; 'configure' doesn't understand '--host'. ;; 'configure' doesn't understand '--host'.
,@(if (%current-target-system) #$@(if (%current-target-system)
`((setenv "CHOST" ,(%current-target-system))) #~((setenv "CHOST" #$(%current-target-system)))
'()) #~())
(setenv "CONFIG_SHELL" (which "bash")) (setenv "CONFIG_SHELL" (which "bash"))
(apply invoke "./configure" (apply invoke "./configure"
(string-append "--prefix=" out) (string-append "--prefix=" out)