gnu: abbaye: Update package style.

* gnu/packages/games.scm (abbaye)[source]: Don't explicitly return #t
from snippet.  In-line trivial comment.
[arguments]: Unquote list and use G-expressions.

Change-Id: Ia5fdfa7e047f4b3bdcd166aea6a1367414073a8a
This commit is contained in:
Tobias Geerinckx-Rice 2024-09-08 02:00:00 +02:00
parent e39566e407
commit 30da7825aa
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79

View file

@ -24,7 +24,7 @@
;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com> ;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com>
;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info> ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info>
;;; Copyright © 2017, 2018, 2020 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017, 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 20172023 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 20172024 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2019 nee <nee-git@hidamari.blue> ;;; Copyright © 2017, 2019 nee <nee-git@hidamari.blue>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017, 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
@ -3356,35 +3356,32 @@ (define-public abbaye
(base32 "1pwqf7r9bqb2p3xrw9i7y8pgr1401fy3mnnqpb1qkhmdl3gqi9hb")) (base32 "1pwqf7r9bqb2p3xrw9i7y8pgr1401fy3mnnqpb1qkhmdl3gqi9hb"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Unbundle fonts.
'(begin '(begin
(delete-file-recursively "fonts") (delete-file-recursively "fonts"))))) ;remove bundled fonts
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags '("CC=gcc") (list
#:phases (modify-phases %standard-phases #:make-flags #~(list "CC=gcc")
(add-after 'set-paths 'set-sdl-paths #:phases
(lambda* (#:key inputs #:allow-other-keys) #~(modify-phases %standard-phases
(setenv "CPATH" (add-after 'set-paths 'set-sdl-paths
(string-append (lambda* (#:key inputs #:allow-other-keys)
(search-input-directory inputs "include/SDL2") (setenv "CPATH"
":" (or (getenv "CPATH") ""))))) (string-append
(add-after 'patch-source-shebangs 'patch-makefile (search-input-directory inputs "include/SDL2")
(lambda* (#:key outputs #:allow-other-keys) ":" (or (getenv "CPATH") "")))))
;; Replace /usr with package output directory. (add-after 'patch-source-shebangs 'patch-Makefile-prefix
(substitute* "Makefile" (lambda _
(("/usr") (assoc-ref outputs "out"))))) (substitute* "Makefile"
(add-before 'install 'make-install-dirs (("/usr") #$output))))
(lambda* (#:key outputs #:allow-other-keys) (add-before 'install 'create-directories
(let ((prefix (assoc-ref outputs "out"))) (lambda _
;; Create directories that the makefile assumes exist. ;; Create directories that the makefile assumes exist.
(mkdir-p (string-append prefix "/bin")) (mkdir-p (string-append #$output "/bin"))
(mkdir-p (string-append prefix "/share/applications")) (mkdir-p (string-append #$output "/share/applications"))
(mkdir-p (string-append prefix "/share/pixmaps"))))) (mkdir-p (string-append #$output "/share/pixmaps"))))
;; No configure script. (delete 'configure)) ;no configure script
(delete 'configure)) #:tests? #f)) ;no test suite
#:tests? #f)) ;; No check target.
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (list (sdl-union (list sdl2 sdl2-image sdl2-mixer)))) (inputs (list (sdl-union (list sdl2 sdl2-image sdl2-mixer))))
(home-page "https://github.com/nevat/abbayedesmorts-gpl") (home-page "https://github.com/nevat/abbayedesmorts-gpl")