gnu: pingus: Improve style.

* gnu/packages/games.scm (pingus): Improve style.
  [source]: Run guix style.
  [arguments]: Run guix style. Rewrite using gexps.

Change-Id: I34581b659fdbc7e750a62b81eede39b130dc4d88
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
This commit is contained in:
Nicolas Graves 2025-06-15 00:45:36 +02:00 committed by Sharlatan Hellseher
parent 3dc723b83e
commit 20c31bc066
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5

View file

@ -3919,24 +3919,30 @@ fight Morgoth, the Lord of Darkness.")
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://gitlab.com/pingus/pingus.git") (url "https://gitlab.com/pingus/pingus.git")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0wp06kcmknsnxz7bjnsndb8x062z7r23fb3yrnbfnj68qhz18y74"))
"0wp06kcmknsnxz7bjnsndb8x062z7r23fb3yrnbfnj68qhz18y74"))
(patches (search-patches "pingus-boost-headers.patch" (patches (search-patches "pingus-boost-headers.patch"
"pingus-sdl-libs-config.patch")) "pingus-sdl-libs-config.patch"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet #~(begin
'(begin (substitute* "src/pingus/screens/demo_session.cpp"
(substitute* "src/pingus/screens/demo_session.cpp" (("#include <iostream>")
(("#include <iostream>") ;; std::function moved to <functional> with C++ 11.
;; std::function moved to <functional> with C++ 11. ;; Remove this for versions newer than 0.7.6.
;; Remove this for versions newer than 0.7.6. "#include <iostream>
"#include <iostream>\n#include <functional>")) #include <functional>"))))))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
(list
#:make-flags
#~(list (string-append "PREFIX=" %output))
#:tests? #f ;no check target
#:phases
#~(modify-phases %standard-phases
(delete 'configure)))) ;no configure script
(native-inputs (list pkg-config scons-python2)) (native-inputs (list pkg-config scons-python2))
(inputs (list sdl (inputs (list sdl
sdl-image sdl-image
@ -3945,12 +3951,6 @@ fight Morgoth, the Lord of Darkness.")
glu glu
libpng libpng
boost)) boost))
(arguments
'(#:make-flags (list (string-append "PREFIX=" %output))
#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; no configure script
(home-page "https://pingus.seul.org/") (home-page "https://pingus.seul.org/")
(synopsis "Lemmings clone") (synopsis "Lemmings clone")
(description (description