gnu: abbaye: Use 'modify-phases'.

* gnu/packages/games.scm (abbaye)[arguments]: Use 'modify-phases'.
This commit is contained in:
Alex Kost 2015-10-10 10:45:04 +03:00
parent 2e2ed3cbf9
commit aec05972ce
1 changed files with 29 additions and 30 deletions

View File

@ -161,9 +161,10 @@ scriptable with Guile.")
'(#:modules ((ice-9 match) '(#:modules ((ice-9 match)
(guix build gnu-build-system) (guix build gnu-build-system)
(guix build utils)) (guix build utils))
#:phases (alist-cons-after #:phases (modify-phases %standard-phases
'set-paths 'set-sdl-paths (add-after 'set-paths 'set-sdl-paths
(lambda* (#:key inputs outputs (search-paths '()) #:allow-other-keys) (lambda* (#:key inputs outputs (search-paths '())
#:allow-other-keys)
(define input-directories (define input-directories
(match inputs (match inputs
(((_ . dir) ...) (((_ . dir) ...)
@ -172,25 +173,23 @@ scriptable with Guile.")
;; variable to point to include/SDL for SDL header files. ;; variable to point to include/SDL for SDL header files.
(set-path-environment-variable "CPATH" (set-path-environment-variable "CPATH"
'("include/SDL") '("include/SDL")
input-directories)) input-directories)))
(alist-cons-after (add-after 'patch-source-shebangs 'patch-makefile
'patch-source-shebangs 'patch-makefile
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Replace /usr with package output directory. ;; Replace /usr with package output directory.
(for-each (lambda (file) (for-each (lambda (file)
(substitute* file (substitute* file
(("/usr") (assoc-ref outputs "out")))) (("/usr") (assoc-ref outputs "out"))))
'("makefile" "src/pantallas.c" "src/comun.h"))) '("makefile" "src/pantallas.c" "src/comun.h"))))
(alist-cons-before (add-before 'install 'make-install-dirs
'install 'make-install-dirs
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((prefix (assoc-ref outputs "out"))) (let ((prefix (assoc-ref outputs "out")))
;; Create directories that the makefile assumes exist. ;; Create directories that the makefile assumes exist.
(mkdir-p (string-append prefix "/bin")) (mkdir-p (string-append prefix "/bin"))
(mkdir-p (string-append prefix "/share/applications")) (mkdir-p (string-append prefix "/share/applications"))
(mkdir-p (string-append prefix "/share/pixmaps")))) (mkdir-p (string-append prefix "/share/pixmaps")))))
;; No configure script. ;; No configure script.
(alist-delete 'configure %standard-phases)))) (delete 'configure))
#:tests? #f)) ;; No check target. #:tests? #f)) ;; No check target.
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("sdl" ,sdl) (inputs `(("sdl" ,sdl)