gnu: python-pyopengl: Refresh package style.

* gnu/packages/python-xyz.scm (python-pyopengl): Use G-expressions,
shift order of the fields.
[phases] {fix-path}: Rewrite with FORMAT and THIS-PACKAGE-INPUT to
simplify flow.  Remove trailing #t from lambda.

Change-Id: I054af72dd41a12523ce17eab6129a06c5f964893
This commit is contained in:
Sharlatan Hellseher 2025-02-07 16:22:34 +00:00
parent e4248af606
commit 62b399b80e
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5

View file

@ -27321,15 +27321,14 @@ functionality like full case-folding for case-insensitive matches in Unicode.")
(base32 (base32
"09syrsfrcknr1k2wmj05gfd5d0dyjfxzbipzbd0agv9775vwi9lf")))) "09syrsfrcknr1k2wmj05gfd5d0dyjfxzbipzbd0agv9775vwi9lf"))))
(build-system python-build-system) (build-system python-build-system)
(inputs
(list mesa freeglut glu))
(arguments (arguments
`(#:tests? #f ; Tests fail: AttributeError: 'GLXPlatform' object has no (list
;attribute 'OSMesa' ;; Tests fail: AttributeError: 'GLXPlatform' object has no attribute 'OSMesa'
#:tests? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'build 'fix-paths (add-before 'build 'fix-paths
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(substitute* '("OpenGL/platform/ctypesloader.py") (substitute* '("OpenGL/platform/ctypesloader.py")
(("filenames_to_try = \\[\\]") "filenames_to_try = [name]")) (("filenames_to_try = \\[\\]") "filenames_to_try = [name]"))
(substitute* '("OpenGL/platform/glx.py" (substitute* '("OpenGL/platform/glx.py"
@ -27338,13 +27337,20 @@ functionality like full case-folding for case-insensitive matches in Unicode.")
"OpenGL/platform/darwin.py" "OpenGL/platform/darwin.py"
"tests/check_glut_load.py") "tests/check_glut_load.py")
(("'GLU'") (("'GLU'")
(string-append "'" (assoc-ref inputs "glu") "/lib/libGLU.so'")) (format #f "'~a/~a'" #$(this-package-input "glu")
"lib/libGLU.so"))
(("'glut',") (("'glut',")
(string-append "'" (assoc-ref inputs "freeglut") "/lib/libglut.so',")) (format #f "'~a/~a'," #$(this-package-input "freeglut")
"lib/libglut.so"))
(("'(GL|EGL|GLESv1_CM|GLESv2|OSMesa)'" all gl-library) (("'(GL|EGL|GLESv1_CM|GLESv2|OSMesa)'" all gl-library)
(string-append "'" (assoc-ref inputs "mesa") (string-append "/lib/lib" gl-library ".so'")))) (format #f "'~a/~a'" #$(this-package-input "mesa")
(string-append "lib/lib" gl-library ".so"))))
;; Not providing libgle. It seems to be very old. ;; Not providing libgle. It seems to be very old.
#t))))) )))))
(inputs
(list freeglut
glu
mesa))
(home-page "https://pyopengl.sourceforge.net") (home-page "https://pyopengl.sourceforge.net")
(synopsis "Standard OpenGL bindings for Python") (synopsis "Standard OpenGL bindings for Python")
(description (description