summaryrefslogtreecommitdiff
path: root/emacs/guix-info.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2014-10-05 12:31:23 +0400
committerAlex Kost <alezost@gmail.com>2014-10-06 00:02:46 +0400
commitcb6a5c71d875fff6f1c3b2bd1e43c31cc7cfe1ac (patch)
tree8413cb2e9398785ea4e886ac087bc8bb80ca1c03 /emacs/guix-info.el
parentd3d337d2d8f7152cb9ff3724f1cf240ce5ea5be2 (diff)
downloadguix-cb6a5c71d875fff6f1c3b2bd1e43c31cc7cfe1ac.tar.gz
guix-cb6a5c71d875fff6f1c3b2bd1e43c31cc7cfe1ac.tar.xz
emacs: Add support for deleting generations.
* doc/emacs.texi (emacs List buffer): Mention new key bindings. * emacs/guix-base.el (guix-delete-generations): New procedure. * emacs/guix-info.el (guix-generation-info-insert-number): Use it. * emacs/guix-list.el (guix-generation-list-mark-delete, guix-generation-list-execute): New procedures. * emacs/guix-main.scm (delete-generations*): New procedure.
Diffstat (limited to 'emacs/guix-info.el')
-rw-r--r--emacs/guix-info.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/emacs/guix-info.el b/emacs/guix-info.el
index d0a320f7cf..d5226b1286 100644
--- a/emacs/guix-info.el
+++ b/emacs/guix-info.el
@@ -627,8 +627,10 @@ ENTRY is an alist with package info."
(guix-info-insert-indent)
(guix-info-insert-action-button
"Delete"
- (lambda (btn) (error "Sorry, not implemented yet"))
- "Delete this generation"))
+ (lambda (btn)
+ (guix-delete-generations (button-get btn 'number)))
+ "Delete this generation"
+ 'number number))
(provide 'guix-info)