From 49d758d212d78976d6679125fa1731537c768526 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Tue, 14 Oct 2014 20:43:10 +0400 Subject: emacs: Support auto-updating after performing REPL operation. * emacs/guix-backend.el (guix-operation-buffer): New variable. (guix-eval-in-repl): Use it. Add optional 'operation-buffer' argument. * emacs/guix-base.el (guix-update-after-operation): New variable. (guix-switch-to-buffer, guix-list-or-info-buffer-p, guix-buffers, guix-update-buffers-maybe): New procedures. (guix-set-buffer): Use 'guix-switch-to-buffer'. Add optional 'no-display' argument. (guix-process-package-actions, guix-delete-generations, guix-switch-to-generation): Add optional 'operation-buffer' argument. * emacs/guix-info.el (guix-package-info-insert-action-button, guix-generation-info-insert-number, guix-generation-info-insert-current): Adjust for using operation buffer. * emacs/guix-list.el (guix-list-execute-package-actions, guix-generation-list-switch, guix-generation-list-execute): Likewise. --- emacs/guix-list.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'emacs/guix-list.el') diff --git a/emacs/guix-list.el b/emacs/guix-list.el index c3e8ef4cdc..4d3c21cbe7 100644 --- a/emacs/guix-list.el +++ b/emacs/guix-list.el @@ -617,7 +617,7 @@ FUN should accept action-type as argument." (let ((actions (delq nil (mapcar fun '(install delete upgrade))))) (if actions - (apply #'guix-process-package-actions actions) + (guix-process-package-actions actions (current-buffer)) (user-error "No operations specified")))) (defun guix-package-list-execute () @@ -751,7 +751,7 @@ VAL is a boolean value." (number (guix-get-key-val entry 'number))) (if current (user-error "This generation is already the current one") - (guix-switch-to-generation number)))) + (guix-switch-to-generation number (current-buffer))))) (defun guix-generation-list-show-packages () "List installed packages for the generation at point." @@ -773,7 +773,7 @@ With ARG, mark all generations for deletion." (let ((marked (guix-list-get-marked-id-list 'delete))) (or marked (user-error "No generations marked for deletion")) - (apply #'guix-delete-generations marked))) + (guix-delete-generations marked (current-buffer)))) (provide 'guix-list) -- cgit v1.2.3