ambrevar/guix: Fix ambrevar/shell prefix.
parent
757be91df8
commit
b6ea5b27ae
|
@ -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)))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue