summaryrefslogtreecommitdiff
path: root/guix/build/renpy-build-system.scm
diff options
context:
space:
mode:
authorLeo Prikler <leo.prikler@student.tugraz.at>2021-02-21 00:47:35 +0100
committerLeo Prikler <leo.prikler@student.tugraz.at>2021-02-24 00:37:37 +0100
commita1fd8f01b2f599a538f193a218ebaea12c71302c (patch)
tree6d54178e8f6866a30a4c77e44e6195053e982a85 /guix/build/renpy-build-system.scm
parent53c40b3c77492740458a7b52723128c12c53d55b (diff)
guix: renpy-build-system: Quote data directory.
This prevents generated launchers and desktop files from inadvertently crashing if the directory name contains a space. * gnu/build/renpy-build-system.scm (install, install-desktop-file): Use ~s to format data directory.
Diffstat (limited to 'guix/build/renpy-build-system.scm')
-rw-r--r--guix/build/renpy-build-system.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/build/renpy-build-system.scm b/guix/build/renpy-build-system.scm
index 464fc97b13..66683971c5 100644
--- a/guix/build/renpy-build-system.scm
+++ b/guix/build/renpy-build-system.scm
@@ -57,7 +57,7 @@
(delete-file (string-append data "/renpy-build.json"))
(call-with-output-file launcher
(lambda (port)
- (format port "#!~a~%~a ~a \"$@\""
+ (format port "#!~a~%~a ~s \"$@\""
(which "bash")
(which "renpy")
data)))
@@ -77,8 +77,9 @@
(string-append out "/share/applications/" executable-name ".desktop")
#:name (assoc-ref json-dump "name")
#:generic-name (assoc-ref build "display_name")
- #:exec (string-append (which "renpy") " "
- out "/share/renpy/" directory-name)
+ #:exec (format #f "~a ~s"
+ (which "renpy")
+ (string-append out "/share/renpy/" directory-name))
#:categories '("Game" "Visual Novel")))
#t)