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