guix-commits
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]