mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 15:36:20 -05:00
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:
parent
e39566e407
commit
30da7825aa
1 changed files with 24 additions and 27 deletions
|
@ -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 © 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, 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")
|
||||||
|
|
Loading…
Reference in a new issue