diff options
| author | Leo Prikler <leo.prikler@student.tugraz.at> | 2021-02-21 00:47:35 +0100 |
|---|---|---|
| committer | Leo Prikler <leo.prikler@student.tugraz.at> | 2021-02-24 00:37:37 +0100 |
| commit | a1fd8f01b2f599a538f193a218ebaea12c71302c (patch) | |
| tree | 6d54178e8f6866a30a4c77e44e6195053e982a85 /guix/build/renpy-build-system.scm | |
| parent | 53c40b3c77492740458a7b52723128c12c53d55b (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.scm | 7 |
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) |