mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-02-07 19:39:34 +01:00
gnu: drascula: Use make-desktop-entry-file.
* gnu/packages/games.scm (drascula)[arguments]: Do it.
This commit is contained in:
parent
96a320e5c7
commit
47f4df157f
1 changed files with 12 additions and 16 deletions
|
@ -7556,22 +7556,18 @@ on items and player adaptability for character progression.")
|
||||||
;; game, so we borrow SCUMMVM's.
|
;; game, so we borrow SCUMMVM's.
|
||||||
(let ((apps (string-append out "/share/applications")))
|
(let ((apps (string-append out "/share/applications")))
|
||||||
(mkdir-p apps)
|
(mkdir-p apps)
|
||||||
(with-output-to-file (string-append apps "/drascula.desktop")
|
(make-desktop-entry-file
|
||||||
(lambda _
|
(string-append apps "/drascula.desktop")
|
||||||
(format #t
|
#:name "Drascula: The Vampire Strikes Back"
|
||||||
"[Desktop Entry]~@
|
#:generic-name "Drascula"
|
||||||
Name=Drascula: The Vampire Strikes Back~@
|
#:exec (string-append out "/bin/drascula")
|
||||||
GenericName=Drascula~@
|
#:icon (string-append scummvm "/share/icons/hicolor/scalable/apps/scummvm.svg")
|
||||||
Exec=~a/bin/drascula~@
|
#:categories '("AdventureGame" "Game" "RolePlaying")
|
||||||
Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
|
#:keywords '("game" "adventure" "roleplaying" "2D" "fantasy")
|
||||||
Categories=AdventureGame;Game;RolePlaying;~@
|
#:comment '((#f "Classic 2D point and click adventure game")
|
||||||
Keywords=game;adventure;roleplaying;2D,fantasy;~@
|
("de" "Klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier")
|
||||||
Comment=Classic 2D point and click adventure game~@
|
("fr" "Jeu classique d'aventure pointer-et-cliquer en 2D")
|
||||||
Comment[de]=klassisches 2D-Abenteuerspiel in Zeigen-und-Klicken-Manier~@
|
("it" "Gioco classico di avventura punta e clicca 2D"))))
|
||||||
Comment[fr]=Jeux classique d'aventure pointer-et-cliquer en 2D~@
|
|
||||||
Comment[it]=Gioco classico di avventura punta e clicca 2D~@
|
|
||||||
Type=Application~%"
|
|
||||||
out scummvm))))
|
|
||||||
#t))))
|
#t))))
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("bash" ,bash)
|
`(("bash" ,bash)
|
||||||
|
|
Loading…
Add table
Reference in a new issue