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,30 +27321,36 @@ 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'
#:phases #:tests? #f
(modify-phases %standard-phases #:phases
(add-before 'build 'fix-paths #~(modify-phases %standard-phases
(lambda* (#:key inputs outputs #:allow-other-keys) (add-before 'build 'fix-paths
(substitute* '("OpenGL/platform/ctypesloader.py") (lambda _
(("filenames_to_try = \\[\\]") "filenames_to_try = [name]")) (substitute* '("OpenGL/platform/ctypesloader.py")
(substitute* '("OpenGL/platform/glx.py" (("filenames_to_try = \\[\\]") "filenames_to_try = [name]"))
"OpenGL/platform/egl.py" (substitute* '("OpenGL/platform/glx.py"
"OpenGL/platform/osmesa.py" "OpenGL/platform/egl.py"
"OpenGL/platform/darwin.py" "OpenGL/platform/osmesa.py"
"tests/check_glut_load.py") "OpenGL/platform/darwin.py"
(("'GLU'") "tests/check_glut_load.py")
(string-append "'" (assoc-ref inputs "glu") "/lib/libGLU.so'")) (("'GLU'")
(("'glut',") (format #f "'~a/~a'" #$(this-package-input "glu")
(string-append "'" (assoc-ref inputs "freeglut") "/lib/libglut.so',")) "lib/libGLU.so"))
(("'(GL|EGL|GLESv1_CM|GLESv2|OSMesa)'" all gl-library) (("'glut',")
(string-append "'" (assoc-ref inputs "mesa") (string-append "/lib/lib" gl-library ".so'")))) (format #f "'~a/~a'," #$(this-package-input "freeglut")
;; Not providing libgle. It seems to be very old. "lib/libglut.so"))
#t))))) (("'(GL|EGL|GLESv1_CM|GLESv2|OSMesa)'" all gl-library)
(format #f "'~a/~a'" #$(this-package-input "mesa")
(string-append "lib/lib" gl-library ".so"))))
;; Not providing libgle. It seems to be very old.
)))))
(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