me
/
guix
Archived
1
0
Fork 0

gnu: opensurge: Update to 0.6.0.3.

* gnu/packages/games.scm (opensurge): Update to 0.6.0.3.
[arguments]: Use G-exps.

Signed-off-by: Christopher Baines <mail@cbaines.net>
master
Timotej Lazar 2022-11-05 13:19:01 +01:00 committed by Christopher Baines
parent 3d1f64d747
commit 6e5e5f8fc2
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
1 changed files with 30 additions and 33 deletions

View File

@ -1662,7 +1662,7 @@ shadow mimic them to reach blocks you couldn't reach alone.")
(define-public opensurge (define-public opensurge
(package (package
(name "opensurge") (name "opensurge")
(version "0.5.2.1") (version "0.6.0.3")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1671,40 +1671,37 @@ shadow mimic them to reach blocks you couldn't reach alone.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "13g5izss7dmgigc8iif8hid3z6i066b0z29rbql2b9qjmdj1dp41")))) (base32 "0yia2qcva741a64qpls8a59lvnx5vynqkk2i3arkflw6f1m1vb55"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ;there are no tests (list #:tests? #f ; there are no tests
#:configure-flags #:configure-flags
(let* ((out (assoc-ref %outputs "out")) #~(list (string-append "-DCMAKE_INSTALL_PREFIX=" #$output)
(share (string-append out "/share"))) (string-append "-DGAME_BINDIR=" #$output "/bin") ; not games
(list (string-append "-DCMAKE_INSTALL_PREFIX=" out) (string-append "-DGAME_DATADIR=" #$output "/share/" #$name)
(string-append "-DGAME_BINDIR=" out "/bin") ; not /bin/games (string-append "-DDESKTOP_ENTRY_PATH=" #$output "/share/applications")
(string-append "-DGAME_DATADIR=" share "/" ,name) (string-append "-DDESKTOP_ICON_PATH=" #$output "/share/pixmaps")
(string-append "-DDESKTOP_ENTRY_PATH=" share "/applications") (string-append "-DDESKTOP_METAINFO_PATH=" #$output "/share/metainfo"))
(string-append "-DDESKTOP_ICON_PATH=" share "/pixmaps")
(string-append "-DDESKTOP_METAINFO_PATH=" share "/metainfo")))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-xdg-open-path (add-after 'unpack 'fix-xdg-open-path
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Look for xdg-open in the store. ;; Look for xdg-open in the store.
(substitute* "src/core/web.c" (substitute* "src/core/web.c"
(("/usr(/bin/xdg-open)" _ bin) (("/usr/(bin/xdg-open)" _ bin)
(search-input-file inputs bin))))) (search-input-file inputs bin)))))
(add-after 'unpack 'unbundle-fonts (add-after 'unpack 'unbundle-fonts
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Replace bundled Roboto fonts with links to the store. ;; Replace bundled fonts with links to the store.
(with-directory-excursion "fonts" (with-directory-excursion "fonts"
(let ((roboto-dir (string-append (for-each (lambda (font)
(assoc-ref inputs "font-google-roboto") (let ((file (string-append "share/fonts/truetype/"
"/share/fonts/truetype/"))) font)))
(for-each
(lambda (font)
(delete-file font) (delete-file font)
(symlink (string-append roboto-dir font) font)) (symlink (search-input-file inputs file) font)))
'("Roboto-Black.ttf" "Roboto-Bold.ttf" "Roboto-Medium.ttf"))) '("Roboto-Black.ttf"
#t)))))) "Roboto-Bold.ttf"
"Roboto-Medium.ttf"))))))))
(inputs (inputs
(list allegro font-google-roboto surgescript xdg-utils)) (list allegro font-google-roboto surgescript xdg-utils))
(home-page "https://opensurge2d.org") (home-page "https://opensurge2d.org")