[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/06: guix: Modernize renpy-build-system.
From: |
guix-commits |
Subject: |
06/06: guix: Modernize renpy-build-system. |
Date: |
Fri, 17 Jun 2022 12:58:03 -0400 (EDT) |
lilyp pushed a commit to branch master
in repository guix.
commit 956f0b4465a715decb403df58760ae938526db66
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Fri Jun 17 16:45:13 2022 +0200
guix: Modernize renpy-build-system.
* guix/build-system/renpy.scm (build): Drop trailing #t.
(install, install-desktop-file): Likewise. Also add inputs and use
search-input-file for /bin/sh and /bin/renpy.
---
guix/build/renpy-build-system.scm | 19 ++++++++-----------
1 file changed, 8 insertions(+), 11 deletions(-)
diff --git a/guix/build/renpy-build-system.scm
b/guix/build/renpy-build-system.scm
index e4a88456be..7c15d52f19 100644
--- a/guix/build/renpy-build-system.scm
+++ b/guix/build/renpy-build-system.scm
@@ -37,10 +37,9 @@
game
;; should be "compile", but renpy wants to compile itself really
;; badly if we do
- "quit")
- #t)
+ "quit"))
-(define* (install #:key outputs game (output "out") #:allow-other-keys)
+(define* (install #:key inputs outputs game (output "out") #:allow-other-keys)
(let* ((out (assoc-ref outputs output))
(json-dump (call-with-input-file (string-append game
"/renpy-build.json")
@@ -58,13 +57,12 @@
(call-with-output-file launcher
(lambda (port)
(format port "#!~a~%~a ~s \"$@\""
- (which "bash")
- (which "renpy")
+ (search-input-file inputs "/bin/sh")
+ (search-input-file inputs "/bin/renpy")
data)))
- (chmod launcher #o755)))
- #t)
+ (chmod launcher #o755))))
-(define* (install-desktop-file #:key outputs game (output "out")
+(define* (install-desktop-file #:key inputs outputs game (output "out")
#:allow-other-keys)
(let* ((out (assoc-ref outputs output))
(json-dump (call-with-input-file (string-append game
@@ -78,10 +76,9 @@
#:name (assoc-ref json-dump "name")
#:generic-name (assoc-ref build "display_name")
#:exec (format #f "~a ~s"
- (which "renpy")
+ (search-input-file inputs "/bin/renpy")
(string-append out "/share/renpy/" directory-name))
- #:categories '("Game" "Visual Novel")))
- #t)
+ #:categories '("Game" "Visual Novel"))))
(define %standard-phases
(modify-phases gnu:%standard-phases
- branch master updated (d18f701aa1 -> 956f0b4465), guix-commits, 2022/06/17
- 05/06: gnu: renpy: Use new style., guix-commits, 2022/06/17
- 02/06: gnu: Add python-pefile., guix-commits, 2022/06/17
- 04/06: gnu: renpy: Update to 7.99.99-0-3e854bc., guix-commits, 2022/06/17
- 03/06: gnu: python-pygame-sdl2: Update to 2.1.0-0-1705c6e., guix-commits, 2022/06/17
- 06/06: guix: Modernize renpy-build-system.,
guix-commits <=
- 01/06: gnu: Add back the distinction between python-renpy and renpy., guix-commits, 2022/06/17