From 6fe5380452534eb5c312249ef79a32bc7bfa3404 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Wed, 13 Jan 2021 12:44:01 +0100
Subject: [PATCH] ambrevar/guix: Add `guix-run'.

---
 .local/share/common-lisp/source/ambrevar/guix.lisp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/.local/share/common-lisp/source/ambrevar/guix.lisp b/.local/share/common-lisp/source/ambrevar/guix.lisp
index 79a8dae7..f2cbc251 100644
--- a/.local/share/common-lisp/source/ambrevar/guix.lisp
+++ b/.local/share/common-lisp/source/ambrevar/guix.lisp
@@ -75,3 +75,13 @@
 (defun delete-store-items (items)
   "Garbage-collect 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))