02/02: gnu: orchis-theme: Build all versions.

[guix-commits]

leoprikler pushed a commit to branch master
in repository guix.

commit c4195a1078336281592394ff9585c85e8d2f6e6d
Author: Leo Prikler <leo.prikler@student.tugraz.at>
AuthorDate: Sun Mar 7 16:33:24 2021 +0100

    gnu: orchis-theme: Build all versions.
    
    * gnu/packages/gnome-xyz.scm (orchis-theme)[arguments]: Add 
#:configure-flags.
    Use them in 'install phase.
---
 gnu/packages/gnome-xyz.scm | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index de43d25..f73001f 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -811,19 +811,25 @@ dark elements.  It supports GNOME, Unity, Xfce, and 
Openbox.")
             #t))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f ; no tests
+     `(#:configure-flags (list
+                          "--dest" (string-append
+                                    (assoc-ref %outputs "out")
+                                    "/share/themes")
+                          "--theme" "all"
+                          "--radio-color")
+       #:tests? #f ; no tests
        #:phases
        (modify-phases %standard-phases
          (delete 'bootstrap)
          (delete 'configure)
          (replace 'build (lambda _ (invoke "./parse-sass.sh")))
          (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((themes (string-append (assoc-ref outputs "out")
-                                          "/share/themes")))
-               (mkdir-p themes)
-               (invoke "./install.sh" "-d" themes)
-               #t))))))
+           (lambda* (#:key configure-flags #:allow-other-keys)
+             (mkdir-p
+              (cadr (or (member "--dest" configure-flags)
+                        (member "-d" configure-flags))))
+             (apply invoke "./install.sh" configure-flags)
+             #t)))))
     (inputs
      `(("gtk-engines" ,gtk-engines)))
     (native-inputs