me
/
guix
Archived
1
0
Fork 0
Code

gnu: openttd: Use new package style. 

* gnu/packages/games.scm (openttd)[arguments]: Convert to list of
G-Expressions.
<install-data>: Use search paths to find ‘/share/games/openttd’ input
directories.
[native-inputs]: Use modify-inputs.
master
Liliana Marie Prikler 2022-04-16 09:01:04 +02:00
parent 5376f3d058
commit 6b4d37760e
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 24 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
gnu/packages/games.scm
View File

@ -4447,35 +4447,36 @@ Transport Tycoon Deluxe.")
(inherit openttd-engine) (inherit openttd-engine)
(name "openttd") (name "openttd")
(arguments (arguments
`(#:configure-flags (list
(let* ((out (assoc-ref %outputs "out"))) #:configure-flags
(list (string-append "-DCMAKE_INSTALL_BINDIR=" out "/bin"))) #~(list (string-append "-DCMAKE_INSTALL_BINDIR=" #$output "/bin"))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-sources (add-after 'unpack 'patch-sources
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/music/fluidsynth.cpp" (substitute* "src/music/fluidsynth.cpp"
(("default_sf\\[\\] = \\{" all) (("default_sf\\[\\] = \\{" all)
(string-append all " (string-append all "
\t/* Guix hardcoded :P */ \t/* Guix hardcoded :P */
\t\"" (string-append (assoc-ref inputs "freepats-gm") \t\"" (search-input-file inputs "/share/soundfonts/FreePatsGM.sf2") "\",
"/share/soundfonts/FreePatsGM.sf2") "\",
"))))) ")))))
(add-before 'check 'install-data (add-before 'check 'install-data
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(for-each (let ((base "/share/games/openttd"))
(lambda (input) (for-each
(copy-recursively (assoc-ref inputs input) (lambda (dir)
(assoc-ref outputs "out"))) ;; Copy the entire input, so as to not omit documentation
(list "opengfx" "openmsx" "opensfx"))))))) ;; etc.
(copy-recursively
(string-drop-right dir (string-length base))
(assoc-ref outputs "out")))
(search-path-as-list (list base) (map cdr inputs)))))))))
(inputs (inputs
(modify-inputs (package-inputs openttd-engine) (modify-inputs (package-inputs openttd-engine)
(prepend fluidsynth freepats-gm))) (prepend fluidsynth freepats-gm)))
(native-inputs (native-inputs
`(("opengfx" ,openttd-opengfx) (modify-inputs (package-native-inputs openttd-engine)
("openmsx" ,openttd-openmsx) (prepend openttd-opengfx openttd-openmsx openttd-opensfx)))))
("opensfx" ,openttd-opensfx)
,@(package-native-inputs openttd-engine)))))
(define openrct2-title-sequences (define openrct2-title-sequences
(package (package