futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: abbaye: Update package style.

Browse Source 
* 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
1 changed files with 24 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
gnu/packages/games.scm
View File

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