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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,7 +28,7 @@
;; 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~%"
" guix download http://~a:~a -o setup.tar && tar xf setup.tar~%") " guix download http://~a:~a -o setup.tar && tar xf setup.tar~%")
($:current-ip) (ambrevar/shell:current-ip)
port) port)
(uiop:run-program (list "woof" "-p" (write-to-string port) (uiop:run-program (list "woof" "-p" (write-to-string port)
setup-file) setup-file)
@ -58,7 +58,7 @@
(list path (list path
(parse-integer (parse-integer
(first (first (first (first
($:tokenize (ambrevar/shell:tokenize
(cmd:$cmd "du" "-sb" path)))))))) (cmd:$cmd "du" "-sb" path))))))))
(mapcar (mapcar
#'size->human #'size->human
@ -66,7 +66,7 @@
limit limit
(sort (mapcar #'pair-item-with-disk-usage (sort (mapcar #'pair-item-with-disk-usage
(if dead? (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))) (ambrevar/file:list-directory "/gnu/store" :sort)))
#'> :key #'second))))) #'> :key #'second)))))