ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 06:36:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: abbaye: Use 'modify-phases'.

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

59
gnu/packages/games.scm
View file

@ -161,36 +161,35 @@ (define-public abbaye
'(#: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 '())
(define input-directories #:allow-other-keys)
(match inputs (define input-directories
(((_ . dir) ...) (match inputs
dir))) (((_ . dir) ...)
;; This package does not use pkg-config, so modify CPATH dir)))
;; variable to point to include/SDL for SDL header files. ;; This package does not use pkg-config, so modify CPATH
(set-path-environment-variable "CPATH" ;; variable to point to include/SDL for SDL header files.
'("include/SDL") (set-path-environment-variable "CPATH"
input-directories)) '("include/SDL")
(alist-cons-after input-directories)))
'patch-source-shebangs 'patch-makefile (add-after '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. (delete 'configure))
(alist-delete 'configure %standard-phases))))
#: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)