summaryrefslogtreecommitdiff
path: root/gnu/packages/games.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/games.scm')
-rw-r--r--gnu/packages/games.scm93
1 files changed, 44 insertions, 49 deletions
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 5e8b7a6d0d..99eccca04d 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -9791,56 +9791,51 @@ Skorl. Maybe it would be an idea to try and escape...")
file-prefix release ".zip"))
(sha256
(base32 hash))))
- (build-system trivial-build-system)
+ (build-system copy-build-system)
(arguments
- `(#:modules ((guix build utils))
- #:builder
- (begin
- (use-modules (guix build utils))
- (let* ((out (assoc-ref %outputs "out"))
- (share (string-append out "/share"))
- (data (string-append share "/" ,name))
- (apps (string-append share "/applications"))
- (bin (string-append out "/bin"))
- (executable (string-append bin "/" ,name))
- (scummvm (assoc-ref %build-inputs "scummvm")))
- (let ((unzip (search-input-file %build-inputs "/bin/unzip")))
- (invoke unzip "-j" (assoc-ref %build-inputs "source")))
- (let ((doc (string-append share "/doc/" ,name "-" ,version)))
- (for-each (lambda (file)
- (when (file-exists? file) (install-file file doc)))
- '("readme.txt" "README" "README.md")))
- (install-file "queen.1c" data)
- (mkdir-p bin)
- (let ((bash (assoc-ref %build-inputs "bash")))
- (with-output-to-file executable
- (lambda ()
- (format #t "#!~a/bin/bash~%" bash)
- (format #t "exec ~a/bin/scummvm -q fr -p ~a queen~%"
- scummvm data))))
- (chmod executable #o755)
- ;; Create desktop file. There is no dedicated
- ;; icon for the game, so we borrow SCUMMVM's.
- (mkdir-p apps)
- (with-output-to-file (string-append apps "/" ,name ".desktop")
- (lambda _
- (format #t
- "[Desktop Entry]~@
- Name=Flight of the Amazon Queen~@
- GenericName=Queen~@
- 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~@
- 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~@
- Type=Application~@
- Exec=~a~@
- Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
- Categories=AdventureGame;Game;RolePlaying;~@
- Keywords=adventure;game;roleplaying;fantasy;~%"
- executable scummvm))))
- #t)))
- (native-inputs
- (list unzip))
- (inputs
- (list bash scummvm))
+ (list
+ #:install-plan
+ #~'(("queen.1c" #$(string-append "share/" name "/"))
+ (#$name "bin/")
+ (#$(string-append name ".desktop") "share/applications/")
+ ("." #$(string-append "share/doc/" name "-" version)
+ #:include-regexp ("README" "readme")))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'install 'build
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (with-output-to-file #$name
+ (lambda ()
+ (format #t "#!~a~%" (search-input-file inputs "bin/sh"))
+ (format #t "exec ~a -q ~a -p ~a queen~%"
+ (search-input-file inputs "bin/scummvm")
+ #$language
+ (string-append (assoc-ref outputs "out")
+ "/share/" #$name))))
+ (chmod #$name #o755)
+ (with-output-to-file #$(string-append name ".desktop")
+ (lambda ()
+ (format
+ #t
+ "[Desktop Entry]~@
+ Name=Flight of the Amazon Queen~@
+ GenericName=Queen~@
+ 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~@
+ 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~@
+ Type=Application~@
+ Exec=~a~@
+ Icon=~a/share/icons/hicolor/scalable/apps/scummvm.svg~@
+ Categories=AdventureGame;Game;RolePlaying;~@
+ Keywords=adventure;game;roleplaying;fantasy;~%"
+ (string-append (assoc-ref outputs "out") "/bin/" #$name)
+ (search-input-file inputs "bin/scummvm")))))))))
+ (native-inputs (list unzip))
+ (inputs (list bash scummvm))
(home-page "https://www.scummvm.org/")
(synopsis "Classic 2D point and click adventure game")
(description "Flight of the Amazon Queen is a 2D point-and-click