1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

gnu: ultrastar-deluxe: Update to 2023.9.0.

* gnu/packages/games.scm (ultrastar-deluxe): Update to 2023.9.0.
[source]: Use tagged version again.

Tested-by: Jonathan Brielmaier <jonathan.brielmaier@web.de>
This commit is contained in:
Jonathan Brielmaier
2023-10-04 13:45:55 +02:00
parent 5f2704517c
commit 4a99dd7322

View File

@@ -11191,95 +11191,92 @@ and unsafe rides. Which path will you take?")
(license license:gpl2))) (license license:gpl2)))
(define-public ultrastar-deluxe (define-public ultrastar-deluxe
;; The last release is quite old and does not support recent ffmpeg versions. (package
(let ((commit "43484b0a10ce6aae339e19d81ae2f7b37caf6baa") (name "ultrastar-deluxe")
(revision "1")) (version "2023.9.0")
(package (source (origin
(name "ultrastar-deluxe") (method git-fetch)
(version (git-version "2020.4.0" revision commit)) (uri (git-reference
(source (origin (url "https://github.com/UltraStar-Deluxe/USDX.git")
(method git-fetch) (commit (string-append "v" version))))
(uri (git-reference (file-name (git-file-name name version))
(url "https://github.com/UltraStar-Deluxe/USDX.git") (sha256
(commit commit))) (base32
(file-name (git-file-name name version)) "0sm0f67hpsys072yvp5phhza686ivbb18qlfy62vsdv0v9cizxia"))
(sha256 (patches (search-patches "ultrastar-deluxe-no-freesans.patch"))
(base32 (modules '((guix build utils)))
"078g1rbm1ympmwq9s64v68sxvcms7rr0qid12d2wgm4r04ana47r")) (snippet
(patches (search-patches "ultrastar-deluxe-no-freesans.patch")) #~(begin
(modules '((guix build utils))) ;; Remove Windows binaries.
(snippet (for-each delete-file (find-files "game" "\\.dll$"))
#~(begin ;; Remove font blobs.
;; Remove Windows binaries. (let ((font-directories
(for-each delete-file (find-files "game" "\\.dll$")) (list "DejaVu" "FreeSans" "NotoSans"
;; Remove font blobs. "wqy-microhei")))
(let ((font-directories (for-each
(list "DejaVu" "FreeSans" "NotoSans" (lambda (d) (delete-file-recursively
"wqy-microhei"))) (string-append "game/fonts/" d)))
(for-each font-directories))))))
(lambda (d) (delete-file-recursively (build-system gnu-build-system)
(string-append "game/fonts/" d))) (arguments
font-directories)))))) (list
(build-system gnu-build-system) #:tests? #f ; No tests.
(arguments #:phases
(list #~(modify-phases %standard-phases
#:tests? #f ; No tests. (add-after 'unpack 'fix-configure
#:phases (lambda* (#:key inputs configure-flags outputs #:allow-other-keys)
#~(modify-phases %standard-phases (define (where inputs file)
(add-after 'unpack 'fix-configure (dirname (search-input-file inputs file)))
(lambda* (#:key inputs configure-flags outputs #:allow-other-keys) ;; The configure script looks for lua$version, but we
(define (where inputs file) ;; provide lua-$version.
(dirname (search-input-file inputs file))) (substitute* "configure.ac"
;; The configure script looks for lua$version, but we (("lua\\$i") "lua-$i"))
;; provide lua-$version. ;; fpc does not pass -lfoo to the linker, but uses its own
(substitute* "configure.ac" ;; linker script, which references libs. Pass the libraries
(("lua\\$i") "lua-$i")) ;; listed in that linker script, so our custom linker adds
;; fpc does not pass -lfoo to the linker, but uses its own ;; a correct rpath.
;; linker script, which references libs. Pass the libraries (substitute* "src/Makefile.in"
;; listed in that linker script, so our custom linker adds (("linkflags\\s+:= ")
;; a correct rpath. (string-append
(substitute* "src/Makefile.in" "linkflags := -lpthread -lsqlite3 -lSDL2"
(("linkflags\\s+:= ") " -lSDL2_image -ldl "
(string-append " -lz -lfreetype -lportaudio -lavcodec"
"linkflags := -lpthread -lsqlite3 -lSDL2" " -lavformat -lavutil -lswresample"
" -lSDL2_image -ldl " " -lswscale -llua -ldl -lX11 -lportmidi"
" -lz -lfreetype -lportaudio -lavcodec" " -L" (where inputs "lib/libz.so")
" -lavformat -lavutil -lswresample" " -L" (where inputs "lib/libX11.so")
" -lswscale -llua -ldl -lX11 -lportmidi" " -L" (where inputs "lib/libportmidi.so"))))))
" -L" (where inputs "lib/libz.so") (add-after 'install 'font-paths
" -L" (where inputs "lib/libX11.so") (lambda* (#:key outputs #:allow-other-keys)
" -L" (where inputs "lib/libportmidi.so")))))) (substitute* (string-append
(add-after 'install 'font-paths (assoc-ref outputs "out")
(lambda* (#:key outputs #:allow-other-keys) "/share/ultrastardx/fonts/fonts.ini")
(substitute* (string-append (("=NotoSans/") (string-append "=" #$font-google-noto
(assoc-ref outputs "out") "/share/fonts/truetype/"))
"/share/ultrastardx/fonts/fonts.ini") (("=DejaVu/") (string-append "=" #$font-dejavu
(("=NotoSans/") (string-append "=" #$font-google-noto "/share/fonts/truetype/"))))))))
"/share/fonts/truetype/")) (inputs (list ffmpeg-5
(("=DejaVu/") (string-append "=" #$font-dejavu font-dejavu
"/share/fonts/truetype/")))))))) font-google-noto
(inputs (list ffmpeg-5 ; Not needed, since we dont have freesans.
font-dejavu ;font-wqy-microhei
font-google-noto freetype
; Not needed, since we dont have freesans. libx11
;font-wqy-microhei lua
freetype portaudio
libx11 portmidi
lua sdl2
portaudio sdl2-image
portmidi sqlite
sdl2 zlib))
sdl2-image (native-inputs (list pkg-config fpc autoconf automake))
sqlite (synopsis "Karaoke game")
zlib)) (description
(native-inputs (list pkg-config fpc autoconf automake)) "UltraStar Deluxe (USDX) is a karaoke game. It allows up to six players
(synopsis "Karaoke game")
(description
"UltraStar Deluxe (USDX) is a karaoke game. It allows up to six players
to sing along with music using microphones in order to score points, depending to sing along with music using microphones in order to score points, depending
on the pitch of the voice and the rhythm of singing.") on the pitch of the voice and the rhythm of singing.")
(home-page "https://usdx.eu/") (home-page "https://usdx.eu/")
(license license:gpl2+)))) (license license:gpl2+)))
(define-public steam-devices-udev-rules (define-public steam-devices-udev-rules
;; Last release from 2019-04-10 ;; Last release from 2019-04-10