mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

ambrevar/guix: Share correct channels in share-setup-files.

master
Pierre Neidhardt 2021-01-03 12:17:22 +01:00
parent 2288cabc22
commit fcea4335dd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
.local/share/common-lisp/source/ambrevar/guix.lisp
View File

@ -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~%"