futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: corsix-th: Use G-expressions.

Browse Source 
* gnu/packages/games.scm (corsix-th)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2023-08-06 02:00:00 +02:00
parent 45900e4cac
commit 05c7e70b96
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
gnu/packages/games.scm
View File

@ -1172,26 +1172,25 @@ allows users to brew while offline.")
(base32 "14996kbrwdrd0gpz19il2i4p650qdhjw8v8ka3aigk6pl4kda3sq")))) (base32 "14996kbrwdrd0gpz19il2i4p650qdhjw8v8ka3aigk6pl4kda3sq"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'install 'wrap-binary #~(modify-phases %standard-phases
(lambda _ (add-after 'install 'wrap-binary
;; Set Lua module paths and default MIDI soundfont on startup. (lambda _
(let* ((out (assoc-ref %outputs "out")) ;; Set Lua module paths and default MIDI soundfont on startup.
(fluid (assoc-ref %build-inputs "fluid-3")) (let* ((fluid #$(this-package-input "fluid-3"))
(lua-version ,(version-major+minor (package-version lua))) (lua-version #$(version-major+minor (package-version lua)))
(lua-cpath (lua-cpath
(map (lambda (lib) (map (lambda (lib)
(string-append (string-append
(assoc-ref %build-inputs (string-append "lua-" lib)) (assoc-ref %build-inputs (string-append "lua-" lib))
"/lib/lua/" lua-version "/?.so")) "/lib/lua/" lua-version "/?.so"))
'("filesystem" "lpeg")))) '("filesystem" "lpeg"))))
(wrap-program (string-append out "/bin/corsix-th") (wrap-program (string-append #$output "/bin/corsix-th")
`("LUA_CPATH" ";" = ,lua-cpath) `("LUA_CPATH" ";" = ,lua-cpath)
`("SDL_SOUNDFONTS" ":" suffix `("SDL_SOUNDFONTS" ":" suffix
(,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3"))))) (,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3"))))))))
#t))) #:tests? #f)) ; TODO need busted package to run tests
#:tests? #f)) ; TODO need busted package to run tests
;; Omit Lua-Socket dependency to disable automatic updates. ;; Omit Lua-Socket dependency to disable automatic updates.
(inputs (inputs
(list ffmpeg (list ffmpeg