ambrevar/guix: Add `guix-run'.
parent
b884f0d613
commit
6fe5380452
|
@ -75,3 +75,13 @@
|
||||||
(defun delete-store-items (items)
|
(defun delete-store-items (items)
|
||||||
"Garbage-collect items."
|
"Garbage-collect items."
|
||||||
(apply #'$:run* "guix" "gc" "--delete" items))
|
(apply #'$:run* "guix" "gc" "--delete" items))
|
||||||
|
|
||||||
|
(export-always 'guix-run)
|
||||||
|
(defun guix-run (package &optional (executable package) &rest args) ; TODO: Rename to `run'?
|
||||||
|
"Garbage-collect items.
|
||||||
|
If EXECUTABLE is nil, PACKAGE is used instead."
|
||||||
|
(apply #'cmd:cmd
|
||||||
|
"guix" "environment" "--ad-hoc" package
|
||||||
|
"--"
|
||||||
|
(or executable package)
|
||||||
|
args))
|
||||||
|
|
Loading…
Reference in New Issue