diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-08 00:06:23 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2022-02-08 00:06:23 +0100 |
commit | 64c599c9a33e83d64609a8791fcd8685fc1b9b61 (patch) | |
tree | 22f1d91f88ce1f2f61d1f3ff4c0328ffda281445 /gnu/packages | |
parent | d1c0081166a3155adb2ec1f1521b0cc647153f0f (diff) | |
download | guix-patches-64c599c9a33e83d64609a8791fcd8685fc1b9b61.tar guix-patches-64c599c9a33e83d64609a8791fcd8685fc1b9b61.tar.gz |
gnu: seahorse-adventures: Use G-expressions.
* gnu/packages/games.scm (seahorse-adventures)[origin]<snippet>:
[arguments]<#:phases>: Use G-expressions.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/games.scm | 141 |
1 files changed, 71 insertions, 70 deletions
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index a41c4198a9..26270a4aec 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -2376,82 +2376,83 @@ can be explored and changed freely.") (srfi srfi-1))) ;; Remove non-free (non-commercial) font. (snippet - `(begin - (for-each delete-file (find-files "data/fonts" ".")))))) + #~(begin + (for-each delete-file (find-files "data/fonts" ".")))))) (build-system python-build-system) (arguments - `(#:tests? #f ;no test - #:phases - (modify-phases %standard-phases - (delete 'build) ;pure Python - (replace 'install ;no install script - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (share (string-append out "/share")) - (applications (string-append share "/applications")) - (data (string-append share "/seahorse-adventures"))) - ;; Install data. - (for-each (lambda (f) - (chmod f #o555) - (install-file f data)) - '("leveledit.py" "run_game.py" "tileedit.py")) - (for-each (lambda (dir) - (let ((target (string-append data "/" dir))) - (mkdir-p target) - (copy-recursively dir target))) - '("data" "lib")) - ;; Create executable. - (mkdir-p bin) - (let ((executable (string-append bin "/seahorse-adventures"))) - (call-with-output-file executable - (lambda (p) - (format p - "#!~a~@ + (list + #:tests? #f ;no test + #:phases + #~(modify-phases %standard-phases + (delete 'build) ;pure Python + (replace 'install ;no install script + (lambda* (#:key inputs #:allow-other-keys) + (let* ((bin (string-append #$output "/bin")) + (share (string-append #$output "/share")) + (applications (string-append share "/applications")) + (data (string-append share "/seahorse-adventures"))) + ;; Install data. + (for-each (lambda (f) + (chmod f #o555) + (install-file f data)) + '("leveledit.py" "run_game.py" "tileedit.py")) + (for-each (lambda (dir) + (let ((target (string-append data "/" dir))) + (mkdir-p target) + (copy-recursively dir target))) + '("data" "lib")) + ;; Create executable. + (mkdir-p bin) + (let ((executable (string-append bin "/seahorse-adventures"))) + (call-with-output-file executable + (lambda (p) + (format p + "#!~a~@ export GUIX_PYTHONPATH=~a:~a~@ exec -a \"~a\" ~a \"$@\"~%" - (which "bash") data (getenv "GUIX_PYTHONPATH") - (which "python3") - (string-append data "/run_game.py")))) - (chmod executable #o555)) - ;; Add desktop file. - (mkdir-p applications) - (make-desktop-entry-file - (string-append applications "/seahorse-adventures.desktop") - #:name "Seahorse Adventures" - #:comment - '((#f "Help Barbie the seahorse float on bubbles to the moon")) - #:exec ,name - #:icon ,name - #:categories '("Game" "ActionGame") - #:keywords '("game" "retro" "platform")) - ;; Add icons. - (for-each - (lambda (size) - (let ((dir (string-append share "/icons/hicolor/" - size "x" size "/apps"))) - (mkdir-p dir) - (copy-file - (string-append "icon" size ".png") - (string-append dir "/searhorse-adventures.png")))) - '("32" "64" "128"))))) - (add-after 'install 'unbundle-fonts - ;; Unbundle Bitstream Vera font and replace deleted one. - (lambda* (#:key outputs inputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (data (string-append out "/share/seahorse-adventures")) + (search-input-file inputs "/bin/bash") + data + (getenv "GUIX_PYTHONPATH") + (search-input-file inputs "/bin/python3") + (string-append data "/run_game.py")))) + (chmod executable #o555)) + ;; Add desktop file. + (mkdir-p applications) + (make-desktop-entry-file + (string-append applications "/seahorse-adventures.desktop") + #:name "Seahorse Adventures" + #:comment + '((#f "Help Barbie the seahorse float on bubbles to the moon")) + #:exec #$name + #:icon #$name + #:categories '("Game" "ActionGame") + #:keywords '("game" "retro" "platform")) + ;; Add icons. + (for-each + (lambda (size) + (let ((dir (string-append share "/icons/hicolor/" + size "x" size "/apps"))) + (mkdir-p dir) + (copy-file + (string-append "icon" size ".png") + (string-append dir "/searhorse-adventures.png")))) + '("32" "64" "128"))))) + (add-after 'install 'unbundle-fonts + ;; Unbundle Bitstream Vera font and replace deleted one. + (lambda* (#:key inputs #:allow-other-keys) + (let ((data (string-append #$output "/share/seahorse-adventures")) (vera (search-input-file inputs "/share/fonts/truetype/Vera.ttf"))) - (let ((themes-dir (string-append data "/data/themes/"))) - (for-each - (lambda (theme) - (let ((target (string-append themes-dir theme "/Vera.ttf"))) - (delete-file target) - (symlink vera target))) - '("default" "gray"))) - (symlink vera (string-append data "/data/fonts/04B_20__.TTF")) - (substitute* (string-append data "/lib/main.py") - (("f_scale = 0.35") "f_scale = 0.47")))))))) + (let ((themes-dir (string-append data "/data/themes/"))) + (for-each + (lambda (theme) + (let ((target (string-append themes-dir theme "/Vera.ttf"))) + (delete-file target) + (symlink vera target))) + '("default" "gray"))) + (symlink vera (string-append data "/data/fonts/04B_20__.TTF")) + (substitute* (string-append data "/lib/main.py") + (("f_scale = 0.35") "f_scale = 0.47")))))))) (inputs (list font-bitstream-vera python-pygame)) (home-page "http://www.imitationpickles.org/barbie/") |