03/05: gnu: links: Use configure-flags.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 1123da369db5fa95fc306eac20ff4b7572384b87
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Fri May 6 14:16:10 2022 +0300

    gnu: links: Use configure-flags.
    
    * gnu/packages/web-browsers.scm (links)[arguments]: Add configure-flags
    field. Adjust custom 'configure phase to use configure-flags.
---
 gnu/packages/web-browsers.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/web-browsers.scm b/gnu/packages/web-browsers.scm
index 07df9f7580..b761fa73a8 100644
--- a/gnu/packages/web-browsers.scm
+++ b/gnu/packages/web-browsers.scm
@@ -167,10 +167,11 @@ management, extensions such as advertisement blocker and 
colorful tabs.")
                 "1jy90k04kl7y3l8jzg5jx7fglyqzngng0964j7j67gjxy9vkanzh"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
+     `(#:configure-flags '("--enable-graphics")
+       #:phases
        (modify-phases %standard-phases
          (replace 'configure
-           (lambda* (#:key outputs #:allow-other-keys)
+           (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.
@@ -180,9 +181,9 @@ management, extensions such as advertisement blocker and 
colorful tabs.")
                      `((setenv "CHOST" ,(%current-target-system)))
                      '())
                (setenv "CONFIG_SHELL" (which "bash"))
-               (invoke "./configure"
-                       (string-append "--prefix=" out)
-                       "--enable-graphics")))))))
+               (apply invoke "./configure"
+                      (string-append "--prefix=" out)
+                      configure-flags)))))))
     (native-inputs (list pkg-config))
     (inputs `(("gpm" ,gpm)
               ("libevent" ,libevent)