me/guix
Archived
1
0
Fork 0
Code Activity

gnu: tlpui: Use G-expressions.

Browse source 
* gnu/packages/linux.scm (tlpui)[arguments]: Use G-expressions.
This commit is contained in:
Nicolas Goaziou 2022-07-04 15:11:39 +02:00
parent 16c2372fe8
commit f5758b36da
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 37 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/linux.scm
View file

@ -7150,8 +7150,9 @@ every time the power supply source is changed.")
(base32 "16a6x733szsggn23ns7bj3gpvb80675plh96v4llrz0s8p3h47pg")))) (base32 "16a6x733szsggn23ns7bj3gpvb80675plh96v4llrz0s8p3h47pg"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-setup.py (add-after 'unpack 'patch-setup.py
;; Install data_files to $out/share instead of /usr/share. ;; Install data_files to $out/share instead of /usr/share.
(lambda _ (lambda _
@ -7182,10 +7183,9 @@ every time the power supply source is changed.")
(when tests? (when tests?
(invoke "python" "-m" "discover")))) (invoke "python" "-m" "discover"))))
(add-after 'install 'wrap-gi-python (add-after 'install 'wrap-gi-python
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((out (assoc-ref outputs "out")) (let ((gi-typelib-path (getenv "GI_TYPELIB_PATH")))
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))) (wrap-program (string-append #$output "/bin/tlpui")
(wrap-program (string-append out "/bin/tlpui")
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))))))) `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
(native-inputs (native-inputs
(list `(,glib "bin") gobject-introspection python-discover)) (list `(,glib "bin") gobject-introspection python-discover))