gnu: redshift: Improve style and switch to pyproject.

* gnu/packages/xdisorg.scm (redshift):
[arguments]: Improve style, use gexps.
<#:imported-modules, #:phases>: Switch to pyproject-build-system.

Change-Id: Id01675d8de493e745ac13178bc34a34345d19cc7
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>

1 files changed, 38 insertions, 37 deletions

diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 27f937cfec0..0161bc20bfd 100644
--- a/gnu/packages/xdisorg.scm
+++ b/gnu/packages/xdisorg.scm
@@ -1875,43 +1875,44 @@ driver for the X.Org X Server version 1.7 and later (X11R7.5 or later).")
          "1fi27b73x85qqar526dbd33av7mahca2ykaqwr7siqiw1qqcby6j"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:imported-modules (,@%default-gnu-imported-modules
-                           (guix build python-build-system))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'split-outputs
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out"))
-                   (gtk (assoc-ref outputs "gtk"))
-                   (desktop-file "/share/applications/redshift-gtk.desktop"))
-               (mkdir-p (string-append gtk "/bin"))
-               (link (string-append out "/bin/redshift-gtk")
-                     (string-append gtk "/bin/redshift-gtk"))
-               (delete-file (string-append out "/bin/redshift-gtk"))
-               (copy-recursively (string-append out "/lib")
-                                 (string-append gtk "/lib"))
-               (delete-file-recursively (string-append out "/lib"))
-               (mkdir-p (string-append gtk "/share/applications"))
-               (link (string-append out desktop-file)
-                     (string-append gtk desktop-file))
-               (delete-file (string-append out desktop-file))
-               (with-directory-excursion (string-append out "/share")
-                 (for-each (lambda (dir)
-                             (copy-recursively
-                              (string-append out "/share/" dir)
-                              (string-append gtk "/share/" dir))
-                             (delete-file-recursively dir))
-                           '("appdata" "icons"))))))
-         (add-after 'split-outputs 'wrap
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((gtk (assoc-ref outputs "gtk"))
-                    (site-packages (@ (guix build python-build-system)
-                                      site-packages))
-                    (site (site-packages inputs outputs)))
-               (wrap-program (string-append gtk "/bin/redshift-gtk")
-                 `("GUIX_PYTHONPATH" ":" prefix
-                   (,(string-append site ":" (getenv "GUIX_PYTHONPATH"))))
-                 `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))))))))))
+     (list
+      #:imported-modules %pyproject-build-system-modules
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'split-outputs
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out"))
+                    (gtk (assoc-ref outputs "gtk"))
+                    (desktop-file "/share/applications/redshift-gtk.desktop"))
+                (mkdir-p (string-append gtk "/bin"))
+                (link (string-append out "/bin/redshift-gtk")
+                      (string-append gtk "/bin/redshift-gtk"))
+                (delete-file (string-append out "/bin/redshift-gtk"))
+                (copy-recursively (string-append out "/lib")
+                                  (string-append gtk "/lib"))
+                (delete-file-recursively (string-append out "/lib"))
+                (mkdir-p (string-append gtk "/share/applications"))
+                (link (string-append out desktop-file)
+                      (string-append gtk desktop-file))
+                (delete-file (string-append out desktop-file))
+                (with-directory-excursion (string-append out "/share")
+                  (for-each (lambda (dir)
+                              (copy-recursively
+                               (string-append out "/share/" dir)
+                               (string-append gtk "/share/" dir))
+                              (delete-file-recursively dir))
+                            '("appdata" "icons"))))))
+          (add-after 'split-outputs 'wrap
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              (let* ((gtk (assoc-ref outputs "gtk"))
+                     (site-packages (@ (guix build pyproject-build-system)
+                                       site-packages))
+                     (site (site-packages inputs outputs)))
+                (wrap-program (string-append gtk "/bin/redshift-gtk")
+                  `("GUIX_PYTHONPATH" ":" prefix
+                    (,(string-append site ":" (getenv "GUIX_PYTHONPATH"))))
+                  `("GI_TYPELIB_PATH" ":" prefix
+                    (,(getenv "GI_TYPELIB_PATH"))))))))))
     (outputs '("out" "gtk"))
     (native-inputs
      (list pkg-config intltool))