guix_mirror_bot pushed a commit to branch python-team
in repository guix.
commit cee6e451d7dcafffc3d73f506be4f87794fd56c4
Author: Nicolas Graves <[email protected]>
AuthorDate: Thu Jan 29 14:01:27 2026 +0100
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 <[email protected]>
---
gnu/packages/xdisorg.scm | 75 ++++++++++++++++++++++++------------------------
1 file changed, 38 insertions(+), 37 deletions(-)
diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm
index 41f04e16f2..82c2898ee6 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))
