TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -167,23 +167,24 @@ (define-public links
"1jy90k04kl7y3l8jzg5jx7fglyqzngng0964j7j67gjxy9vkanzh"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--enable-graphics")
(list
#:configure-flags #~(list "--enable-graphics")
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs (configure-flags '()) #:allow-other-keys)
;; The tarball uses a very old version of autoconf. It doesn't
;; understand extra flags like `--enable-fast-install', so
;; we need to invoke it with just what it understands.
(let ((out (assoc-ref outputs "out")))
;; 'configure' doesn't understand '--host'.
,@(if (%current-target-system)
`((setenv "CHOST" ,(%current-target-system)))
'())
(setenv "CONFIG_SHELL" (which "bash"))
(apply invoke "./configure"
(string-append "--prefix=" out)
configure-flags)))))))
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs (configure-flags '()) #:allow-other-keys)
;; The tarball uses a very old version of autoconf. It doesn't
;; understand extra flags like `--enable-fast-install', so
;; we need to invoke it with just what it understands.
(let ((out (assoc-ref outputs "out")))
;; 'configure' doesn't understand '--host'.
#$@(if (%current-target-system)
#~((setenv "CHOST" #$(%current-target-system)))
#~())
(setenv "CONFIG_SHELL" (which "bash"))
(apply invoke "./configure"
(string-append "--prefix=" out)
configure-flags)))))))
(native-inputs (list pkg-config))
(inputs
(list gpm