ambrevar/guix: Share correct channels in share-setup-files.
parent
2288cabc22
commit
fcea4335dd
|
@ -16,11 +16,14 @@
|
|||
;; TODO: Generate unique temp file.
|
||||
;; TODO: Use ambrevar/shell.
|
||||
;; TODO: Overwrite existing file?
|
||||
(let ((setup-file "/tmp/guix-system-setup.tar"))
|
||||
(let ((setup-file "/tmp/guix-system-setup.tar")
|
||||
(channel-file "/tmp/channels.scm"))
|
||||
(uiop:run-program (list "guix" "describe" "--format=channels")
|
||||
:output channel-file)
|
||||
(uiop:with-current-directory ((format nil "~a/guix/" (uiop:xdg-config-home)))
|
||||
(uiop:run-program (list "tar" "--dereference" "-cvf" setup-file
|
||||
"/etc/guix/signing-key.pub"
|
||||
"channels.scm" "system")
|
||||
channel-file "system")
|
||||
:output t))
|
||||
;; TODO: Restart when port is occupied.
|
||||
(format t (str:concat "Guix installation can fetch the setup files with~%"
|
||||
|
|
Loading…
Reference in New Issue