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

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

@ -167,23 +167,24 @@ 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
;; understand extra flags like `--enable-fast-install', so ;; understand extra flags like `--enable-fast-install', so
;; 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)
configure-flags))))))) configure-flags)))))))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (inputs
(list gpm (list gpm