ambrevar/guix: Fix ambrevar/shell prefix.

master
Pierre Neidhardt 2021-01-16 01:12:40 +01:00
parent 757be91df8
commit b6ea5b27ae
1 changed files with 3 additions and 3 deletions

View File

@ -28,7 +28,7 @@
;; TODO: Restart when port is occupied.
(format t (str:concat "Guix installation can fetch the setup files with~%"
" guix download http://~a:~a -o setup.tar && tar xf setup.tar~%")
($:current-ip)
(ambrevar/shell:current-ip)
port)
(uiop:run-program (list "woof" "-p" (write-to-string port)
setup-file)
@ -58,7 +58,7 @@
(list path
(parse-integer
(first (first
($:tokenize
(ambrevar/shell:tokenize
(cmd:$cmd "du" "-sb" path))))))))
(mapcar
#'size->human
@ -66,7 +66,7 @@
limit
(sort (mapcar #'pair-item-with-disk-usage
(if dead?
(alex:flatten ($:tokenize (cmd:$cmd "guix" "gc" "--list-dead")))
(alex:flatten (ambrevar/shell:tokenize (cmd:$cmd "guix" "gc" "--list-dead")))
(ambrevar/file:list-directory "/gnu/store" :sort)))
#'> :key #'second)))))