mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-12 06:06:53 -05:00
gnu: redshift: Wrap with GUIX_PYTHONPATH.
* gnu/packages/xdisorg.scm (redshift): Streamline wrap phase and Wrap with GUIX_PYTHONPATH.
This commit is contained in:
parent
df76386b12
commit
b6632b23d7
1 changed files with 6 additions and 8 deletions
|
@ -43,6 +43,7 @@
|
|||
;;; Copyright © 2020 James Smith <jsubuntuxp@disroot.org>
|
||||
;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com>
|
||||
;;; Copyright © 2020 Zheng Junjie <873216071@qq.com>
|
||||
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -1248,15 +1249,12 @@ (define-public redshift
|
|||
(add-after 'split-outputs 'wrap
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let* ((gtk (assoc-ref outputs "gtk"))
|
||||
(python-version
|
||||
(@ (guix build python-build-system) python-version))
|
||||
(python (assoc-ref inputs "python"))
|
||||
(sitedir (string-append gtk "/lib/python"
|
||||
(python-version python)
|
||||
"/site-packages")))
|
||||
(site-packages (@ (guix build python-build-system)
|
||||
site-packages))
|
||||
(site (site-packages inputs outputs)))
|
||||
(wrap-program (string-append gtk "/bin/redshift-gtk")
|
||||
`("PYTHONPATH" ":" prefix
|
||||
(,(string-append sitedir ":" (getenv "PYTHONPATH"))))
|
||||
`("GUIX_PYTHONPATH" ":" prefix
|
||||
(,(string-append site ":" (getenv "GUIX_PYTHONPATH"))))
|
||||
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))))
|
||||
#t))))))
|
||||
(outputs '("out" "gtk"))
|
||||
|
|
Loading…
Reference in a new issue