diff options
| author | Alex Kost <alezost@gmail.com> | 2016-05-08 23:27:42 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-05-31 23:51:54 +0300 |
| commit | d01ebd05d11775dea7c8d0a084c3ab02b958e18b (patch) | |
| tree | fe2fb9ddb62700d93962bccc7f3be46d0a759855 /emacs/guix-base.el | |
| parent | 7a0094a5f29cd6f49213c020ac55cb2f17f5d8cb (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.el | 7 |
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.") |