diff options
| author | Alex Kost <alezost@gmail.com> | 2015-12-11 14:09:27 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2016-01-02 17:25:35 +0300 |
| commit | 5c8994d9d91e79e900083328b565f85e2171e077 (patch) | |
| tree | 7f89afad8faddf92bcfece7df9f2c73dd30014ff | |
| parent | 32950fc846e1193769a378a1c277eeb02e5a7f9c (diff) | |
| download | gnu-guix-5c8994d9d91e79e900083328b565f85e2171e077.tar gnu-guix-5c8994d9d91e79e900083328b565f85e2171e077.tar.gz | |
emacs: Use "B" key in "Package List" to display latest builds.
* emacs/guix-ui-package.el (guix-package-list-latest-builds): New
procedure.
(guix-package-list-mode-map): Bind "B" key to it.
(guix-output-list-mode-map): Likewise.
* doc/emacs.texi (Emacs List buffer): Document it.
| -rw-r--r-- | doc/emacs.texi | 2 | ||||
| -rw-r--r-- | emacs/guix-ui-package.el | 15 |
2 files changed, 17 insertions, 0 deletions
diff --git a/doc/emacs.texi b/doc/emacs.texi index c4bda24408..ea340b19fe 100644 --- a/doc/emacs.texi +++ b/doc/emacs.texi @@ -288,6 +288,8 @@ similar to @command{guix edit} command (@pxref{Invoking guix edit}), but for opening a package recipe in the current Emacs instance. @item x Execute actions on the marked packages. +@item B +Display latest builds of the current package (@pxref{Emacs Hydra}). @end table A ``generation-list'' buffer additionally provides the following diff --git a/emacs/guix-ui-package.el b/emacs/guix-ui-package.el index 7d2ce1065d..e0c98eaed6 100644 --- a/emacs/guix-ui-package.el +++ b/emacs/guix-ui-package.el @@ -34,6 +34,7 @@ (require 'guix-guile) (require 'guix-entry) (require 'guix-utils) +(require 'guix-hydra-build) (guix-ui-define-entry-type package) (guix-ui-define-entry-type output) @@ -546,6 +547,7 @@ This function is used to hide a \"Download\" button if needed." (delete . ?D))) (let ((map guix-package-list-mode-map)) + (define-key map (kbd "B") 'guix-package-list-latest-builds) (define-key map (kbd "e") 'guix-package-list-edit) (define-key map (kbd "x") 'guix-package-list-execute) (define-key map (kbd "i") 'guix-package-list-mark-install) @@ -720,6 +722,18 @@ The specification is suitable for `guix-process-package-actions'." (interactive) (guix-edit (guix-list-current-id))) +(defun guix-package-list-latest-builds (number &rest args) + "Display latest NUMBER of Hydra builds of the current package. +Interactively, prompt for NUMBER. With prefix argument, prompt +for all ARGS." + (interactive + (let ((entry (guix-list-current-entry))) + (guix-hydra-build-latest-prompt-args + :job (guix-package-name-specification + (guix-entry-value entry 'name) + (guix-entry-value entry 'version))))) + (apply #'guix-hydra-latest-builds number args)) + ;;; Output 'info' @@ -784,6 +798,7 @@ The specification is suitable for `guix-process-package-actions'." (delete . ?D))) (let ((map guix-output-list-mode-map)) + (define-key map (kbd "B") 'guix-package-list-latest-builds) (define-key map (kbd "e") 'guix-output-list-edit) (define-key map (kbd "x") 'guix-output-list-execute) (define-key map (kbd "i") 'guix-output-list-mark-install) |