summaryrefslogtreecommitdiff
path: root/emacs/guix-base.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2016-05-08 23:27:42 +0300
committerAlex Kost <alezost@gmail.com>2016-05-31 23:51:54 +0300
commitd01ebd05d11775dea7c8d0a084c3ab02b958e18b (patch)
treefe2fb9ddb62700d93962bccc7f3be46d0a759855 /emacs/guix-base.el
parent7a0094a5f29cd6f49213c020ac55cb2f17f5d8cb (diff)
emacs: Show built output directories in Package Info.
* emacs/guix-main.scm (package-store-path): New procedure. * emacs/guix-base.el (guix-package-store-path): New procedure. * emacs/guix-ui-package.el (guix-package-info-auto-find-package): New variable. (guix-package-info-show-store-path, guix-package-info-insert-misc): New procedures. (guix-package-info-format, guix-output-info-format): Add 'guix-package-info-insert-misc'.
Diffstat (limited to 'emacs/guix-base.el')
-rw-r--r--emacs/guix-base.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index 888836428f..962010050b 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -207,6 +207,13 @@ Ask a user with PROMPT for continuing an operation."
(guix-make-guile-expression
'package-source-path package-id)))
+(defun guix-package-store-path (package-id)
+ "Return a list of store directories of outputs of package PACKAGE-ID."
+ (message "Calculating the package derivation ...")
+ (guix-eval-read
+ (guix-make-guile-expression
+ 'package-store-path package-id)))
+
(defvar guix-after-source-download-hook nil
"Hook run after successful performing a 'source-download' operation.")