aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-main.scm
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/guix-main.scm')
-rw-r--r--emacs/guix-main.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/emacs/guix-main.scm b/emacs/guix-main.scm
index c6e4a8259b..e0dc683d88 100644
--- a/emacs/guix-main.scm
+++ b/emacs/guix-main.scm
@@ -887,6 +887,12 @@ GENERATIONS is a list of generation numbers."
(with-store store
(delete-generations store profile generations)))
+(define (package-location-string package-id)
+ "Return a location string of a package PACKAGE-ID."
+ (and-let* ((package (package-by-id package-id))
+ (location (package-location package)))
+ (location->string location)))
+
(define (package-source-derivation->store-path derivation)
"Return a store path of the package source DERIVATION."
(match (derivation-outputs derivation)