[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/05: gnu: openttd: Add 'install-data' phase.
From: |
Kei Kebreau |
Subject: |
05/05: gnu: openttd: Add 'install-data' phase. |
Date: |
Tue, 20 Jun 2017 19:50:52 -0400 (EDT) |
kkebreau pushed a commit to branch master
in repository guix.
commit ca508f1cfb1c01b0515d1d1c5f04b88fc7e70c8a
Author: Kei Kebreau <address@hidden>
Date: Sun Jun 18 13:45:19 2017 -0400
gnu: openttd: Add 'install-data' phase.
* gnu/packages/games.scm (openttd)[arguments]: Add it.
[native-inputs]: Add openttd-opengfx.
---
gnu/packages/games.scm | 20 +++++++++++++++++++-
1 file changed, 19 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 1af6409..730fde6 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -2359,7 +2359,25 @@ OpenGFX provides you with...
(define-public openttd
(package
(inherit openttd-engine)
- (name "openttd")))
+ (name "openttd")
+ (arguments
+ (substitute-keyword-arguments (package-arguments openttd-engine)
+ ((#:phases phases)
+ `(modify-phases ,phases
+ (add-after 'install 'install-data
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (let*
+ ((opengfx (assoc-ref inputs "opengfx"))
+ (out (assoc-ref outputs "out"))
+ (gfx-dir
+ (string-append out
+ "/share/games/openttd/baseset/opengfx")))
+ (mkdir-p gfx-dir)
+ (copy-recursively opengfx gfx-dir))
+ #t))))))
+ (native-inputs
+ `(("opengfx" ,openttd-opengfx)
+ ,@(package-native-inputs openttd-engine)))))
(define-public pinball
(package