gnu: ri-li: Deprecate package in favor of li-ri.

* gnu/packages/games.scm (ri-li): Deprecate in favor of li-ri.

Change-Id: I1ab79fe98fa6470d11a02ddfe39bc9b855505daa
This commit is contained in:
Nicolas Goaziou 2025-02-01 11:08:03 +01:00
parent 1f27739bf6
commit cd6b881968
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D

View file

@ -10747,74 +10747,7 @@ across many levels and collect all the coaches to win.")
(license (list license:gpl2 license:gpl3 license:cc0))))
(define-public ri-li
(package
(name "ri-li")
(version "2.0.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/ri-li/"
"Ri-li%20Linux_Unix/Ri-li%20V" version "/"
"Ri-li-" version ".tar.bz2"))
(sha256
(base32
"1gcdsgnnbbn1mb1hkpwniv3fhkaj1nn8gq33v5c16q3wqchcq77p"))
;; Taken from
;; <https://github.com/NixOS/nixpkgs/blob/master/pkgs/games/rili/moderinze_cpp.patch>.
;; It doesn't build otherwise.
(patches (search-patches "ri-li-modernize_cpp.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; Remove "gentoo" subdirectory from Makefile, as it is
;; missing a make file and generates a build failure.
(add-after 'configure 'fix-build
(lambda _
(substitute* "Makefile"
((" gentoo") ""))
#t))
(add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apps (string-append out "/share/applications"))
(pixmaps (string-append out "/share/pixmaps")))
(for-each (lambda (f) (install-file f pixmaps))
(find-files "data" "\\.(png|ico)$"))
(mkdir-p apps)
(with-output-to-file (string-append apps "/ri-li.desktop")
(lambda _
(format #t
"[Desktop Entry]~@
Name=Ri-li~@
Exec=~a/bin/Ri_li~@
Icon=~a/Ri-li-icon-32x32.png~@
Categories=Game;ArcadeGame;~@
Keywords=toy;train;wooden;snake-like;engine;~@
Comment=a toy simulator game~@
Comment[de]=Ein Spiel mit einem kleinen Zug~@
Comment[fr]=un jeu de petit train~@
Comment[ro_RO]=un joc cu un tren de jucărie~@
Terminal=false~@
Type=Application~%"
out pixmaps))))
#t))
(add-after 'install-desktop-file 'remove-spurious-files
;; Delete redundant files already installed somewhere else.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(for-each delete-file
(find-files (string-append out "/share/Ri-li")
"\\.(png|ico)|COPYING"))
#t))))))
(inputs
`(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
(home-page "http://www.ri-li.org")
(synopsis "Toy train simulation game")
(description "Ri-li is a game in which you drive a wooden toy
steam locomotive across many levels and collect all the coaches to
win.")
;; The project is dual-licensed GPL2+ and GPL3+.
(license (list license:gpl2+ license:gpl3+))))
(deprecated-package "ri-li" li-ri))
(define-public freeorion
(package