[WIP] nongnu: multiarch-container: Allow extra shared directories.
* nonguix/multiarch-container.scm (make-container-wrapper): Use environment variable $GUIX_SANDBOX_EXTRA_SHARES to pass extra directories to share with the container.
This commit is contained in:
parent
6ac2849b56
commit
6da06a35b5
|
@ -330,6 +330,9 @@ in a sandboxed FHS environment."
|
||||||
,@(exists-> (getenv "XAUTHORITY"))
|
,@(exists-> (getenv "XAUTHORITY"))
|
||||||
#$@(ngc-shared container)))
|
#$@(ngc-shared container)))
|
||||||
(DEBUG (equal? (getenv "DEBUG") "1"))
|
(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)))
|
(args (cdr (command-line)))
|
||||||
(command (if DEBUG '()
|
(command (if DEBUG '()
|
||||||
`("--" ,run ,@args))))
|
`("--" ,run ,@args))))
|
||||||
|
@ -362,7 +365,9 @@ in a sandboxed FHS environment."
|
||||||
,@(map add-path expose)
|
,@(map add-path expose)
|
||||||
,@(map (lambda (item)
|
,@(map (lambda (item)
|
||||||
(add-path item #:writable? #t))
|
(add-path item #:writable? #t))
|
||||||
share)
|
(if extra-shares
|
||||||
|
(append share extra-shares)
|
||||||
|
share))
|
||||||
"-m" ,manifest-file
|
"-m" ,manifest-file
|
||||||
,@command))))))
|
,@command))))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user