me/guix
Archived
1
0
Fork 0
Code Activity

gnu: queen: Use new package style.

Browse source 
* gnu/packages/games.scm (make-queen-package)[build-system]: Use
copy-build-system.
[arguments]: Convert to list of G-Expressions.
Replace #:modules and #:builder with #:install-plan and #:phases.
This commit is contained in:
Liliana Marie Prikler 2022-08-06 06:38:58 +02:00
parent 18007d3a7b
commit 1d543f67e2
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 44 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

93
gnu/packages/games.scm
View file

@ -9791,56 +9791,51 @@ Skorl. Maybe it would be an idea to try and escape...")
file-prefix release ".zip")) file-prefix release ".zip"))
(sha256 (sha256
(base32 hash)))) (base32 hash))))
(build-system trivial-build-system) (build-system copy-build-system)
(arguments (arguments
`(#:modules ((guix build utils)) (list
#:builder #:install-plan
(begin #~'(("queen.1c" #$(string-append "share/" name "/"))
(use-modules (guix build utils)) (#$name "bin/")
(let* ((out (assoc-ref %outputs "out")) (#$(string-append name ".desktop") "share/applications/")
(share (string-append out "/share")) ("." #$(string-append "share/doc/" name "-" version)
(data (string-append share "/" ,name)) #:include-regexp ("README" "readme")))
(apps (string-append share "/applications")) #:phases
(bin (string-append out "/bin")) #~(modify-phases %standard-phases
(executable (string-append bin "/" ,name)) (add-before 'install 'build
(scummvm (assoc-ref %build-inputs "scummvm"))) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((unzip (search-input-file %build-inputs "/bin/unzip"))) (with-output-to-file #$name
(invoke unzip "-j" (assoc-ref %build-inputs "source"))) (lambda ()
(let ((doc (string-append share "/doc/" ,name "-" ,version))) (format #t "#!~a~%" (search-input-file inputs "bin/sh"))
(for-each (lambda (file) (format #t "exec ~a -q ~a -p ~a queen~%"
(when (file-exists? file) (install-file file doc))) (search-input-file inputs "bin/scummvm")
'("readme.txt" "README" "README.md"))) #$language
(install-file "queen.1c" data) (string-append (assoc-ref outputs "out")
(mkdir-p bin) "/share/" #$name))))
(let ((bash (assoc-ref %build-inputs "bash"))) (chmod #$name #o755)
(with-output-to-file executable (with-output-to-file #$(string-append name ".desktop")
(lambda () (lambda ()
(format #t "#!~a/bin/bash~%" bash) (format
(format #t "exec ~a/bin/scummvm -q fr -p ~a queen~%" #t
scummvm data)))) "[Desktop Entry]~@
(chmod executable #o755) Name=Flight of the Amazon Queen~@
;; Create desktop file. There is no dedicated GenericName=Queen~@
;; icon for the game, so we borrow SCUMMVM's. Comment=Embark on a quest to rescue a kidnapped princess~
(mkdir-p apps) and in the process, discover the true sinister intentions~
(with-output-to-file (string-append apps "/" ,name ".desktop") of a suspiciously located Lederhosen company~@
(lambda _ Comment[de]=Begib dich auf ein Abenteuer, um eine entführte~
(format #t Prinzessin zu retten und entdecke die wahren, finsteren~
"[Desktop Entry]~@ Absichten eines verdächtig erscheinenden~
Name=Flight of the Amazon Queen~@ Lederhosen-Unternehmens~@
GenericName=Queen~@ Type=Application~@
Comment=Embark on a quest to rescue a kidnapped princess and in the process, discover the true sinister intentions of a suspiciously located Lederhosen company~@ Exec=~a~@
Comment[de]=Begib dich auf ein Abenteuer, um eine entführte Prinzessin zu retten und entdecke die wahren, finsteren Absichten eines verdächtig erscheinenden Lederhosen-Unternehmens~@ Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
Type=Application~@ Categories=AdventureGame;Game;RolePlaying;~@
Exec=~a~@ Keywords=adventure;game;roleplaying;fantasy;~%"
Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@ (string-append (assoc-ref outputs "out") "/bin/" #$name)
Categories=AdventureGame;Game;RolePlaying;~@ (search-input-file inputs "bin/scummvm")))))))))
Keywords=adventure;game;roleplaying;fantasy;~%" (native-inputs (list unzip))
executable scummvm)))) (inputs (list bash scummvm))
#t)))
(native-inputs
(list unzip))
(inputs
(list bash scummvm))
(home-page "https://www.scummvm.org/") (home-page "https://www.scummvm.org/")
(synopsis "Classic 2D point and click adventure game") (synopsis "Classic 2D point and click adventure game")
(description "Flight of the Amazon Queen is a 2D point-and-click (description "Flight of the Amazon Queen is a 2D point-and-click