[WIP] nongnu: multiarch-container: Allow extra shared directories.steam-updates

* nonguix/multiarch-container.scm (make-container-wrapper): Use environment
variable $GUIX_SANDBOX_EXTRA_SHARES to pass extra directories to share with
the container.

1 files changed, 6 insertions, 1 deletions

diff --git a/nonguix/multiarch-container.scm b/nonguix/multiarch-container.scm
index b333b71..e9243f0 100644
--- a/nonguix/multiarch-container.scm
+++ b/nonguix/multiarch-container.scm
@@ -330,6 +330,9 @@ in a sandboxed FHS environment."
                        ,@(exists-> (getenv "XAUTHORITY"))
                        #$@(ngc-shared container)))
               (DEBUG (equal? (getenv "DEBUG") "1"))
+              (extra-shares (if (getenv "GUIX_SANDBOX_EXTRA_SHARES")
+                                (string-split (getenv "GUIX_SANDBOX_EXTRA_SHARES") #\:)
+                                #f))
               (args (cdr (command-line)))
               (command (if DEBUG '()
                            `("--" ,run ,@args))))
@@ -362,7 +365,9 @@ in a sandboxed FHS environment."
                   ,@(map add-path expose)
                   ,@(map (lambda (item)
                            (add-path item #:writable? #t))
-                         share)
+                         (if extra-shares
+                             (append share extra-shares)
+                             share))
                   "-m" ,manifest-file
                   ,@command))))))