01/08: guix: renpy-build-system: Quote data directory.

[guix-commits]

leoprikler pushed a commit to branch master
in repository guix.

commit a1fd8f01b2f599a538f193a218ebaea12c71302c
Author: Leo Prikler <leo.prikler@student.tugraz.at>
AuthorDate: Sun Feb 21 00:47:35 2021 +0100

    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.
---
 guix/build/renpy-build-system.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/build/renpy-build-system.scm 
b/guix/build/renpy-build-system.scm
index 464fc97..6668397 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)