From 2303e80e1d3e734544024b15adc1dd77cfa49b8e Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim@guixotic.coop>
Date: Fri, 3 Oct 2025 16:40:53 +0900
Subject: [PATCH] build/qt: Expose usual build variables.

* guix/build-system/qt.scm (qt-build): Wrap inner `qt-build' call with
`with-build-variables'.

Change-Id: Ic8448ca48844a9907fd37fafb1557a37b9e39cba
---
 guix/build-system/qt.scm | 63 +++++++++++++++++++++-------------------
 1 file changed, 33 insertions(+), 30 deletions(-)

diff --git a/guix/build-system/qt.scm b/guix/build-system/qt.scm
index d144be43712cc2ab0b8c879daaa2933d1b840070..6e68a466143b342e211a9d4658ee8de865224ee8 100644
--- a/guix/build-system/qt.scm
+++ b/guix/build-system/qt.scm
@@ -147,40 +147,43 @@ provides a 'CMakeLists.txt' file as its build system."
     (with-imported-modules imported-modules
       #~(begin
           (use-modules #$@(sexp->gexp modules))
-          (qt-build #:source #+source
-                    #:system #$system
-                    #:outputs #$(outputs->gexp outputs)
-                    #:inputs #$(input-tuples->gexp inputs)
-                    #:search-paths '#$(sexp->gexp
-                                       (map search-path-specification->sexp
-                                            search-paths))
-                    #:phases #$(if (pair? phases)
-                                   (sexp->gexp phases)
-                                   phases)
-                    #:qtbase #+qtbase
-                    #:qt-wrap-excluded-outputs #$qt-wrap-excluded-outputs
-                    #:qt-wrap-excluded-inputs #$qt-wrap-excluded-inputs
-                    #:configure-flags #$configure-flags
-                    #:make-flags #$make-flags
-                    #:out-of-source? #$out-of-source?
-                    #:generator #$generator
-                    #:build-type #$build-type
-                    #:tests? #$tests?
-                    #:test-exclude #$test-exclude
-                    #:test-repeat-until-pass? #$test-repeat-until-pass?
-                    #:test-repeat-until-pass-count #$test-repeat-until-pass-count
-                    #:parallel-build? #$parallel-build?
-                    #:parallel-tests? #$parallel-tests?
-                    #:validate-runpath? #$validate-runpath?
-                    #:patch-shebangs? #$patch-shebangs?
-                    #:strip-binaries? #$strip-binaries?
-                    #:strip-flags #$strip-flags
-                    #:strip-directories #$strip-directories))))
+
+          #$(with-build-variables inputs outputs
+              #~(qt-build
+                 #:source #+source
+                 #:system #$system
+                 #:outputs #$(outputs->gexp outputs)
+                 #:inputs #$(input-tuples->gexp inputs)
+                 #:search-paths '#$(sexp->gexp
+                                    (map search-path-specification->sexp
+                                         search-paths))
+                 #:phases #$(if (pair? phases)
+                                (sexp->gexp phases)
+                                phases)
+                 #:qtbase #+qtbase
+                 #:qt-wrap-excluded-outputs #$qt-wrap-excluded-outputs
+                 #:qt-wrap-excluded-inputs #$qt-wrap-excluded-inputs
+                 #:configure-flags #$configure-flags
+                 #:make-flags #$make-flags
+                 #:out-of-source? #$out-of-source?
+                 #:generator #$generator
+                 #:build-type #$build-type
+                 #:tests? #$tests?
+                 #:test-exclude #$test-exclude
+                 #:test-repeat-until-pass? #$test-repeat-until-pass?
+                 #:test-repeat-until-pass-count #$test-repeat-until-pass-count
+                 #:parallel-build? #$parallel-build?
+                 #:parallel-tests? #$parallel-tests?
+                 #:validate-runpath? #$validate-runpath?
+                 #:patch-shebangs? #$patch-shebangs?
+                 #:strip-binaries? #$strip-binaries?
+                 #:strip-flags #$strip-flags
+                 #:strip-directories #$strip-directories)))))
 
   (mlet %store-monad ((guile (package->derivation (or guile (default-guile))
                                                   system #:graft? #f)))
     (gexp->derivation name builder
-                      #:graft? #f                 ;consistent with 'gnu-build'
+                      #:graft? #f       ;consistent with 'gnu-build'
                       #:system system
                       #:guile-for-build guile
                       #:allowed-references allowed-references